Graphics3D 1024,768,32,1 : SetBuffer BackBuffer() : SeedRnd MilliSecs()

Backtime=MilliSecs()


Global fpsrate,loops,fpstime


Type partikel
 Field obj
 Field alpha#
End Type

Type smoke
 Field obj2
 Field alpha2#
End Type

light=CreateLight(1)
RotateEntity light,45,0,0

cam=CreateCamera()
PositionEntity cam,0,0,-5
CameraRange cam,1,3000

AutoMidHandle 1
Global sprite=LoadSprite("flamme.png")
HideEntity sprite


Global rauch=LoadSprite("rauch.png")
HideEntity rauch

While Not KeyHit(1)

CreateFire()

x#=Cos(Rand(30,-30))*.01
y#=Sin(Rand(0,-50))*-.05

angle#=(angle+Rnd(2)) Mod 360
angle2#=(angle2+Rnd(-4)) Mod 360


If MilliSecs()-SBacktime > 50 Then
CreateSmoke()
SBacktime=MilliSecs()
EndIf


For p.partikel=Each partikel
MoveEntity p\obj,x+.01,y+.03,0

p\alpha=p\alpha-.007
EntityAlpha p\obj,p\alpha

RotateSprite p\obj,angle#

Next



For s.smoke=Each smoke
MoveEntity s\obj2,x-.006,y+.07,0

s\alpha2#=s\alpha2#-.02
EntityAlpha s\obj2,s\alpha2#

RotateSprite s\obj2,angle2

Next



If KeyDown(200) MoveEntity cam,0,0,1
If KeyDown(208) MoveEntity cam,0,0,-1
If KeyDown(203) TurnEntity cam,0,1,0
If KeyDown(205) TurnEntity cam,0,-1,0

If KeyDown(30) TurnEntity cam,1,0,0
If KeyDown(44) TurnEntity cam,-1,0,0

RenderWorld

Text 10,10,"FPS: "+FPS()

Flip
Wend



Function CreateFire()

p.partikel=New partikel
p\obj=CopyEntity(sprite)
ShowEntity p\obj
PositionEntity p\obj,Rnd(1,-1),-3,0
ScaleSprite p\obj,Rnd(.4,.5),Rnd(.4,.5)
EntityBlend p\obj,3
EntityColor p\obj,255,90,0
p\alpha#=1

End Function



Function CreateSmoke()

s.smoke=New smoke
s\obj2=CopyEntity(rauch)
ShowEntity s\obj2
PositionEntity s\obj2,Rnd(.8,-.8),-3,0
ScaleSprite s\obj2,Rnd(.5,.6),Rnd(.5,.6)
EntityBlend s\obj2,3
EntityColor s\obj2,Rnd(90,100),Rnd(90,100),Rnd(90,100)
s\alpha2#=1

End Function



Function FPS()

loops = loops + 1

If MilliSecs() - fpstime > 1000 Then
fpsrate = loops
loops = 0
fpstime = MilliSecs()
EndIf
Return fpsrate

End Function

End