PT Forum

Munin Joined: 19th Oct 2002
Location:

Posted: 16th Mar 2003 13:06

Stick this in your pipe and smoke it

sync on : sync rate 40

Dim Xpos#(300)
Dim Ypos#(300)
Dim Xvelocity#(300)
Dim Yvelocity#(300)
Dim Colour(300)

backdrop on
color backdrop 0

do
gosub inertia
gosub array
sync
loop

inertia:
if change

Munin Joined: 19th Oct 2002
Location:

Posted: 16th Mar 2003 13:07

oh well, it didn't work here we go again:

+ Code Snippet

sync on : sync rate 40



Dim Xpos#(300)
Dim Ypos#(300)
Dim Xvelocity#(300)
Dim Yvelocity#(300)
Dim Colour(300)

backdrop on
color backdrop 0

do
gosub inertia
gosub array
sync
loop

inertia:
if change &lt; 290
for Fr = 1 to 5
change = change + 1
Xpos#(change+Fr)=320
Ypos#(change+Fr)=280
Xvelocity#(change+Fr)= (rnd(6)) - 3.5
Yvelocity#(change+Fr)= (rnd(7))+5
Colour(change) = rnd(100)
next change
else
change = 1

endif


return

array:

for refer = 1 to 300
Xpos#(refer) = Xpos#(refer) + Xvelocity#(refer)
Ypos#(refer) = Ypos#(refer) - Yvelocity#(refer)
Xvelocity#(refer) = Xvelocity#(refer) * (rnd(0.000999)+0.999)
Yvelocity#(refer) = Yvelocity#(refer) - rnd(1)
if Colour(refer) &lt; 201 then Colour(refer) = Colour(refer) + rnd(5)
Col = Colour(refer)


ink rgb(Col,Col,Col+50),1
box Xpos#(refer)-1,Ypos#(refer)-1,Xpos#(refer)+1,Ypos#(refer)+1

next refer

return

Mirthin Joined: 13th Oct 2002
Location: Land of the Rising Haggis

Posted: 16th Mar 2003 21:30

Nicely done...

Daz Joined: 26th Dec 2002
Location: United Kingdom

Posted: 18th Mar 2003 19:10

Nice, Munin, but it's a lot easier to use particle commands, unless you're using DBC.

Munin Joined: 19th Oct 2002
Location:

Posted: 18th Mar 2003 21:28

Thanks, yeah it would have been easier to use particle commands but I wrote this thing a few weeks after DB came out in the shops (or a few months after) then forgot about it, it's quite interesting to see how many other dead projects there are lying around my myproj folder

Daz Joined: 26th Dec 2002
Location: United Kingdom

Posted: 19th Mar 2003 19:18

LOL

Hamish McHaggis Joined: 13th Dec 2002
Location: Modgnik Detinu

Posted: 19th Mar 2003 20:50

Looks strangly familiar... <COUGH> http://www.darkbasicpro.com/apollo/view.php?t=4949&b=11 <COUGH> ha ha, but it has a different effect than mine and you obviously didn't copy it! Well done.

Munin Joined: 19th Oct 2002
Location:

Posted: 19th Mar 2003 23:46

thanks, I got really worried there for a sec, as I was reading your post I thought you were just saying I copied yours (until I got to the last sentance)

Hamish McHaggis Joined: 13th Dec 2002
Location: Modgnik Detinu

Posted: 20th Mar 2003 17:16

ha ha

Munin Joined: 19th Oct 2002
Location:

Posted: 21st Mar 2003 16:50

I have a similar one that acts like a catherine wheel, with spinny bits sending out particles, looks pretty cool

Munin Joined: 19th Oct 2002
Location:

Posted: 21st Mar 2003 16:50

I have a similar one that acts like a catherine wheel, with spinny bits sending out particles, looks pretty cool, I'll post it when I get home

<1 >

Sign In