Eyes 2.0

By BlueThen on May 18, 2008

Sort of like the first one, really I was screwing around. Enjoy!
Image

;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)
}

Comments

Sign in to comment.
SnoooP   -  May 19, 2008

lol... its still good... it amused me :D Keep up the good work.. hope to see more :)

<-- easily amused though

 Respond  
BlueThen   -  May 19, 2008

Haha, I\'m glad you guys liked it. Honestly, I didn\'t plan the tophat to be that big, but oh well.

 Respond  
SnoooP   -  May 19, 2008

Superb... Simply splendid :)

 Respond  
Eugenio   -  May 19, 2008

Of course Old chap

 Respond  
SnoooP   -  May 19, 2008

lol.... would you wear it ?

 Respond  
Eugenio   -  May 19, 2008

lawl these are funny .......I like the top hat.

 Respond  
SnoooP   -  May 19, 2008

hehe well Bluethen I think your best if v.good... i didnt see these too often before now :) and you do seem good at them xD

 Respond  
xplo   -  May 18, 2008

/me is scared :s

 Respond  
BlueThen   -  May 18, 2008

I\'m trying the best I can.

 Respond  
SnoooP   -  May 18, 2008

nice :) loving these ... keep it up!

 Respond  
BlueThen   -  May 18, 2008

Check out the video on its creation, http://bluethen.the-brotherhood.org/Eyes-2/Eyes-2.htm

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.