Gravity

Please Register to submit score.

Average Score	7.0
Scores Submitted	4
Date Added	Apr 04, 2008
Last Updated	Apr 04, 2008
Tags	bluethen etc grav gravity mirc

Introduction

Yet again, another animated effect in mIRC I created. I hope you like it. :)

The screen may not look like much, but remember that it's animated. :)

Updates:
The dots move more individually.

Grab the Code

;Gravity 1.01
;Made by BlueThen on April 4, 2008.
;To install, paste this script into your remotes,
;then type /gravity, or right click the channel or status and then click "Gravity."
alias gravity {
  window -paoCzdk0 +tnbL @Gravity -1 -1 400 400 | window -poCzdhk0 +tnbL @grav.buf -1 -1 800 800 | set %grav.c n | grav.init
}
alias -l grav.init {
  set %grav.t 20 | %grav.x = %grav.t
  while (%grav.x > 0) {
    hadd -m %grav.x $+ x a $calc(%grav.x *(359 / %grav.t)) | hadd %grav.x $+ x as $rand(1,4) | %grav.r = $rand(1,2)
    if (%grav.r = 1) hadd %grav.x $+ x dir hinc | else hadd %grav.x $+ x dir hdec
    hadd %grav.x $+ x l $rand(50,400) | hadd %grav.x $+ x d i | hadd %grav.x $+ x s $rand(4,15) | dec %grav.x
  }
  set %grav.PrimX $calc(400 + (20 * $cos(0).deg)) | set %grav.PrimY $calc(400 + (20 * $sin(0).deg)) | set %grav.PrimA 0 | grav.frame
}
on *:close:@gravity: window -c @grav.buf | unset %grav.t %grav.x %grav.c %grav.PrimX %grav.PrimY %grav.PrimA | set %grav.c y
menu channel,status { 
  Gravity: gravity 
}
alias -l grav.frame {
  if (%grav.c != y) {
    %grav.x = %grav.t | clear @grav.buf | drawfill @grav.buf 1 1 1 1 
    drawtext @grav.buf 12 Tahoma 40 50 50 Made By BlueThen
    drawtext @grav.buf 12 Tahoma 40 50 100 BlueThen.com | inc %grav.PrimA 4
    set %grav.PrimX $calc(400 + (50 * $cos(%grav.PrimA).deg)) | set %grav.PrimY $calc(400 + (50 * $sin(%grav.PrimA).deg))
    drawdot @grav.buf 14 30 %grav.PrimX %grav.PrimY
    while (%grav.x > 0) {
      if ($hget(%grav.x $+ x ,l) > 400) hadd %grav.x $+ x d d | if ($hget(%grav.x $+ x ,l) < 50) hadd %grav.x $+ x d i
      if ($hget(%grav.x $+ x ,d) == i) hadd %grav.x $+ x l $calc($hget(%grav.x $+ x ,l)+ $hget(%grav.x $+ x ,s))
      if ($hget(%grav.x $+ x ,d) == d) hadd %grav.x $+ x l $calc($hget(%grav.x $+ x ,l)- $hget(%grav.x $+ x ,s))
      $hget(%grav.x $+ x ,dir) %grav.x $+ x a $hget(%grav.x $+ x ,as) | %grav.c = $calc($hget(%grav.x $+ x ,l) *0.6)
      drawdot -r @grav.buf $rgb(%grav.c ,%grav.c ,%grav.c) $calc($hget(%grav.x $+ x ,l) *0.15) $calc(%grav.PrimX + ($hget(%grav.x $+ x ,l) * $cos($hget(%grav.x $+ x ,a)).deg)) $calc(%grav.PrimY + ($hget(%grav.x $+ x ,l) * $sin($hget(%grav.x $+ x ,a)).deg))
      dec %grav.x
    }
    drawcopy -m @grav.buf 0 0 800 800 @gravity 0 0 400 400 | .timer -ho 1 0 grav.frame
  }
}

Comments

(8) RSS

Go to Bottom

BlueThen

Comments: 231

mIRC Snippet: Gravity
Posted on Apr 4, 2008 7:44 pm

Check it out! Already a new update. :P

Jamiie

Comments: 65

mIRC Snippet: Gravity
Posted on Apr 5, 2008 12:15 am

Really nice, I like it. :) 10/10

Comments: 795

mIRC Snippet: Gravity
Posted on Apr 5, 2008 1:09 am

;o again with the trippy DOTS BlueThen nice work mang i hope no ones stoned when they est your joint hehe they ll be stuck watchin it for a while LOL./me slips bluethen some acid >_>

jonesy44

Comments: 614

mIRC Snippet: Gravity
Posted on Apr 6, 2008 1:34 pm

haha, dont get it, dno how the hell it works, but good job haha

jonesy44

Comments: 614

mIRC Snippet: Gravity
Posted on Apr 6, 2008 1:34 pm

haha, dont get it, dno how the hell it works, but good job haha

Zaiba91

Comments: 4

mIRC Snippet: Gravity
Posted on Apr 9, 2008 8:58 am

heh, think if we could code another halo using mirc ;

^Neptune

Comments: 155

mIRC Snippet: Gravity
Posted on Apr 9, 2008 9:51 am

Christ this thing is HYPNOTIC.

Lauranator

Comments: 5

mIRC Snippet: Gravity
Posted on Apr 21, 2008 11:22 pm

Cooool....now just get it to do this in a chat channel! hehee ..hmm, animated chat rooms with animated text? ..someone get to work on that asap!

Gravity

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (8)

Sponsors

		Everything and Anything (8th Grade)
Last seen: Jul 04, 2008 Profile \| Website Friends (8) Snippets (35) Images (39) Comments Received (491) Comments Submitted (231) Forum Posts (88)