AppTitle "smoke"

Graphics3D 1280,1024,32,2

time=MilliSecs()


Type Feuer
Field sprite
Field size#
End Type

;cam
Global cam=CreateCamera()PositionEntity cam,0,-4,-10
TurnEntity cam,-25,0,0
CameraRange cam,1,50000
CameraFogRange cam,1,50000


Global s=LoadSprite("fire.png",2+48)
   ScaleSprite s,.5,.5

Global s2=LoadMesh("schlot2.x")

Global l=CreateLight(3)PositionEntity l,476,280,320
   LightColor l,255,255,255
   TurnEntity l,25,90,0

;landschaft


p=CreatePivot()


;flames
Global flames=0
Global scal=0
Global posi=True

HidePointer

;-------------------WHILE-----------------------
While Not KeyHit(1)
scal=scal+1
If flames = 7 Then flames = 0
flames = flames + 1

If flames = 1 Then
Feuer()
EndIf

EntityParent cam,p
TurnEntity p,0,.5,0

UpdateFeuer()
RenderWorld

UpdateWorld
Flip
Wend
End

;------------------FUNCTIONS--------------------
Function Feuer()
F.feuer=New feuer

F\sprite=CopyEntity(s)
   ScaleSprite F\sprite,Rnd(1,2),Rnd(1,2)
   EntityRadius F\sprite,5
   PositionEntity f\sprite,EntityX(s2),EntityY(s2),EntityZ(s2)
   MoveEntity f\sprite,0,0,0
f\size=1
End Function

Function UpdateFeuer()
For F.feuer = Each feuer
   MoveEntity F\sprite,.05,.05,.02
   f\size=f\size-.005
   EntityAlpha f\sprite,2-(f\size/2)
   ScaleSprite F\sprite,f\size,f\size
   If EntityDistance(F\sprite,s2) >15 Then HideEntity F\sprite
Next
End Function