Wednesday Workshop

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

O RLY? Owl Challenge

by oscar for Workshop #056

Help the owl dodge the oncoming objects.

Cursors

AppTitle "O RLY? owl challenge"
Graphics 400,400,16,2
Cls
fnt=LoadFont("blitz",12,False,False,False)
SetFont fnt


Dim owl$(2)
	Global OwlX=10
	Global OwlY=100
	Global OwlDir$="R"



Type Food
	Field X
	Field Y
	Field Fshape$[2]
End Type



SetBuffer BackBuffer()
While Not KeyHit(1)

	Cls

	;left
	If KeyDown(203) Then
		OwlDir= "L"
		OwlX= OwlX - 5
	EndIf
	;right
	If KeyDown(205) Then
		OwlX= OwlX + 5
		OwlDir="R"
	EndIf
	;up
	If KeyDown(200) Then
		OwlY= OwlY - 5
	EndIf
	;down
	If KeyDown(208) Then
		OwlY= OwlY + 5
	EndIf


	DrawOwl()

; draw & move enemy
	For f.food= Each food
		For i=0 To 1
			Color 200,0,0
			Text f\X, f\Y, f\Fshape$[i]
			f\Y=f\Y+15

		Next
		f\Y=f\Y-34
; check collision
		If owlY >= f\y-30 And owlY <= f\Y Then
		 	If owlX>=f\x- 20 And owlX<= f\x + 45 Then
;GAME OVEr
				Goto gameover

			EndIf

		EndIf
		
		If f\y<0 Then
		Delete f.food
			num=num-1
;SCORE RISES
			score=score+1
		EndIf
		
	Next
	If num <5 Then
	num=num+1
		f.food = New food
		f\X=Rand(400)
		f\Y=300
		f\Fshape$[0] = "/\/\/\"
		f\Fshape$[1] = "\/\/\/"
	EndIf
			Color 250,250,250
	Text 10,10, "Score: "+score

	Flip
Wend
End


Function DrawOwl()
	If OwlDir$= "L" Then
		owl$(0)="{o,o}"
		owl$(1)="(__(|"
		owl$(2)=" "+Chr(34)+" " +Chr(34)
	ElseIf OwlDir$="R" Then
		owl$(0)="{o,o}"
		owl$(1)="|)__)"
		owl$(2)=" "+Chr(34)+" " +Chr(34)
	EndIf

	Color 152,152,52
	
	For i= 0 To 2
		Text OwlX,OwlY, owl$(i)
		OwlY=OwlY+15
	Next
	
	OwlY=OwlY-45
End Function


.gameover
While Not KeyHit(28)
Cls
	Text 170,155, "GAMEOVER!"
	Text 155,170, "your score: " + score
	Text 140,185, "press enter to exit"
Flip
Wend
End