# o0~)_Cool 3D partical movement~(_0o

I was just messing around and I did this on accident, but it looks really cool, so I thought I'd post it. This is the second thing that I made when I was messing around, and it's really cool too. It also might work in other VBs, I wasn't sure though.

Original Author: Jason Ryczek

### Code

`' =-=-=-=-=-=-=-=-=-=-=' Add a timer, with intervals of 1' -=-=-=-=-=-=-=-=-=-=-' This is a really simlpe and cool little program that I made' on accident trying to make something resembling, well, something' different. But I thought this looked cool, and I thought that' someone might want to put it in the back of a game. If anyone does' please give me a lil credit, thanx.' ~Jason Ryczek - CCguy7@aol.comDim red(0 To 256) As Integer, green(0 To 256) As Integer, blue(0 To 256) As IntegerDim RadialGrow As BooleanSub ColorFade()Me.ClsFor i = 0 To 256 Step 1 red(i) = i ' the number 1 is the radial size, change that to make the ' radial size around the axis green(i) = green(i) + (Rnd * 1) + (Rnd * -1) If RadialGrow = True Then If green(i) > 256 Or green(i) < 0 Then green(i) = 256 / 2 End If End If PSet (green(i), red(i) + 10), RGB(0, 256 - i, 256 - i)NextEnd SubPrivate Sub Form_Load()For i = 0 To 256 Step 1 green(i) = 256 / 2Next' this makes it so that the radius keeps growingRadialGrow = TrueEnd SubPrivate Sub Timer1_Timer()ColorFadeTimer1.Interval = 1End Sub`

Posted: 2002-06-01
By: ArchiveBot
Viewed: 100 times

Categories

Visual Basic 6

Attachments

No attachments for this post