Eyes script. An elmo type guy stares at your cursor.
;Eyes 1.0
;Made by BlueThen on May 11, 2008.
;To install, paste this alias into your remotes (alt + r),
;Then type /eyes or right click the status and channel and click "Eyes."
menu Channel,Status {
Eyes: eyes
}
alias Eyes window -paoCzdk0 +tnbL @Eyes -1 -1 400 400 | window -poCzdhk0 +tnbL @Eyes.buf -1 -1 800 800 | eyes.init
alias -l eyes.init {
drawfill @eyes.buf 0 0 1 1 | %eyes.x = 2
while (%eyes.x) {
drawdot @eyes.buf 4 600 0 400 | drawdot @eyes.buf 4 150 550 600
drawdot @eyes.buf 1 200 $calc(%eyes.x * 275) 400
drawdot @eyes.buf 0 175 $calc(%eyes.x * 275) 400 | dec %eyes.x
}
drawtext @eyes.buf 1 Tahoma 40 25 25 Made by BlueThen
drawtext @eyes.buf 1 Tahoma 40 25 75 BlueThen.com | drawcopy -m @eyes.buf 0 0 800 800 @eyes 0 0 400 400
}
menu @eyes {
mouse: {
clear @eyes.buf | drawfill @eyes.buf 0 0 1 1 | %eyes.x = 2
while (%eyes.x) {
drawdot @eyes.buf 4 600 0 400 | drawdot @eyes.buf 4 150 550 600
drawdot @eyes.buf 1 200 $calc(%eyes.x * 275) 400 | drawdot @eyes.buf 0 175 $calc(%eyes.x * 275) 400
drawdot @eyes.buf 1 50 $calc($calc(%eyes.x * 275) + ($iif($dist($calc($mouse.x * 2),$calc($mouse.y * 2),$calc(%eyes.x * 275),400) < 130, $v1, 130) * $cos($calc(180 + (360 - $getangle2( $calc($mouse.x * 2) , $calc($mouse.y * 2) , $calc(%eyes.x * 275) , 400)))).deg)) $calc(400 + ($iif($dist($calc($mouse.x * 2),$calc($mouse.y * 2),$calc(%eyes.x * 275),400) < 130, $v1, 130) * $sin($calc(180 + (360 - $getangle2( $calc($mouse.x * 2) , $calc($mouse.y * 2) , $calc(%eyes.x * 275) , 400)))).deg))
dec %eyes.x
}
drawtext @eyes.buf 1 Tahoma 40 25 25 Made by BlueThen
drawtext @eyes.buf 1 Tahoma 40 25 75 BlueThen.com | drawcopy -m @eyes.buf 0 0 800 800 @eyes 0 0 400 400
}
}
on *:close:@eyes: { window -c @eyes.buf | unset %eyes.x }
alias -l Dist return $sqrt($calc(($1 - $3)^2 + ($2 - $4)^2))
alias -l getangle2 {
%p1.x = $1 | %p1.y = $2 | %p2.x = $3 | %p2.y = $4 | %p3.x = %p2.x | %p3.y = %p1.y | %opposite = $sqrt($calc((%p2.x - %p3.x)^2 + (%p2.y - %p3.y)^2))
%hypotenuse = $sqrt($calc((%p2.x - %p1.x)^2 + (%p2.y - %p1.y)^2)) | %angle = $asin($calc( %opposite / %hypotenuse )).deg
if (%p1.y < %p2.y) %angle = $calc(360 - %angle) | if ((%p1.x > %p2.x) && (%p1.y > %p2.y)) %angle = $calc(180 - %angle)
elseif ((%p1.x > %p2.x) && (%p1.y < %p2.y)) %angle = $calc(180 +(360 - %angle)) | return $iif(%angle == 360,0,$v1)
}
Check out the video I made of myself making it. :P
http://bluethen.the-brotherhood.org/Eyes3/Eyes3.htm
(I was bored)