Yet again, another animated effect in mIRC I created. I hope you like it. :)
The screen may not look like much, but remember that it's animated. :)
Updates:
The dots move more individually.
;Gravity 1.01
;Made by BlueThen on April 4, 2008.
;To install, paste this script into your remotes,
;then type /gravity, or right click the channel or status and then click "Gravity."
alias gravity {
window -paoCzdk0 +tnbL @Gravity -1 -1 400 400 | window -poCzdhk0 +tnbL @grav.buf -1 -1 800 800 | set %grav.c n | grav.init
}
alias -l grav.init {
set %grav.t 20 | %grav.x = %grav.t
while (%grav.x > 0) {
hadd -m %grav.x $+ x a $calc(%grav.x *(359 / %grav.t)) | hadd %grav.x $+ x as $rand(1,4) | %grav.r = $rand(1,2)
if (%grav.r = 1) hadd %grav.x $+ x dir hinc | else hadd %grav.x $+ x dir hdec
hadd %grav.x $+ x l $rand(50,400) | hadd %grav.x $+ x d i | hadd %grav.x $+ x s $rand(4,15) | dec %grav.x
}
set %grav.PrimX $calc(400 + (20 * $cos(0).deg)) | set %grav.PrimY $calc(400 + (20 * $sin(0).deg)) | set %grav.PrimA 0 | grav.frame
}
on *:close:@gravity: window -c @grav.buf | unset %grav.t %grav.x %grav.c %grav.PrimX %grav.PrimY %grav.PrimA | set %grav.c y
menu channel,status {
Gravity: gravity
}
alias -l grav.frame {
if (%grav.c != y) {
%grav.x = %grav.t | clear @grav.buf | drawfill @grav.buf 1 1 1 1
drawtext @grav.buf 12 Tahoma 40 50 50 Made By BlueThen
drawtext @grav.buf 12 Tahoma 40 50 100 BlueThen.com | inc %grav.PrimA 4
set %grav.PrimX $calc(400 + (50 * $cos(%grav.PrimA).deg)) | set %grav.PrimY $calc(400 + (50 * $sin(%grav.PrimA).deg))
drawdot @grav.buf 14 30 %grav.PrimX %grav.PrimY
while (%grav.x > 0) {
if ($hget(%grav.x $+ x ,l) > 400) hadd %grav.x $+ x d d | if ($hget(%grav.x $+ x ,l) < 50) hadd %grav.x $+ x d i
if ($hget(%grav.x $+ x ,d) == i) hadd %grav.x $+ x l $calc($hget(%grav.x $+ x ,l)+ $hget(%grav.x $+ x ,s))
if ($hget(%grav.x $+ x ,d) == d) hadd %grav.x $+ x l $calc($hget(%grav.x $+ x ,l)- $hget(%grav.x $+ x ,s))
$hget(%grav.x $+ x ,dir) %grav.x $+ x a $hget(%grav.x $+ x ,as) | %grav.c = $calc($hget(%grav.x $+ x ,l) *0.6)
drawdot -r @grav.buf $rgb(%grav.c ,%grav.c ,%grav.c) $calc($hget(%grav.x $+ x ,l) *0.15) $calc(%grav.PrimX + ($hget(%grav.x $+ x ,l) * $cos($hget(%grav.x $+ x ,a)).deg)) $calc(%grav.PrimY + ($hget(%grav.x $+ x ,l) * $sin($hget(%grav.x $+ x ,a)).deg))
dec %grav.x
}
drawcopy -m @grav.buf 0 0 800 800 @gravity 0 0 400 400 | .timer -ho 1 0 grav.frame
}
}