Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|506\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #021 (02 Nov 2005) The Fire 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.

Burnin' down the House by Jayenkai for Workshop #021 Don't let the fire get out of control. Mouse Click to download this entry

Swansea Fireworks by HoboBen for Workshop #021 "Trust me, if you value your own time, don't bother running it." No Interaction 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 by huruey for Workshop #021 Tread carefully to avoid the flames Cursors Click to download this entry

Burning Man by magicman for Workshop #021 Run fast, to put out the flames. Cursors Click to download this entry

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

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.094

Wednesday Workshop - Socoder