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

Commenting Options