Checkerboard program code needed

[Schaef]

I need a code for a checker board that has sqaures that are 50 pixels by 50 pixels and has 8 rows and 8 colums

[Homer_simpson]

well basically u are going to need a 2d arrow like this: board_array : array 1..8,1..8 of blah

and yer gonna draw yer board like this :

for i : 1 .. 8
for j : 1 .. 8
drawbox (i * 50, j * 50 - 1, i * 50 - 50, j * 50 - 50, black)
end for
end for

and make up some rules for yer game and vohlaaaaaa!!!

[vinkster]

this might help.........property of a checker

code:

View.Set ("graphics:600;400,position:top;left,offscreenonly") var x, y, x1, y1, btnNumber, btnUpDown, buttons : int function roundto (roundnum, roundinput : int) : int     result roundinput div roundnum * roundnum end roundto colourback (7) cls drawfillbox (0, 0, 100, 100, 4) drawfillbox (0, 200, 100, 300, 4) drawfillbox (0, 400, 100, 500, 4) drawfillbox (100, 100, 200, 200, 4) drawfillbox (300, 100, 400, 200, 4) drawfillbox (100, 300, 200, 400, 4) drawfillbox (200, 0, 300, 100, 4) drawfillbox (400, 0, 500, 100, 4) drawfillbox (300, 100, 400, 200, 4) drawfillbox (300, 300, 400, 400, 4) drawfillbox (200, 200, 300, 300, 4) drawfillbox (400, 200, 500, 300, 4) drawfillbox (500, 100, 600, 200, 4) drawfillbox (500, 300, 600, 400, 4) var pic : int pic := Pic.New (0, 0, maxx, maxy) Pic.Draw (pic, 0, 0, picCopy) var z, w : int := 30 x := 50 y := 50 drawfilloval (x, y, z, w, 8) loop     Mouse.ButtonWait ("down", x1, y1, btnNumber, btnUpDown)     if x >= x1 - 25 and x <= x1 + 25 and y >= y1 - 25 and y <= y1 + 25 then         loop             drawfilloval (x1, y1, z, w, 8)             Pic.Draw (pic, 0, 0, picCopy)             exit when Mouse.ButtonMoved ("up")             Mouse.Where (x1, y1, buttons)             drawfilloval (x1, y1, z, w, 3)         View.Update             end loop         Mouse.ButtonWait ("up", x1, y1, btnNumber, btnUpDown)         x1 := roundto (100, x1) + 50         y1 := roundto (100, y1) + 50         if whatdotcolour (x1,y1) not = 4 then         x1+=100         end if         drawfilloval (x1, y1, z, w, 8)         x := x1         y := y1     end if View.Update     end loop

[DanShadow]

Homers way is correct...but when my teacher asked me to make checkers, my board was made out of lines...saves a few lines of codes.

[Schaef]

what would go in the place of "blah" for the array?

[DanShadow]

board_array : array 1..8,1..8 of int

(blah=int) because the x,y val ues of each square is an integer value...well or real if you want it to be.

[Homer_simpson]

well that depends on yer game for example if u need to know just if the block is empty or full ,u make it an array of booleans so whenever block(3,1) for example is full it's value is true.... or if u need to know which player's object is in the block... use an array of int so whenever block(5,2) for example has value 0 it's empty whenever 1 player one and when ever 2 player 2's object...

[McKenzie]

homer++

code:

for x : 1 .. 8 for y : 1 .. 8 drawfillbox (x * 50, y * 50 - 1, x * 50 - 50, y * 50 - 50, ((x+y*7) mod 2) * black) end for end for

[drumersrule123]

just import a picture of a chess board with Pic.ScreenLoad

[Andy]

then pic.scale it to 50 pixels

[DanShadow]

Id prefer just using "for" to draw lines or boxes because on some peoples versions of Turing, pictures get REALLY screwy, and dont load, and freeze program, and other things. I know its happened to me b4, and I have Turing 4.04!

[Schaef]

McKenzie, could you or someone else plz explain 'how' your code works?

[Andy]

lol its not hard... but since my compsci teacher is good at explaining things, i'll let him explain...

[Schaef]

can someone plz explain it??

[DanShadow]

I think Mckenzies code makes (in two for statements), boxes which extend 8 spaces up, 8 spaces right, then draw the dif inside....