; von Julian Tiemann


partikel=CreateImage(64, 64)
   SetBuffer ImageBuffer(partikel)
   ClsColor 0, 0, 0
   Cls
   Color 255, 255, 255
   Oval 16, 16, 32, 32
SaveBuffer(ImageBuffer(Partikel), "C:/Partikel.bmp")



AppTitle "Rauchpartikel"
Graphics3D 800,600,32,2
SeedRnd MilliSecs()

camera=CreateCamera()
PositionEntity camera,0,1,-10


Type partikel
   Field Qualm
   Field zeit#
   Field alpha#
   Field groesse#
   Field farbg
   Field farbr
End Type


Global Qualm = LoadSprite("smoke1.bmp",3)              ;<-------------wenn man die Rauchtextur hat       
;Global Qualm = LoadSprite("C:\partikel.bmp",3)        ;<-------------wenn man die Rauchtextur nicht hat
HideEntity qualm

HidePointer

;-----------------------------------------------Hauptteil-----------------------------------------------;

Repeat

   mx=MouseX()
   my=MouseY()

   If MouseDown(1)  Then
      ADDqualm() 
   End If


   curTime = MilliSecs()
      If curTime > checkTime Then
         checkTime = curTime + 1000
         curFPS = fpscounter
         fpscounter = 0
         If currentFrame>75
            If curFPS<fps_low Then fps_low = curFPS
         EndIf
      Else
         fpscounter = fpscounter + 1
      End If


   UpdateWorld()
   UppQualm()
   RenderWorld()

      Oval mx-3,my-3,6,6,0
      Text 0,0,curfps

   Flip

Until KeyHit(1)

;----------------------------------------------Ende Hauptteil-------------------------------------------;

End

;---------------------------------------------Qualm erstellen-------------------------------------------;

Function AddQualm()

   For i=0 To 2

      p.partikel=New partikel
      p\qualm=CopyEntity(Qualm)
      p\zeit#=100   
      p\alpha#=Rnd(0.1,0.9)
      p\groesse#=Rnd(90,100)
      p\farbg=255
      p\farbr=255
       
      PositionEntity p\qualm,(MouseX()/100)-5.5,-MouseY()/100+4,0

   Next

End Function

;-------------------------------------------Qualm aktualisieren-----------------------------------------;

Function UppQualm()

   For p.partikel = Each partikel

      If p\zeit# > 0 Then
         
         p\zeit# = p\zeit# + 1
         p\alpha#=p\alpha#-0.01
         p\groesse#=p\groesse+5
         p\farbg=p\farbg-4

         TranslateEntity p\qualm,Sin(Rnd(-0.5,0.5))*20 ,Rnd(0.07,0.1),Rnd(-0.5,0.5)
         EntityColor p\qualm,p\farbr,p\farbg,0
         EntityAlpha P\qualm,P\alpha#
      
         ScaleSprite P\qualm,P\groesse# /150,P\groesse# /150   ;<-------------wenn man die Rauchtextur hat
         ;ScaleSprite P\qualm,P\groesse# /300,P\groesse#/300    ;<-------------wenn man die Rauchtextur nicht hat
      
      End If


      If p\alpha# < 0.1 Then
         FreeEntity P\qualm
         Delete P
      End If

   Next

End Function