Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|762|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