Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|510|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Fire Game

by clownhunter for Workshop #021

Click the mouse to run away.

Mouse button

Graphics 300,300,32,2
AppTitle"FIRE GAME"
SeedRnd MilliSecs()

Type f
   Field x,y,exhist,fcolor
End Type

Global startx = 125
Global endx = 175
Global doit
Global amount2

CreateFire(50)

While Not KeyDown(1)
Cls

Text 0,0,"OH NO!  FIRE EVERYWHERE!!  LEFT CLICK"
Text 0,10,"THE MOUSE TO ESCAPE!!!"

If MouseHit(1)
   Text 0,30,"Good job, you escaped!  Hit any key"
   Text 0,40,"to exit!"
   Flip
   WaitKey()
   End
EndIf
If MouseHit(2)
   Text 0,30,"Wrong button!  You died!  Hit any key"
   Text 0,40,"to exit!"
   Flip
   WaitKey()
   End
EndIf

If startx < 0
   Text 0,30,"You waited too long!  You died!  Hit"
   Text 0,40,"any key to exit!"
   Flip
   WaitKey()
   End
EndIf

For f.f = Each f
   Color f\fcolor,0,0
   f\y = f\y - 1
   Oval f\x,f\y,10,10
   Color 255,255,255
   f\fcolor = f\fcolor - 1
   If f\fcolor <= 0
      Delete f
      CreateFire(1)
	  amount2 = amount2 - 1
   EndIf
   If amount2 > 150 
      Delete(f)
	  amount2 = amount2 - 1
   EndIf
Next

Flip
Wend
End

Function CreateFire(amount)
   
   For i = 0 To amount
      fire.f = New f
      fire\x = Rand(startx,endx)
      fire\y = Rand(300,550)
      fire\fcolor = Rand(50,255)
      amount2 = amount2 + 1
   Next
   amount = 0
   
   If doit < 0
	  startx = startx - 1
	  endx = endx + 1
	  doit = 10
   EndIf
   doit = doit - 1

End Function