TheGameCreators - CodeBase - Noughts and Crosses (Tic Tac Toe to our American cousins)

Category: Complete Applications

Version: 1.0

Information

Uploaded: 11th Nov 2003 09:40

Modified: 1st Jan 1970 01:00

Author: Philip

Summary

This is a complete Noughts and Crosses programme. No media required. Just a simple example of how to write such a programme.

Full Description

Feel free to use this code as you want. If you do use it, a short credit to me would be smashing!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: noughts

Rem Created: 17/06/2003 22:25:22

Rem ***** Main Source File *****

Rem  This is a very simple Noughts and Crosses game

hide mouse

begin:

cls

set text size = 12

Rem  Create the board array for the first time

dim board(3,3)

for y = 1 to 3

for x = 1 to 3

board(y,x) = 0

next x

next y

gosub intro:

gosub ask_move

gosub checkgame

gosub computer_move

gosub checkgame

loop

intro:

cls

center text 320, 200, "Welcome to Noughts and Crosses"

center text 320, 220, "By Philip Young"

center text 320, 240, "Please press any key"

wait 1000

wait key

cls

return

ask_move:

gosub display_board

center text 320, 240, "Where would you like to move?"

center text 320, 260, "Press the keypad keys from 1 to 9 for your move"

center text 320, 280, "Thus:"

center text 320, 310, "7       8         9"

center text 320, 330, "4       5         6"

center text 320, 350, "1       2         3"

center text 320, 380, "Or hit ESCAPE to exit"

Rem  Main key input code begins

if escapekey() = 1 then gosub end

if keystate(79) = 1 AND board(3,1) = 0

board(3,1) = 1

return

endif

if keystate(80) = 1 AND board(3,2) = 0

board(3,2) = 1

return

endif

if keystate(81) = 1 AND board(3,3) = 0

board(3,3) = 1

return

endif

if keystate(75) = 1 AND board(2,1) = 0

board(2,1) = 1

return

endif

if keystate(76) = 1 AND board(2,2) = 0

board(2,2) = 1

return

endif

if keystate(77) = 1 AND board(2,3) = 0

board(2,3) = 1

return

endif

if keystate(71) = 1 AND board(1,1) = 0

board(1,1) = 1

return

endif

if keystate(72) = 1 AND board(1,2) = 0

board(1,2) = 1

return

endif

if keystate(73) = 1 AND board(1,3) = 0

board(1,3) = 1

return

endif

loop

return

checkgame:

Rem  Check horizontal lines for win or lose first

Rem  Reset the horizontal variable

x = 1

for y = 1 to 4

if (board(y,x) = 1) AND (board(y,x + 1) = 1) AND (board(y,x + 2) = 1) then gosub win

if (board(y,x) = 2) AND (board(y,x + 1) = 2) AND (board(y,x + 2) = 2) then gosub lose

next y

Rem  Check vertical lines for win or lose next

Rem  Reset vertical variable

y = 1

for x = 1 to 4

if (board(y,x) = 1) AND (board(y + 1,x) = 1) AND (board(y + 2,x) = 1) then gosub win

if (board(y,x) = 2) AND (board(y + 1,x) = 2) AND (board(y + 2,x) = 2) then gosub lose

next x

Rem  Check diagonal lines for win or lose next

Rem  Forward diagonal first and reset the horizontal and vertical variable

x = 1

y = 1

if (board(y,x) = 1) AND (board(y + 1,x + 1) = 1) AND (board(y + 2,x + 2) = 1) then gosub win

if (board(y,x) = 2) AND (board(y + 1,x + 1) = 2) AND (board(y + 2,x + 2) = 2) then gosub lose

Rem  Backward diagonal next

if (board(y,x + 2) = 1) AND (board(y + 1,x + 1) = 1) AND (board(y + 2,x) = 1) then gosub win

if (board(y,x + 2) = 2) AND (board(y + 1,x + 1) = 2) AND (board(y + 2,x) = 2) then gosub lose

gosub check_draw

return

check_draw:

Rem  Code to check if a draw has occurred (as it should in every game of Xs and Os)

Rem  Reset counting variable

a = 0

for y = 1 to 3

for x = 1 to 3

