Wednesday Workshop

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

Black not White

by magicman for Workshop #127

Catch the outlined squares, and avoid the filled ones.

Cursors

;Start Time 5:30
;Finish Time 5:59
;Total TIme 0:29

;CREATED BY MAGICMAN!!

;ALL YOU HAVE TO DO IS USE THE ARROW KEYS TO GET THE WHITE OUTLINED SQUARES WHILE AVOIDING THE PURE WHITE SQUARES!!!

AppTitle "1 Hour, Well, it only really took 29 minutes"
Graphics 400,600,16,2
AutoMidHandle True
Type part
Field x#,y#,xv#,yv#,c
End Type
Type block
Field x#,y#,xv#,yv#,which
End Type
blockimage1 = CreateImage(20,20)
SetBuffer ImageBuffer(blockimage1)
Color 255,255,255
Rect 0,0,20,20,0
blockimage2 = CreateImage(20,20)
SetBuffer ImageBuffer(blockimage2)
Color 255,255,255
Rect 0,0,20,20,1
player = CreateImage(30,30)
SetBuffer ImageBuffer(player)
Color 255,255,255
Rect 0,0,30,30,0
Global px = 200
Global py = 550
Global score = 0
Global createblock = 0
Global blocktime = 10
Global diffin = 0
SetBuffer BackBuffer()
While Not KeyDown(1)
Cls
SeedRnd MilliSecs()
diffin = diffin + 1
If blocktime > 1
If diffin > 400
blocktime = blocktime - 1
diffin = 0
EndIf
EndIf
createblock = createblock + 1
If createblock => blocktime
b.block = New block
b\x = Rnd(20,380)
b\y = -20
b\xv = Rnd(-2,2)
b\yv = Rnd(3,7)
b\which = Rnd(1,2)
createblock = 0
EndIf
If KeyDown(203) px = px - 6
If KeyDown(205) px = px + 6
If px =< 15 px = px + 6
If px => 385 px = px -6
For b.block = Each block
If ImagesOverlap(player,px,py,blockimage1,b\x,b\y)
If b\which = 2 
score = 0
db = 1
blocktime = 10
EndIf
If b\which = 1 
score = score + 1
For i = 0 To 36
p.part = New part
p\x = b\x
p\y = b\y
p\xv = Cos(angle)*7
p\yv = Sin(angle)*7
p\c = 255
angle = angle + 10
Next
Delete b
EndIf
EndIf
Next
If db = 1
For b.block = Each block
For i = 0 To 36
p.part = New part
p\x = b\x
p\y = b\y
p\xv = Cos(angle)*7
p\yv = Sin(angle)*7
p\c = 255
angle = angle + 10
Next
Delete b
Next
db = 0
EndIf
For p.part = Each part
Color p\c,p\c,p\c
Rect p\x,p\y,2,2
p\x = p\x + p\xv
p\y = p\y + p\yv
p\c = p\c -5
If p\c < 5 Delete p
Next
For b.block = Each block
If b\which = 1 DrawImage blockimage1,b\x,b\y
If b\which = 2 DrawImage blockimage2,b\x,b\y
b\x = b\x + b\xv
b\y = b\y + b\yv
If b\y > 650 Delete b
Next
If score > highscore highscore = score
Color 255,255,255
Text 80,10,"SCORE: " + score
Text 220,10,"HIGHSCORE: " + highscore
DrawImage player,px,py
Flip
Wend
End
;allniceandcompacted,itlookskindoflikeaskylinewhenviewedonitsside!