Graphics3D 1280, 1024,32, 1 
;Original Code: Devils Child
;Modified by Firstdeathmaker
AmbientLight 255, 255, 255 
SetBuffer BackBuffer() 
SeedRnd MilliSecs() 

;Camera 
campoint=CreatePivot()
Cam = CreateCamera(campoint) 
CameraRange Cam, .1, 1000000 
CameraClsColor Cam, 0, 0, 0 
PositionEntity Cam, 0, 0, -10 

;Type Fire 
Type Fire 
Field entity, alpha#, xt#, yt#, zt# 
End Type 

counter=0

While Not KeyHit(1) 
counter=(counter+1) Mod 360

m#=Sin(counter)
AddFlame(1,-6*m) 
AddFlame(4,-3*m) 
AddFlame(3,0) 
AddFlame(5,3*m) 
AddFlame(2,6*m) 



If m<0
	AddFlame(3,-6*m,3) 
	AddFlame(1,-3*m,3) 
	AddFlame(1,0,3) 
	AddFlame(1,3*m,3) 
	AddFlame(1,6*m,3) 
EndIf


TurnEntity campoint,m,0,0
TurnEntity campoint,0,0.6,0





UpdateFire() 

RenderWorld 
Flip
Wend 

Function AddFlame(nr,x#,s$=\"\") 
f.Fire = New Fire 
f\entity = LoadSprite(\"Smoke\"+s+\".bmp\") 
c1=0
c2=0
c3=0
Select nr
	Case 1
		c=Rand(0,100)
		c1=255
		c2=c
		c3=c
		
	Case 2
		c=Rand(0,100)
		c1=c
		c2=c
		c3=255
		
	Case 3
		c=Rand(0,100)
		c1=c
		c2=255
		c3=c
		
	Case 4
		c=Rand(0,100)
		c1=255
		c2=255
		c3=c
		
	Case 5
		c=Rand(0,100)
		c1=c
		c2=255
		c3=255

End Select
EntityColor f\entity, c1, c2,c3
PositionEntity f\entity,x,-4,0
f\xt# = Rand(-100, 100): f\xt# = f\xt# / 10000
f\yt# = Rand(-10, 1400): f\yt# = f\yt# / 10000
f\zt# = Rand(-100, 100): f\zt# = f\zt# / 10000
f\alpha# = 1 
End Function 

Function UpdateFire() 
For f.Fire = Each Fire 
If f\alpha# > 0 Then 
MoveEntity f\entity, f\xt#, f\yt#, f\zt# 
f\alpha# = f\alpha# - .05 
EntityAlpha f\entity, f\alpha# / 2 
Else 
	FreeEntity f\entity 
	Delete f
EndIf 
Next 
End Function