if (board(y,x) > 0)

a = a + 1

endif

next x

next y

if a >= 9 then gosub draw

return

computer_move:

Rem  Code to control the computer player

Rem  Reset move variable so computer only makes one move per turn

move = 1

gosub check_win

if move = 1 then gosub block_win

if move = 1 then gosub make_move

return

check_win:

Rem  Code to let the computer play a winning move, if available to it

Rem  Check horizontal lines first

Rem  Reset the horizontal variable

x = 1

for y = 1 to 4

if (board(y,x) = 2) AND (board(y,x + 1) = 2) AND (board(y,x + 2) = 0) AND (move = 1)

board(y,x + 2) = 2

move = 0

endif

if (board(y,x) = 2) AND (board(y,x + 1) = 0) AND (board(y,x + 2) = 2) AND (move = 1)

board(y,x + 1) = 2

move = 0

endif

if (board(y,x) = 0) AND (board(y,x + 1) = 2) AND (board(y,x + 2) = 2) AND (move = 1)

board(y,x) = 2

move = 0

endif

next y

Rem  Check vertical lines for win or lose next

Rem  Reset vertical variable

y = 1

for x = 1 to 4

if (board(y,x) = 2) AND (board(y + 1,x) = 2) AND (board(y + 2,x) = 0) AND (move = 1)

board(y + 2,x) = 2

move = 0

endif

if (board(y,x) = 2) AND (board(y + 1,x) = 0) AND (board(y + 2,x) = 2) AND (move = 1)

board(y + 1,x) = 2

move = 0

endif

if (board(y,x) = 0) AND (board(y + 1,x) = 2) AND (board(y + 2,x) = 2) AND (move = 1)

board(y,x) = 2

move = 0

endif

next x

Rem  Check diagonal lines for win or lose next

Rem  Forward diagonal first and reset the horizontal and vertical variable

x = 1

y = 1

if (board(y,x) = 2) AND (board(y + 1,x + 1) = 2) AND (board(y + 2,x + 2) = 0) AND (move = 1)

board(y + 2,x + 2) = 0

move = 0

endif

if (board(y,x) = 2) AND (board(y + 1,x + 1) = 0) AND (board(y + 2,x + 2) = 2) AND (move = 1)

board(y + 1,x + 1) = 2

move = 0

endif

if (board(y,x) = 0) AND (board(y + 1,x + 1) = 2) AND (board(y + 2,x + 2) = 2) AND (move = 1)

board(y,x) = 2

move = 0

endif

Rem  Backward diagonal next

if (board(y,x + 2) = 2) AND (board(y + 1,x + 1) = 2) AND (board(y + 2,x) = 0) AND (move = 1)

board(y + 2,x) = 2

move = 0

endif

if (board(y,x + 2) = 2) AND (board(y + 1,x + 1) = 0) AND (board(y + 2,x) = 2) AND (move = 1)

board(y + 1,x + 1) = 2

move = 0

endif

if (board(y,x + 2) = 0) AND (board(y + 1,x + 1) = 2) AND (board(y + 2,x) = 2) AND (move = 1)

board(y,x + 2) = 2

move = 0

endif

return

block_win:

Rem  Code to let the computer block the human player from winning

Rem  Check horizontal lines first

Rem  Reset the horizontal variable

x = 1

for y = 1 to 4

if (board(y,x) = 1) AND (board(y,x + 1) = 1) AND (board(y,x + 2) = 0) AND (move = 1)

board(y,x + 2) = 2

move = 0

endif

if (board(y,x) = 1) AND (board(y,x + 1) = 0) AND (board(y,x + 2) = 1) AND (move = 1)

board(y,x + 1) = 2

move = 0

endif

if (board(y,x) = 0) AND (board(y,x + 1) = 1) AND (board(y,x + 2) = 1) AND (move = 1)

board(y,x) = 2

move = 0

endif

next y

Rem  Check vertical lines next

Rem  Reset vertical variable

y = 1

for x = 1 to 4

if (board(y,x) = 1) AND (board(y + 1,x) = 1) AND (board(y + 2,x) = 0) AND (move = 1)

board(y + 2,x) = 2

move = 0

endif

