Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|617|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Light and Dark

by Jayenkai for Workshop #004
Guide the two characters to the grey center squares, using the controls displayed.
;Light and Dark
;Started : Wed 06 July - 04:37 
;Finished : Wed 06 July - 07:34		(eeeuw.. weird reversing times!)
;Additional bug fixes/level fixes during the rest of Wednesday.

;				Mind you, that's not to say that this was my first game!
;				In the first 4 hours, I made a fully working JNKPlat game, whereby Platdude had a torch, and shone it in a dark maze.
;				Unfortunately, I realised that I couldn't be bothered making levels, so I sat for a bit, thinking what else I could do.
;				I might release the JNKPlat once this week's challenge is done.  Just for fun!


;Hit S on the titlescreen, then type in a seed to generate more random levels.
;Be aware, though, that not every level is possible.. L+D sometimes get trapped!


Graphics 800,600,32,2
Graphics 800,600,32,3
If Instr(Upper$(CommandLine$()),"FULL")>0 Then Graphics 800,600,32,1
SetBuffer BackBuffer()
HidePointer

Dim font(10)
For n=1 To 10
font(n)=LoadFont("Arial",8*n)
Next
Global Opened=300

;--------------- Jay's initial thoughts -------------

;2 characters, Light and Dark.
;Light is Black.
;Dark is White.
;Light exists inside a bright world.  He is scared of the dark.
;Dark exists within the dark.  He is afriad of lights.

;Light and Dark must navigate the maze, without meeting their fears.

;Possible Controls 	Method 1 - Auto Route.  Light and Dark move themselves, you have control of the light switches.
;					Method 2 - Chu Chu Rocket.  First build them a path, then control the lights.
;					Method 3 - Dual Control.  WASD vs IJKL

;						I like the idea of 3!  You could even play that with 2 players!  (OMG! WTF!? Multiplayer!!!11!111!!!)

;--------------- ---------------------- -------------

Dim sprite(50)
Dim map(50,34)

SeedRnd MilliSecs()

l=230
d=20

n=1
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color l,l,l
Rect 0,0,16,16,1
Color d,d,d
Rect 1,1,16,16,1
Color 0,0,0
Rect 1,1,14,14,1

n=2
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color l,l,l
Rect 0,0,16,16,1
Color d,d,d
Rect 1,1,16,16,1
Color 255,255,255
Rect 1,1,14,14,1


