Computer Science Canada :: View topic - Need a little help with checkers....

View.Set ("nocursor,graphics:400;400")
var board : array 1 .. 8, 1 .. 8 of int
% initialize array
for col : 1 .. 8
for row : 1 .. 8
board (col, row) := 0
end for
end for

proc displayboard
for decreasing row : 8 .. 1
for col : 1 .. 8
put board (col, row), " " ..
end for
put ""
end for
end displayboard

for row : 1 .. 8 by 2
board (row, 1) := 1
end for

for row : 2 .. 8 by 2
board (row, 2) := 1
end for

for row : 1 .. 8 by 2
board (row, 3) := 1
end for

for row : 2 .. 8 by 2
board (row, 6) := 2
end for

for row : 1 .. 8 by 2
board (row, 7) := 2
end for

for row : 2 .. 8 by 2
board (row, 8) := 2
end for

proc drawGridbs
Draw.FillBox (0, 0, 400, 400, 92)
for col : 0 .. 7
for row : 0 .. 7
Draw.FillBox (col * 50 + 2, row * 50 + 2, col * 50 + 49, row *
50 + 49, black)
end for
end for
end drawGridbs

proc drawGridrs

for col : 0 .. 7 by 2
for row : 0 .. 7 by 2
Draw.FillBox (col * 50 + 2, row * 50 + 2, col * 50 + 49, row *
50 + 49, red)

for col1 : 1 .. 7 by 2
for row1 : 1 .. 7 by 2
Draw.FillBox (col1 * 50 + 2, row1 * 50 + 2, col1 *
50 + 49, row1 * 50 + 49, red)

end for
end for
end for
end for
end drawGridrs

proc drawpieces
var clr : int % disck colour
for col : 1 .. 8
for row : 1 .. 8

if board (col, row) = 1 then % red disk
Draw.FillOval (col * 50 - 25, (row - 1) * 50 + 25, 20, 20,
blue)
end if
if board (col, row) = 2 then % black disk
Draw.FillOval (col * 50 - 25, (row - 1) * 50 + 25, 20, 20,
green)
end if
%draw disk

end for
end for

end drawpieces

drawGridbs
drawGridrs
drawpieces
%displayboard

Author:	Delos [ Sat Nov 27, 2004 5:06 pm ]
Post subject:
Ok, you seem to have the right idea regarding array usage. Now you need to find out a bit about Mouse. commands: Mouse.Where() Mouse.ButtonChoose() etc etc. Then you'll want to set up a nice procedure that allows the User to click on an individual tile, check to see what's in it, if it's a piece, allow for movement (i.e., clicking on another tile). You'll want to look up types and records too, it will make using the tile concept a lot easier (basically you'll be packaging objects with varying, repeating characteristics together). Records by Dodge

Author:	Cervantes [ Sat Nov 27, 2004 5:15 pm ]
Post subject:
this thread might help, though it becomes useless once dodge starts worshipping Catalyst.

Author:	steve_k91 [ Sat Nov 27, 2004 7:17 pm ]
Post subject:
Thanks allot guys ive figured out the procedure for that allows the User to click on an individual tile, check to see what's in it and if it's a piece, allow for movement. but exactly how do i move it using the array?

Author:	SuperGenius [ Sat Nov 27, 2004 11:09 pm ]
Post subject:
you'll also have to check that they're not trying to move the checker off the edge of the board or that they are trying to move it to a square that already has a checker in it. One thing at a time though.

Author:	steve_k91 [ Sun Nov 28, 2004 1:24 pm ]
Post subject:
thanks allot guys... that really helped... ill post the final program once im done