Sorry your browser is not supported!

Rem Project: Draughs
Rem Created: 10/02/2004 21:20:51

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

set display mode 800,600,32

`make board variables
row1=65
row2=118
row3=171
row4=224
row5=277
row6=330
row7=383
row8=436
c1=180
c2=235
c3=290
c4=345
c5=400
c6=455
c7=510
c8=565

`Load Images + Make board sprite
Load image "board.png",1
Load image "white counter.png",2
Load image "black counter.png",3
Sprite 1,175,65,1

`Place counters on board
`row 1
Sprite 2,c1,row1,2
Sprite 3,c2,row1,2
Sprite 4,c3,row1,2
Sprite 5,c4,row1,2
Sprite 6,c5,row1,2
Sprite 7,c6,row1,2
Sprite 8,c7,row1,2
Sprite 9,c8,row1,2
`row 2
Sprite 10,c1,row2,2
Sprite 11,c2,row2,2
Sprite 12,c3,row2,2
Sprite 13,c4,row2,2
Sprite 14,c5,row2,2
Sprite 15,c6,row2,2
Sprite 16,c7,row2,2
Sprite 17,c8,row2,2
`row 7
Sprite 18,c1,row7,2
Sprite 19,c2,row7,2
Sprite 20,c3,row7,2
Sprite 21,c4,row7,2
Sprite 22,c5,row7,2
Sprite 23,c6,row7,2
Sprite 24,c7,row7,2
Sprite 25,c8,row7,2
`row 8
Sprite 26,c1,row8,2
Sprite 27,c2,row8,2
Sprite 28,c3,row8,2
Sprite 29,c4,row8,2
Sprite 30,c5,row8,2
Sprite 31,c6,row8,2
Sprite 32,c7,row8,2
Sprite 33,c8,row8,2

DO
   gosub board_grid
LOOP

board_grid:
   Dim board(7,7)
      board(0,0)=1
      board(1,0)=1
      board(2,0)=1
      board(3,0)=1
      board(4,0)=1
      board(5,0)=1
      board(6,0)=1
      board(7,0)=1
      board(0,1)=1
      board(1,1)=1
      board(2,1)=1
      board(3,1)=1
      board(4,1)=1
      board(5,1)=1
      board(6,1)=1
      board(7,1)=1
      board(0,2)=0
      board(1,2)=0
      board(2,2)=0
      board(3,2)=0
      board(4,2)=0
      board(5,2)=0
      board(6,2)=0
      board(7,2)=0
      board(0,3)=0
      board(1,3)=0
      board(2,3)=0
      board(3,3)=0
      board(4,3)=0
      board(5,3)=0
      board(6,3)=0
      board(7,3)=0
      board(0,4)=0
      board(1,4)=0
      board(2,4)=0
      board(3,4)=0
      board(4,4)=0
      board(5,4)=0
      board(6,4)=0
      board(7,4)=0
      board(0,5)=0
      board(1,5)=0
      board(2,5)=0
      board(3,5)=0
      board(4,5)=0
      board(5,5)=0
      board(6,5)=0
      board(7,5)=0
      board(0,6)=2
      board(1,6)=2
      board(2,6)=2
      board(3,6)=2
      board(4,6)=2
      board(5,6)=2
      board(6,6)=2
      board(7,6)=2
      board(0,7)=2
      board(1,7)=2
      board(2,7)=2
      board(3,7)=2
      board(4,7)=2
      board(5,7)=2
      board(6,7)=2
      board(7,7)=2
return

Function GridPosition(X,Y)
  row=Int((X-12)/53)
  col=Int((Y-125)/55)
  piece=board(col,row)
Endfunction