if (board(y,x) = 1) AND (board(y + 1,x) = 0) AND (board(y + 2,x) = 1) AND (move = 1)

board(y + 1,x) = 2

move = 0

endif

if (board(y,x) = 0) AND (board(y + 1,x) = 1) AND (board(y + 2,x) = 1) AND (move = 1)

board(y,x) = 2

move = 0

endif

next x

Rem  Check diagonal lines for win or lose next

Rem  Forward diagonal first and reset the horizontal and vertical variable

x = 1

y = 1

if (board(y,x) = 1) AND (board(y + 1,x + 1) = 1) AND (board(y + 2,x + 2) = 0) AND (move = 1)

board(y + 2,x + 2) = 0

move = 0

endif

if (board(y,x) = 1) AND (board(y + 1,x + 1) = 0) AND (board(y + 2,x + 2) = 1) AND (move = 1)

board(y + 1,x + 1) = 2

move = 0

endif

if (board(y,x) = 0) AND (board(y + 1,x + 1) = 1) AND (board(y + 2,x + 2) = 1) AND (move = 1)

board(y,x) = 2

move = 0

endif

Rem  Backward diagonal next

if (board(y,x + 2) = 1) AND (board(y + 1,x + 1) = 1) AND (board(y + 2,x) = 0) AND (move = 1)

board(y + 2,x) = 2

move = 0

endif

if (board(y,x + 2) = 1) AND (board(y + 1,x + 1) = 0) AND (board(y + 2,x) = 1) AND (move = 1)

board(y + 1,x + 1) = 2

move = 0

endif

if (board(y,x + 2) = 0) AND (board(y + 1,x + 1) = 1) AND (board(y + 2,x) = 1) AND (move = 1)

board(y,x + 2) = 2

move = 0

endif

return

make_move:

Rem  Code to make the computer play a free move

Rem First take the middle square if it is not already occupied

x = 1

y = 1

if (board(y + 1,x + 1) = 0) AND (move = 1)

board(y + 1,x + 1) = 2

move = 0

endif

Remstart Now stop the computer from falling into this trap

X   X

O   X

Remend

x = 1

y = 1

if (board(y + 1,x + 1) = 2) AND (((board(y,x) = 1) AND (board(y + 2,x + 2) = 1)) OR ((board(y,x + 2) = 1) AND (board(y + 2,x) = 1))) AND (board(y,x + 1) = 0) AND (board(y + 1,x) = 0) AND (board(y + 1,x + 2) = 0) AND (board(y + 2,x + 1) = 0) AND (move = 1)

board(y,x + 1) = 2

move = 0

endif

Rem  Make a free move

a = 0

for y = 1 to 3

for x = 1 to 3

if (board(y,x) = 0) AND (move = 1)

board(y,x) = 2

move = 0

endif

next x

next y

return

display_board:

cls

Rem  Show Board status

Rem  Reset cursor variables

cursorx = 300

cursory = 100

for y = 1 to 3

for x = 1 to 3

if board(y,x) = 0

center text cursorx, cursory, "-"

endif

if board(y,x) = 1

center text cursorx, cursory, "X"

endif

if board(y,x) = 2

center text cursorx, cursory, "O"

endif

cursorx = cursorx + 20

next x

cursorx = 300

cursory = cursory + 20

next y

return

win:

gosub display_board

center text 320, 220, "You win! Press any key to continue"

wait 1000

a = 0

a = scancode()

if a > 0 then gosub replay

loop

return

lose:

gosub display_board

center text 320, 220, "You lose! Press any key to continue"

wait 1000

a = 0

a = scancode()

if a > 0 then gosub replay

loop

return

draw:

gosub display_board

center text 320, 220, "Its a draw! Press any key to continue"

wait 1000

a = 0

a = scancode()

if a > 0 then gosub replay

loop

return

end:

cls

center text 320, 220, "Goodbye! Press any key to quit"

wait 1000

wait key

end

return

replay:

cls

center text 320, 220, "Press Y to play again or N to quit"

wait 1000

a = 0

a = scancode()

if a = 21 then gosub begin

if a = 49 then end

loop

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Philip
CodeBase Entries:	11

CodeBase - Noughts and Crosses (Tic Tac Toe to our American cousins)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments