StarField 2.
If you remember and liked my first StarField script
(http://www.hawkee.com/snippet/4146/), you'll probably like this one. Just like my previous Star script.
This one has a 3D effect. This time you're zooming in on the screen.
I'm sure you have a screensaver like this.
;StarField 2.0
;Made by BlueThen on April 28, 2008.
;To install, paste this snippet into your remotes (alt + r),
;Then type /stars2 or right click the channel or status and "click StarField 2."
;BlueThen.com
alias stars2 { window -paoCzdk0 +tnbL @stars2 -1 -1 400 400 | window -poCzdhk0 +tnbL @sta2.buf -1 -1 800 800 | stars.init }
alias -l stars.init {
set %stars.c n | set %stars.t 75 | %stars.x = %stars.t | set %stars.px 440 | set %stars.py 400.7 | set %stars.a 1
while (%stars.x > 0) {
hadd -m %stars.x $+ i s $r(70,75) | hadd -m %stars.x $+ i px 400 | hadd -m %stars.x $+ i py 400
hadd -m %stars.x $+ i d $r(1,400) | hadd %stars.x $+ i a $r(1,360) | dec %stars.x
}
stars.frame
}
menu channel,status {
StarField 2: { stars2 }
}
on *:close:@stars2: { window -c @sta2.buf | set %stars.c y | unset %stars.t %stars.x %stars.px %stars.py %stars.a }
alias -l stars.frame {
if (%stars.c != y) {
inc %stars.a 3 | set %stars.px $calc(400 + (40 * $cos(%stars.a).deg)) | set %stars.py $calc(400 + (40 * $sin(%stars.a).deg))
%stars.x = %stars.t | clear @sta2.buf | drawfill @sta2.buf 1 1 1 1 1
while (%stars.x > 0) {
%stars.c = $calc($hget(%stars.x $+ i ,d) *0.56)
drawdot -r @sta2.buf $rgb(%stars.c,%stars.c,%stars.c) $calc($hget(%stars.x $+ i ,d) * 0.03) $calc(%stars.px + ($hget(%stars.x $+ i ,d) * $cos($hget(%stars.x $+ i ,a)).deg)) $calc(%stars.py + ($hget(%stars.x $+ i ,d) * $sin($hget(%stars.x $+ i ,a)).deg))
hadd -m %stars.x $+ i d $calc(($hget(%stars.x $+ i ,d) *0.055) * $hget(%stars.x $+ i ,s) )
if ($hget(%stars.x $+ i ,d) > 500) { hadd -m %stars.x $+ i d 1 | hadd -m %stars.x $+ i s $r(20,25) | hadd -m %stars.x $+ i a $r(1,360) }
dec %stars.x
}
drawcopy -m @sta2.buf 0 0 800 800 @stars2 0 0 400 400 | .timer -mo 1 0 stars.frame
}
else unset %stars.c
}