Wednesday Workshop

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

Avoid the Crap

by magicman for Workshop #084

Avoid the crap

Cursors

Graphics 800,600,16,2
AutoMidHandle True





player = CreateImage(20,20)
SetBuffer ImageBuffer(player)
Color 0,255,0
Oval 0,0,20,20,0

Global px# = 100
Global py# = 500
Global pxv# = 0
Global pyv# = 0


b1 = CreateImage(50,50)
SetBuffer ImageBuffer(b1)
Color 255,0,0
Rect 0,0,50,50,0

b2 = CreateImage(60,60)
SetBuffer ImageBuffer(b2)
Color 255,0,0
Rect 0,0,60,60,0

b3 = CreateImage(40,40)
SetBuffer ImageBuffer(b3)
Color 255,0,0
Rect 0,0,40,40,0

Global b1x# = 100
Global b1y# = 100
Global b1xv# = 4
Global b1yv# = 4

Global b2x# = 500
Global b2y# = 500
Global b2xv# = -3
Global b2yv# = -3

Global b3x# = 700
Global b3y# = 100
Global b3xv# = -3
Global b3yv# = 3

Global score = 0
Global highscore = 0

Global gah = 0

SetBuffer BackBuffer()

While Not KeyDown(1)
Cls

If gah = 0 score = score + 1


If KeyDown(200) pyv = pyv -.1
If KeyDown(208) pyv = pyv + .1
If KeyDown(203) pxv = pxv -.1
If KeyDown(205) pxv = pxv + .1

If pxv > 6 pxv = 6
If pxv < -6 pxv = -6
If pyv > 6 pyv = 6
If pyv < -6 pyv = -6





If ImagesCollide(player,px,py,0,b1,b1x,b1y,0)
b1x = 100
b1y = 100
b2x = 700
b2y = 500
b3x = 700
b3y = 100
px = 100
py = 500
pxv = 0
pyv = 0
score = 0
gah = 1
EndIf

If ImagesCollide(player,px,py,0,b2,b2x,b2y,0)
b1x = 100
b1y = 100
b2x = 700
b2y = 500
b3x = 700
b3y = 100
px = 100
py = 500
pxv = 0
pyv = 0
score = 0
gah = 1
EndIf

If ImagesCollide(player,px,py,0,b3,b3x,b3y,0)
b1x = 100
b1y = 100
b2x = 700
b2y = 500
b3x = 700
b3y = 100
px = 100
py = 500
pxv = 0
pyv = 0
score = 0
gah = 1
EndIf












If gah = 0

DrawImage b1,b1x,b1y
b1x = b1x + b1xv
b1y = b1y + b1yv

If b1y > 575 
b1yv = -b1yv
b1y = b1y -1
EndIf

If b1y < 25 
b1yv = -b1yv
b1y = b1y +1
EndIf

If b1x > 775 
b1xv = -b1xv
b1x = b1x -1
EndIf

If b1x < 25 
b1xv = -b1xv
b1x = b1x +1
EndIf


DrawImage b2,b2x,b2y
b2x = b2x + b2xv
b2y = b2y + b2yv

If b2y > 570 
b2yv = -b2yv
b2y = b2y -1
EndIf

If b2y < 30 
b2yv = -b2yv
b2y = b2y +1
EndIf

If b2x > 770 
b2xv = -b2xv
b2x = b2x -1
EndIf

If b2x < 30 
b2xv = -b2xv
b2x = b2x +1
EndIf


DrawImage b3,b3x,b3y
b3x = b3x + b3xv
b3y = b3y + b3yv

If b3y > 580 
b3yv = -b3yv
b3y = b3y -1
EndIf

If b3y < 20 
b3yv = -b3yv
b3y = b3y +1
EndIf

If b3x > 780 
b3xv = -b3xv
b3x = b3x -1
EndIf

If b3x < 20 
b3xv = -b3xv
b3x = b3x +1
EndIf

EndIf




DrawImage player,px,py
px = px + pxv
py = py + pyv

If px > 790 pxv = -pxv
If px < 10 pxv = -pxv
If py > 590 pyv = -pyv
If py < 10 pyv = -pyv


If gah > 0

Color 255,255,255
Text 290,300,"SCORE: " + score
Text 480,300,"HIGHSCORE: " + highscore

gah = gah + 1



If gah > 200 gah = 0

EndIf












If score > highscore highscore = score

Delay 1

Flip
Wend
End