Swirl

Please Register to submit score.

Average Score	8.0
Scores Submitted	9
Date Added	Mar 30, 2008
Last Updated	Mar 31, 2008
Tags	bluethen etc mirc spin swirl

Introduction

Another neat effect I made with mIRC. You can change modes just by clicking the window.

BlueThen.com :D

Updates:
The background is now automatically black.
New settings dialog!
Colors. :)
Fixed a few bugs, like the "* /drawfill" bug when closing.
You can now change colors using the edit forms.

Grab the Code

;Swirl 1.03
;Made by BlueThen on March 30, 2008.
;Last updated March 31, 2008.
;To install, paste this code into your remotes (alt + r) then 
;type /swirl or right click the channel or status and click Swirl.
;Click to change modes.
menu channel,status { 
  Swirl: Swirl 
}
alias Swirl {
  window -poCzdk0 +tnbL @Swirl -1 -1 400 400 | window -poCzdhk0 +tnbL @swirl.buf -1 -1 800 800 | dialog -m swirl swirl | dialog -s swirl 200 200 252 262
  set %swirl.r1 1 | set %swirl.g1 1 | set %swirl.b1 1 | set %swirl.r2 0 | set %swirl.g2 0 | set %swirl.b2 0 | set %swirl.x 1 | set %swirl.v 1 | set %swirl.clo n | swirl.frame
}
alias -l swirl.frame {
  clear @swirl.buf | %swirl.y = 50
  drawfill @swirl.buf 1 1 1 1 1
  if (%swirl.v == 1) { while (%swirl.y > 0) {
      %swirl.a = $calc(400 + ((%swirl.y *7) * $cos($calc(%swirl.y * %swirl.x)).deg)) $calc(400 + ((%swirl.y *7) * $sin($calc(%swirl.y * %swirl.x)).deg)) 
      %swirl.c = $calc(255-(%swirl.y * 5.1))
      drawdot -r @swirl.buf $rgb($calc(%swirl.r2 +(%swirl.c * %swirl.r1)),$calc(%swirl.g2 +(%swirl.c * %swirl.g1)),$calc(%swirl.b2 +(%swirl.c * %swirl.b1))) $calc(%swirl.y *0.8) 400 400 %swirl.a | dec %swirl.y
      drawline -r @swirl.buf $rgb($calc(%swirl.r2 +(%swirl.c * %swirl.r1)),$calc(%swirl.g2 +(%swirl.c * %swirl.g1)),$calc(%swirl.b2 +(%swirl.c * %swirl.b1))) $calc(%swirl.y *0.8) $calc(400 + ((%swirl.y *7) * $cos($calc(%swirl.y * %swirl.x)).deg)) $calc(400 + ((%swirl.y *7) * $sin($calc(%swirl.y * %swirl.x)).deg)) %swirl.a
    }
  }
  if (%swirl.v == 2) { while (%swirl.y > 0) {
      %swirl.a = $calc(400 + ((%swirl.y *7) * $cos($calc(%swirl.y * %swirl.x)).deg)) $calc(400 + ((%swirl.y *7) * $sin($calc(%swirl.y * %swirl.x)).deg)) | %swirl.c = $calc(255-(%swirl.y * 5.1))
      drawdot -r @swirl.buf $rgb($calc(%swirl.r2 +(%swirl.c * %swirl.r1)),$calc(%swirl.g2 +(%swirl.c * %swirl.g1)),$calc(%swirl.b2 +(%swirl.c * %swirl.b1))) $calc(%swirl.y *0.8) 400 400 %swirl.a
      drawline -r @swirl.buf $rgb($calc(%swirl.r2 +(%swirl.c * %swirl.r1)),$calc(%swirl.g2 +(%swirl.c * %swirl.g1)),$calc(%swirl.b2 +(%swirl.c * %swirl.b1))) $calc(%swirl.y *0.8) 400 400 %swirl.a | dec %swirl.y
    }
  }
  if (%swirl.v == 3) { while (%swirl.y > 0) {
      %swirl.a = $calc(400 + ((%swirl.y *7) * $cos($calc(%swirl.y * %swirl.x)).deg)) $calc(400 + ((%swirl.y *7) * $sin($calc(%swirl.y * %swirl.x)).deg)) | %swirl.c = $calc(255-(%swirl.y * 5.1))
      drawdot -r @swirl.buf $rgb($calc(%swirl.r2 +(%swirl.c * %swirl.r1)),$calc(%swirl.g2 +(%swirl.c * %swirl.g1)),$calc(%swirl.b2 +(%swirl.c * %swirl.b1))) $calc(%swirl.y *0.8) 400 400 %swirl.a | dec %swirl.y
    }
  }
  if (%swirl.clo != y) {
    inc %swirl.x 0.1 | drawcopy -m @swirl.buf 0 0 800 800 @swirl 0 0 400 400 | .timer -ho 1 0 swirl.frame
  }
}
menu @swirl { 
  sclick: if (%swirl.v == 1) %swirl.v = 2 | elseif (%swirl.v == 2) %swirl.v = 3 | elseif (%swirl.v == 3) %swirl.v = 1 
}
on *:close:@swirl: {
  set %swirl.clo y
  if ($dialog(swirl)) dialog -x swirl
  unset %swirl.x %swirl.y %swirl.a %swirl.v %swirl.c %swirl.r1 %swirl.r2 %swirl.b1 %swirl.b2 %swirl.g1 %swirl.g2
  .timer -ho 1 50 window -c @swirl.buf | .timer -ho 1 50 unset %swirl.clo
}
dialog -l Swirl {
  title "Swirl Options"
  size -1 -1 252 262
  option pixels notheme
  scroll "", 1, 26 163 200 16, horizontal top range 1 255
  text "Color 1", 2, 26 31 100 17
  text "Color 3", 3, 26 141 100 17
  text "Color 2", 4, 26 86 100 17
  scroll "", 5, 26 108 200 16, horizontal top range 1 255
  scroll "", 6, 26 53 200 16, horizontal top range 1 255
  button "Mode 1", 7, 26 201 65 25
  button "Mode 2", 8, 161 201 65 25
  button "Mode 3", 9, 94 234 65 25
  text "Made By", 10, 59 3 100 17, right
  button "BlueThen!", 11, 161 2 65 19
  edit "1", 12, 180 29 46 20
  edit "1", 13, 180 84 46 20
  edit "1", 14, 180 139 46 20
}
on *:dialog:swirl:edit:*: {
  if ($did == 12) {
    if ($did(12) != 1) set %swirl.r1 0 
    else set %swirl.r1 1
    set %swirl.r2 $did(12)
  }
  if ($did == 13) {
    if ($did(13) != 1) set %swirl.g1 0 
    else set %swirl.g1 1
    set %swirl.g2 $did(13)
  }
  if ($did == 14) {
    if ($did(14) != 1) set %swirl.b1 0 
    else set %swirl.b1 1
    set %swirl.b2 $did(14)
  }
}
on *:dialog:swirl:sclick:*: {
  if ($did == 7) set %swirl.v 1
  elseif ($did == 8) set %swirl.v 2
  elseif ($did == 9) set %swirl.v 3
  elseif ($did == 11) run http://bluethen.com/
}
on *:dialog:swirl:scroll:*: {
  if ($did == 1)  {
    if ($did(1).sel != 1) set %swirl.b1 0 
    else set %swirl.b1 1
    set %swirl.b2 $did(1).sel
    did -ra swirl 14 %swirl.b2
  }
  elseif ($did == 5) {
    if ($did(5).sel != 1) set %swirl.g1 0 
    else set %swirl.g1 1
    set %swirl.g2 $did(5).sel
    did -ra swirl 13 %swirl.g2
  }
  elseif ($did == 6) {
    if ($did(1).sel != 1) set %swirl.r1 0 
    else set %swirl.r1 1
    set %swirl.r2 $did(6).sel
    did -ra swirl 12 %swirl.r2
  }
}

