Spinning, sort of like that Swirl thing I had, except that there are rows of dots spinning around the cursor.
;Spinning 1.0
;Made by Bluethen on May 3, 2008.
;To install, paste this script into your remotes (alt + r)
;then type /spinning or right click the channel or status and click "Spinning."
;Move your cursor over the window to see the effect.
menu channel,status {
Spinning: { spinning }
}
alias spinning window -paoCzdk0 +tnbL @Spinning -1 -1 400 400 | window -poCzdhk0 +tnbL @spin.buf -1 -1 800 800 | spin.init
alias -l spin.init {
%spin.x = 10 | %spin.y = 10
while (%spin.x > 0) {
hadd -m %spin.x $+ . $+ %spin.y a $calc(36 * %spin.x) | dec %spin.x
if ((%spin.x < 1) && (%spin.y > 0)) { %spin.x = 10 | dec %spin.y }
}
spin.frame
}
menu @spinning {
mouse: { set %spin.l y }
leave { set %spin.l n }
}
alias -l spin.frame {
if (%spin.c == y) { unset %spin.c | halt }
clear @spin.buf | drawfill @spin.buf 0 0 1 1 | drawtext @spin.buf 1 Tahoma 40 350 50 Made By BlueThen | drawtext @spin.buf 1 Tahoma 40 400 100 BlueThen.com
if (%spin.l == y) {
%spin.x = 10 | %spin.y = 10
while (%spin.x > 0) {
drawdot @spin.buf 1 %spin.y $calc(($mouse.x * 2) + ((%spin.y * 40) * $cos($hget(%spin.x $+ . $+ %spin.y ,a)).deg)) $calc(($mouse.y * 2) + ((%spin.y * 40) * $sin($hget(%spin.x $+ . $+ %spin.y ,a)).deg))
hinc %spin.x $+ . $+ %spin.y a %spin.y | dec %spin.x
if ((%spin.x < 1) && (%spin.y > 0)) { %spin.x = 10 | dec %spin.y }
}
}
drawcopy -m @spin.buf 0 0 800 800 @spinning 0 0 400 400 | .timer -mo 1 0 spin.frame
}
on *:close:@spinning: { window -c @spin.buf | set %spin.c y | unset %spin.x %spin.y %spin.l }