Small Lightning Bolt Test

;use the arrow keys to move

Graphics3D 800,600,32,Int(Input$("Windowed: (0 or 1)   "))+1

Include "h_lotus.bb"

InitLotus()

;; CAMERA
C = CreateCamera()
PositionEntity C,-10,10,-10
CameraClsColor C,32,32,32
CameraClsMode C,1,1
CameraRange C,.01,10000
SetLotusCamera C

;; FPS
MFPS = 45
Period = 1000/MFPS
Time = MilliSecs()-Period

Global fps,timenext,frames

;; LIGHT
L = CreateLight(2)
PositionEntity L,24,24,24
LightRange L,Sqr(64*64*3)/4
LightColor L,255,255,255
AmbientLight 128,128,128


;;EMITTERS
Global gLightning

gLightning = LoadEmitter("media/ln.png")
SetEmitterParticleMesh gLightning,cP_TRAIL
SetEmitterSizeFrom gLightning,2,2
SetEmitterColorTo 0,255,255,255,1
SetEmitterBlend 0,3
SetEmitterSizeTo 0,2,2
SetEmitterRandomRotation 0,0,10,0,0,-10
SetEmitterAngle 0,0,0,90

Function Strike(X#,Y#,Z#,TX#,TY#,TZ#,AX#,AY#,AZ#,Amount,Chaos#)
	SetEmitterLifeSpan 0,Rand(3,14)
	DX# = TX-X
	DY# = TY-Y
	DZ# = TZ-Z
	Chaos# = Abs(Chaos)
	For N# = 0 To Amount
		From# =N/Float(Amount)
		If N = Amount Or N = 0 Then
			SetEmitterColorFrom 0,0,0,0,0
			SetEmitterColorTo 0,0,0,0,0
			If N = 0 Then
				SetEmitterPosition gLightning,X,Y,Z
			Else
				SetEmitterPosition gLightning,TX,TY,TZ
			EndIf
		Else
			SetEmitterPosition gLightning,X+DX*From+Sin(From*180)*AX+Rnd(-Chaos/2,Chaos/2),Y+DY*From+Sin(From*180)*AY+Rnd(-Chaos/2,Chaos/2),Z*DZ*From+Sin(From*180)*AZ+Rnd(-Chaos/2,Chaos/2)
			SetEmitterColorFrom 0,220,255,255,1
			SetEmitterColorTo 0,220,255,255,1
		EndIf
		CreateParticle gLightning
	Next
End Function

Te = 250

S = CreateSphere()
PositionEntity S,-10,20,0
S = CopyEntity(S)
PositionEntity S,10,20,0
L = CreateCylinder()
PositionEntity L,-10,10,0
ScaleEntity L,.2,10,.2
L = CopyEntity(L)
PositionEntity L,10,10,0

Repeat
     Repeat
          Elapsed = MilliSecs() - time
     Until Elapsed

     Ticks=Elapsed/Period
     Tween#=Float(Elapsed Mod Period) / Float(Period)

     For U = 0 To Ticks
          Time = Time + Period

		Y# = Y + .2
		If Y > 20 Then
			Y = 0
		EndIf
		
		;For N = 0 To Rand(0,5)
			Strike -10,Y,0,10,Y,0,Rnd(-2,2)*Y/20,Y/3,Rnd(-2,2)*Y/20,Rand(3,10),1.8
		;Next

          ;; UPDATE CAMERA
          mxs# = mxs + Float(MouseXSpeed())/3
          mys# = mys + Float(MouseYSpeed())/3
          mxs = mxs - mxs/4
          mys = mys - mys/4
          TurnEntity C,mys,-mxs,0
          RotateEntity C,Min(Max(EntityPitch(C),80),-80),EntityYaw(C),0
          MoveEntity C,(KeyDown(205)-KeyDown(203))*2,0,(KeyDown(200)-KeyDown(208))*2
          MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
          
;;          ;; UPDATE PARTICLES

          
          T = MilliSecs()
          UpdateLotusParticles()
          T = MilliSecs() - T

          UpdateWorld

          If U = Ticks Then CaptureWorld
     Next

     RenderWorld Tween

;	AppTitle GetFPS(False)
     Text 2,2,"FPS: "+GetFPS(False)
     Text 2,22,T
     Text 2,42,"Particles: "+gLotusParticleCount

     Flip False
Until KeyHit(1)

KillLotus()

Function GetFPS(JustChecking = False)
     If Not JustChecking Then frames = frames+1

     If MilliSecs() > timenext Then
          timenext = MilliSecs()+1000
          fps = frames
          frames = 0
     EndIf
     Return fps
End Function