Wednesday Workshop

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

MouseBall

by Jayenkai for Workshop #029

Move the ball with the mouse.

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

HidePointer()

MoveMouse 400,300
a=MouseXSpeed()
a=MouseYSpeed()

plrx#=400
plry#=300

Dim bat(6)

bat(1)=Rand(0,600-64)
bat(2)=Rand(0,600-64)

bat(3)=Rand(0,600-64)
bat(4)=Rand(0,600-64)

bat(5)=0
bat(6)=0

hit=0

font=LoadFont("Courier",52)
SetFont font

tscore=10
ttime=MilliSecs()+500
playtime=MilliSecs()+(1000*60)

Repeat
Cls

If MilliSecs()>ttime Then tscore=tscore-1:ttime=MilliSecs()+500
If tscore<0 Then tscore=0

Color 255,255,255
Text 200,30,score,1,1
Text 600,30,tscore,1,1
timeleft=(playtime-MilliSecs())
If timeleft<=0 Then endofgame=1
timeleft2=timeleft/1000
Text 400,570,timeleft2,1,1

plrx#=plrx#+spdx#/20
plry#=plry#+spdy#/20

spdx#=spdx-(400-MouseX())
spdy#=spdy-(300-MouseY())
MoveMouse 400,300

If plrx<30 And plrx>0 And plry=>bat(1)-16 And plry<=bat(1)+64 Then spdx=Abs(spdx)/2:bat(5)=1:If hit=1 Or hit=0 Then score=score+tscore:tscore=10:ttime=MilliSecs()+500:hit=2
If plry<1 Then spdy=Abs(spdy)/2

If plrx>800-46 And plrx<800-16 And plry=>bat(2)-16 And plry<=bat(2)+64 Then spdx=0-Abs(spdx)/2:bat(6)=1:If hit=0 Or hit=2 Then score=score+tscore:tscore=10:ttime=MilliSecs()+500:hit=1
If plry>600-16 Then spdy=0-Abs(spdy)/2

If plrx<0-16 Then plrx=400:plry=300:spdx=0:spdy=0 
If plrx>800 Then plrx=400:plry=300:spdx=0:spdy=0


Color 200,255,200
If hit=0 Or hit=1 Then Color 255,255,255
Rect 16,bat(1),16,64,1
Color 200,255,200
If hit=0 Or hit=2 Then Color 255,255,255
Rect 800-50,bat(2),16,64,1

If bat(5)=1 Then bat(1)=bat(1)-(bat(1)-bat(3))/8
If bat(6)=1 Then bat(2)=bat(2)-(bat(2)-bat(4))/8
If Abs(bat(1)-bat(3))<8 Then bat(3)=Rand(0,600-64):bat(5)=0
If Abs(bat(2)-bat(4))<8 Then bat(4)=Rand(0,600-64):bat(6)=0

Color 255,255,255
Rect plrx,plry,16,16,1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Text 400,300,"GAME OVER",1,1
Flip

Delay 2500