n=3 ; 10 Black
sprite(n)=CopyImage(sprite(1)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,255,255
SetFont font(1)
Text 8,8,"5",1,1
n=4 ; 10 White
sprite(n)=CopyImage(sprite(2)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 0,0,0
SetFont font(1)
Text 8,8,"5",1,1


; ---------------------- Useless ---------------------

;Redundant sprites, from when I was WAY over thinking the game!
;Remember.. Simplicity is the key!

;For those who care, I was considering adding extra blocks, so, for example..

n=5 ; <-> Black
;If you tread on a <-> Black tile, all the tiles on that line become white.
;But, rather than making the game a BIT easier, it made it piss easy!
sprite(n)=CopyImage(sprite(1)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,255,255
Plot 2,8:Plot 3,8:Plot 3,7:Plot 3,9:Plot 4,6:Plot 4,7:Plot 4,8:Plot 4,9:Plot 4,10
Plot 5,8:Plot 6,8:Plot 7,8:Plot 8,8:Plot 9,8:Plot 10,8:Plot 11,8:Plot 12,8:Plot 13,8
Plot 11,10:Plot 11,9:Plot 11,7:Plot 11,6:Plot 12,9:Plot 12,7
n=6 ; <-> White
sprite(n)=CopyImage(sprite(2)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 0,0,0
Plot 2,8:Plot 3,8:Plot 3,7:Plot 3,9:Plot 4,6:Plot 4,7:Plot 4,8:Plot 4,9:Plot 4,10
Plot 5,8:Plot 6,8:Plot 7,8:Plot 8,8:Plot 9,8:Plot 10,8:Plot 11,8:Plot 12,8:Plot 13,8
Plot 11,10:Plot 11,9:Plot 11,7:Plot 11,6:Plot 12,9:Plot 12,7


n=7 ; U/D Black
sprite(n)=CopyImage(sprite(1)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,255,255
Plot 8,2:Plot 8,3:Plot 7,3:Plot 9,3:Plot 6,4:Plot 7,4:Plot 8,4:Plot 9,4:Plot 10,4
Plot 8,5:Plot 8,6:Plot 8,7:Plot 8,8:Plot 8,9:Plot 8,10:Plot 8,11:Plot 8,12:Plot 8,13
Plot 10,11:Plot 9,11:Plot 7,11:Plot 6,11:Plot 9,12:Plot 7,12
n=8 ; U/D White
sprite(n)=CopyImage(sprite(2)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 0,0,0
Plot 8,2:Plot 8,3:Plot 7,3:Plot 9,3:Plot 6,4:Plot 7,4:Plot 8,4:Plot 9,4:Plot 10,4
Plot 8,5:Plot 8,6:Plot 8,7:Plot 8,8:Plot 8,9:Plot 8,10:Plot 8,11:Plot 8,12:Plot 8,13
Plot 10,11:Plot 9,11:Plot 7,11:Plot 6,11:Plot 9,12:Plot 7,12

; ---------------------- ------- ---------------------


n=48
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color l,l,l
Rect 0,0,16,16,1
Color d,d,d
Rect 1,1,16,16,1
Color 180,180,180
Rect 1,1,14,14,1


n=49
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,0,255
Rect 0,0,16,16,1
Color 255,255,255
Rect 4,4,8,8,1

n=50
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,0,255
Rect 0,0,16,16,1
Color 0,0,0
Rect 4,4,8,8,1

; ----- Warning : More Repeating Code Ahead -----
;Bit of a mess, lots of repeated stuff, but it works, so I don't care :P
; ----- ------- - ------------------------- -----


SetBuffer BackBuffer()
.titlescreen
specseed$=""
seedopen=0
Repeat:Until anykey()=0
Repeat
ClsColor 125,125,125
Color 255,255,255
Rect 0,0,800,300,1
Color 0,0,0
Rect 0,300,800,300,1
SetFont font(10)
Text 400,150,"LIGHT",1,1
Color 255,255,255
Text 400,450,"DARK",1,1
Color 125,125,125
Text 400,296,"AND",1,1
	If KeyDown(31) And seedopen=0 Then seedopen=1:specseed$="":FlushKeys
	If seedopen=1
		Color 0,0,0
		Rect 100,260,600,40,1
		Color 255,255,255
		Rect 100,300,600,40,1
		Color 125,125,125
		Text 400,300,specseed$,1,1
			in=GetKey()
			If in>0 Then specseed$=specseed$+Chr$(in)
			If KeyDown(14) Then specseed$=""
			If KeyDown(28) Or KeyDown(158) Then done=1:seedopen=0
	EndIf
SetFont font(2)
Text 730,590,"A game by Jayenkai",1,1

Flip
done=0
If anykey()=1 And KeyDown(31)=0 And seedopen=0 Then done=1
If KeyDown(1) Then End
Until done=1

Repeat:Until anykey()=0

For n=300 To 30 Step -10
ClsColor 125,125,125
Cls
Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1
Color 125,125,125
Text 400,296,"AND",1,1
Color 0,0,0
Line 800,300,(n*3)-100,300
Flip
Next


.mainmenu
Repeat
n=30
ClsColor 125,125,125
Cls
Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1
Color 125,125,125
Text 400,296,"AND",1,1
Color 0,0,0
Line 800,300,(n*3)-100,300

SetFont font(3)
Color 0,0,0
Text 300,150,"Light Controls",1,1

Text 500,130,"W",1,1
Text 500,150,"A + D",1,1
Text 500,170,"S",1,1

Color 255,255,255
Text 400,288,"GUIDE LIGHT AND DARK",1,1
Color 0,0,0
Text 400,312,"TO THE CENTER SQUARES",1,1

Color 255,255,255
Text 300,450,"Dark Controls",1,1

Text 500,430,"I",1,1
Text 500,450,"J + L",1,1
Text 500,470,"K",1,1


Flip

Until anykey()=1

Repeat:Until anykey()=0

For n=30 To 300 Step 10

ClsColor 125,125,125
Cls
Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1
Color 0,0,0
Line 0,300,800-(n*3),300

Flip
Next
Opened=300

dmoves=200:lmoves=200
level=1


.MainGame
way=1
gameover=0


Select level
			;Some levels are incompletable, this makes sure the startup levels aren't..
Case 1
	levseed=2
Case 2
	levseed=3
Case 3
	levseed=4
Case 4
	levseed=1
Case 5		
	levseed=8
Case 6
	levseed=9
Case 7	
	levseed=10
Case 8
	levseed=12
Case 9
levseed=13
Case 10
levseed=14
Case 11
levseed=15
Case 12
levseed=16
Case 13
levseed=19
Default 
levseed=level+6
End Select

If specseed<>""
t=0
For n=1 To Len(specseed$)
t=t+(Asc(Mid$(specseed$,n,1))*n)
Next
levseed=levseed+t
EndIf


SeedRnd levseed
c=Rand(1,2)
tc=0

For y=1 To 33
For x=1 To 49
tc=tc+1
If Rand(1,5)=1 And tc>1 Then c=Rand(1,2):tc=0
map(x,y)=c
Next
Next


cnt=0
.newblack
cnt=cnt+1
DY=33
LY=1
DX=Rand(1,49):If (map(dx,dy))=2 Then Goto newblack
LX=50-DX
If map(lx,ly)=1 And cnt<50 Then Goto newblack
If cnt=>50 And map(lx,ly)=1 Then map(lx,ly)=2



For y=1 To 33
For x=1 To 49
If Rand(1,80)=1 Then map(x,y)=map(x,y)+2
Next
Next

map(24,16)=48
map(24,17)=48
map(25,16)=48
map(25,17)=48




way=1
ClsColor 125,125,125

Repeat
Cls

For x=1 To 49
For y=1 To 33

If map(x,y)>0 Then DrawImage sprite(map(x,y)),((x-1)*16)+8,((y-1)*16)+38

Next
Next

If KeyDown(17) And ((map(lx,ly-1) Mod 2)+1)=1 And ly>1 And m1down=0 Then m1down=10:ly=ly-1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(31) And ((map(lx,ly+1) Mod 2)+1)=1 And ly<33 And m1down=0 Then m1down=10:ly=ly+1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(30) And ((map(lx-1,ly) Mod 2)+1)=1 And lx>1 And m1down=0 Then m1down=10:lx=lx-1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(32) And ((map(lx+1,ly) Mod 2)+1)=1 And lx<49 And m1down=0 Then m1down=10:lx=lx+1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(17)=0 And KeyDown(31)=0 And KeyDown(30)=0 And KeyDown(32)=0 Then m1down=0
If m1down>0 Then m1down=m1down-1

If KeyDown(23) And (map(dx,dy-1)=48 Or ((map(dx,dy-1) Mod 2)+1)=2) And dy>1 And m2down=0 Then m2down=10:dy=dy-1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(37) And (map(dx,dy+1)=48 Or ((map(dx,dy+1) Mod 2)+1)=2) And dy<33 And m2down=0 Then m2down=10:dy=dy+1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(36) And (map(dx-1,dy)=48 Or ((map(dx-1,dy) Mod 2)+1)=2) And dx>1 And m2down=0 Then m2down=10:dx=dx-1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(38) And (map(dx+1,dy)=48 Or ((map(dx+1,dy) Mod 2)+1)=2) And dx<49 And m2down=0 Then m2down=10:dx=dx+1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(23)=0 And KeyDown(36)=0 And KeyDown(37)=0 And KeyDown(38)=0 Then m2down=0
If m2down>0 Then m2down=m2down-1


If map(dx,dy)=3 Then map(dx,dy)=1:dmoves=dmoves+5
If map(lx,ly)=4 Then map(lx,ly)=2:lmoves=lmoves+5


If DX=LX And DY=LY Then gameover=1:way=2
If dmoves=0 Or lmoves=0 Then gameover=2:way=2
If KeyDown(1) Then gameover=2:way=2

If gameover=1 And opened=300 Then gameover=5
If gameover=2 And opened=300 Then gameover=6

DrawImage sprite(49),((dx-1)*16)+8,((dy-1)*16)+38
DrawImage sprite(50),((lx-1)*16)+8,((ly-1)*16)+38

OverLayOpen(way)

SetFont font(3)
Color 125,125,125
Text 80,15,"MOVES : "+lmoves,1,1
If specseed$="" Then Text 80,585,"LEVEL : "+level,1,1
If specseed$<>"" Then Text 80,585,specseed$,1,1

Text 720,585,"MOVES : "+dmoves,1,1
Text 720,15,"LEVEL : "+level,1,1
Flip

Until gameover>4

If gameover=5
level=level+1
dmoves=dmoves+50
lmoves=lmoves+50
Color 125,125,125:SetFont font(10):Text 400,296,"LEVEL COMPLETE",1,1:Flip
Delay 1500
Goto maingame
EndIf

If gameover=6

Color 125,125,125:SetFont font(10):Text 400,296,"GAME OVER",1,1:Flip
Delay 1500
Goto titlescreen
EndIf
End






Function AnyKey()
out=0
For n=1 To 255
If KeyDown(n) Then out=1
Next
Return out
End Function


Function OverlayOpen(way=1)
If Opened>30 And Way=1 Then Opened=Opened-10
If Opened<300 And Way=2 Then Opened=Opened+10

n=opened

Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1

End Function