Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|722|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
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=m*9:If n=7 Then e=m*15
getcol(e,n)
Rect 0,0,32,32,1
e=m*15:If n=7 Then e=m*9
getcol(e,n)
Rect 0,0,30,30,1
e=m*12:If n=7 Then e=m*11
getcol(e,n)
Rect 2,2,28,28,1

e=m*15:If n=7 Then e=m*9
getcol(e,n)
Rect 10,10,12,12,1
e=m*9:If n=7 Then e=m*15
getcol(e,n)
Rect 9,9,12,12,1
e=m*12:If n=7 Then e=m*9
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()+(120*1000)
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()+(gametime*1000)

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