Comments

(24) RSS

Go to Bottom

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 30, 2008 8:09 pm

I'm starting to run out of ideas!

jaytea

Comments: 13

mIRC Snippet: Swirl
Posted on Mar 30, 2008 9:48 pm

hey this is actually quite neat! you have some animation potential, some people have the mathematical prowess but lack the design ability (such as myself :P), but this design is actually really nifty, imo

jaytea

Comments: 13

mIRC Snippet: Swirl
Posted on Mar 30, 2008 9:49 pm

edit: you should drawfill the window black to begin with, it didn't look good on my default white background until i changed it ;P

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 30, 2008 9:59 pm

Thanks!

Oh, I keep forgetting that everyone doesn't have a black background, lol. Fixed. :)

F*U*R*B*Y*

Comments: 412

mIRC Snippet: Swirl
Posted on Mar 31, 2008 12:41 am

rather just automatically change into the next shape, why not make it transform, and show them........ if that makes sense

Render

Comments: 5

mIRC Snippet: Swirl
Posted on Mar 31, 2008 2:29 pm

very very nice! jaytea is right, you definitely are a future animator! i think you should use something similar to unset %swirl.* in the on close event.

jonesy44

Comments: 647

mIRC Snippet: Swirl
Posted on Mar 31, 2008 2:34 pm

