Wednesday Workshop

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

Oscar's Pool

by oscar for Workshop #010

here is my entry so far(won't get a chance to finish it )

Mouse

Graphics 800,600,32,0

Global rectx, recty, Recth, rectw
Global xW, yW
Global power =0
Global dirX=1, dirY=0

xW=230
yW=270

Type NWball
	Field X
	Field Y
	Field size
	Field Ydir
	Field Xdir
End Type

SetBuffer BackBuffer()
ball_start()

While Not KeyHit(1) 
Cls

table()

; draw line
If Not power<>0 Or MouseDown(1) Then Line MouseX(),MouseY(),xW +5,yW +5

;draw cue ball
drawballWHITE (1,xW,YW)

;click mouse
If MouseDown(1) Then
	For r=1 To 30
		If power <30 Then power=power+1
	Next
EndIf

;move white ball
If Not MouseDown(1) Then
	If power>0 Then
		xW=xW + power * dirX
			power=power-1
	EndIf
EndIf

If xW <= rectx Then
	dirX= dirX* -1 
	xW= rectX+10
EndIf
If xW => rectX + rectW -10 Then 
	dirX=-1
	xW =rectX + rectW -10
EndIf
move_ball()
Flip
Wend

End



Function table()
	rectX=200
	rectY=150
	rectW=400
	rectH=250
	Color 100,100,100
	Rect 190,140,420,269

	Color 10,150,10
	Rect rectX,rectY,rectW,rectH,1
	;holes
	Color 0,0,0
	Oval 193,143,12,12,1
	Oval 400,140,12,12,1
	Oval 593,143,12,12,1
	
	Oval 193,393,12,12,1
	Oval 400,397,12,12,1

	
	;ball Line
	Color 150,150,150
	Line 250,150,250,399

End Function

Function drawballWHITE(num,xW,yW)
	Color 255,255,255
	Oval xW,yW,10,10,1
	Color 255,255,255
End Function



Function ball_start()

; create balls
	For blah=1 To 15
	If setup=0 Then
		ball.NWball= New NWball
			ball\Xdir=1
			Select blah
				Case 1
					ball\X=500
					ball\Y=275

				Case 2
					ball\X=510
					ball\Y=270
				Case 3
					ball\X=510
					ball\Y=280

				Case 4
					ball\X=520
					ball\Y=285
				Case 5
					Color 200,200,200
					ball\X=520
					ball\Y=275
				Case 6
					ball\X=520
					ball\Y=265

				Case 7
					ball\X=530
					ball\Y=260
				Case 8
					ball\X=530
					ball\Y=270
				Case 9
					ball\X=530
					ball\Y=280
				Case 10
					ball\X=530
					ball\Y=290

				Case 11
					ball\X=540
					ball\Y=255
				Case 12
					ball\X=540
					ball\Y=265
				Case 13
					ball\X=540
					ball\Y=275
				Case 14
					ball\X=540
					ball\Y=285
				Case 15
					ball\X=540
					ball\Y=295
			End Select
		EndIf
	Next
setup=1
End Function




Function move_ball()
	For ball.NWball =Each NWball
;if white htis another ball

		If xW => ball\X And xW <= ball\X +5  Then
		; if red ball hits right of table
			If ball\X => rectW+ rectX -15 Then
				ball\X= rectW+ rectX -15
				ball\Xdir= ball\Xdir *-1
				ball\X =ball\X + power * ball\Xdir
			Else
				ball\X =ball\X + power * ball\Xdir
			EndIf
			
			
	; if red ball hits left of table
			If ball\X <=rectX +15 Then
				ball\X = rectX +15
				ball\Xdir = ball\Xdir *-1
				ball\X = ball\X + power * ball\Xdir
			Else
				ball\X =ball\X + power * ball\Xdir
			EndIf



		EndIf

		Color 255,0,0
			Oval ball\X,ball\Y,10,10,1
		Color 200,200,200
	Next
End Function

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