Sort of like the first one, really I was screwing around. Enjoy!
;Eyes 2.0
;Made by BlueThen on May 18, 2008.
;To install, paste this code into your remotes (alt + r)
;Then type /eyes2 or right click the channel and click Eyes 2.
;BlueThen.com
menu channel,status {
Eyes 2: { eyes2 }
}
alias eyes2 window -paoCzdk0 +tnbL @Eyes2 -1 -1 400 400 | window -poCzdhk0 +tnbL @eyes2.buf -1 -1 800 800 | eyes2.init
alias -l eyes2.init {
drawfill @eyes2.buf 0 0 1 1 | drawdot @eyes2.buf 1 25 374 400
drawdot @eyes2.buf 1 25 426 400 | drawdot @eyes2.buf 0 20 374 400
drawdot @eyes2.buf 0 20 426 400 | drawcopy @eyes2.buf 0 0 800 800 @eyes2 0 0 400 400
set %eyes2.a 330 | set %eyes2.d dec | eyes2.frame
}
menu @eyes2 {
mouse: { set %eyes2.i y }
leave: { set %eyes2.i n }
}
alias -l eyes2.frame {
if (%eyes2.c != y) {
clear @eyes2.buf | drawfill @eyes2.buf 0 0 1 1
drawdot @eyes2.buf 1 25 374 400 | drawdot @eyes2.buf 1 25 426 400
drawdot @eyes2.buf 0 20 374 400 | drawdot @eyes2.buf 0 20 426 400
if (%eyes2.i == y) {
drawdot @eyes2.buf 1 5 $calc(374 + ($iif($dist($calc(2* $mouse.x), $calc(2* $mouse.y),374,400) < 18,$v1,$v2) * $cos($getangle2($calc(2* $mouse.x), $calc(2* $mouse.y),374,400)).deg)) $calc(400 + ($iif($dist($calc(2* $mouse.x), $calc(2* $mouse.y),374,400) < 18,$v1,$v2) * $sin($calc($getangle2($calc(2* $mouse.x), $calc(2* $mouse.y),374,400) - 180)).deg))
drawdot @eyes2.buf 1 5 $calc(426 + ($iif($dist($calc(2* $mouse.x), $calc(2* $mouse.y),426,400) < 18,$v1,$v2) * $cos($getangle2($calc(2* $mouse.x), $calc(2* $mouse.y),426,400)).deg)) $calc(400 + ($iif($dist($calc(2* $mouse.x), $calc(2* $mouse.y),426,400) < 18,$v1,$v2) * $sin($calc($getangle2($calc(2* $mouse.x), $calc(2* $mouse.y),426,400) - 180)).deg))
}
eyes2.drawhat %eyes2.a | %eyes2.d %eyes2.a 2
if (%eyes2.a > 330) set %eyes2.d dec | if (%eyes2.a < 210) set %eyes2.d inc
drawtext @eyes2.buf 1 Tahoma 40 236.5 500 Made by BlueThen
drawtext @eyes2.buf 1 Tahoma 40 275 575 BlueThen.com | %eyes2.x = 30
while (%eyes2.x) {
drawline @eyes2.buf 12 5 $calc(400 + (320 * $cos($calc(180 + (%eyes2.x * 6))).deg)) $calc(400 + (320 * $sin($calc(180 + (%eyes2.x * 6))).deg)) $calc(400 + (300 * $cos($calc(180 + (%eyes2.x * 6))).deg)) $calc(400 + (300 * $sin($calc(180 + (%eyes2.x * 6))).deg))
dec %eyes2.x
}
drawcopy -m @eyes2.buf 0 0 800 800 @eyes2 0 0 400 400 | .timer 1 0 eyes2.frame
}
else unset %eyes2.c
}
alias -l eyes2.drawhat {
drawline @eyes2.buf 1 15 $calc(400 + (75 * $cos($calc($1 + 60)).deg)) $calc(400 + (75 * $sin($calc($1 + 60)).deg)) $calc(400 + (75 * $cos($calc($1 - 60)).deg)) $calc(400 + (75 * $sin($calc($1 - 60)).deg))
drawline @eyes2.buf 1 15 $calc(400 + (50 * $cos($calc($1 + 30)).deg)) $calc(400 + (50 * $sin($calc($1 + 30)).deg)) $calc(400 + (200 * $cos($calc($1 + 7.5)).deg)) $calc(400 + (200 * $sin($calc($1 +7.5)).deg))
drawline @eyes2.buf 1 15 $calc(400 + (50 * $cos($calc($1 - 30)).deg)) $calc(400 + (50 * $sin($calc($1 - 30)).deg)) $calc(400 + (200 * $cos($calc($1 - 7.5)).deg)) $calc(400 + (200 * $sin($calc($1 -7.5)).deg))
drawline @eyes2.buf 1 15 $calc(400 + (200 * $cos($calc($1 + 7.5)).deg)) $calc(400 + (200 * $sin($calc($1 +7.5)).deg)) $calc(400 + (200 * $cos($calc($1 - 7.5)).deg)) $calc(400 + (200 * $sin($calc($1 -7.5)).deg))
drawfill @eyes2.buf 1 1 $calc(400 + (100 * $cos($1).deg)) $calc(400 + (100 * $sin($1).deg))
}
on *:close:@eyes2: { window -c @eyes2.buf | set %eyes2.c y | unset %eyes2.i %eyes2.a %eyes2.d %eyes2.x }
alias -l distance return $calc($sqrt(($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 $calc(%angle - 180)
}
Check out the video on its creation, http://bluethen.the-brotherhood.org/Eyes-2/Eyes-2.htm