Eyes 2.0

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	1
Date Added	May 18, 2008
Last Updated	May 18, 2008
Tags	2 bluethen etc eyes

Introduction

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

Grab the Code

;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

(11) RSS

Go to Bottom

BlueThen

Comments: 302

mIRC Snippet: Eyes 2.0
Posted on May 18, 2008 8:00 pm

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

SnoooP

Comments: 343

mIRC Snippet: Eyes 2.0
Posted on May 18, 2008 8:46 pm

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

BlueThen

Comments: 302

mIRC Snippet: Eyes 2.0
Posted on May 18, 2008 9:21 pm

I\'m trying the best I can.

Xpl0reR

Comments: 78

mIRC Snippet: Eyes 2.0
Posted on May 18, 2008 10:05 pm

/me is scared :s

SnoooP

Comments: 343

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 3:06 am

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

Eugenio

Comments: 840

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 5:55 am

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

SnoooP

Comments: 343

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 6:00 am

lol.... would you wear it ?

Eugenio

Comments: 840

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 6:04 am

Of course Old chap

SnoooP

Comments: 343

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 6:06 am

Superb... Simply splendid :)

BlueThen

Comments: 302

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 2:37 pm

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

SnoooP

Comments: 343

mIRC Snippet: Eyes 2.0
Posted on May 19, 2008 3:07 pm

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

<-- easily amused though

Eyes 2.0

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (9)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Aug 29, 2008 Profile \| Website Likes (5) Friends (9) Scripts (1) Snippets (38) Images (45) Comments Received (598) Comments Submitted (302) Forum Posts (108)