« previous next »
Pages: [1]   Go Down

Author Topic: Checkers  (Read 3606 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Checkers
« on: February 02, 2020, 05:43:43 pm »
I have this on the Chess thread but decided to make a new thread in case anyone wants to comment or add or change anything to this game.

From the other thread:
I got pretty close to finishing a 2-person checkers game after a week of programming every day. But I can't figure out how to keep the king symbol on a king checker piece. The symbol shows up fine on it when you get to the other side, but then when you move again it's deleted. I'm sure I didn't do the variables the right way. I actually just tossed in variables not knowing exactly what they do which is totally not good. I also am getting hang-ups every once in awhile where it won't let you plot coordinates (I don't even use the mouse in this game). So, I will probably either take a long break on this game or just give up on it.
Feel free to have the code anyone, if you wish to do anything with it. Just remember the king symbol doesn't stay and once in awhile maybe it won't let you plot (not sure I may have fixed that). The only reason I'm posting the code today is to show everyone how good I actually did make it so far. You can jump, but only do 1 jump per move. So all in all, it's a very rough and bad way to play checkers, but it is the best one I've made so far. Oh also, it does say which player wins when they do win. I've only played 1 full game of it myself. And like 40 other tries of fixing things. lol Been a crazy little program. But for now, I'm finished with it myself.


