Wednesday Workshop

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

Make It Blue

by Phoenix for Workshop #125

Turn the light blue squares Dark, by guiding the Orange square around. The Green squares stop your movement.

Cursors

; ---------------------------------
;
; Made by Phoenix, 18/11 -07, 13:51-15:29
; 1 hour and 38 minutes
;
; ---------------------------------
;
; Use the arrow keys to move the orange dot.
; Green tiles prevents sliding,
; however there are only a few on every level.
; As you move, the board will change color.
; Your goal is to fill the entire level with dark blue,
; and if you think you're lost just press space to reset.
; Sometimes when you have beaten a level, nothing happens.
; If that happens, don't call 911 - relax instead.
; Just push one of the arrow keys and pray to god that it will work (if you're religious)
;
; Beat all six levels to view the ultra-cool ending screen!
; But whatever you do, don't cheat! All levels are possible.
;
; ---------------------------------

Graphics 256,256,0,2
SetBuffer(BackBuffer())
SeedRnd(MilliSecs())

Global pX,pY
Dim map(8,8)

timer = CreateTimer(50)

Global stopped = 0
Global move = 0
Global xmod = 0
Global ymod = 0
Global level = 0 ; One less than the actual level, since we increase it in NextLevel()

NextLevel()

While(Not KeyHit(1))
	WaitTimer(timer)
	done = True
	For x = 0 To 7
		For y = 0 To 7
			Select(map(x,y))
				Case 0 Color 60,120,200 : done = False
				Case 1 Color 60,60,60
				Case 2 Color 40,100,180
				Case 3 Color 60,200,120
			End Select
			
			Rect x*32,y*32,32,32
		Next
	Next
	
	If(done)
		Color(255,255,255)
		Cls
		Text 128,128,"Well done! You beat level "+level,1,1
		Flip
		Delay 2000
		NextLevel()
	EndIf
	
	If(KeyHit(57)) Then level=level-1 NextLevel()
	
	If(map(pX,pY)=3 And stopped=0) Then move=0 : stopped = 1
	
	If(KeyHit(200) And move=0) Then move = 1
	If(KeyHit(205) And move=0) Then move = 2
	If(KeyHit(208) And move=0) Then move = 3
	If(KeyHit(203) And move=0) Then move = 4

	Select(move)
		Case 1
			If(map(pX,pY-1)=1)
				move = 0
			Else
				ymod = ymod - 8
				If(Abs(ymod)=32)
					If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2)
					pY=pY-1
					ymod=0
					stopped=0
				EndIf	
			EndIf
		Case 2
			If(map(pX+1,pY)=1)
				move = 0
			Else
				xmod = xmod + 8
				If(Abs(xmod)=32)
					If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2)
					pX=pX+1
					xmod=0
					stopped=0
				EndIf
			EndIf
		Case 3
			If(map(pX,pY+1)=1)
				move = 0
			Else
				ymod = ymod + 8
				If(Abs(ymod)=32)
					If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2)
					pY=pY+1
					ymod=0
					stopped=0
				EndIf
			EndIf
		Case 4
			If(map(pX-1,pY)=1)
				move = 0
			Else
				xmod = xmod - 8
				If(Abs(xmod)=32)
					If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2)
					pX=pX-1
					xmod=0
					stopped=0
				EndIf
			EndIf
	End Select
	
	Color 200,120,60
	Rect pX*32+xmod, pY*32+ymod,32,32
	Flip
	Cls
Wend
End

Function NextLevel()
	level = level + 1
	xmod = 0
	ymod = 0
	stopped = 0
	move = 0
	
	Select(level)
		Case 1 Restore level1
		Case 2 Restore level2
		Case 3 Restore level3
		Case 4 Restore level4
		Case 5 Restore level5
		Case 6 Restore level6
		Case 7
			Color 255,255,255
			SetFont(LoadFont("Arial",18))
			While(Not KeyHit(1))
				a=a+1
				If(Rand(10)=1)
					For i = 0 To 360 Step 10
						p.particle = New particle
						p\x = Rand(64,192)
						p\y = Rand(64,192)
						p\c = Rand($FFFFFF)
						p\a = i
					Next
				EndIf
				
				For p.particle = Each particle
					p\x=p\x+Sin(p\a)*5
					p\y=p\y+Cos(p\a)*5
					WritePixel p\x, p\y, p\c
					
					If(p\x>256 Or p\x<0 Or p\y>256 Or p\y<0) Then Delete p
				Next
				
				Text Sin(a)*25+128,128,"You won! Congratulations!",1,1
				Flip
				Cls
			Wend
			End
	End Select
	
	Read pX
	Read pY

	For y = 0 To 7
		For x = 0 To 7
			Read map(x,y)
		Next
	Next
End Function

Type particle
	Field x,y,c,a
End Type

.level1
Data 2,2
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,0,0,0,0,1,1
Data 1,1,1,1,1,0,1,1
Data 1,1,1,0,0,3,1,1
Data 1,1,0,0,0,0,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1

.level2
Data 2,5
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,0,0,1,0,1,1
Data 1,1,3,0,0,0,1,1
Data 1,1,0,1,0,3,1,1
Data 1,1,0,1,0,0,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1

.level3
Data 5,3
Data 1,1,1,1,1,1,1,1
Data 1,1,0,0,0,0,1,1
Data 1,1,0,1,1,0,0,1
Data 1,1,0,1,0,3,0,1
Data 1,0,0,1,0,0,1,1
Data 1,0,0,0,0,0,1,1
Data 1,1,1,1,0,0,1,1
Data 1,1,1,1,1,1,1,1

.level4
Data 3,3
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,2,2,2,1,1,1,1
Data 1,2,1,2,1,1,1,1
Data 1,2,1,3,2,2,0,1
Data 1,2,2,2,2,2,2,1
Data 1,1,1,1,1,1,1,1

.level5
Data 6,4
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,1,0,0,0,0,1
Data 1,1,0,0,0,1,0,1
Data 1,1,0,0,3,0,0,1
Data 1,1,0,1,0,1,1,1
Data 1,1,0,0,0,1,1,1
Data 1,1,1,1,1,1,1,1

.level6
Data 4,2
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,0,0,0,1,1,1
Data 1,1,0,1,3,0,0,1
Data 1,2,2,0,3,1,0,1
Data 1,2,1,1,0,1,0,1
Data 1,2,2,2,0,0,0,1
Data 1,1,1,1,1,1,1,1