Bubbles. Very similar to Stakes (well, the code is).
I hope you like it. :D
;Bubbles 1.01
;Made by BlueThen on April 24, 2008.
;To install, paste this script into your remotes (alt + r),
;then type /bubbles or right click the channel or status and click "Bubbles."
;Move your mouse over the window to see the effect. :)
;BlueThen.com :D
alias bubbles { window -paoCzdk0 +tnbL @bubbles -1 -1 400 400 | window -poCzdhk0 +tnbL @bub.buf -1 -1 800 800 | bub.init }
alias -l bub.init {
drawfill @bub.buf 1 1 1 1 1 | set %bub.t 8 | %bub.x = %bub.t | %bub.y = %bub.t - 1
while ((%bub.x > 0) && (%bub.y > 0)) {
drawdot @bub.buf 0 50 $calc(%bub.x * 87.5) $calc(%bub.y * 87.5) | dec %bub.x
if (%bub.x <= 0) { dec %bub.y 1 | set %bub.x 8 }
}
drawcopy -m @bub.buf 0 0 800 800 @bubbles 0 0 400 400
}
menu @bubbles {
mouse: {
clear @bub.buf | drawfill @bub.buf 1 1 1 1 1 | %bub.x = %bub.t | %bub.y = %bub.t - 1
while ((%bub.x > 0) && (%bub.y > 0)) {
%bub.d = $sqrt($calc(((($mouse.x *2) - (%bub.x *87.5))^2)+((($mouse.y *2) - (%bub.y *87.5))^2)))
drawdot -r @bub.buf $rgb($calc(%bub.d *0.26) , $calc(%bub.d *0.26) , $calc(%bub.d *0.26)) $calc(%bub.d /5) $calc(%bub.x * 87.5) $calc(%bub.y * 87.5) | dec %bub.x
if (%bub.x <= 0) { dec %bub.y 1 | set %bub.x 8 }
}
drawcopy -m @bub.buf 0 0 800 800 @bubbles 0 0 400 400
}
}
on *:close:@bubbles: window -c @bub.buf
menu channel,status {
Bubbles: { bubbles }
}