Entries by shroom_monk/Wed. Workshop (SoCoder)

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

Content posted during the past 12 weeks.

8 Entries Latest Entries First
Flight Through Gherkin Canyon

Created for Workshop #100 | Comments (3) | Rating 50%

Shoot the gherkins as you fly through the maze.

Cursor Keys and Spacebar

Show Sourcecode for this entry

Hide Sourcecode

AppTitle "Flight Through Gherkin Canyon"
Print "Flight Through Gherkin Canyon":Print "-----------------------------"
Print "By James Wallis aka Shroom Monk":Print:Print
Print "Two Shroomish prisoners have escaped from a"
Print "high security Gherkin prison on the Gherkin":Print "homeworld. To escape from the planet in"
Print "their escape pod, they must first fly through":Print "the dangerous Gherkin Canyon."
Print:Print "Use the left and right arrowkeys to move left"
Print "and right. The canyon is filled with Gherkin"
Print "War-Mines, which explode on contact. Either dodge"
Print "them, or press SPACE fire the escape pod's S.R."
Print "lasers."
Print:Print:Print "Press any key to start..."
WaitKey()
Graphics 800,600:SetBuffer BackBuffer():SeedRnd MilliSecs()
Global px=400,lw=325,d=150,t=0,gameover=0,score=0,tmpcol=0:Type b Field w,y,a End Type:Global r.b
Type l Field x,y End Type:Global s.l:Type f Field x,y End Type:Global e.f
For i=0 To 600 Step 5:r.b=New b:r\w=lw:r\y=i:r\a=d:Next
timer=CreateTimer(60):While KeyHit(1)=0 And gameover=0:WaitTimer(timer):If KeyDown(203) Then px=px-2
If KeyDown(205) Then px=px+2
If KeyHit(57) Then s.l=New l:s\x=px:s\y=395
score=score+1:t=t+1:If t>400 Then t=0:d=d-5
If d<50 Then d=50
lw=lw+Rand(-10,10):If lw<10 Then lw=10
If lw+d>790 Then lw=790-d
r.b=New b:r\w=lw:r\y=0:r\a=d:For r.b=Each b:r\y=r\y+5:If r\y>600 Then Delete r
Next:For s.l=Each l:s\y=s\y-10:tmpcol=1:For r.b=Each b
If RectsOverlap(s\x-1,s\y-3,3,7,r\w,r\y,r\a,5)=1 Then tmpcol=0
Next:If s\y<0 Or tmpcol=1 Then Delete s
Next:gameover=1:For r.b=Each b:If RectsOverlap(px-3,400,7,11,r\w,r\y,r\a,5)=1 Then gameover=0
Next
If Rand(0,20)=1 Then e.f=New f:e\x=Rand(lw,lw+d):e\y=0
For e.f=Each f:e\y=e\y+5:tmpcol=0:For s.l=Each l
If RectsOverlap(e\x-3,e\y-5,7,11,s\x-1,s\y-3,3,7)=1 Then tmpcol=1:score=score+200:Delete s
Next:If RectsOverlap(px-3,400,7,11,e\x-3,e\y-5,7,11)=1 Then gameover=1
If e\y>650 Or tmpcol=1 Then Delete e
Next:Cls:Color 128,64,0:For r.b=Each b:Rect 0,r\y,r\w,5,1:Rect r\w+r\a,r\y,800,5,1:Next
For s.l=Each l:Color 255,255,255:Oval s\x-1,s\y-3,3,7,1:Next:Color 0,128,0:For e.f=Each f
Oval e\x-3,e\y-5,7,11,1:Next
Color 255,128,0:Oval px-1,410,3,6,1:Color 255,0,0:Oval px-3,400,7,11,1:Oval px-7,397,15,7,1
Color 255,255,255:Text 0,20,"SCORE: "+score:Flip
Wend
Cls:Color 128,64,0:For r.b=Each b:Rect 0,r\y,r\w,5,1:Rect r\w+r\a,r\y,800,5,1:Next
For s.l=Each l:Color 255,255,255:Oval s\x-1,s\y-3,3,7,1:Next:Color 0,128,0:For e.f=Each f
Oval e\x-3,e\y-5,7,11,1:Next
Color 255,0,0:Oval px-12,391,25,25,1:Color 255,255,0:Oval px-8,395,17,17,1:Color 255,255,255
Oval px-4,399,9,9,1:Color 0,128,0:Text px,402,"BOOM",1,1:Color 255,255,255
Text 400,300,"GAME OVER",1,1:Text 400,320,"SCORE: "+score,1,1:Flip:Delay 500
Cls:Color 128,64,0:For r.b=Each b:Rect 0,r\y,r\w,5,1:Rect r\w+r\a,r\y,800,5,1:Next
For s.l=Each l:Color 255,255,255:Oval s\x-1,s\y-3,3,7,1:Next:Color 0,128,0:For e.f=Each f
Oval e\x-3,e\y-5,7,11,1:Next
Color 255,255,255:Text 400,300,"GAME OVER",1,1
Text 400,320,"SCORE: "+score,1,1:Flip:FlushKeys:WaitKey():End

Tank Mayhem