i've never bothered learning the drawdot functions etc in mirc, but i fancy trying them now lol

jonesy44

Comments: 647

mIRC Snippet: Swirl
Posted on Mar 31, 2008 2:44 pm

*Gives up* Couldn't even draw a feckin dot xD

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 31, 2008 2:51 pm

Thanks guys.

@F*U*R*B*Y*: I like to have my scripts to be interactive and flexible.

@Render: Alright, in my next update, I'll have it unset the variables.
I have tried animating at one point, but failed to do so due to lack of equipment (took me 3 hours to scan one animation :( )

@jonesy44: Keep trying, I wouldn't of been here if I gave up that early. :)

Thanks for the comments, guys! Keep em' coming. I love feedback. :)

Eugenio

Comments: 518

mIRC Snippet: Swirl
Posted on Mar 31, 2008 3:12 pm

LOL this aint bad

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 31, 2008 3:18 pm

Thanks! :D

Comments: 884

mIRC Snippet: Swirl
Posted on Mar 31, 2008 3:37 pm

mm really should put a seizure or soem sort of warning caus eof the blinking an animation,besides that i like it alot an you say it supposed to change modes as well i dotn get anything when i click in the @ window maybe its jsut my mirc well done tho man i really likes wat your puttin out here"."Rate it or Hate it?"...8/10.`-.-�

Comments: 884

mIRC Snippet: Swirl
Posted on Mar 31, 2008 3:41 pm

Ahh damn it was my mirc script i wasnt useing my chat scaript cause for soem !@#$ greason my @ windows are see through so im testing on a different mirc and it was blinking and shoot man this is even cooler hen i thought lol.Well done man well done.

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 31, 2008 3:44 pm

The blinking window is actually the buffer, where the image is actually processed and drawn. That window is supposed to be hidden, and it doesn't hide on some mirc's for some reason.

Comments: 884

mIRC Snippet: Swirl
Posted on Mar 31, 2008 3:50 pm

o0o ok i see nice stuff man works smoof on my other script.

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 31, 2008 5:34 pm

Updated, with a lot more stuff. >:D

jonesy44

Comments: 647

mIRC Snippet: Swirl
Posted on Mar 31, 2008 6:21 pm

10/10 just for the genius of this idea, and since i can't do it. i'm impressed lol

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 31, 2008 6:34 pm

Ah, thanks! :)

jonesy44

Comments: 647

mIRC Snippet: Swirl
Posted on Mar 31, 2008 6:42 pm

lol, it's some good work in there ;-)

BlueThen

Comments: 255

mIRC Snippet: Swirl
Posted on Mar 31, 2008 7:30 pm

Updated again. You can now change the colors using the edit forms. o.o

jonesy44

Comments: 647

mIRC Snippet: Swirl
Posted on Mar 31, 2008 8:43 pm

bangin, nice work lol

erry

Comments: 12

mIRC Snippet: Swirl
Posted on Apr 18, 2008 6:49 am

AWSOOOOOOOOOME :D :D :D :D : D: D: :D :D!!

erry

Comments: 12

mIRC Snippet: Swirl
Posted on Apr 18, 2008 6:50 am

20/10 lol

Mitchell

Comments: 23

mIRC Snippet: Swirl
Posted on Apr 28, 2008 1:59 pm

this looks very nice. keep up the great work

Swirl

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (8)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Jul 20, 2008 Profile \| Website Friends (8) Snippets (36) Images (41) Comments Received (511) Comments Submitted (255) Forum Posts (94)