Wednesday Workshop

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

Dotty

by HoboBen for Workshop #084

Avoid the walls. Avoid the big blocks.

Mouse

AppTitle "Dotty : Wednesday Workshop #084 : The Four Object Challenge"

;Use Mouse to move the small dot.
;Avoid the walls
;Avoid the big blocks

Graphics 640,480,0,2

HidePointer

MoveMouse 320,240

ClsColor(0,0,64)

life=255
GameOver=0

block1x=140
block1y=145
block1xdir=6
block1ydir=-6
block1r=65

block2x=240
block2y=325
block2xdir=-7
block2ydir=-12
block2r=38

Const lifeD=5


time=MilliSecs()

While GameOver=0
	SetBuffer BackBuffer()
	Cls

	;Rectangle
	Color(0,0,255)
	Rect(50,50,540,380,0)

	;Blocks
	;1 - draw
	Color(128+b1r,128,255-b1r-b1r)
	Rect(block1x-block1r,block1y-block1r,block1r+block1r,block1r+block1r,1)
	;2 - draw
	Color(128+b2r,255-b2r,128-b2r)
	Rect(block2x-block2r,block2y-block2r,block2r+block2r,block2r+block2r,1)
	;1 - logic
	If (block1x-block1r)<50 Or (block1x+block1r)>590 Then block1xdir=-block1xdir
	block1x=block1x+block1xdir
	If (block1y-block1r)<50 Or (block1y+block1r)>430 Then block1ydir=-block1ydir
	block1y=block1y+block1ydir
	;2 - logic
	If (block2x-block2r)<50 Or (block2x+block2r)>590 Then block2xdir=-block2xdir
	block2x=block2x+block2xdir
	If (block2y-block2r)<50 Or (block2y+block2r)>430 Then block2ydir=-block2ydir
	block2y=block2y+block2ydir



	;Player
	Color(128,life,0)
	Oval(MouseX()-5,MouseY()-5,10,10,1)
	
	;Confine to rect
	If MouseX()<55 Then
		MoveMouse 56,MouseY()
		life=life-lifeD
	EndIf
	If MouseX()>585 Then
		MoveMouse 584,MouseY()
		life=life-lifeD
	EndIf
	If MouseY()<55 Then
		MoveMouse MouseX(),56
		life=life-lifeD
	EndIf
	If MouseY()>425 Then
		MoveMouse MouseX(),424
		life=life-lifeD
	EndIf

	;Hit boxes...
	If (MouseX()+3)>(block1x-block1r) And (MouseX()-3)<(block1x+block1r) And (MouseY()+3)>(block1y-block1r) And (MouseY()-3)<(block1y+block1r) Then
		life=life-lifeD
		ClsColor(0,64,64)
		b1r=120
	ElseIf (MouseX()+3)>(block2x-block2r) And (MouseX()-3)<(block2x+block2r) And (MouseY()+3)>(block2y-block2r) And (MouseY()-3)<(block2y+block2r) Then
		life=life-lifeD
		ClsColor(0,64,64)
		b2r=120
	Else
		ClsColor(0,0,64)
		b2r=0
		b1r=0
	EndIf



	
	;If Dead...
	If life<0 Then GameOver=1
	If KeyHit(1) Then GameOver=1
	
	Flip
	Delay 5
Wend


fintime=(MilliSecs()-time)+1000
score$=fintime
score$=Left(score$,(Len(score$)-3)) ; millisecs into secs


ShowPointer

RuntimeError("You have died. Your score was: "+score$+"")

End