Universe Code.

Blitz3D Forums/Blitz3D Programming/Universe Code.

Guy Fawkes

(Posted 2009) [#1]

Hi all. Can someone help me make it so that the particle doesn't KEEP starting, it only starts once then when it ends, it RESTARTS? I don't need you to try it yourself, I simply need a variable fix for the variable called "Bang"..

I'm having some variable trouble.

Code:

Graphics3D 1024, 768, 32, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Include "Particle Candy.bb"
Include "Particle Types.bb"

Type Atom
	Field x#, y#, sx#, sy#, mass#
	Field col
End Type
Global CntAtoms = 0
Const CenterMasses = True ;Wheter to align the mass center to the screen center
Global SPEED# = 3

Global Bang = 0

Global Sample = 1

CreateUniverse()

Global Cam = CreateCamera()

PositionEntity Cam, 0, 1, -10

CameraRange Cam,.1,9999

Listener = CreateListener(Cam, .005, 1, 1)

InitParticles(Cam,"Media\particles.png", 3)
SetParticleUpdateCycle 2

Global EM1 = CreateEmitter_Explosion1()

Global timera = CreateTimer(60)
Global timerb = CreateTimer(1)

Global timetimer

While Not KeyHit(1)
timetimer = 0
Bang = 0
If Not KeyDown(42)
SPEED# = SPEED# + (KeyDown(200)-KeyDown(208))*.01
Else
SPEED# = SPEED# + (KeyDown(200)-KeyDown(208))*.1
EndIf

	If SPEED# < 0 Then SPEED# = 0
	If SPEED# = 0
	Bang = 1
	For A.atom = Each atom
	Delete A
	Next
If SPEED# = 0 And Bang = 1 Then 
BigBang(EM1)
timetimer = 1
DebugLog "Emitter_IsActive(EM1):"+Emitter_IsActive(EM1)
DebugLog "Emitter_HasFinished(EM1):"+Emitter_HasFinished(EM1)
EndIf
If Emitter_Hasfinished(EM1) Then Bang = 0 : timetimer = 0

	updateparticles
	EndIf
	UpdateWorld
	RenderWorld
	UpdateUniverse()
;	If SPEED# = 0 Then Color 0,0,0
;	If SPEED# > 0 Then Color 255,255,255
	Text 10, 10, "Speed: " + SPEED#
	Text 10, 30, "Cursor keys for speed up/down"
	Text 10, 50, "Sample:"+Sample
	Text 10, 70, "Bang:"+Bang
	Text 10, 90, "Hold down shift & arrow keys to make speed go up or down faster"
	Text 10, 110, "Hold down arrow keys to make speed go up or down"
	Text 10, 130, "timetimer:"+timetimer
	If timetimer = 0
		WaitTimer(timera)
	Else
	If timetimer = 1
	    WaitTimer(timerb)
	EndIf
	EndIf
	Flip
Wend

Function BigBang(EM)
Emitter_Start(EM)
End Function

Function Update_Bang(EM)
If Emitter_HasFinished(EM) Then Emitter_Start(EM)
End Function

Function CreateAtom(x, y, sx#, sy#, mass# = 1)
a.Atom = New Atom
a\x# = x
a\y# = y
a\sx# = sx#
a\sy# = sy#
a\mass# = mass# * .000001 * SPEED#
a\col = (Rand(0, 255) Shl 16) Or (Rand(0, 255) Shl 8) Or Rand(0, 255)
CntAtoms = CntAtoms + 1
End Function

Function CreateUniverse()

If Sample = 1
		For x = -15 To 15
			For y = -15 To 15
				If Sqr(x * x + y * y) < 10 Then
					ay# = Rand(0, 360)
					tx# = Cos(Rand(0, 360)) * Rnd(-3, 3)
					ty# = Sin(Rand(0, 360)) * Rnd(-3, 3)
					CreateAtom(GraphicsWidth() / 2 + x, GraphicsHeight() / 2 + y, tx#, ty#, 1)
				EndIf
			Next
		Next
EndIf

If Sample = 2
		For x = -15 To 15
			For y = -15 To 15
				If Sqr(x * x + y * y) < 10 Then
					ay# = Rand(0, 360)
					tx# = Cos(Rand(0, 360)) * Rnd(-3, 3)
					ty# = Sin(Rand(0, 360)) * Rnd(-3, 3)
					mass# = Rnd(.5, 1.5) * .5
					CreateAtom(GraphicsWidth() / 2 + x, GraphicsHeight() / 2 + y, tx#, ty#, mass#)
				EndIf
			Next
		Next
EndIf

End Function

Function UpdateUniverse()
gw = GraphicsWidth()
gh = GraphicsHeight()
LockBuffer()
cx# = 0
cy# = 0
For a.Atom = Each Atom
	a\x# = a\x# + a\sx# * SPEED#
	a\y# = a\y# + a\sy# * SPEED#
	For b.Atom = Each Atom
		a\sx# = a\sx# - (a\x# - b\x#) * a\mass#
		a\sy# = a\sy# - (a\y# - b\y#) * a\mass#
	Next
	cx# = cx# + a\x# / CntAtoms
	cy# = cy# + a\y# / CntAtoms
	WritePixel a\x#, a\y#, a\col
Next
If CenterMasses Then
	For a.Atom = Each Atom
		a\x# = a\x# - (cx# - gw / 2)
		a\y# = a\y# - (cy# - gh / 2)
	Next
EndIf
UnlockBuffer()
Color 50, 50, 50
Line 0, cy#, gw, cy#
Line cx#, 0, cx#, gh
End Function

D4NM4N

(Posted 2010) [#2]

I can take a proper look next time i am on my windows machine (unless someone gets there first).

One thing i did notice is this:

If SPEED# = 0 and bang = 1

you cannot do that with a floating point. X#=0 is almost always a non-condition (or at best a HIGHLY unreliable one -in any language).
try this line instead:
if speed>-0.0001 and speed<0.0001 and bang = 1 ;(or however 'sensitive' you need it to be)

It appears you have more than one of these, look through and change accordingly. If it is not your problem, it certainly is not helping.

You should really use proper indentation, because it is hard to read it.

D4NM4N

(Posted 2010) [#3]

lol, i revisited this and my kbd went nuts and posted crap!... time for a reboot(or new kbd) i think :D

xlsior

(Posted 2010) [#4]

if speed>-0.0001 and speed<0.0001 and...

Or alternatively:
[code]if ABS(speed)<0.0001 then...[/quote]

D4NM4N

(Posted 2010) [#5]

True (and perhaps faster??) for a zero test, TOMAYTO TOMARTO! ;)

(although it would get a bit long winded for values other than 0 :P