Blijbol.nl

Blijbol, happy business

Links About Blijbol Guestbook

Home News Games Software Game Maker

Downloaded 340 times

Connect4

The well-known two-player game

Downloads

Pleas read the licence on the left.

v1.0
(8xp; < 0.01 MB)

Links to here:

Description

Easily play Connect4 against a human opponent on your graphing calculator!

Features

A random player gets the first turn.
The player selects a column with the arrow keys and presses Down to drop his disc.
The game can be paused, restarted and aborted by pressing Up.
If a player connects four, these discs blink and the players are asked whether they want to play again.

Codes

Licence: You are only allowed to change the code below for private usage. Any adapted version of the program below cannot be distributed. The names 'Jeroen van der Gun' and 'Blijbol', and the website 'www.blijbol.nl' must remain, and have to be easily viewable from within the program. Copyright © 2007 Jeroen van der Gun.

Note spaces before line ends!

`prgmCONNECT4`

::
:Full
:{6,7→dim([J]
:getKey
:ClrHome
:Disp "","","Blijbol","Happy business","","www.blijbol.nl
:For(G,1,180
:End
:Disp "","Connect4 v1.0","
:For(G,1,70
:End
:Output(7,1,"(C) 2007 Jeroen
:Output(8,1,"van der Gun
:Pause 
:Lbl G
:ClrHome
:For(G,3,8
:Output(G,1,"!
:Output(G,16,"¡
:End
:Fill(0,[J]
:0→F
:4→X
:If rand<.5
:Then
:"{}→Str0
:Else
:"<>→Str0
:End
:Output(1,8,Str0
:Repeat 0
:getKey
:While Ans≠34
:If Ans=22 or Ans=25 or Ans=45 or Ans=105
:Menu("Game paused","Continue",C,"Restart",R,"Quit",A
:If Ans=24
:Then
:If X>1
:Then
:Output(1,2X,"  
:X-1→X
:Output(1,2X,Str0
:End
:Else
:If Ans=26
:Then
:If X<7
:Then
:Output(1,2X,"  
:X+1→X
:Output(1,2X,Str0
:End
:End
:End
:Lbl C
:getKey
:End
:If not([J](1,X
:Then
:Output(1,2X,"  
:Output(2,2X,Str0
:For(G,1,70
:End
:Output(2,2X,"  
:Output(3,2X,Str0
:1→Y
:If [J](2,X
:0
:While Ans
:For(G,1,70
:End
:Output(Y+2,2X,"  
:Y+1→Y
:Output(Y+2,2X,Str0
:If Y=6
:Then
:0
:Else
:If [J](Y+1,X
:0
:End
:End
:If Str0="<>
:Then
:1→[J](Y,X
:1→C
:Else
:2→[J](Y,X
:2→C
:End
:For(N,max(1,Y-3),min(3,Y
:For(M,max(1,X-3),min(4,X
:If C=[J](N,M) and C=[J](N+1,M+1) and C=[J](N+2,M+2) and C=[J](N+3,M+3
:Then
:Repeat 0
:Output(N+2,2M,"  
:Output(N+3,2M+2,"  
:Output(N+4,2M+4,"  
:Output(N+5,2M+6,"  
:For(G,1,40
:If getKey>0
:Goto O
:End
:Output(N+2,2M,Str0
:Output(N+3,2M+2,Str0
:Output(N+4,2M+4,Str0
:Output(N+5,2M+6,Str0
:For(G,1,40
:If getKey>0
:Goto O
:End
:End
:End
:If C=[J](N,M+3) and C=[J](N+1,M+2) and C=[J](N+2,M+1) and C=[J](N+3,M
:Then
:Repeat 0
:Output(N+2,2M+6,"  
:Output(N+3,2M+4,"  
:Output(N+4,2M+2,"  
:Output(N+5,2M,"  
:For(G,1,40
:If getKey>0
:Goto O
:End
:Output(N+2,2M+6,Str0
:Output(N+3,2M+4,Str0
:Output(N+4,2M+2,Str0
:Output(N+5,2M,Str0
:For(G,1,40
:If getKey>0
:Goto O
:End
:End
:End
:End
:End
:For(N,max(1,Y-3),min(3,Y
:If C=[J](N,X) and C=[J](N+1,X) and C=[J](N+2,X) and C=[J](N+3,X
:Then
:Repeat 0
:Output(N+2,2X,"  
:Output(N+3,2X,"  
:Output(N+4,2X,"  
:Output(N+5,2X,"  
:For(G,1,40
:If getKey>0
:Goto O
:End
:Output(N+2,2X,Str0
:Output(N+3,2X,Str0
:Output(N+4,2X,Str0
:Output(N+5,2X,Str0
:For(G,1,40
:If getKey>0
:Goto O
:End
:End
:End
:End
:For(M,max(1,X-3),min(4,X
:If C=[J](Y,M) and C=[J](Y,M+1) and C=[J](Y,M+2) and C=[J](Y,M+3
:Then
:Repeat 0
:Output(Y+2,2M,"  
:Output(Y+2,2M+2,"  
:Output(Y+2,2M+4,"  
:Output(Y+2,2M+6,"  
:For(G,1,40
:If getKey>0
:Goto O
:End
:Output(Y+2,2M,Str0
:Output(Y+2,2M+2,Str0
:Output(Y+2,2M+4,Str0
:Output(Y+2,2M+6,Str0
:For(G,1,40
:If getKey>0
:Goto O
:End
:End
:End
:End
:If F=41
:Then
:Repeat 0
:Output(1,4,"Full  Grid
:For(G,1,40
:If getKey>0
:Goto O
:End
:Output(1,4,"          
:For(G,1,40
:If getKey>0
:Goto O
:End
:End
:End
:F+1→F
:If Str0="<>
:Then
:"{}→Str0
:Else
:"<>→Str0
:End
:Output(1,2X,Str0
:getKey
:End
:End
:Lbl R
:Menu("Restart game?","No",C,"Yes",G
:Lbl A
:Menu("Quit game?","No",C,"Yes",Q
:Lbl O
:Menu("Game over","Play again",G,"Exit to OS",Q
:Lbl Q
:ClrHome

Version 1.0 (stable)

Release date: 31 July 2007
Language: English
System requirements: Texas Instruments graphing calculator running TI-83 Plus or TI-84 Plus operating system (Silver Edition is also fine), 1840 bytes free RAM memory or archive space for storage (during use more RAM memory is needed)

Project status

A stable version of this product has been released. The project was announced at 20 July 2007.

Credits

This game has been created by Jeroen van der Gun in TI-Basic.

More for your calculator

Games: Snake, Decoder, Drop, Virus, 1000
Software: Color Contrast Checker, Unix Time Converter, Base Converter, Wrongs, Quadratic formula

Comments

No comments have been posted yet. Use the form to post one.