Week 21/Wed. Workshop (SoCoder)

<- Previous Workshop | Next Workshop ->

021 : The Fire Challenge

Date : 02 Nov 2005

Challenge : "Remember, Remember. The 5th of November" The date that UK citizens celebrate a plot to blow up a government building. Or, something to that effect. This week being "Bonfire night" week, I thought we'd have a "Fire" challenge. Make any game you want, with lots of fire in it.

The Entries in order of submission
Burnin' down the House

Jayenkai | Comments (0) | No Votes

Don't let the fire get out of control.

Mouse

Click to Download this entry.

Swansea Fireworks

HoboBen | Comments (0) | No Votes

"Trust me, if you value your own time, don't bother running it."

No Interaction

Show Sourcecode for this entry

Hide Sourcecode

AppTitle "A realistic simulation of Swansea Fireworks"
Graphics 320,240,0,2

font=LoadFont("arial",12,0,0,0)
SetFont font

Type part
Field xpos#
Field ypos#
Field xdir#
Field ydir#
End Type

For a=0 To 100
	Createpart(160,120,Rnd(-2,2),Rnd(4,-4))
Next






Repeat

SetBuffer BackBuffer()
Cls


Color(200,200,0)



totalparts=0
For p.part = Each part

	Oval p\xpos#-3,p\ypos#-3,6,6,1
	p\xpos#=p\xpos#+p\xdir#
	p\ypos#=p\ypos#+p\ydir#
	If p\ydir#=0 Then p\ydir#=-1
	p\ydir#=p\ydir#+0.02
;	p\ypos#=p\ypos#+0.1
	totalparts=totalparts+1
	If p\ypos#>240 Then Delete p

Next

Text(0,0,totalparts)
Flip


Until totalparts=0


Delay 20
FlushKeys()
Text (160,30,"That's all.",1,1)
Text (160,100,"Swansea Fireworks are half hearted and lame.",1,1)
Text (160,120,"Do not bother, move to cardiff.",1,1)
Text (160,140,"Either way, give me tea now!",1,1)
FreeFont font
Flip
WaitKey()



End






Function Createpart(x#,y#,xd#,yd#)
p.part=New part

p\xpos#=x#
p\ypos#=y#
p\xdir#=xd#
p\ydir#=yd#

End Function

Tunnel of Fire

huruey | Comments (0) | No Votes

Tread carefully to avoid the flames

Cursors

Click to Download this entry.

Burning Man

magicman | Comments (0) | No Votes

Run fast, to put out the flames.

Cursors

Click to Download this entry.

Fire Game

clownhunter | Comments (0) | No Votes

Click the mouse to run away.

Mouse button

Show Sourcecode for this entry

Hide Sourcecode

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

<- Previous Workshop | Next Workshop ->

Latest Items

News : Newsletter #176

Jayenkai Sat 04:49

News : Newsletter #175

Dabz Tue 09:38

Blog : Snow: More Material Junk

Cower Sat 23:17

Dev-Diary : Mutant Monty: Amstrad CPC to Windows conversion

rockford Fri 13:14

Techy : AppleTV

Jayenkai Thu 09:40

Blog : Graphviz

steve_ancell Sat 14:17

Pets : Top-Down Shadow Hack

Jayenkai Tue 05:52

Snippet : JNKrunch v1.0

Jayenkai Sat 07:20

News : Newsletter #173

waroffice Fri 04:47

Blog : Material Loading

Cower Fri 02:08

Pets : I Done Won A Thing

shroom_monk Sun 11:31

Pets : Repurposing A Lexer

Cower Mon 22:06

Bah : Feeling a Little Angry

spinal Mon 11:26

News : Newsletter #170

Dabz Sat 00:34

Showcase : sbfgen

Cower Sat 16:57

Who's Online
Evil Roy Ferguson
Sat, at 17:56
Cower
Sat, at 17:39
CodersRule
Sat, at 17:15
9572AD
Sat, at 17:07
Jayenkai
Sat, at 16:33
shroom_monk
Sat, at 16:29
steve_ancell
Sat, at 16:22
dna
Sat, at 16:17
HoboBen
Sat, at 16:15
Hotshot
Sat, at 15:44

Link to this page
Site : Jayenkai 2006-Infinity |
MudChat's origins, BBCode's former life, Image Scaler.