-----------------------------------

endusto

Sat Feb 11, 2006 3:19 pm


tic tac toe

-----------------------------------

i realise theres probably a few better tic tac toe games here and that this one could easily be changed to half the size but oh well.  heres my tic tac toe game

% TIC TAC TOE
% PROGRAMMED BY: ANDREW COWAN

var x, y, buttonnumber, buttonupdown, buttons, font, p1turn, p2turn : int
var sq1, sq2, sq3, sq4, sq5, sq6, sq7, sq8, sq9, sq1taken, sq2taken, sq3taken, 
sq4taken, sq5taken, sq6taken, sq7taken, sq8taken, sq9taken, sq1taken2, sq2taken2,
sq3taken2, sq4taken2, sq5taken2, sq6taken2, sq7taken2, sq8taken2, sq9taken2, sq1taken3,
sq2taken3, sq3taken3, sq4taken3, sq5taken3, sq6taken3, sq7taken3, sq8taken3,
sq9taken3, win : int := 0
var ch : string(1)
font := Font.New ("hooplah:36")
setscreen ("graphics:400,400, nobuttonbar")
p1turn := 1
p2turn := 0
% DRAW THE PLAYING FIELD
Draw.FillBox (maxx, maxy, 0, 0, 254)
Draw.FillBox (135, 0, 131, maxy, 2)
Draw.FillBox (268, 0, 264, maxy, 2)
Draw.FillBox (0, 135, maxx, 131, 2)
Draw.FillBox (0, 268, maxx, 264, 2)

% EXECUTE THIS IF SOMEONE WINS

process gg()

put "Play again? Y/N"
getch(ch)
if ch = "y" or ch = "Y" then
cls
Draw.FillBox (maxx, maxy, 0, 0, 254)
Draw.FillBox (135, 0, 131, maxy, 2)
Draw.FillBox (268, 0, 264, maxy, 2)
Draw.FillBox (0, 135, maxx, 131, 2)
Draw.FillBox (0, 268, maxx, 264, 2)

sq1 := 0
sq2 := 0
sq3 := 0
sq4 := 0
sq5 := 0
sq6 := 0
sq7 := 0
sq8 := 0
sq9 := 0
sq1taken  := 0
sq2taken  := 0
sq3taken  := 0
sq4taken  := 0
sq5taken  := 0
sq6taken  := 0
sq7taken  := 0
sq8taken  := 0
sq9taken  := 0

sq1taken2  := 0
sq2taken2  := 0
sq3taken2  := 0
sq4taken2  := 0
sq5taken2  := 0
sq6taken2  := 0
sq7taken2  := 0
sq8taken2  := 0
sq9taken2  := 0

sq1taken3  := 0
sq2taken3  := 0
sq3taken3  := 0
sq1taken3  := 0
sq2taken3  := 0
sq3taken3  := 0
sq4taken3  := 0
sq5taken3  := 0
sq6taken3  := 0
sq7taken3  := 0
sq8taken3  := 0
sq9taken3  := 0

win := 0
else
put ":("
end if
end gg


loop
% WAIT FOR MOUSE BUTTON TO BE PRESSED
buttonwait("down", x, y, buttonnumber, buttonupdown)



% DETECT CLICK FOR ALL SQUARES

% DETECT SQUARE 1
if x >= 0 and x = 268  and sq1taken = 0 and sq1taken2 = 0 and win not= 1 then
if p1turn = 1 and sq1taken = 0 then
Draw.Text ("X", 50, 320, font, red)
sq1taken := 1
sq1taken3 := 1
p1turn := 0
p2turn := 1
elsif p2turn = 1  and sq1taken = 0 and sq1taken2 = 0 and win not= 1  then
Draw.Text ("O", 50, 320, font, blue)
sq1taken2 := 1
sq1taken3 := 1
p1turn := 1
p2turn := 0
end if
end if

% DETECT SQUARE 2
if x >= 134 and x = 268   and sq2taken = 0 and sq2taken2 = 0 and win not= 1  then
if p1turn = 1 and sq2taken = 0 then
Draw.Text ("X", 175, 320, font, red)
sq2taken := 1
sq2taken3 := 1
p1turn := 0
p2turn := 1
elsif p2turn = 1 and sq2taken = 0  and win not= 1 then
Draw.Text ("O", 175, 320, font, blue)
sq2taken2 := 1
sq2taken3 := 1
p1turn := 1
p2turn := 0
end if
end if

% DETECT SQUARE 3
if x >= 267 and x = 268  and sq3taken = 0 and sq3taken2 = 0  and win not= 1 then
if p1turn = 1 and sq3taken = 0 then
Draw.Text ("X", 300, 320, font, red)
sq3taken := 1
sq3taken3 := 1
p1turn := 0
p2turn := 1
end if
if p2turn = 1  and sq3taken = 0 and sq3taken2 = 0  and win not= 1 then
Draw.Text ("O", 300, 320, font, blue)
sq3taken2 := 1
sq3taken3 := 1
p1turn := 1
p2turn := 0
end if
end if

% DETECT SQUARE 4
if x >= 0 and x = 134 and x = 135 and y = 267 and x = 135 and y = 0 and x = 0 and y = 134 and x = 0 and y = 268 and x = 0 and y