Background Picture Animation

By eyiezinc on May 29, 2009

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)
  }
}

Comments

Sign in to comment.
nutty   -  May 23, 2016

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 :)

 Respond  
montague   -  Oct 17, 2009

GJ /b/ro :D

 Respond  
eyiezinc   -  Jun 23, 2009

my ex-gf zonirc. :)

 Respond  
zonirc   -  Jun 22, 2009

cool cool... who afifah actually mate :))

 Respond  
blitzz   -  Jun 06, 2009

oh my. just like my idea but you post it 1st eyiezinc haha. anyway i like it. i'll use this as my background but i edited it a little coz the background change too fast. make me out of concentration. keep it up

 Respond  
eyiezinc   -  Jun 06, 2009

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 ?

 Respond  
jeroen^   -  Jun 01, 2009

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?

 Respond  
eyiezinc   -  May 31, 2009

thanks for ur comments PePpEr!!

 Respond  
PePpEr   -  May 30, 2009

nyc... i loaded it and worked perfict Thanx :)

 Respond  
CoCoRiCo   -  May 29, 2009

good idea :)
if the image frame if the series is a nice animated GIF can be decomposed lerden..

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.