Code: QB64: [Select]
  1. _TITLE "1 Jump - 2 Player Checkers - by Ken G."
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. DIM black2(88), red2(88), bking(88), rking(88)
  4.  
  5. 'Make checkerboard
  6. LINE (149, 49)-(651, 551), _RGB32(255, 255, 255), B
  7. FOR ly = 50 TO 487.5 STEP 125
  8.     FOR lx = 212.5 TO 650 STEP 125
  9.         LINE (lx - 62.5, ly)-(lx, ly + 62.5), _RGB32(255, 0, 0), BF
  10.     NEXT lx
  11.     FOR lx = 212.5 TO 650 STEP 125
  12.         LINE (lx, ly + 62.5)-(lx + 62.5, ly + 125), _RGB32(255, 0, 0), BF
  13.     NEXT lx
  14.     FOR lx = 275 TO 650 STEP 125
  15.         LINE (lx - 62.5, ly)-(lx, ly + 62.5), _RGB32(0, 0, 0), BF
  16.     NEXT lx
  17.     FOR lx = 150 TO 587.5 STEP 125
  18.         LINE (lx, ly + 62.5)-(lx + 62.5, ly + 125), _RGB32(0, 0, 0), BF
  19.     NEXT lx
  20. NEXT ly
  21. COLOR _RGB32(255, 255, 255)
  22. LOCATE 3, 87: PRINT "Red"
  23. LOCATE 4, 87: PRINT "From:"
  24. LOCATE 9, 87: PRINT "To:"
  25. LOCATE 3, 5: PRINT "Black"
  26. LOCATE 4, 5: PRINT "From:"
  27. LOCATE 9, 5: PRINT "To:"
  28.  
  29. COLOR _RGB32(127, 255, 255)
  30. FOR lx = 170 TO 607.5 STEP 62.5
  31.     h = h + 1
  32.     h$ = STR$(h)
  33.     _PRINTSTRING (lx, 30), h$
  34. NEXT lx
  35. COLOR _RGB32(128, 249, 127)
  36. FOR ly = 70 TO 507.5 STEP 62.5
  37.     v = v + 1
  38.     v$ = STR$(v)
  39.     _PRINTSTRING (120, ly), v$
  40. NEXT ly
  41. h = 0: v = 0
  42. COLOR _RGB32(127, 255, 255)
  43. FOR lx = 170 TO 607.5 STEP 62.5
  44.     h = h + 1
  45.     h$ = STR$(h)
  46.     _PRINTSTRING (lx, 560), h$
  47. NEXT lx
  48. COLOR _RGB32(128, 249, 127)
  49. FOR ly = 70 TO 507.5 STEP 62.5
  50.     v = v + 1
  51.     v$ = STR$(v)
  52.     _PRINTSTRING (660, ly), v$
  53. NEXT ly
  54.  
  55. 'setup pieces
  56. 'black
  57. ly = 50
  58. FOR lx = 212.5 TO 650 STEP 125
  59.     CIRCLE (lx + 31.25, ly + 31.25), 20, _RGB32(50, 50, 50)
  60.     PAINT (lx + 31.25, ly + 31.25), _RGB32(50, 50, 50)
  61. NEXT lx
  62. FOR lx = 212.5 TO 650 STEP 125
  63.     CIRCLE (lx - 31.25, ly + 93.75), 20, _RGB32(50, 50, 50)
  64.     PAINT (lx - 31.25, ly + 93.75), _RGB32(50, 50, 50)
  65. NEXT lx
  66. FOR lx = 212.5 TO 650 STEP 125
  67.     CIRCLE (lx + 31.25, ly + 156.25), 20, _RGB32(50, 50, 50)
  68.     PAINT (lx + 31.25, ly + 156.25), _RGB32(50, 50, 50)
  69. NEXT lx
  70. 'red
  71. ly = 206.25
  72. FOR lx = 212.5 TO 650 STEP 125
  73.     CIRCLE (lx - 31.25, ly + 187.5), 20, _RGB32(200, 50, 50)
  74.     PAINT (lx - 31.25, ly + 187.5), _RGB32(200, 50, 50)
  75. NEXT lx
  76. FOR lx = 212.5 TO 650 STEP 125
  77.     CIRCLE (lx + 31.25, ly + 250), 20, _RGB32(200, 50, 50)
  78.     PAINT (lx + 31.25, ly + 250), _RGB32(200, 50, 50)
  79. NEXT lx
  80. FOR lx = 212.5 TO 650 STEP 125
  81.     CIRCLE (lx - 31.25, ly + 312.5), 20, _RGB32(200, 50, 50)
  82.     PAINT (lx - 31.25, ly + 312.5), _RGB32(200, 50, 50)
  83. NEXT lx
  84.  
  85. 'The coordinate variables use a 2 digit number, the first digit is the horizon, the second is the vertical.
  86. black2(1) = 12
  87. black2(2) = 14
  88. black2(3) = 16
  89. black2(4) = 18
  90.  
  91. black2(5) = 21
  92. black2(6) = 23
  93. black2(7) = 25
  94. black2(8) = 27
  95.  
  96. black2(9) = 32
  97. black2(10) = 34
  98. black2(11) = 36
  99. black2(12) = 38
  100.  
  101. red2(9) = 81
  102. red2(10) = 83
  103. red2(11) = 85
  104. red2(12) = 87
  105.  
  106. red2(5) = 72
  107. red2(6) = 74
  108. red2(7) = 76
  109. red2(8) = 78
  110.  
  111. red2(1) = 61
  112. red2(2) = 63
  113. red2(3) = 65
  114. red2(4) = 67
  115.  
  116. '----------------------------------------------------------------------------
  117. 'Main Loop
  118.  
  119. _LIMIT 200
  120.  
  121. 'Player One
  122. one:
  123. COLOR _RGB32(128, 249, 127)
  124. LOCATE 5, 87: PRINT "Horizon": LOCATE 6, 87: INPUT ph
  125. IF ph > 8 OR ph < 1 THEN GOTO one:
  126. IF ph <> INT(ph) THEN GOTO one:
  127. COLOR _RGB32(127, 255, 255)
  128. LOCATE 7, 87: PRINT "Vertical": LOCATE 8, 87: INPUT pv
  129. IF pv > 8 OR pv < 1 THEN GOTO one:
  130. IF pv <> INT(pv) THEN GOTO one:
  131. ph$ = STR$(ph)
  132. pv$ = STR$(pv)
  133. sp$ = ph$ + pv$
  134. sp = VAL(sp$)
  135. FOR check = 1 TO 88
  136.     IF red2(check) = sp THEN ch = sp: GOTO move:
  137. NEXT check
  138. GOTO one:
  139.  
  140. 'Player Two
  141. two:
  142. COLOR _RGB32(128, 249, 127)
  143. LOCATE 5, 5: PRINT "Horizon": LOCATE 6, 5: INPUT ph3
  144. IF ph3 > 8 OR ph3 < 1 THEN GOTO two:
  145. IF ph3 <> INT(ph3) THEN GOTO two:
  146. COLOR _RGB32(127, 255, 255)
  147. LOCATE 7, 5: PRINT "Vertical": LOCATE 8, 5: INPUT pv3
  148. IF pv3 > 8 OR pv3 < 1 THEN GOTO two:
  149. IF pv3 <> INT(pv3) THEN GOTO two:
  150. ph3$ = STR$(ph3)
  151. pv3$ = STR$(pv3)
  152. sp3$ = ph3$ + pv3$
  153. sp3 = VAL(sp3$)
  154. FOR check2 = 1 TO 88
  155.     IF black2(check2) = sp3 THEN ch2 = sp3: GOTO move2:
  156. NEXT check2
  157. GOTO two:
  158.  
  159. '----------------------------------------------------------------------------
  160.  
  161. move:
  162. COLOR _RGB32(128, 249, 127)
  163. LOCATE 10, 87: PRINT "Horizon": LOCATE 11, 87: INPUT ph2
  164. IF ph2 > 8 OR ph2 < 1 THEN GOTO one:
  165. IF ph2 <> INT(ph2) THEN GOTO one:
  166.  
  167. COLOR _RGB32(127, 255, 255)
  168. LOCATE 12, 87: PRINT "Vertical": LOCATE 13, 87: INPUT pv2
  169. IF pv2 > 8 OR pv2 < 1 THEN GOTO one:
  170. IF pv2 <> INT(pv2) THEN GOTO one:
  171. ph2$ = STR$(ph2)
  172. pv2$ = STR$(pv2)
  173. sp2$ = ph2$ + pv2$
  174. sp2 = VAL(sp2$)
  175. IF sp = sp2 THEN GOTO one:
  176. IF pv = pv2 OR ph = ph2 THEN
  177.     COLOR _RGB32(255, 0, 0)
  178.     LOCATE 15, 87
  179.     PRINT "Illegal Move"
  180.     GOTO one:
  182.  
  183. 'Check for red squares.
  184. IF sp2 = 11 OR sp2 = 13 OR sp2 = 15 OR sp2 = 17 OR sp2 = 22 OR sp2 = 24 OR sp2 = 26 OR sp2 = 28 THEN
  185.     COLOR _RGB32(255, 0, 0)
  186.     LOCATE 15, 87
  187.     PRINT "Illegal Move"
  188.     GOTO one:
  190. IF sp2 = 31 OR sp2 = 33 OR sp2 = 35 OR sp2 = 37 OR sp2 = 42 OR sp2 = 44 OR sp2 = 46 OR sp2 = 48 THEN
  191.     COLOR _RGB32(255, 0, 0)
  192.     LOCATE 15, 87
  193.     PRINT "Illegal Move"
  194.     GOTO one:
  196. IF sp2 = 51 OR sp2 = 53 OR sp2 = 55 OR sp2 = 57 OR sp2 = 62 OR sp2 = 64 OR sp2 = 66 OR sp2 = 68 THEN
  197.     COLOR _RGB32(255, 0, 0)
  198.     LOCATE 15, 87
  199.     PRINT "Illegal Move"
  200.     GOTO one:
  202. IF sp2 = 71 OR sp2 = 73 OR sp2 = 75 OR sp2 = 77 OR sp2 = 82 OR sp2 = 84 OR sp2 = 86 OR sp2 = 88 THEN
  203.     COLOR _RGB32(255, 0, 0)
  204.     LOCATE 15, 87
  205.     PRINT "Illegal Move"
  206.     GOTO one:
  208.  
  209. red2(ch) = sp2
  210.  
  211. 'Draw player one checker in the new square.
  212. 'First erase the old checker.
  213. IF sp = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 81.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 81.25
  214. IF sp = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 81.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 81.25
  215. IF sp = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 81.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 81.25
  216. IF sp = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 81.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 81.25
  217. IF sp = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 143.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 143.75
  218. IF sp = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 143.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 143.75
  219. IF sp = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 143.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 143.75
  220. IF sp = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 143.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 143.75
  221. IF sp = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 206.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 206.25
  222. IF sp = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 206.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 206.25
  223. IF sp = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 206.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 206.25
  224. IF sp = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 206.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 206.25
  225. IF sp = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 268.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 268.75
  226. IF sp = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 268.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 268.75
  227. IF sp = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 268.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 268.75
  228. IF sp = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 268.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 268.75
  229. IF sp = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 331.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 331.25
  230. IF sp = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 331.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 331.25
  231. IF sp = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 331.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 331.25
  232. IF sp = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 331.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 331.25
  233. IF sp = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 393.74), _RGB32(0, 0, 0): x1 = 181.25: y1 = 393.75
  234. IF sp = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 393.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 393.75
  235. IF sp = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 393.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 393.75
  236. IF sp = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 393.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 393.75
  237. IF sp = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 456.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 456.25
  238. IF sp = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 456.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 456.25
  239. IF sp = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 456.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 456.25
  240. IF sp = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 456.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 456.25
  241. IF sp = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 518.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 518.75
  242. IF sp = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 518.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 518.75
  243. IF sp = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 518.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 518.75
  244. IF sp = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 518.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 518.75
  245.  
  246. 'Now draw the new checker.
  247. IF sp2 = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 81.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 81.25
  248. IF sp2 = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 81.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 81.25
  249. IF sp2 = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 81.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 81.25
  250. IF sp2 = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 81.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 81.25
  251. IF sp2 = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 143.75), _RGB32(200, 50, 50): x2 = 181.25: y2 = 143.75
  252. IF sp2 = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 143.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 143.75
  253. IF sp2 = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 143.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 143.75
  254. IF sp2 = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 143.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 143.75
  255. IF sp2 = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 206.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 206.25
  256. IF sp2 = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 206.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 206.25
  257. IF sp2 = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 206.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 206.25
  258. IF sp2 = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 206.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 206.25
  259. IF sp2 = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 268.75), _RGB32(200, 50, 50): x2 = 181.25: y2 = 268.75
  260. IF sp2 = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 268.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 268.75
  261. IF sp2 = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 268.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 268.75
  262. IF sp2 = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 268.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 268.75
  263. IF sp2 = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 331.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 331.25
  264. IF sp2 = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 331.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 331.25
  265. IF sp2 = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 331.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 331.25
  266. IF sp2 = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 331.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 331.25
  267. IF sp2 = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 393.74), _RGB32(200, 50, 50): x2 = 181.25: y2 = 393.75
  268. IF sp2 = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 393.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 393.75
  269. IF sp2 = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 393.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 393.75
  270. IF sp2 = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 393.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 393.75
  271. IF sp2 = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 456.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 456.25
  272. IF sp2 = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 456.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 456.25
  273. IF sp2 = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 456.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 456.25
  274. IF sp2 = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 456.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 456.25
  275. IF sp2 = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 518.75), _RGB32(200, 50, 50): x2 = 181.25: y2 = 518.75
  276. IF sp2 = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 518.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 518.75
  277. IF sp2 = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 518.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 518.75
  278. IF sp2 = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 518.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 518.75
  279.  
  280. 'Check for a jump.
  281. IF pv - pv2 = 2 OR pv2 - pv = 2 THEN
  282.     IF ph - ph2 = 2 OR ph2 - ph = 2 THEN
  283.         IF x1 > x2 THEN stp = -.25
  284.         IF x1 < x2 THEN stp = .25
  285.         IF y1 > y2 THEN stp2 = -.25
  286.         IF y1 < y2 THEN stp2 = .25
  287.         yy = y1
  288.         FOR xx = x1 TO x2 STEP stp
  289.             yy = yy + stp2
  290.             IF POINT(xx, yy) = _RGB32(50, 50, 50) THEN
  291.                 PAINT (xx, yy), _RGB32(0, 0, 0)
  292.                 GOTO nex:
  293.             END IF
  294.         NEXT xx
  295.     END IF
  297. nex:
  298.  
  299.  
  300. 'Check for a King.
  301. IF ph2 = 1 THEN
  302.     k1 = k1 + 1
  303.     rking(k1) = red2(ch)
  304.     GOSUB drawking:
  306. FOR cch = 1 TO 88
  307.     IF rking(cch) = red2(cch) AND rking(cch) <> 0 THEN GOSUB drawking:
  308. NEXT cch
  309.  
  310.  
  311. 'Check for a win.
  312. FOR wx = 0 TO 800
  313.     FOR wy = 0 TO 600
  314.         IF POINT(wx, wy) = _RGB32(50, 50, 50) THEN GOTO nex3:
  315.     NEXT wy
  316. NEXT wx
  317. COLOR _RGB32(255, 0, 0)
  318. LOCATE 3, 87: PRINT "Red Wins!"
  320.  
  321. nex3:
  322. LOCATE 5, 87: PRINT "           ": LOCATE 6, 87: PRINT "            "
  323. LOCATE 7, 87: PRINT "           ": LOCATE 8, 87: PRINT "            "
  324. LOCATE 10, 87: PRINT "           ": LOCATE 11, 87: PRINT "            "
  325. LOCATE 12, 87: PRINT "           ": LOCATE 13, 87: PRINT "            "
  326. LOCATE 15, 87: PRINT "            "
  327. GOTO two:
  328.  
  329. '-----------------------------------------------------------------------------------------------------------
  330. 'Player Two
  331.  
  332. move2:
  333. COLOR _RGB32(128, 249, 127)
  334. LOCATE 10, 5: PRINT "Horizon": LOCATE 11, 5: INPUT ph4
  335. IF ph4 > 8 OR ph4 < 1 THEN GOTO two:
  336. IF ph4 <> INT(ph4) THEN GOTO two:
  337. COLOR _RGB32(127, 255, 255)
  338. LOCATE 12, 5: PRINT "Vertical": LOCATE 13, 5: INPUT pv4
  339.  
  340. IF pv4 > 8 OR pv4 < 1 THEN GOTO two:
  341. IF pv4 <> INT(pv4) THEN GOTO two:
  342. ph4$ = STR$(ph4)
  343. pv4$ = STR$(pv4)
  344. sp4$ = ph4$ + pv4$
  345. sp4 = VAL(sp4$)
  346. IF sp3 = sp4 THEN GOTO two:
  347. IF pv3 = pv4 OR ph3 = ph4 THEN
  348.     COLOR _RGB32(255, 0, 0)
  349.     LOCATE 15, 5
  350.     PRINT "Illegal Move"
  351.     GOTO one:
  353.  
  354. 'Check for red squares.
  355. IF sp4 = 11 OR sp4 = 13 OR sp4 = 15 OR sp4 = 17 OR sp4 = 22 OR sp4 = 24 OR sp4 = 26 OR sp4 = 28 THEN
  356.     COLOR _RGB32(255, 0, 0)
  357.     LOCATE 15, 5
  358.     PRINT "Illegal Move"
  359.     GOTO two:
  361. IF sp4 = 31 OR sp4 = 33 OR sp4 = 35 OR sp4 = 37 OR sp4 = 42 OR sp4 = 44 OR sp4 = 46 OR sp4 = 48 THEN
  362.     COLOR _RGB32(255, 0, 0)
  363.     LOCATE 15, 5
  364.     PRINT "Illegal Move"
  365.     GOTO two:
  367. IF sp4 = 51 OR sp4 = 53 OR sp4 = 55 OR sp4 = 57 OR sp4 = 62 OR sp4 = 64 OR sp4 = 66 OR sp4 = 68 THEN
  368.     COLOR _RGB32(255, 0, 0)
  369.     LOCATE 15, 5
  370.     PRINT "Illegal Move"
  371.     GOTO two:
  373. IF sp4 = 71 OR sp4 = 73 OR sp4 = 75 OR sp4 = 77 OR sp4 = 82 OR sp4 = 84 OR sp4 = 86 OR sp4 = 88 THEN
  374.     COLOR _RGB32(255, 0, 0)
  375.     LOCATE 15, 5
  376.     PRINT "Illegal Move"
  377.     GOTO two:
  379.  
  380. black2(ch2) = sp4
  381.  
  382. 'Draw player two checker in the new square.
  383. 'First erase the old checker.
  384. IF sp3 = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 81.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 81.25
  385. IF sp3 = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 81.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 81.25
  386. IF sp3 = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 81.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 81.25
  387. IF sp3 = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 81.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 81.25
  388. IF sp3 = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 143.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 143.75
  389. IF sp3 = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 143.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 143.75
  390. IF sp3 = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 143.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 143.75
  391. IF sp3 = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 143.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 143.75
  392. IF sp3 = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 206.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 206.25
  393. IF sp3 = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 206.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 206.25
  394. IF sp3 = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 206.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 206.25
  395. IF sp3 = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 206.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 206.25
  396. IF sp3 = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 268.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 268.75
  397. IF sp3 = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 268.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 268.75
  398. IF sp3 = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 268.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 268.75
  399. IF sp3 = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 268.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 268.75
  400. IF sp3 = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 331.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 331.25
  401. IF sp3 = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 331.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 331.25
  402. IF sp3 = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 331.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 331.25
  403. IF sp3 = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 331.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 331.25
  404. IF sp3 = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 393.74), _RGB32(0, 0, 0): x1 = 181.25: y1 = 393.75
  405. IF sp3 = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 393.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 393.75
  406. IF sp3 = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 393.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 393.75
  407. IF sp3 = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 393.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 393.75
  408. IF sp3 = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 456.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 456.25
  409. IF sp3 = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 456.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 456.25
  410. IF sp3 = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 456.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 456.25
  411. IF sp3 = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 456.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 456.25
  412. IF sp3 = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 518.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 518.75
  413. IF sp3 = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 518.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 518.75
  414. IF sp3 = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 518.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 518.75
  415. IF sp3 = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 518.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 518.75
  416.  
  417. 'Now draw the new checker.
  418. IF sp4 = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 81.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 81.25
  419. IF sp4 = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 81.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 81.25
  420. IF sp4 = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 81.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 81.25
  421. IF sp4 = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 81.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 81.25
  422. IF sp4 = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 143.75), _RGB32(50, 50, 50): x2 = 181.25: y2 = 143.75
  423. IF sp4 = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 143.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 143.75
  424. IF sp4 = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 143.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 143.75
  425. IF sp4 = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 143.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 143.75
  426. IF sp4 = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 206.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 206.25
  427. IF sp4 = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 206.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 206.25
  428. IF sp4 = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 206.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 206.25
  429. IF sp4 = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 206.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 206.25
  430. IF sp4 = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 268.75), _RGB32(50, 50, 50): x2 = 181.25: y2 = 268.75
  431. IF sp4 = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 268.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 268.75
  432. IF sp4 = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 268.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 268.75
  433. IF sp4 = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 268.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 268.75
  434. IF sp4 = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 331.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 331.25
  435. IF sp4 = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 331.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 331.25
  436. IF sp4 = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 331.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 331.25
  437. IF sp4 = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 331.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 331.25
  438. IF sp4 = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 393.74), _RGB32(50, 50, 50): x2 = 181.25: y2 = 393.75
  439. IF sp4 = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 393.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 393.75
  440. IF sp4 = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 393.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 393.75
  441. IF sp4 = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 393.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 393.75
  442. IF sp4 = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 456.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 456.25
  443. IF sp4 = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 456.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 456.25
  444. IF sp4 = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 456.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 456.25
  445. IF sp4 = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 456.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 456.25
  446. IF sp4 = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 518.75), _RGB32(50, 50, 50): x2 = 181.25: y2 = 518.75
  447. IF sp4 = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 518.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 518.75
  448. IF sp4 = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 518.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 518.75
  449. IF sp4 = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 518.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 518.75
  450.  
  451. 'Check for a jump.
  452. IF pv3 - pv4 = 2 OR pv4 - pv3 = 2 THEN
  453.     IF ph3 - ph4 = 2 OR ph4 - ph3 = 2 THEN
  454.         IF x1 > x2 THEN stp = -.25
  455.         IF x1 < x2 THEN stp = .25
  456.         IF y1 > y2 THEN stp2 = -.25
  457.         IF y1 < y2 THEN stp2 = .25
  458.         yy = y1
  459.         FOR xx = x1 TO x2 STEP stp
  460.             yy = yy + stp2
  461.             IF POINT(xx, yy) = _RGB32(200, 50, 50) THEN
  462.                 PAINT (xx, yy), _RGB32(0, 0, 0)
  463.                 GOTO nex2:
  464.             END IF
  465.         NEXT xx
  466.     END IF
  468. nex2:
  469.  
  470. 'Check for a King.
  471. IF ph4 = 8 THEN
  472.     k2 = k2 + 1
  473.     bking(k2) = black2(ch2)
  474.     GOSUB drawking:
  476. FOR cch = 1 TO 88
  477.     IF bking(cch) = black2(cch) AND bking(cch) <> 0 THEN GOSUB drawking:
  478. NEXT cch
  479.  
  480. 'Check for a win.
  481. FOR wx = 0 TO 800
  482.     FOR wy = 0 TO 600
  483.         IF POINT(wx, wy) = _RGB32(200, 50, 50) THEN GOTO nex4:
  484.     NEXT wy
  485. NEXT wx
  486. COLOR _RGB32(255, 0, 0)
  487. LOCATE 3, 87: PRINT "Black Wins!"
  489.  
  490. nex4:
  491. LOCATE 5, 5: PRINT "           ": LOCATE 6, 5: PRINT "            "
  492. LOCATE 7, 5: PRINT "           ": LOCATE 8, 5: PRINT "            "
  493. LOCATE 10, 5: PRINT "           ": LOCATE 11, 5: PRINT "            "
  494. LOCATE 12, 5: PRINT "           ": LOCATE 13, 5: PRINT "            "
  495. LOCATE 15, 5: PRINT "            "
  496.  
  497. 'Go back to Player One
  498. GOTO one:
  499.  
  500. 'Draw the king symbol on the piece.
  501. drawking:
  502. LINE (x2 - 10, y2 + 10)-(x2 + 10, y2 + 10), _RGB32(255, 255, 255)
  503. LINE (x2 - 10, y2 + 7)-(x2 + 10, y2 + 7), _RGB32(255, 255, 255)
  504. LINE (x2 - 10, y2 + 7)-(x2 - 15, y2 - 2), _RGB32(255, 255, 255)
  505. CIRCLE (x2 - 15, y2 - 5), 3, _RGB32(255, 255, 255)
  506. LINE (x2 - 15, y2 - 2)-(x2 - 5, y2), _RGB32(255, 255, 255)
  507. LINE (x2 - 5, y2)-(x2, y2 - 4), _RGB32(255, 255, 255)
  508. CIRCLE (x2, y2 - 7), 3, _RGB32(255, 255, 255)
  509. LINE (x2 + 10, y2 + 7)-(x2 + 15, y2 - 2), _RGB32(255, 255, 255)
  510. CIRCLE (x2 + 15, y2 - 5), 3, _RGB32(255, 255, 255)
  511. LINE (x2 + 15, y2 - 2)-(x2 + 5, y2), _RGB32(255, 255, 255)
  512. LINE (x2 + 5, y2)-(x2, y2 - 4), _RGB32(255, 255, 255)
  514.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Checkers
« Reply #1 on: February 03, 2020, 10:22:08 pm »
Hi Ken,

I checked out your program hoping to help with keeping King crowned but it's too much Ken's style and typing in moves got boring. Oh well, BUT you inspired me to try my hand at it! :) https://www.qb64.org/forum/index.php?topic=2149.0
« Last Edit: February 03, 2020, 10:38:32 pm by bplus »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Checkers
« Reply #2 on: February 04, 2020, 12:50:34 pm »
I agree Bplus, I kinda pushed myself into a corner on that one. But I appreciate you checking it out. Time to think of a new project. :)
Logged
Pages: [1]   Go Up
« previous next »