Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|702\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #016 (28 Sep 2005) The Colorful Challenge This week's challenge is to create a game whereby the main purpose of gameplay will revolve around the use of color. The colors can be used in any number of ways, but must be integral to the gameplay in one form or another. Try to be as creative as possible.

LightHoles by Jayenkai for Workshop #016 Guide the light into the holes. Mouse Click to download this entry

Colour Sudoku by dijster for Workshop #016 You have to fill the puzzle so that every row, column and 3 x 3 box contains the a different number. Mouse (Number keys can be used to switch colors) Click to download this entry

Connect4 by Jayenkai for Workshop #016 Got bored, made another game. Cursor Keys Graphics 800,600,32,2 Graphics 800,600,32,3 SetBuffer BackBuffer() SeedRnd MilliSecs() GameTime=120 Type age Field txt$ Field col End Type Dim blk(7,16) For n=1 To 7 For m=0 To 16 blk(n,m)=CreateImage(32,32) SetBuffer ImageBuffer(blk(n,m)) e=m9:If n=7 Then e=m15 getcol(e,n) Rect 0,0,32,32,1 e=m15:If n=7 Then e=m9 getcol(e,n) Rect 0,0,30,30,1 e=m12:If n=7 Then e=m11 getcol(e,n) Rect 2,2,28,28,1 e=m15:If n=7 Then e=m9 getcol(e,n) Rect 10,10,12,12,1 e=m9:If n=7 Then e=m15 getcol(e,n) Rect 9,9,12,12,1 e=m12:If n=7 Then e=m9 getcol(e,n) Rect 10,10,11,11,1 Next Next SetBuffer BackBuffer() Dim map(20,20,2) keymode=1 hicount=0 count=0 If FileType("Hiscore_Save_Connect4.jnk")=1 quicky=ReadFile("Hiscore_Save_Connect4.jnk") hicount=ReadInt(quicky) count=ReadInt(quicky) CloseFile quicky EndIf .again endofgame=0 For mess.age=Each age Delete mess.age Next mess.age=New age mess\txt="[JNK]" mess\col=7 mess.age=New age mess\txt="Get 4 in a Row/Column" mess\col=7 mess.age=New age mess\txt="to score points." mess\col=7 mess.age=New age mess\txt="Highscore : "+hicount mess\col=7 lastcount=count mess.age=New age mess\txt="Lastscore : "+lastcount mess\col=7 mess.age=New age mess\txt="-----" mess\col=7 plrx=9 plry=9 For x=1 To 18 For y=1 To 18 map(x,y,1)=Rand(1,6) map(x,y,2)=16 Next Next map(plrx,plry,1)=0 count=0 gate=25 starttime=MilliSecs()+(1201000) timegate=60000 started=0 didcount=0 Repeat Cls For x=1 To 18 For y=1 To 18 If map(x,y,1)>0 And map(x,y,2)>0 And map(x,y,1)<7 And map(x,y,2)<17 Then DrawImage blk(map(x,y,1),map(x,y,2)),(x-1)33+3,(y-1)33+3 If map(x,y,2)<16 Then map(x,y,2)=map(x,y,2)-1 If map(x,y,2)=0 Then map(x,y,2)=0:map(x,y,1)=0 nothere=1 If x=plrx And y=plry Then nothere=0 If map(x,y,1)=0 And nothere=1 And y>1 And y-1<>plry Then map(x,y,1)=map(x,y-1,1):map(x,y,2)=map(x,y-1,2):map(x,y-1,1)=0:map(x,y-1,2)=0 If map(x,y,1)=0 And nothere=1 And y=1 And y-1<>plry Then map(x,y,1)=Rand(1,6):map(x,y,2)=16 If map(x,y,1)=0 And nothere=1 And y>2 And y-1=plry Then map(x,y,1)=map(x,y-2,1):map(x,y,2)=map(x,y-2,2):map(x,y-2,1)=0:map(x,y-2,2)=0 If map(x,y,1)=0 And nothere=1 And y=2 And y-1=plry Then map(x,y,1)=Rand(1,6):map(x,y,2)=16 Next Next For y=1 To 18 For x=1 To 15 If map(x,y,1)=map(x+1,y,1) And map(x,y,1)=map(x+2,y,1) And map(x,y,1)=map(x+3,y,1) And map(x,y,2)=16 And map(x+1,y,2)=16 And map(x+2,y,2)=16 And map(x+3,y,2)=16 map(x,y,2)=15:map(x+1,y,2)=15:map(x+2,y,2)=15:map(x+3,y,2)=15 If started=1 mess.age=New age mess\txt="Got 4 "+coln$(map(x,y,1)) mess\col=map(x,y,1) count=count+4 EndIf EndIf Next Next For x=1 To 18 For y=1 To 15 If map(x,y,1)=map(x,y+1,1) And map(x,y,1)=map(x,y+2,1) And map(x,y,1)=map(x,y+3,1) And map(x,y,2)=16 And map(x,y+1,2)=16 And map(x,y+2,2)=16 And map(x,y+3,2)=16 map(x,y,2)=15:map(x,y+1,2)=15:map(x,y+2,2)=15:map(x,y+3,2)=15 If started=1 mess.age=New age mess\txt="Got 4 "+coln$(map(x,y,1)) mess\col=map(x,y,1) count=count+4 EndIf EndIf Next Next If count>gate mess.age=New age mess\txt="Passed "+gate+" blocks" mess\col=7 gate=gate+25 EndIf timeleft=starttime-MilliSecs() If timeleft<60000 And timegate=60000 mess.age=New age mess\txt="1 Minute Remaining" mess\col=7 timegate=30000 EndIf If timeleft<30000 And timegate=30000 mess.age=New age mess\txt="30 Seconds Remaining" mess\col=7 timegate=10000 EndIf If timeleft<10000 And timegate=10000 mess.age=New age mess\txt="10 Seconds Remaining" mess\col=7 timegate=5000 EndIf If timeleft<5000 And timegate=5000 mess.age=New age mess\txt="5" mess\col=7 timegate=4000 EndIf If timeleft<4000 And timegate=4000 mess.age=New age mess\txt="4" mess\col=7 timegate=3000 EndIf If timeleft<3000 And timegate=3000 mess.age=New age mess\txt="3" mess\col=7 timegate=2000 EndIf If timeleft<2000 And timegate=2000 mess.age=New age mess\txt="2" mess\col=7 timegate=1000 EndIf If timeleft<1000 And timegate=1000 mess.age=New age mess\txt="1" mess\col=7 timegate=0000 EndIf If timeleft<0 And timegate=0 mess.age=New age mess\txt="Game Over" mess\col=7 mess.age=New age mess\txt="You got "+count+" blocks." mess\col=7 mess.age=New age mess\txt="------" mess\col=7 mess.age=New age mess\txt="Hit space to play again" mess\col=7 timegate=-5000 EndIf DrawImage blk(7,16),(plrx-1)33+3,(plry-1)33+3 ws=started If started=0 Then starttime=MilliSecs()+(gametime1000) If keymode=1 If KeyDown(200) And mudown=0 And plry>1 And map(plrx,plry-1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry-1,1):plry=plry-1:map(plrx,plry,1)=0 If KeyDown(208) And mudown=0 And plry<18 And map(plrx,plry+1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry+1,1):plry=plry+1:map(plrx,plry,1)=0 If KeyDown(203) And mudown=0 And plrx>1 And map(plrx-1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx-1,plry,1):plrx=plrx-1:map(plrx,plry,1)=0 If KeyDown(205) And mudown=0 And plrx<18 And map(plrx+1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx+1,plry,1):plrx=plrx+1:map(plrx,plry,1)=0 EndIf If keymode=0 If KeyDown(208) And mudown=0 And plry>1 And map(plrx,plry-1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry-1,1):plry=plry-1:map(plrx,plry,1)=0 If KeyDown(200) And mudown=0 And plry<18 And map(plrx,plry+1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry+1,1):plry=plry+1:map(plrx,plry,1)=0 If KeyDown(205) And mudown=0 And plrx>1 And map(plrx-1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx-1,plry,1):plrx=plrx-1:map(plrx,plry,1)=0 If KeyDown(203) And mudown=0 And plrx<18 And map(plrx+1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx+1,plry,1):plrx=plrx+1:map(plrx,plry,1)=0 EndIf If KeyDown(57) And mudown=0 Then mudown=16:keymode=1-keymode:mess.age=New age:If keymode=1:mess\txt="Switched to Up=Up":EndIf:If keymode=0:mess\txt="Switched to Up=Down":EndIf:mess\col=7 If KeyDown(200)=0 And KeyDown(208)=0 And KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(57)=0 Then mudown=0 If mudown>0 Then mudown=mudown-1 If KeyDown(1) mess.age=New age mess\txt="[QUIT]" mess\col=1 mess.age=New age mess\txt="You got "+count+" blocks." mess\col=7 endofgame=99 EndIf If count>hicount And didcount=0 mess.age=New age mess\txt="**********************" mess\col=7 For n=1 To 6 mess.age=New age mess\txt="You got the new Hi-Score" mess\col=n Next mess.age=New age mess\txt="*********************" mess\col=7 didcount=1 EndIf If ws=0 And started=1 mess.age=New age mess\txt="Start" mess\col=7 EndIf mess.age=Last age y=584 Repeat getcol(255,mess\col) If mess\txt<>"[JNK]" Then Text 604,y,mess\txt y=y-16 If mess\txt<>"[JNK]" Then mess.age=Before mess.age fin=0 If y<0 Repeat it$=mess\txt If it$<>"[JNK]" Then Delete mess.age: mess.age=Before mess.age Until it$="[JNK]" EndIf If mess\txt="[JNK]" Then fin=1 Until y<0 If timeleft<0 Then endofgame=1 Flip Until endofgame<>0 If count>hicount Then hicount=count If endofgame<>99 quicky=WriteFile("Hiscore_Save_Connect4.jnk") WriteInt(quicky,hicount) WriteInt(quicky,count) CloseFile quicky EndIf Cls For x=1 To 18 For y=1 To 18 If map(x,y,1)>0 And map(x,y,2)>0 And map(x,y,1)<7 And map(x,y,2)<17 Then DrawImage blk(map(x,y,1),7),(x-1)33+3,(y-1)*33+3 Next Next mess.age=Last age y=584 Repeat getcol(255,mess\col) If mess\txt<>"[JNK]" Then Text 604,y,mess\txt y=y-16 If mess\txt<>"[JNK]" Then mess.age=Before mess.age fin=0 If y<0 Repeat it$=mess\txt If it$<>"[JNK]" Then Delete mess.age: mess.age=Before mess.age Until it$="[JNK]" EndIf If mess\txt="[JNK]" Then fin=1 Until y<0 Flip If endofgame=99 Then Delay 1500:End Repeat Delay 5 If KeyDown(1) Then End Until KeyDown(57) Repeat Delay 5 Until KeyDown(57)=0 Goto Again Function coln$(n) Select n Case 1:Return "Red" Case 2:Return "Yellow" Case 3:Return "Green" Case 4:Return "Light Blue" Case 5:Return "Blue" Case 6:Return "Pink" Case 7:Return "White" End Select End Function Function GetCol(e,n) Select n Case 1 Color e,0,0 Case 2 Color e,e,0 Case 3 Color 0,e,0 Case 4 Color 0,e,e Case 5 Color e/4,e/4,e Case 6 Color e,0,e Case 7 Color e,e,e End Select End Function Function mousein(x,y,wid,hig) Return (MouseX()=>x And MouseX()<=x+wid And MouseY()=>Y And MouseY()<=y+hig) End Function

Disco Mania by realm_master for Workshop #016 Its Disco, its colorful, and its not-the-best... Cursor Keys and Spacebar Click to download this entry

Stack Attack by caffeinekid for Workshop #016 Its very strange and may make you feel like your brain is leaking out of your ears. Mouse 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.091

Wednesday Workshop - Socoder