Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|689|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Plat-Grab

by Jayenkai for Workshop #011
Shift the blocks to the correct position.
Cursor keys
Graphics 800,600,32,2
SetBuffer BackBuffer()

Dim array(11,9)

For x=1 To 5
For y=x+3 To 8
array(x,y)=x
Next
Next
For x=1 To 10
array(x,9)=1
Next




gridwide=64

crystal=MakeCrystal(gridwide-10,gridwide-10,255,224,200)

c2=MakeCrystal(64,64,255,255,255)
TFormFilter False

plat=CreateImage(8,8)
SetBuffer ImageBuffer(plat)
Color 255,255,0
Plot 4,0
Plot 5,0
Plot 4,1
Plot 5,1
Plot 4,2
Color 255,180,0
Line 2,3,6,3
Plot 4,4
Color 70,180,255
Plot 4,5
Plot 3,6
Plot 5,6
Plot 2,7
Plot 6,7
SetBuffer BackBuffer()
ResizeImage plat,64,64 

sealed=1


plx=3
ply2=0



timetoend=MilliSecs()+(2*60*1000)
Repeat
Cls



sealed=1
If got=40 Then sealed=0

If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(208)=0 And KeyDown(200)=0 Then mudown=0


timeleft=timetoend-MilliSecs()
DoTime(300,1,timeleft)

If timeleft<=0 Then endofgame=2
If won=1 Then endofgame=1

For x=1 To 10
For y=1 To 9
If array(x,y)=1 Then Color 255,0,0:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=2 Then Color 255,255,0:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=3 Then Color 0,255,0:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=4 Then Color 0,255,255:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=5 Then Color 0,0,255:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=6 Then Color 255,0,255:Rect (x-1)*64,(y-1)*64,64,64,1
If x=plx And y=ply Then DrawImage plat,(x-1)*64,(y-1)*64
If y<9
If array(x,y)<>0 And array(x,y+1)=0 Then array(x,y+1)=array(x,y):array(x,y)=0
EndIf
Next
Next

sc=0
For x=1 To 10
For y=1 To 9
If array(10-x,y)=x Then sc=sc+1
If 10-x=1 And y>12-(x) Then Color 255,0,0:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=2 And y>12-(x) Then Color 255,255,0:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=3 And y>12-(x) Then Color 0,255,0:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=4 And y>12-(x) Then Color 0,255,255:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=5 And y>12-(x) Then Color 0,0,255:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=6 And y>12-(x) Then Color 255,0,255:Rect (x+20)*4,(y+8)*4,4,4,1
If y=9 Then Color 255,0,0:Rect (x+20)*4,(y+8)*4,4,4,1
Next
Next
Text 130,60,"="
DrawImage crystal,150,30
If sc=16 Then endofgame=1




If KeyDown(200) And mudown=0 Then jump=30
If KeyDown(203) And array(plx-1,ply)=0 And plx>1 And mudown=0 Then plx=plx-1:mudown=1:jump=0
If KeyDown(205) And array(plx+1,ply)=0 And plx<10 And mudown=0 Then plx=plx+1:mudown=1:jump=0

If KeyDown(208) And mudown=0 And array(plx,ply+1)<>0 And ply<8 And got=0 Then got=array(plx,ply+1):array(plx,ply+1)=0:mudown=1
If KeyDown(208) And mudown=0 And array(plx,ply)=0 And got<>0 Then array(plx,ply)=got:got=0:mudown=1


ply=ply2
If jump>0 Then ply=ply2-1:jump=jump-1

flr=0
If array(plx,ply2+1)<>0 Then flr=1
If jump=0 And flr=0 Then ply2=ply2+1
If array(plx,ply2)<>0 And array(plx,ply2-1)=0 Then ply2=ply2-1




Flip
Until endofgame<>0


If endofgame=1 Then T$="You Got the Crystal!"
If endofgame=2 Then T$="You're locked in!"


Color 0,0,0
Text 400,300,t$,1,1
Color 255,255,255
Text 399,299,t$,1,1
Flip
Delay 2500



Function DoTime(x,y,time)
tsec$=Right$("000"+((time/1000) Mod 60),2)
tmin$=Right$("000"+((time/1000) / 60),2)
Color 255,0,0

drawnum(x,y,Int(Mid$(tmin$,1,1)))
x=x+40
drawnum(x,y,Int(Mid$(tmin$,2,1)))
x=x+40
drawnum(x,y,10)
x=x+40
drawnum(x,y,Int(Mid$(tsec$,1,1)))
x=x+40
drawnum(x,y,Int(Mid$(tsec$,2,1)))

End Function

Function DrawNum(x,y,n)
Select n
Case 1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 2
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+32,8,32,1
Rect x+24,y+0,8,32,1

Case 3
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 4
Rect x+0,y+28,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 5
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 6
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+0,y+32,8,32,1
Rect x+24,y+32,8,32,1

Case 7
Rect x+0,y+0,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 8
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+0,y+32,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 9
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 0
Rect x+0,y+0,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+0,y+32,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1


Case 10
Rect x+12,y+10,8,12,1
Rect x+12,y+42,8,12,1

End Select
End Function

Function mousein(x,y,wide,high)
If MouseX()=>x And MouseX()<=x+wide And MouseY()=>y And MouseY()<=y+wide Then Return True
End Function

Function MakeCrystal(wide,high,r#,g#,b#)
make=CreateImage(wide,high)
SetBuffer ImageBuffer(make)

For n=0 To 360 Step 36
For m=0 To 360 Step 36
d#=Float(Abs(180-m))/180
If d>0 Then Color r*d,g*d,b*d
Line (wide/2)+(Cos(n)*((wide/2)-1)),(high/2)+(Sin(n)*((high/2)-1)),(wide/2)+(Cos(n+m)*((wide/2)-1)),(high/2)+(Sin(n+m)*((high/2)-1))
Next
Next

SetBuffer BackBuffer()
Return make
End Function