Bored

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	7.0
Scores Submitted	1
Date Added	May 15, 2008
Last Updated	May 15, 2008
Tags	art bluethen bored entertainment etc

Introduction

Yeah, if you can guess... I was pretty bored when I made this. Took me about a hour to make this.

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

Grab the Code

;Bored 1.01
;Made by BlueThen on May 15, 2008.
;To install, paste this snippet into your remotes (alt + r)
;then type /bored or right click the channel or status and click "Bored".
;bluethen.com
menu channel,status {
  Bored: { bored }
}
alias bored {
  window -paoCzdk0 +tnbL @Bored -1 -1 400 400 | window -poCzdhk0 +tnbL @Bor.buf -1 -1 800 800
  window -poCzdhk0 +tnbL @bor.buf2 -1 -1 800 800 | bored.init
}
alias -l bored.init {
  drawfill @bor.buf 1 1 1 1 | drawfill -r @bor.buf2 65280 65280 1 1 | set %bor.a1 0 | set %bor.a2 0
  set %bor.l 250 | set %bor.ld inc | drawcopy -t @bor.buf2 65280 0 0 800 800 @bor.buf 0 0 800 800
  drawcopy -m @bor.buf 0 0 800 800 @bored 0 0 400 400 | set %bor.c n | bored.frame
}
alias -l bored.frame {
  if (%bor.c != y) {
    clear @bor.buf | clear @bor.buf2
    drawfill @bor.buf 1 1 1 1 | drawfill -r @bor.buf2 65280 65280 1 1
    drawdot @bor.buf 14 400 400 800 | drawdot @bor.buf 1 370 400 800 | %bor.y = 100
    while (%bor.y) {
      drawdot @bor.buf 12 5 $calc(400 + (%bor.l * $cos($calc(%bor.y * 3.6)).deg)) $calc(800 + (%bor.l * $sin($calc(%bor.y * 3.6)).deg))
      dec %bor.y
    }
    %bor.ld %bor.l 7
    if (%bor.l > 350) { set %bor.ld dec } | if (%bor.l < 250) { set %bor.ld inc } | set %bor.x 60
    while (%bor.x) {
      if ($calc(%bor.x / 10) == $int($calc(%bor.x / 10))) {
        drawtext @bor.buf2 0 Tahoma 40 $calc(400 + (400 * $cos($calc( %bor.a2 + ( %bor.x * 6)) ).deg)) $calc(800 + (400 * $sin($calc(%bor.a2 + ( %bor.x * 6))).deg)) $mid(bored $+ $chr(160) , $calc(%bor.x / 10) ,1)
      }
      drawline @bor.buf 4 3 400 800 $calc(400 + (1000 * $cos($calc(( %bor.x * 6) + %bor.a1)).deg)) $calc(800 + (1000 * $sin($calc(( %bor.x * 6)+ %bor.a1)).deg))
      dec %bor.x
    }
    %bor.x = 60
    while (%bor.x) {
      if ($calc(%bor.x / 2) == $int($calc(%bor.x / 2))) {
        drawfill @bor.buf 4 4 $calc(400 + (200 * $cos($calc((( %bor.x * 6) + %bor.a1)+10)).deg)) $calc(800 + (200 * $sin($calc((( %bor.x * 6)+ %bor.a1)+10)).deg))
      }
      dec %bor.x
    }
    inc %bor.a1 2 | dec %bor.a2 4 | drawcopy -t @bor.buf2 65280 0 0 800 800 @bor.buf 0 0 800 800
    drawtext @bor.buf 0 Tahoma 40 25 25 Made by BlueThen | drawtext @bor.buf 0 Tahoma 40 25 75 BlueThen.com
    drawcopy -m @bor.buf 0 0 800 800 @bored 0 0 400 400 | .timer 1 0 bored.frame
  }
  else unset %bor.c
}
on *:close:@bored: window -c @bor.buf | window -c @bor.buf2 | set %bor.c y | unset %bor.ld %bor.a1 %bor.a2 %bor.x %bor.y %bor.l

Comments

(11) RSS

Go to Bottom

mountaindew

Comments: 1,636

mIRC Snippet: Bored
Posted on May 15, 2008 7:56 pm

* /drawtext: insufficient parameters (line 31, script155.mrc)

BlueThen

Comments: 320

mIRC Snippet: Bored
Posted on May 15, 2008 8:06 pm

Oops, fixed. I don't know what the mistake was, but apparently one of my variables wouldn't work as a local variable... even though I am using it in that part of the script.

mountaindew

Comments: 1,636

mIRC Snippet: Bored
Posted on May 15, 2008 8:08 pm

Still getting that error :(

BlueThen

Comments: 320

mIRC Snippet: Bored
Posted on May 15, 2008 8:10 pm

Oh, now I get it. This script uses hardspaces, and apparently the snippet submit automatically replaces hardspaces with normal spaces... Fixed again again, lol.

mountaindew

Comments: 1,636

mIRC Snippet: Bored
Posted on May 15, 2008 8:12 pm

Yea, it works now, pretty cool effects :)

foobar

Comments: 6

mIRC Snippet: Bored
Posted on May 16, 2008 11:10 am

Yes, your animation skills are gorgeous.

But why not approach a different component of mIRC scripting? Com? Regex? Basic scripting through new ideas?

Wouldn't that be fabulous? :D

SnoooP

Comments: 320

mIRC Snippet: Bored
Posted on May 16, 2008 11:44 am

nice :) really cool!

BlueThen

Comments: 320

mIRC Snippet: Bored
Posted on May 16, 2008 2:36 pm

Well, I've done various of other things before picwins, such as dialogs and other stuff like that. If you look at some of my older snippets, you'll see some of my older dialogs...

Really, I just make more picwins than anything else because they aren't as common, and tend to have more originality. Also, you can do a lot of neat stuff with picwins.

Xpl0reR

Comments: 109

mIRC Snippet: Bored
Posted on May 17, 2008 12:54 am

/bored
/me is REALLY BORED !!

nice one :p

SnoooP

Comments: 320

mIRC Snippet: Bored
Posted on May 17, 2008 2:34 am

* Snoopy isn't bored :P

SnoooP

Comments: 320

mIRC Snippet: Bored
Posted on May 17, 2008 2:34 am

* Snoopy isn't bored :P

Bored

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (9)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Oct 05, 2008 Profile \| Website Likes (5) Friends (9) Scripts (1) Snippets (39) Images (47) Comments Received (614) Comments Submitted (320) Forum Posts (109)