You Can Make One Folder For Your Animated Picture..
You Can Make Picture Layer One After Another. Rename With Name Like "picture1.jpg,Picture2,jpg" Like A "Gif Pic"
Choose Folder. Then You Can See The Picture Will Be Animate
You Can Create A Nice Script With It
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EyiezINC Scripting Technology xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Addons Name : Background Picture Animation
Created By : Lestat
Warning: Do Not Change Any Code Below, Unless You Know What It Is
Description: Make Your Mirc BackGround Animated With Picture
Instruction
=================================================================
You Can Make One Folder For Your Animated Picture..
You Can Make Picture Layer One After Another. Rename With Name Like "picture1.jpg,Picture2,jpg" Like A "Gif Pic"
Choose Folder. Then You Can See The Picture Will Be Animate
You Can Create A Nice Script With It
=================================================================
Any Error/Help/Scripts Help Please Visit Us At "Irc.Webchat.Org" Channel "#eyiezinc"
More Addons At "http://www.eyiezinc.info/"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
menu channel {
-
Picture To Play
.$iif(%path,$style(1)) Set Path:$myx(tes) $myx(htap%) $shortfn($$sdir(Folder?,Path))
.-
.$iif(%att,$style(1)) Set Attribute: {
:ask
$myx(tes) $myx(tta%) $+(*.,$remove($$?".jpg or .bmp? eg: .jpg",*,.))
if ($myx(gpj.) $($myx(nisi!),2) $($myx(tta%),2)) && ($myx(pmb.) $($myx(nisi!),2) $($myx(tta%),2)) { $myx(tes) $myx(tta%) $myx(gpj.*) | goto ask }
}
.-
.$iif(!%path || !%att,$style(2),$iif(%img,$style(1))) Set Action: {
$myx(tes) $+(%,$myx(gmi)) $$?"image = c [center] $crlf image = f [fill] $crlf image = p [photo] $crlf image = s [status] $crlf image = t [tile] $crlf just put one EXAMPLE: c"
$myx(tes) $+(%,$myx(yalg)) $myx(011)
if (!$($+(%,$myx(gmi)),2)) { $myx(tes) $+(%,$myx(gmi)) c }
if ($($+(%,$myx(gmi)),2) $myx(=!) c) && ($($+(%,$myx(gmi)),2) $myx(=!) f) && ($($+(%,$myx(gmi)),2) $myx(=!) p) && ($($+(%,$myx(gmi)),2) $myx(=!) l) && ($($+(%,$myx(gmi)),2) $myx(=!) t) && ($($+(%,$myx(gmi)),2) $myx(=!) s) { $myx(tes) $+(%,$myx(gmi)) s } | else { background -xs }
if ($($+(%,$myx(gmi)),2) $myx(=!) l) { $myx(evitcaremit.) $myx(m-) 0 $($+(%,$myx(yalg)),2) $myx(fig) } | else { $myx(tesnu) $+(%,$myx(gmi)) }
}
.-
.$iif(!$timer(active),$style(2)) Stop Animate:$myx(tes) $+(%,$myx(gmi)) L | $myx(dnuorgkcab) $myx(xs-) | .timer 1 1 $myx(dnuorgkcab) $myx(x-) $($myx(evitca$),2)
.-
.Unload Myx Addons:.unload -rs $script
-
}
On 1:Unload: { .timeractive off | .background -x $active | .background -xs | .unset %path %att %img %gif %glay }
alias gif {
if (!$($+(%,$myx(gmi)),2)) { $myx(dnuorgkcab) $myx(x-) $($myx(evitca$),2) | $myx(dnuorgkcab) $myx(xs-) | $myx(ffo evitcaremit.) | $myx(tlah) }
if ($($+(%,$myx(gmi)),2) $myx(==) $myx(L)) { $myx(tesnu) $+(%,$myx(gmi)) | $myx(ffo evitcaremit.) }
$myx(cni) $+(%,$myx(fig))
if ($($+(%,$myx(fig)),2) > $($+($myx(elifdnif$),$chr(40),$($myx(htap%),2),$chr(44),$($myx(tta%),2),$chr(44),0,$chr(41)),2)) { $($myx(tes),$+(%,$myx(fig))) 1 }
if (s $myx(nisi) %img) { $myx(dnuorgkcab) $+(-,x) $($myx(evitca$),2) | $myx(dnuorgkcab) $+(-,c,%img) $shortfn($($+($myx(elifdnif$),$chr(40),$($myx(htap%),2),$chr(44),$($myx(tta%),2),$chr(44),$+(%,$myx(fig)),$chr(41)),2)) } | else { $myx(dnuorgkcab) $+(-,$($+(%,$myx(gmi)),2)) $($myx(evitca$),2) $shortfn($($+($myx(elifdnif$),$chr(40),$($myx(htap%),2),$chr(44),$($myx(tta%),2),$chr(44),$+(%,$myx(fig)),$chr(41)),2)) }
}
alias myx {
if ($isid) {
var %rt = 1,%text = $replace($1-,0,$!chr(48))
while ($mid(%text,%rt,1)) {
var %ort = $+($mid($1-,%rt,1),%ort)
inc %rt
}
return $replace(%ort,$!chr(48),0)
}
}
hope you did not mind but i added something to your code in my mirc for a alias ... in the lastest version 7.45... To make the image play when you open the mirc ..
alias playpicture {
$myx(tes) $+(%,$myx(yalg)) $myx(011)
if (!$($+(%,$myx(gmi)),2)) { $myx(tes) $+(%,$myx(gmi)) s }
if ($($+(%,$myx(gmi)),2) $myx(=!) c) && ($($+(%,$myx(gmi)),2) $myx(=!) f) && ($($+(%,$myx(gmi)),2) $myx(=!) p) && ($($+(%,$myx(gmi)),2) $myx(=!) l) && ($($+(%,$myx(gmi)),2) $myx(=!) t) && ($($+(%,$myx(gmi)),2) $myx(=!) s) { $myx(tes) $+(%,$myx(gmi)) s } | else { background -s }
if ($($+(%,$myx(gmi)),2) $myx(=!) l) { $myx(evitcaremit.) $myx(m-) 0 $($+(%,$myx(yalg)),2) $myx(fig) } | else { $myx(tesnu) $+(%,$myx(gmi)) }
}
i added this to on start works wonderful thank you :)
this is another way to created your own background animation jeroen^
;;for the start: /afifah
alias afifah {
.timerpipah -m 0 110 Gip
}
;make and put ur selection pic in one folder.. where your folder is yourpicfolder <---
alias gip {
inc %gip
If (%gip > $findfile(yourpicfolder,logox.jpg,0)) { Inc -u2 %stop | .set %gip 1 }
background -c $active $findfile(yourpicfolder,logox.jpg,%gip)
If (%stop == 8) { .timerpipah off | background -n $active yourpicfolder\ch.png }
}
it`s easy right ?
hi i really liked that snipped, however when i loaded it in my remote, it just switches images to fast. about two switches every second.
I aint that great a scripter so i when tried to change it,it didnt work, however there was a timer i could find. That was the timer that says how long the last image has to be retained when you stopped the animation.
so after shutting the animation down, the last image stands for a nice ten seconds now, but the pictures that came before that one still race on my screen. Is there anything i can do about that?