Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|507\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #004 (06 Jul 2005) Tainted's Light and Dark Challenge For this week's challenge, 'Tainted Instinct' suggested "Light and Dark", which had previously been a compo at ludumdare.com . So we'll nick that, then.. This week, you must make a game that features the theme of Light and Dark. You have 5 days. If you had previously entered the old Light + Dark compo, you may NOT reuse that game, and must make something else.

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",8n) 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,(n3)-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,(n3)-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-(n3),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

Lights Out by jayparker for Workshop #004 Concentration. Turn out the lights by matching pairs. Click to download this entry

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.092

Wednesday Workshop - Socoder