Createemitter()
Positionemitter()

Repeat

UpdateEmitter()

Until Keyhit(1)

Graphics3D 1280, 1024, 16, 1
SetBuffer BackBuffer()

;Camera
Cam = CreateCamera()
CameraFogMode Cam, True
CameraFogRange Cam, 1, 20
PositionEntity Cam, 0, 5, -7
RotateEntity Cam, 30, 0, 0

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

;Floor
Floor = CreatePlane()
FloorTex = LoadTexture("Floor.bmp")
ScaleTexture FloorTex, 3, 3
EntityTexture Floor, FloorTex

;FloorLight
FloorLight = LoadSprite("FloorLight.bmp")
PositionEntity FloorLight, 0, .1, 0
RotateEntity FloorLight, 90, 0, 0
SpriteViewMode FloorLight, 2

sc# = 10
While MouseXSpeed() = 0 And KeyHit(1) = False
  i = Rand(1, 3)
  If i = 1 Then
    i = Rand(1, 2)
    If i = 1 Then sc# = sc# + .5 Else sc# = sc# - .5
    ScaleSprite FloorLight, sc#, sc#
  EndIf
  If sc# < 8 Or sc# > 15 Then sc# = 11.5

  AddFlame()
  UpdateFire()

  RenderWorld
  Flip
Wend
End

Function AddFlame()
  f.Fire = New Fire
  f\entity = LoadSprite("Smoke.bmp")
  ScaleSprite f\entity, 2, 2
  EntityColor f\entity, Rnd(150, 255), Rnd(0, 100), 0
  f\xt# = Rand(-100, 100): f\xt# = f\xt# / 5000
  f\yt# = Rand(-10, 400):    f\yt# = f\yt# / 5000
  f\zt# = Rand(-100, 100): f\zt# = f\zt# / 5000
  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# - .01
      EntityAlpha f\entity, f\alpha# / 2
    Else
      FreeEntity f\entity
      Delete f
    EndIf
  Next
End Function