Flow 1.03

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	7.2
Scores Submitted	5
Date Added	Jul 05, 2008
Last Updated	Jul 05, 2008
Tags	bluethen etc flow picwin

Introduction

Flow, a simple fabric like animation I made for the heck of it. :P

Updates:
Small fix
Changed the background color.
Fixed the shading.
The movement is... different?

Grab the Code

;Flow 1.03
;Made by BlueThen on July 5, 2008.
;To install, paste this snippet into your remotes (alt + r)
;and type /flow or right click the channel or status and click Flow to start.
alias flow { window -paoCzdk0 +tnbL @Flow -1 -1 400 400 | window -paohCzdk0 +tnbL @flow.buf -1 -1 800 800 | flow.init }
alias -l flow.init {
  set %flo.a 1 | set %flo.time 0 | set %flo.fps 0 | set %flo.c n
  set %flo.fcounter 0 | set %flo.fticks $ticks | .timerflo -h 0 100 inc %flo.time | flow.frame
}
alias -l flow.frame {
  if (%flo.c != y) {
    inc %flo.fcounter | set %flo.ltime $calc($ticks - %flo.oticks)
    if ($calc($ticks - %flo.fticks) > 999) { set %flo.fps %flo.fcounter | set %flo.fcounter 0 | set %flo.fticks $ticks }
    clear @flow.buf | drawfill @flow.buf 1 1 1 1 | %flo.y = 0
    while (%flo.y < 10) {
      set %flo.x 0
      while (%flo.x < 20) {
        %flo.i = $calc(((%flo.y * 20) + 500) + (10 * $sin($calc(%flo.a + (%flo.x * 10) + (%flo.y * 20))).deg))
        %flo.t = $calc(((%flo.x * 30) + 100) + (10 * $cos($calc(%flo.a + (%flo.x * 10) + (%flo.y * 20))).deg))
        %flo.s = $calc(255 - ($iif(- isin $calc(%flo.i - ((%flo.y * 20) + 500)), $calc(10- $abs($v2)), $calc($v2 + 10)) *10))
        drawdot -r @flow.buf $rgb(0,0,%flo.s) $calc(20 + (3 * %flo.y)) %flo.t %flo.i
        inc %flo.x
      }
      inc %flo.y
    }
    inc %flo.a $calc(20/10 * %flo.ltime) | drawtext @flow.buf 0 Tahoma 20 15 20 FPS: %flo.fps
    drawtext @flow.buf 12 Tahoma 30 520 20 Made by BlueThen
    drawtext @flow.buf 12 Tahoma 30 520 60 BlueThen.com
    drawcopy -m @flow.buf 0 0 800 800 @flow 0 0 400 400
    set %flo.oticks $ticks | .timer -o 1 0 flow.frame
  }
  else unset %flo.c
}
on *:close:@flow: { window -c @flow.buf | .timerflo off | unset %flo.* | set %flo.c y }
menu channel,status { 
  Flow: flow
}

Comments

(9) RSS

Go to Bottom

Comments: 1,366

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 2:27 pm

Nice BT.`-.-´

Eugenio

Comments: 1,079

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 3:12 pm

lawl .....how long did this take to make ?!?

BlueThen

Comments: 320

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 3:23 pm

A couple of minutes really. :/

Most of my scripts probably wouldn't take that long, but I usually run into times where I have to go through a hour or so worth of trial and error. :P

I guess i was lucky this time

SumWon

Comments: 5

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 3:35 pm

Wow, very cool! Now, make it so when you click, a ripple goes out from the mouses location :P

BlueThen

Comments: 320

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 8:17 pm

Updated.
Changed the background color.
Fixed the shading.

Eugenio

Comments: 1,079

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 8:44 pm

a couple of mins ?!?
rofl gtfo.

Quote:

but I usually run into times where I have to go through a hour or so worth of trial and error. :P

then it didnt take a few mins then did it

erm and who the bloody hell rated this 10 ?!?

BlueThen

Comments: 320

mIRC Snippet: Flow 1.03
Posted on Jul 5, 2008 9:26 pm

No, it took maybe 15 to 30 minutes to make. I was talking about other times then.

jonesy44

Comments: 1,068

mIRC Snippet: Flow 1.03
Posted on Jul 6, 2008 12:52 pm

Impressive .. But not your best BT.

DaNzO

Comments: 76

mIRC Snippet: Flow 1.03
Posted on Jul 20, 2008 5:43 pm

Is there a specific use for this script, lol.

Good job btw.

Flow 1.03

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)