Entries by clownhunter/Wed. Workshop (SoCoder)

clownhunter's Wednesday Workshop Entries
More of clownhunter's stuff.
Blog, Profile, Showcases, Code snippets, Articles, W.W Entries, Recent Posts

Content posted during the past 12 weeks.

3 Entries Latest Entries First
Frogger 3D

Created for Workshop #059 | Comments (0) | No Votes

Guide the frog to the other side.

Cursors

Click to Download this entry

Fast Game

Created for Workshop #043 | Comments (0) | No Votes

Racing with Drugs!

Cursors and Spacebar

Click to Download this entry

Fire Game

Created for Workshop #021 | 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

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
steve_ancell
Wed, at 20:11
dna
Wed, at 20:01
Evil Roy Ferguson
Wed, at 19:13
Afr0
Wed, at 18:04
CodersRule
Wed, at 18:00
Cower
Wed, at 17:22
HoboBen
Wed, at 16:21
Mog
Wed, at 16:17
Dabz
Wed, at 16:03
Jayenkai
Wed, at 15:04

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