Eyes

Please Register to submit score.

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

Introduction

Eyes script. An elmo type guy stares at your cursor.

Grab the Code

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

Comments

(9) RSS

Go to Bottom

BlueThen

Comments: 236

mIRC Snippet: Eyes
Posted on May 11, 2008 4:51 pm

Check out the video I made of myself making it. :P
http://bluethen.the-brotherhood.org/Eyes3/Eyes3.htm
(I was bored)

juhapuha

Comments: 39

mIRC Snippet: Eyes
Posted on May 11, 2008 5:22 pm

What a scripting D: the video was amazing :)

jonesy44

Comments: 618

mIRC Snippet: Eyes
Posted on May 11, 2008 5:23 pm

hah! nice one BlueThen, good stuff :p

BlueThen

Comments: 236

mIRC Snippet: Eyes
Posted on May 11, 2008 5:29 pm

Should I make videos like this more often? :)

jonesy44

Comments: 618

mIRC Snippet: Eyes
Posted on May 11, 2008 5:35 pm

Sure.. we still won't understand, ya crazy freak :P
Nice script btw xD

Hawkee

Comments: 398

mIRC Snippet: Eyes
Posted on May 11, 2008 5:46 pm

I love it, speed coding videos. I've wanted to add videos to the site for some time, this would be a perfect use of them.

BlueThen

Comments: 236

mIRC Snippet: Eyes
Posted on May 11, 2008 8:24 pm

My bad, it wasn't my intentions to promote anything. :)

Calyp5o

Comments: 1

mIRC Snippet: Eyes
Posted on May 16, 2008 10:18 am

Awesome! You made it in like... 40 minutes! :D

Eugenio

Comments: 473

mIRC Snippet: Eyes
Posted on May 16, 2008 10:31 am

lmao @ the eyes

Eyes

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (8)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Jul 06, 2008 Profile \| Website Friends (8) Snippets (36) Images (41) Comments Received (500) Comments Submitted (236) Forum Posts (90)