Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|505\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #007 (27 Jul 2005) The Mouse Challenge Tainted Instinct seems to think that a game that uses the mouse, only, would give us some interesting games. I'm slightly worried by that, and am expecting nothing but "Whack-A-Mole" clones. Never mind, we'll do it anyway.

Solo Pong by Firemaker103 for Workshop #007 I think I'm going to add a "No Pongs Allowed" rule to the general rules page.. Click to download this entry

Mouse Collide by Instinct for Workshop #007 Guide the mouse cursor through the maze. Click to download this entry

Thruster (004 - Direction only) by dijster for Workshop #007 Guide the ship to the green squares, without hitting the red squares. Click to download this entry

Connect 4 by flounder22001 for Workshop #007 This is connect 4, for 1 or 2 players. Graphics 1024,768,16,2 SeedRnd MilliSecs() Global mousehitleft,mousehitright Global mousehitleft1,mousehitright1 Global image=CreateImage(1024,768) SetBuffer ImageBuffer(image) Color 255,255,0 Rect 0,200,1024,568,1 Color 0,0,0 For i=1 To 7 For t=1 To 6 Oval i120,t80+200,50,50,1 Next Next Color 255,255,255 For i=0 To 7 Line i120+80,60,i120+80,160 Next Global piece1=CreateImage(60,60) SetBuffer ImageBuffer(piece1) Color 255,0,0 Oval 0,0,60,60,1 Global piece2=CreateImage(60,60) SetBuffer ImageBuffer(piece2) Color 0,0,255 Oval 0,0,60,60,1 Dim board(8,7) playerturn=1 playerwins=0 players=2 gameover=1 font1=LoadFont("Arial",16,1,0,0) font2=LoadFont("Arial",28,1,0,0) SetBuffer BackBuffer() While KeyHit(1)=0 Cls runmouse() If playerturn=1 Then player=1 If playerturn=0 Then player=2 If gameover=0 Text 400,0,"Player "+player+"'s turn" For i=1 To 7 For t=1 To 6 If board(i,t)=1 Then DrawImage piece1,i120-5,t80+190 If board(i,t)=2 Then DrawImage piece2,i120-5,t80+190 ;check for 4 in a row ;**** across If i<5 If board(i,t)=1 And board(i+1,t)=1 And board(i+2,t)=1 And board(i+3,t)=1 Then playerwins=1 If board(i,t)=2 And board(i+1,t)=2 And board(i+2,t)=2 And board(i+3,t)=2 Then playerwins=2 EndIf ;* up and down ;* ;* ;* If t<4 If board(i,t)=1 And board(i,t+1)=1 And board(i,t+2)=1 And board(i,t+3)=1 Then playerwins=1 If board(i,t)=2 And board(i,t+1)=2 And board(i,t+2)=2 And board(i,t+3)=2 Then playerwins=2 EndIf ;* diagnal right ; * ; * ; * If i<5 And t<4 If board(i,t)=1 And board(i+1,t+1)=1 And board(i+2,t+2)=1 And board(i+3,t+3)=1 Then playerwins=1 If board(i,t)=2 And board(i+1,t+1)=2 And board(i+2,t+2)=2 And board(i+3,t+3)=2 Then playerwins=2 EndIf ; * diagnol left ; * ; * ;* If i<5 And t>3 If board(i,t)=1 And board(i+1,t-1)=1 And board(i+2,t-2)=1 And board(i+3,t-3)=1 Then playerwins=1 If board(i,t)=2 And board(i+1,t-1)=2 And board(i+2,t-2)=2 And board(i+3,t-3)=2 Then playerwins=2 EndIf Next If players=2 Or player=1 If MouseY()<200 And board(i,1)=0 And playerwins=0 If MouseX()>(i-1)120+80 And MouseX()<(i-1)120+200 If player=1 Then DrawImage piece1,(i-1)120+110,80 If player=2 Then DrawImage piece2,(i-1)120+110,80 If mousehitleft=1 mousehitleft=0 playerturn=1-playerturn For k=6 To 1 Step -1 If board(i,k)=0 board(i,k)=player Exit EndIf Next EndIf EndIf EndIf EndIf Next ;its the computer's turn If players=1 And player=2 And playerwins=0 ;if player 1 is about to make a connection stop him ;if a blue connection is possible make it If picking=0 pickslot=0 picktype=0 For i=1 To 7 For t=1 To 6 ;**** across If i<5 For k=1 To 2 If board(i,t)=0 And board(i+1,t)=k And board(i+2,t)=k And board(i+3,t)=k And (board(i,t+1)<>0 Or t=6) pickslot=i picktype=k EndIf If board(i,t)=k And board(i+1,t)=0 And board(i+2,t)=k And board(i+3,t)=k And (board(i+1,t+1)<>0 Or t=6) pickslot=i+1 picktype=k EndIf If board(i,t)=k And board(i+1,t)=k And board(i+2,t)=0 And board(i+3,t)=k And (board(i+2,t+1)<>0 Or t=6) pickslot=i+2 picktype=k EndIf If board(i,t)=k And board(i+1,t)=k And board(i+2,t)=k And board(i+3,t)=0 And (board(i+3,t+1)<>0 Or t=6) pickslot=i+3 picktype=k EndIf Next EndIf ;* up and down ;* ;* ;* If t<4 And picktype<>2 For k=1 To 2 If board(i,t)=0 And board(i,t+1)=k And board(i,t+2)=k And board(i,t+3)=k pickslot=i picktype=k EndIf Next EndIf ;* diagnal right ; * ; * ; * If i<5 And t<4 And picktype<>2 For k=1 To 2 If board(i,t)=0 And board(i+1,t+1)=k And board(i+2,t+2)=k And board(i+3,t+3)=k And (board(i,t+1)<>0) pickslot=i picktype=k EndIf If board(i,t)=k And board(i+1,t+1)=0 And board(i+2,t+2)=k And board(i+3,t+3)=k And (board(i+1,t+2)<>0) pickslot=i+1 picktype=k EndIf If board(i,t)=k And board(i+1,t+1)=k And board(i+2,t+2)=0 And board(i+3,t+3)=k And (board(i+2,t+3)<>0) pickslot=i+2 picktype=k EndIf If board(i,t)=k And board(i+1,t+1)=k And board(i+2,t+2)=k And board(i+3,t+3)=0 And (board(i+3,t+4)<>0 Or t+3=6) pickslot=i+3 picktype=k EndIf Next EndIf ; * diagnol left ; * ; * ;* If i<5 And t>3 And picktype<>2 For k=1 To 2 If board(i,t)=0 And board(i+1,t-1)=k And board(i+2,t-2)=k And board(i+3,t-3)=k And (board(i,t+1)<>0 Or t=6) pickslot=i picktype=k EndIf If board(i,t)=k And board(i+1,t-1)=0 And board(i+2,t-2)=k And board(i+3,t-3)=k And (board(i+1,t)<>0) pickslot=i+1 picktype=k EndIf If board(i,t)=k And board(i+1,t-1)=k And board(i+2,t-2)=0 And board(i+3,t-3)=k And (board(i+2,t+1)<>0) pickslot=i+2 picktype=k EndIf If board(i,t)=k And board(i+1,t-1)=k And board(i+2,t-2)=k And board(i+3,t-3)=0 And (board(i+3,t+2)<>0) pickslot=i+3 picktype=k EndIf Next EndIf If picktype=2 Then Exit Next Next If pickslot=0 pickslot=Rand(1,7) If board(pickslot,1)<>0 For k=1 To 7 If board(k,1)=0 Then pickslot=k Next EndIf EndIf picking=1 EndIf If picking>0 picking=picking+1 DrawImage piece2,(pickslot-1)*120+110,80 EndIf If picking=60 picking=0 For k=6 To 1 Step -1 If board(pickslot,k)=0 board(pickslot,k)=2 Exit EndIf Next playerturn=1 EndIf EndIf DrawImage image,0,0 If board(1,1)<>0 And board(2,1)<>0 And board(3,1)<>0 And board(4,1)<>0 And board(5,1)<>0 And board(6,1)<>0 And board(7,1)<>0 And playerwins=0 Then playerwins=3 If playerwins<>0 a$="" If playerwins=1 Then a="Red" If playerwins=2 Then a="Blue" If playerwins<>3 Then Text 400,180,a+" player wins!" If playerwins=3 Then Text 400,180,"Draw" If mousehitleft=1 gameover=1 mousehitleft=0 EndIf EndIf EndIf If gameover=1 SetFont font2 aa=rectoverlap(0,0,1024,383,MouseX(),MouseY(),1,1) bb=rectoverlap(0,383,1024,382,MouseX(),MouseY(),1,1) Color 255,0,0 Rect 1,1,1022,382,1-aa Color 255,0,0 Rect 1,384,1022,382,1-bb Color 0,0,255 Text 400,191,"1 player" Text 400,573,"2 player" If mousehitleft=1 playerwins=0 playerturn=1 For i=1 To 7 For t=1 To 6 board(i,t)=0 Next Next If aa=1 gameover=0 players=1 EndIf If bb=1 gameover=0 players=2 EndIf EndIf SetFont font1 EndIf Flip Wend Function rectoverlap(x,y,w,h,xx,yy,ww,hh) If x+w>xx And y+h>yy And xx+ww>x And yy+hh>y Then a=1 Return a End Function Function runmouse() mousehitleft=0 If MouseDown(1)=1 And mousehitleft1=0 mousehitleft1=1 mousehitleft=1 EndIf If MouseDown(1)=0 Then mousehitleft1=0 mousehitright=0 If MouseDown(2)=1 And mousehitright1=0 mousehitright1=1 mousehitright=1 EndIf If MouseDown(2)=0 Then mousehitright1=0 End Function

Radar by blanko1324 for Workshop #007 Hit the circles with your mouse, given the audio clues.. Turn up your speakers, or you won't hear a thing! Click to download this entry

Animated Chickhunt by magicman for Workshop #007 Shoot the chicks! Click to download this entry

Thruster (007 - Direction + Mouse Buttons) by dijster for Workshop #007 Guide the ship to the green squares, without hitting the red squares. Plays in a slightly different way to 004! Click to download this entry

TileSlam by jayparker for Workshop #007 Shoot the tiles! 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.094

Wednesday Workshop - Socoder