A 90% complete chess engine

[SierraKen]

OK I believe! 700+ lines of code is probably possible, specially no check, castle, pawn promo and stopping to play? :) still nice chunk of code to get done.

Is that about 6 hours? One long sitting...

The only way I could ever do 700+ lines of code in 1 day is to use my Picture to .BAS converter. It changes a picture to all PSET lines, 1 PSET per line.... like 10,000 lines or something like that.

[Richard Frost]

Update using Bplus's graphics.  Castling works properly.  Still no checkmate.  Has "t" for take back move.
Still a long way to go, like years of my spare time.

Code: QB64: [Select]

1. _TITLE "Chess"
2.  
3. DEFINT A-Z
4.  
5. CONST true = -1, false = 0
6. CONST Rook = 1, Knight = 2, Bishop = 3, Queen = 4, King = 5, Pawn = 6
7.  
8. COMMON SHARED WorB, Move, Score, Index, opening
9. COMMON SHARED m$, i$, mess$
10. COMMON SHARED MaxRow, xq, yq, xc, yc, xm, ym
11. COMMON SHARED speed, WaitForKey, Studying
12. COMMON SHARED Castle$, OtherK$, mkr, mkc, okr, okc, invert
13. COMMON SHARED MasterLevel, SaveWorB
14. COMMON SHARED GameFile$, RunWith, check, redo, b1, b2, b1$, b2$
15. COMMON SHARED debug, DebugR, DebugC
16. COMMON SHARED Start1&, Start2&, MaxElapse!
17. COMMON SHARED human, humanc, OnAuto, sillyf, rflag
18. COMMON SHARED boardwhite&, boardblack&
19. COMMON SHARED black&, red&, green&, blue&, white&
20. COMMON SHARED Enter$, Esc$, lf$, crlf$
21. COMMON SHARED debug$, tbf, tbc
22.  
23. l = 5: p = 6: b = 8: q1 = 200: q2 = 500
24. DIM SHARED b(b, b), t(b, b, l), o(b, b), mp$(p, 7), tb(b, b, 10)
25. DIM SHARED Moves(l), Move$(l, q1), Score(l, q1), TieTo(l), Index(l, q1)
26. DIM SHARED x(p, q2), y(p, q2), c(12, q2), MoveLog$(q2)
27. DIM SHARED gm$(999)
28. DIM SHARED cp&(32)
29.  
30. 'ON ERROR GOTO Oops
31.  
32. 'GameFile$ = "'chessx.alg"
33.  
34. sillyf = 1 '                                            Moire effect, toggle with "z", or just default this to 0
35.  
36. Begin:
37. Init
38. gm = 1
39. DO
40.     SaveWorB = WorB
41.     IF LEN(GameFile$) THEN
42.         opening = 1
43.         ScanKey
44.         m$ = gm$(gm)
45.         'LOCATE 1, 1: PRINT gm; "*"; m$; "*";
46.         _DISPLAY
47.         SLEEP
48.         Score = 0
49.         IF RIGHT$(m$, 1) = "+" THEN
50.             Score = 777
51.             check = true
52.             m$ = LEFT$(m$, LEN(m$) - 1)
53.         END IF
54.         gm = gm + 1
55.         IF LEN(m$) = 0 THEN opening = 0: GameFile$ = ""
56.     END IF
57.  
58.     'IF opening > 0 THEN
59.     '    READ m$
60.     'IF m$ = "end" THEN opening = 0
61.     'END IF
62.  
63.     IF opening = 0 THEN
64.         IF Start1& = 0 THEN Start1& = TIMER
65.         Start2& = TIMER
66.         SaveForTakeBack
67.         redo:
68.         WorB = WorB XOR 1
69.         CheckBoard 1
70.         WorB = WorB XOR 1
71.         CheckBoard 0
72.         IF Moves(0) = 0 THEN mess$ = "Stalemate"
73.         IF LEN(mess$) > 0 THEN EXIT DO
74.         'LOCATE 1, 1: PRINT debug$;
75.         IF human AND (humanc = WorB) THEN
76.             woof:
77.             IF tbf THEN
78.                 takeback
79.                 PlotAll
80.                 tbf = 0
81.                 GOTO redo
82.             END IF
83.             'LOCATE 1, 1: PRINT tbc; " ";
84.             HumanMove
85.             IF tbf THEN GOTO woof
86.             ok = 0
87.             FOR i = 1 TO Moves(0)
88.                 IF m$ = Move$(0, i) THEN ok = 1: EXIT FOR
89.             NEXT i
90.             IF ok = 0 THEN SOUND 200, 1: GOTO woof
91.         ELSE
92.             DebugR = 99
93.             IF sillyf THEN silly
94.             rflag = 1
95.             Recurse 1
96.             rflag = 0
97.             TakeBest 0
98.             IF debug THEN Debug1
99.             PlotAll
100.         END IF
101.     END IF
102.     WorB = SaveWorB
103.     DispTime
104.  
105.     fr = VAL(MID$(m$, 2, 1)) '                                       from row
106.     IF invert THEN fr = 9 - fr
107.     fc = INSTR("abcdefgh", LEFT$(m$, 1)) '                           from column
108.     IF invert THEN fc = 9 - fc
109.     IF LEFT$(m$, 1) = "O" THEN
110.         IF (WorB = 0) AND (humanc = 0) THEN
111.             fr = mkr: fc = mkc
112.         ELSE
113.             fr = okr: fc = okc
114.         END IF
115.     END IF
116.  
117.     DO: _LIMIT 10
118.         ic = (ic + 1) MOD 10
119.         IF ic > 5 THEN f$ = "clockx.png" ELSE f$ = "clockx2.png"
120.         IF f$ <> oldf$ THEN
121.             i& = _LOADIMAGE(f$): _ICON i&: _FREEIMAGE i&
122.             oldf$ = f$
123.         END IF
124.         zz = zz XOR 1
125.         IF zz THEN
126.             c1& = _RGB32(RND * 155 + 100, RND * 155 + 100, RND * 155 + 100)
127.             c2& = _RGB32(RND * 155 + 100, RND * 155 + 100, RND * 155 + 100)
128.         ELSE
129.             c1& = black&: c2& = black&
130.         END IF
131.         x1 = xc + (fc - 5) * xq
132.         y1 = yc + (4 - fr) * yq
133.         x2 = x1 + xq
134.         y2 = y1 + yq
135.         LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), c1&, B
136.         LINE (x1 + 2, y1 + 2)-(x2 - 2, y2 - 2), c1&, B
137.  
138.         IF LEFT$(m$, 1) <> "O" THEN '                                    castling
139.             tr = VAL(MID$(m$, 4, 1))
140.             IF invert THEN tr = 9 - tr
141.             tc = INSTR("abcdefgh", MID$(m$, 3, 1))
142.             IF invert THEN tc = 9 - tc
143.             x1 = xc + (tc - 5) * xq
144.             y1 = yc + (4 - tr) * yq
145.             x2 = x1 + xq
146.             y2 = y1 + yq
147.             LINE (x1 + 1, y1 + 1)-(x2 - 1, y2 - 1), c2&, B
148.             LINE (x1 + 2, y1 + 2)-(x2 - 2, y2 - 2), c2&, B
149.         END IF
150.         _DISPLAY
151.         _DELAY .01
152.         IF NOT ((WorB <> humanc) AND (opening = 0)) THEN EXIT DO
153.         ScanKey
154.         'IF tbf THEN GOTO begin2
155.     LOOP UNTIL i$ = Enter$
156.     f$ = "chess3.png": i& = _LOADIMAGE(f$): _ICON i&: _FREEIMAGE i&
157.  
158.     MoveIt m$, -1
159.     ShowAlgebraic m$
160.     IF sillyf THEN silly ELSE PlotAll
161.     _DISPLAY
162.  
163.     IF opening = 0 THEN
164.         check = false
165.         CheckBoard 0
166.         LOCATE 1, 58
167.         IF Score = 777 THEN
168.             check = true
169.             PRINT "Check!";
170.         ELSE
171.             PRINT "      ";
172.         END IF
173.     END IF
174.  
175.     WorB = SaveWorB XOR 1 '                                          toggle white/black
176.     'IF LEN(GameFile$) > 0 THEN KeyGet
177.     'IF humanc = WorB THEN KeyGet
178.     'WaitForKey = true
179. LOOP UNTIL Move = 500
180.  
181. IF Move = 500 THEN mess$ = "Over 500 moves...."
182. tc = 60 - LEN(mess$) \ 2
183. LOCATE 22, tc: PRINT mess$;
184. PRINT #1, ""
185. PRINT #1, mess$
186. ' IF Studying THEN KeyGet
187. CLOSE
188. GOTO Begin
189. END
190.  
191. o1:
192. DATA e2e4,e7e5,g1f3,b8c6,f1b5,a7a6,b5a4,b7b5,a4b3,g8f6,b1c3,f8e7,f3g5,h7h6
193. 'DATA g5f7,O-O
194. 'DATA f7d8,g8h7
195. DATA end
196.  
197. SetUp:
198. DATA 1,2,3,4,5,3,2,1
199. DATA 6,6,6,6,6,6,6,6
200. DATA 0,0,0,0,0,0,0,0
201. DATA 0,0,0,0,0,0,0,0
202. DATA 0,0,0,0,0,0,0,0
203. DATA 0,0,0,0,0,0,0,0
204. DATA 12,12,12,12,12,12,12,12
205. DATA 7,8,9,10,11,9,8,7
206.  
207. Legal:
208. '       udlr,udlr,udlr,udlr,udlr,udlr,udlr,udlr
209. DATA R,8000,0800,0080,0008,0000,0000,0000,0000
210. DATA N,2010,2001,0210,0201,1020,1002,0120,0102
211. DATA B,8080,8008,0880,0808,0000,0000,0000,0000
212. DATA Q,8000,0800,0080,0008,8080,8008,0880,0808
213. DATA K,1000,0100,0010,0001,1010,1001,0110,0101
214. DATA P,1000,1001,1010,0000,0000,0000,0000,0000
215.  
216. PiecePatterns:
217. DATA ........................
218. DATA ........................
219. DATA ........................
220. DATA ........................
221. DATA ....X..XX..XX..XX..X....
222. DATA ....X..XX..XX..XX..X....
223. DATA ....X..XX..XX..XX..X....
224. DATA ....X..XX..XX..XX..X....
225. DATA ....X..XX..XX..XX..X....
226. DATA .....X.XX..XX..XX.X.....
227. DATA ......XXXXXXXXXXXX......
228. DATA .....XX..........XX.....
229. DATA ......X.XXXXXXXX.X......
230. DATA ......X.XXXXXXXX.X......
231. DATA ......X.XXXXXXXX.X......
232. DATA ......X.XXXXXXXX.X......
233. DATA .....X............X.....
234. DATA .....X..XXXXXXXX..X.....
235. DATA ....X..............X....
236. DATA ...X..XXXXXXXXXXXX..X...
237. DATA ...X................X...
238. DATA ...XXXXXXXXXXXXXXXXXX...
239.  
240. DATA ........................
241. DATA ........................
242. DATA ........................
243. DATA ........................
244. DATA ............XXX.........
245. DATA ..........XX.X.X........
246. DATA .........X..X.X.XX......
247. DATA ........X.X.XX.X..X.....
248. DATA .......X.XXXX.X.X..X....
249. DATA .......X.X...XXX.X..X...
250. DATA .....X..XX..X.XXX.X.X...
251. DATA ....X.XXXXXXX.XXX.X..X..
252. DATA ...X.XXXXXX.X..XX.X..X..
253. DATA ...X.XX..XXX.X.XX.X..X..
254. DATA ....X..XXXX..X.XX.X..X..
255. DATA .....XX..X..X.XXX.X..X..
256. DATA ........X..XX.XX.XX.X...
257. DATA .......X..XX.XX.XX.X....
258. DATA ......XXXXXXXXXXXXXX....
259. DATA .....X..............X...
260. DATA ....X................X..
261. DATA .....XXXXXXXXXXXXXXXX...
262.  
263. DATA ........................
264. DATA ........................
265. DATA ........................
266. DATA ............X...........
267. DATA ...........X.X..........
268. DATA ..........X.X.X.........
269. DATA ........X...XX..X.......
270. DATA .......X..X..XX..X......
271. DATA .......X.XXX..XX.X......
272. DATA .......X.XXXX..X.X......
273. DATA ........X.......X.......
274. DATA .......XX.X.X.X.XX......
275. DATA ......X...........X.....
276. DATA .......X.XXX.XX.XX......
277. DATA ........X.XX.XX.X.......
278. DATA .......X.XXX.XXX.X......
279. DATA .......X.XXX.XXX.X......
280. DATA ......X.X.......X.X.....
281. DATA .....X.XXXXX.XXXXX.X....
282. DATA .....X.XXXXX.XXXXX.X....
283. DATA .....X.............X....
284. DATA ......XXXXXXXXXXXXX.....
285.  
286. DATA ............X...........
287. DATA ...........X.X..........
288. DATA .....X....X.X.X....X....
289. DATA ....X.X.XX.XXX..X.X.X...
290. DATA ...X.X.X..XX.XXX.X.X.X..
291. DATA ...X.XX.XXX.X.XXX.XX.X..
292. DATA ...X.XXX.X.XXX.X.XXX.X..
293. DATA ...X.XXXX.XXXXX.XXXX.X..
294. DATA ....X.XXXXXX..XXXXX.X...
295. DATA .....X.XXXXX..XXXX.X....
296. DATA .....X.............X....
297. DATA ......XXXXXXXXXXXXX.....
298. DATA ....X...............X...
299. DATA ......XX.XXXXXXX.XX.....
300. DATA .......X.X.XXX.X.X......
301. DATA ......X.XX.XXX.XX.X.....
302. DATA ......X.XX.XXX.XX.X.....
303. DATA .....XXXXXXXXXXXXXXX....
304. DATA ....X...............X...
305. DATA ...X..XX.XX.XX.XX.X..X..
306. DATA ...X.................X..
307. DATA ....XXXXXXXXXXXXXXXXX...
308.  
309. DATA ...........XX...........
310. DATA .........XX..XX.........
311. DATA .......XX.X..X.XX.......
312. DATA .....XX.X......X.XX.....
313. DATA ....X..XX.X..X.XX..X....
314. DATA ...X...XXXX..XXXX...X...
315. DATA ..X...XX........XX...X..
316. DATA .X..XXX.XXX..XXX.XXX..X.
317. DATA X..XXX..XXX..XXX..XXX..X
318. DATA X.XXXX..XXX..XXXX.XXXX.X
319. DATA X.XXXX.XXXX..XXXX.XXXX.X
320. DATA X.XXXX..XXXXXXXX..XXXX.X
321. DATA .X.XXXX..XXXXXX..XXXX.X.
322. DATA .X..XXXX..XXXX..XXXX..X.
323. DATA ..X..XXXX......XXXX..X..
324. DATA ...X....X......X....X...
325. DATA ...XXXXXXXXXXXXXXXXXX...
326. DATA ..X..................X..
327. DATA .X..XXXXXXXXXXXXXXXX..X.
328. DATA .X..XXXXXXXXXXXXXXXX..X.
329. DATA ..X..................X..
330. DATA ...XXXXXXXXXXXXXXXXXX...
331.  
332. DATA ........................
333. DATA ........................
334. DATA ........................
335. DATA ..........XXXX..........
336. DATA .........X....X.........
337. DATA ........X.XXXX.X........
338. DATA ........X.XXXX.X........
339. DATA .........X....X.........
340. DATA ........XXXXXXXX........
341. DATA .......X........X.......
342. DATA ........XXXXXXXX........
343. DATA .........X.XX.X.........
344. DATA .........X.XX.X.........
345. DATA .........X.XX.X.........
346. DATA ........X..XX..X........
347. DATA .......X..XXXX..X.......
348. DATA ......X.XXXXXXXX.X......
349. DATA ......X.XXXXXXXX.X......
350. DATA .....X............X.....
351. DATA ......XXXXXXXXXXXX......
352. DATA ........................
353. DATA ........................
354.  
355. rgb:
356. DATA 0,0,0,0,""
357. DATA 1,30,60,20,"board white"
358. DATA 2,1,1,1,"board black"
359. DATA 3,92,92,92,"white bright"
360. DATA 4,22,22,92,"white hightlight"
361. DATA 5,0,0,0,"black bright"
362. DATA 6,62,22,22,"black hightlight"
363. DATA 7,63,20,20,"red"
364. DATA 8,0,63,0,"green"
365. DATA 9,0,0,63,"blue"
366. DATA 10,63,63,63,"white"
367. DATA 11,20,20,20,""
368. DATA 12,20,20,20,""
369. DATA 13,20,20,20,""
370. DATA 14,20,20,20,""
371. DATA 15,30,30,30,"printing"
372.  
373. Oops:
374. gronk = gronk + 1
375. IF gronk < 900 THEN
376.     RESUME
377. ELSE
378.     PRINT "Error "; DATE$; "  "; TIME$;
379.     END
380. END IF
381.  
382. SUB AddIt (Level, tm$, Score)
383.     Moves(Level) = Moves(Level) + 1 '                                count ok
384.     Move$(Level, Moves(Level)) = tm$ '                               save move
385.     Score(Level, Moves(Level)) = Score
386.     Index(Level, Moves(Level)) = TieTo(Level)
387. END SUB
388.  
389. SUB BoRestore (Level)
390.     FOR r = 1 TO 8
391.         FOR c = 1 TO 8
392.             b(r, c) = t(r, c, Level)
393.         NEXT c
394.     NEXT r
395. END SUB
396.  
397. SUB BoSave (Level)
398.     FOR r = 1 TO 8
399.         FOR c = 1 TO 8
400.             t(r, c, Level) = b(r, c)
401.         NEXT c
402.     NEXT r
403. END SUB
404.  
405. SUB CheckBoard (Level)
406.     Moves(Level) = 0
407.     tking = 5: oking = 11
408.     IF WorB THEN SWAP tking, oking
409.     FOR r = 1 TO 8
410.         FOR c = 1 TO 8
411.             IF b(r, c) = tking THEN
412.                 mkr = r
413.                 mkc = c
414.             END IF
415.             IF b(r, c) = tking THEN
416.                 okr = r
417.                 okc = c
418.             END IF
419.         NEXT c
420.     NEXT r
421.  
422.     FOR r = 1 TO 8
423.         FOR c = 1 TO 8
424.             mp = b(r, c)
425.             mc = -(mp > 6) - (mp = 0) * 2
426.             IF mc = WorB THEN TryMove Level, r, c
427.         NEXT c
428.     NEXT r
429.  
430.     '  BBWW
431.     '  QKQK
432.     IF MID$(Castle$, WorB * 2 + 1, 1) = " " THEN cq = true ELSE cq = false ' blank means ok
433.     IF MID$(Castle$, WorB * 2 + 2, 1) = " " THEN ck = true ELSE ck = false
434.  
435.     neks$ = "" '  not empty kingside
436.     neqs$ = "" '  not empty queenside
437.     qsc$ = "" '   queenside control
438.     ksc$ = "" '   kingside control
439.     kic$ = "" '   king in check
440.     nok$ = "" '   king not there
441.     nrq$ = "" '   no rook queenside
442.     nrk$ = "" '   no rook kingside
443.  
444.     FOR Castle = 0 TO 1 '                                            queenside, then kingside
445.         '                         bcd              fg
446.         IF Castle = 0 THEN ca$ = "234" ELSE ca$ = "67" '             column number
447.         IF WorB THEN rn$ = "1" ELSE rn$ = "8" '                      row number
448.         tp = b(VAL(rn$), 5): tp = tp + (tp > 6) * 6
449.         IF tp <> 5 THEN nok$ = "nok "
450.         tp = b(VAL(rn$), 1): tp = tp + (tp > 6) * 6
451.         IF tp <> 1 THEN nrq$ = "nrq "
452.         tp = b(VAL(rn$), 8): tp = tp + (tp > 6) * 6
453.         IF tp <> 1 THEN nrq$ = "nrk "
454.         FOR cs = 1 TO LEN(ca$)
455.             rn = VAL(rn$)
456.             n$ = MID$(ca$, cs, 1)
457.             cn = VAL(n$)
458.             c$ = MID$("abcdefgh", cn, 1)
459.             tp = b(rn, cn)
460.             tp = tp + (tp > 6) * 6 '                                 convert >6 to 1-5
461.             IF tp <> 0 THEN '                                        not empty
462.                 IF Castle = 0 THEN cq = false ELSE ck = false
463.                 IF Castle = 0 THEN neqs$ = neqs$ + "neq " + c$ + rn$ + " "
464.                 IF Castle = 1 THEN neks$ = neks$ + "nek " + c$ + rn$ + " "
465.             END IF
466.             q$ = MID$("abcdefgh", cn, 1) + rn$
467.             FOR lm = 1 TO Moves(1)
468.                 IF q$ = RIGHT$(Move$(1, lm), 2) THEN
469.                     IF Castle = 0 THEN cq = false ELSE ck = false
470.                     IF Castle = 0 THEN qsc$ = "qsc" + Move$(1, lm) + " "
471.                     IF Castle = 1 THEN ksc$ = "ksc " + Move$(1, lm) + " "
472.                 END IF
473.             NEXT lm
474.             q$ = "e" + rn$
475.             FOR lm = 1 TO Moves(1)
476.                 IF q$ = RIGHT$(Move$(1, lm), 2) THEN cq = 0: ck = 0: kic$ = "kic " + Move$(1, lm) + " "
477.             NEXT lm
478.         NEXT cs
479.     NEXT Castle
480.     debug$ = nok$ + nrq$ + nrk$ + kic$ + neqs$ + neks$ + qsc$ + ksc$ + "     *"
481.  
482.     IF ck THEN AddIt Level, "O-O", 12
483.     IF cq THEN AddIt Level, "O-O-O", 13
484.  
485.     'LOCATE 34 + WorB, 46: PRINT "*"; Castle$; "*";
486.     'PRINT MID$("K ", ck + 2, 1);
487.     'PRINT MID$("Q ", cq + 2, 1); cq; ck;
488.  
489.     TakeBest Level
490. END SUB
491.  
492. SUB Debug1
493.     sr = 32
494.     r = sr
495.     c = 4
496.     FOR t = 1 TO 20
497.         IF c < 75 THEN
498.             LOCATE r, c: PRINT SPACE$(8);
499.             IF t <= Moves(0) THEN
500.                 LOCATE r, c
501.                 PRINT Make4$(Move$(0, t)); rjust$(Score(0, t), 4);
502.             END IF
503.         END IF
504.         r = r + 1
505.         IF r > MaxRow THEN r = sr: c = c + 9
506.     NEXT t
507. END SUB
508.  
509. SUB Debug2 ()
510.     'IF human AND (humanc = WorB) THEN EXIT SUB
511.     DebugR = DebugR + 1
512.     IF DebugR > MaxRow THEN
513.         _DISPLAY
514.         DebugR = 3: DebugC = 62
515.         FOR r = 0 TO MaxRow - 2
516.             LOCATE DebugR + r, DebugC
517.             PRINT SPACE$(98 - DebugC);
518.         NEXT r
519.     END IF
520.     ts = 0: s = 1
521.     z$ = ""
522.     FOR t = 1 TO 3
523.         ti = TieTo(t)
524.         z$ = z$ + Make4$(Move$(t - 1, ti)) + rjust$(Score(t - 1, ti), 3) + " "
525.         ts = ts + Score(t - 1, ti) * s
526.         's = -s
527.     NEXT t
528.     ts = ts - Score
529.     z$ = z$ + Make4$(m$) + rjust$(Score, 3) + " " + rjust$(ts, 4)
530.     LOCATE DebugR, DebugC
531.     PRINT z$; "   ";
532.     PRINT #7, z$
533. END SUB
534.  
535. SUB DispText (zr, zc)
536.     t$ = " RNBQKP"
537.     LOCATE TextRow(zr), TextCol(zc)
538.     IF b(zr, zc) > 6 THEN COLOR 0, 7
539.     PRINT MID$(t$, TextVal(zr, zc) + 1, 1);
540.     COLOR 7, 0
541. END SUB
542.  
543. SUB DispTime
544.     IF Start2& > 0 THEN
545.         Elapse1! = TIMER - Start1&
546.         Elapse2! = TIMER - Start2&
547.         IF Elapse2! > MaxElapse! THEN MaxElapse! = Elapse2!
548.         'ShowTime 3, Elapse1!, "Game:"
549.         'ShowTime 4, Elapse2!, "This move:"
550.         'ShowTime 5, MaxElapse!, "Max move:"
551.     END IF
552. END SUB
553.  
554. SUB FadePiece (tfr, tfc, ttr, ttc)
555.     fr = tfr: fc = tfc: tr = ttr: tc = ttc
556.     x1 = xc + (fc - 5) * xq
557.     y1 = yc + (4 - fr) * yq
558.     x2 = xc + (tc - 5) * xq
559.     y2 = yc + (4 - tr) * yq
560.     p = b(tr, tc)
561.     IF invert THEN p = b(9 - tr, 9 - tc)
562.     IF p > 6 THEN wb = 1: p = p - 6
563.     i = p - (wb = 0) * 6
564.  
565.     FOR ps = 0 TO 1
566.         IF ps = 0 THEN
567.             c = fr + fc: tx = x1: ty = y1
568.         ELSE
569.             c = tr + tc: tx = x2: ty = y2
570.         END IF
571.         IF c MOD 2 THEN
572.             LINE (tx, ty)-(tx + xq, ty + yq), boardwhite&, BF
573.         ELSE
574.             LINE (tx, ty)-(tx + xq, ty + yq), boardblack&, BF '      black square
575.             LINE (tx, ty)-(tx + xq, ty + yq), boardwhite&, B '       border
576.         END IF
577.     NEXT ps
578.  
579.     FOR t = 1 TO c(p, 0)
580.         tx = x1 + x(p, t) * 2
581.         ty = y1 + y(p, t) * 2
582.         LINE (tx, ty)-STEP(1, 1), cp&(c(i, t)), B
583.     NEXT t
584. END SUB
585.  
586. SUB HumanMove
587.     getreal:
588.     FOR i = 0 TO 1
589.         IF i = 0 THEN
590.             rr = 8: cc = 1
591.             IF invert THEN rr = 9 - rr: cc = 9 - cc
592.         ELSE
593.             rr = fr: cc = fc
594.         END IF
595.         IF invert THEN rr = 9 - rr: cc = 9 - cc
596.         mx = _MOUSEX
597.         my = _MOUSEY
598.         DO
599.             x1 = xc - 4 * xq
600.             y1 = yc - 4 * yq
601.             x2 = xc + 4 * xq
602.             y2 = yc + 4 * yq
603.             LINE (x1, y1)-(x2, y2), boardwhite&, B
604.             'LOCATE 1, 1: PRINT "Move ";
605.             x1 = xc + (cc - 5) * xq
606.             x2 = xc + (cc - 4) * xq
607.             y1 = yc + (rr - 5) * yq
608.             y2 = yc + (rr - 4) * yq
609.             wc& = POINT(x1 + 1, y1 + 1)
610.             FOR zz = 0 TO 1
611.                 FOR zx = 1 TO 4
612.                     IF zz THEN tc& = wc& ELSE tc& = red&
613.                     LINE (x1 + zx, y1 + zx)-(x2 - zx, y2 - zx), tc&, B
614.                 NEXT zx
615.                 _DISPLAY
616.                 _DELAY .01
617.             NEXT zz
618.             tmx = _MOUSEX
619.             tmy = _MOUSEY
620.             IF (ABS(mx - tmx) > 8) OR (ABS(my - tmy) > 8) THEN
621.                 IF tmx > mx THEN cc = cc + 1
622.                 IF tmx < mx THEN cc = cc - 1
623.                 IF tmy > my THEN rr = rr + 1
624.                 IF tmx < my THEN rr = rr - 1
625.             END IF
626.             ScanKey
627.             IF tbf THEN EXIT SUB
628.             IF LEN(i$) = 2 THEN
629.                 kk = ASC(RIGHT$(i$, 1))
630.                 cc = cc + (kk = 75) - (kk = 77) '                    left right
631.                 rr = rr + (kk = 72) - (kk = 80) '                    up down
632.             END IF
633.             IF rr < 1 THEN rr = 1
634.             IF rr > 8 THEN rr = 8
635.             IF cc < 1 THEN cc = 1
636.             IF cc > 8 THEN cc = 8
637.         LOOP UNTIL (i$ = Enter$) OR (i$ = "d")
638.         IF invert THEN rr = 9 - rr: cc = 9 - cc
639.         IF i = 0 THEN
640.             fr = rr: fc = cc
641.         ELSE
642.             tr = rr: tc = cc
643.         END IF
644.     NEXT i
645.     fs$ = MID$("abcdefgh", fc, 1) + LTRIM$(STR$(9 - fr))
646.     ts$ = MID$("abcdefgh", tc, 1) + LTRIM$(STR$(9 - tr))
647.     'IF fs$ = ts$ THEN GOTO getreal
648.     m$ = fs$ + ts$
649.     IF m$ = "e1g1" THEN m$ = "O-O"
650.     IF m$ = "e1c1" THEN m$ = "O-O-O"
651.     IF m$ = "e8g1" THEN m$ = "O-O"
652.     IF m$ = "e8c1" THEN m$ = "O-O-O"
653. END SUB
654.  
655. SUB colorassign
656.     black& = cp&(0)
657.     boardwhite& = cp&(1)
658.     boardblack& = cp&(2)
659.     red& = _RGB32(255, 0, 0)
660.     green& = cp&(8)
661.     blue& = cp&(9)
662.     white& = cp&(10)
663. END SUB
664.  
665. SUB Init
666.     IF highres THEN
667.         xm = 1280: ym = 800
668.     ELSE
669.         xm = 800: ym = 600
670.     END IF
671.     SCREEN _NEWIMAGE(xm, ym, 32)
672.     _DELAY .3
673.     IF highres THEN _SCREENMOVE 0, 0 ELSE _SCREENMOVE 472, 20
674.     MaxRow = ym \ 16 - 1
675.     _DELAY .3
676.  
677.     f$ = "chess3.png": i& = _LOADIMAGE(f$): _ICON i&: _FREEIMAGE i&
678.     _DELAY .3
679.     _ALLOWFULLSCREEN _SQUAREPIXELS
680.  
681.     RESTORE rgb
682.     FOR p = 0 TO 15
683.         READ PalNum, r, g, b, Desc$
684.         cp&(p) = _RGB32(r * 4, g * 4, b * 4)
685.     NEXT p
686.     colorassign '                                                    red&, green&, etc, easier to use than palette numbers
687.  
688.     RANDOMIZE TIMER '                                                seed generator
689.     Move = 0
690.     WorB = 1 '                                                       white=1, black=0
691.     speed = 3
692.     q = 28
693.     q = q * 2
694.     xq = q: yq = q
695.     xc = 248: yc = 254 '                                             center of board
696.  
697.     Enter$ = CHR$(13)
698.     Esc$ = CHR$(27) '                                                to quit program
699.     lf$ = CHR$(10) '                                                 line feed
700.     crlf$ = Enter$ + lf$
701.  
702.     Castle$ = SPACE$(4) '                                            flags QKQK (B then W)
703.  
704.     mess$ = ""
705.     RESTORE PiecePatterns '                                          bit images
706.     FOR p = 1 TO 6 ' RNBQKP
707.         PRINT MID$("RNBQKP", p, 1); " ";
708.         n = 0
709.         FOR y = 0 TO 21 ' 22 rows
710.             READ d$
711.             p1 = INSTR(d$ + "X", "X") '                              find first "on" bit
712.             FOR t = LEN(d$) TO 1 STEP -1 '                           find last "on" bit
713.                 IF MID$(d$, t, 1) = "X" THEN
714.                     p2 = t
715.                     EXIT FOR
716.                 END IF
717.             NEXT t
718.             FOR x = p1 TO p2
719.                 pixel = INSTR(".X", MID$(d$, x, 1))
720.                 n = n + 1
721.                 IF pixel = 2 THEN c = 3 ELSE c = 4
722.                 x(p, n) = x + 1
723.                 y(p, n) = y + 2
724.                 c(p, n) = c
725.                 IF pixel = 2 THEN c = 5 ELSE c = 6
726.                 c(p + 6, n) = c
727.             NEXT x
728.         NEXT y
729.         c(p, 0) = n
730.         FOR scram = 1 TO 256 '                                       scramble (moves nicer)
731.             c1 = RND * (c(p, 0) - 1) + 1 '                           any bit
732.             c2 = RND * (c(p, 0) - 1) + 1 '                           any other bit
733.             SWAP x(p, c1), x(p, c2)
734.             SWAP y(p, c1), y(p, c2)
735.             SWAP c(p, c1), c(p, c2) '                                black
736.             SWAP c(p + 6, c1), c(p + 6, c2) '                        white
737.         NEXT scram
738.     NEXT p
739.  
740.     RESTORE Legal '                                                  define how piece moves
741.     FOR p = 1 TO 6 '                                                 RNBQKP
742.         READ p$ '                                                    piece, not saved
743.         FOR t = 0 TO 7 '                                             8 each
744.             READ mp$(p, t) '                                         mp (move piece)
745.         NEXT t
746.     NEXT p
747.  
748.     RESTORE SetUp '                                                  initial board position
749.     FOR r = 8 TO 1 STEP -1 '                                         row
750.         FOR c = 1 TO 8 '                                             column
751.             READ b(r, c)
752.             o(r, c) = b(r, c)
753.         NEXT c
754.     NEXT r
755.  
756.     elim$ = " ,"
757.     gm = 0: n = 0
758.     IF LEN(GameFile$) > 0 THEN ReadGame
759.     gm = 0
760.  
761.     f = f + 1
762.     f$ = "chess" + LTRIM$(STR$(f))
763.     OPEN f$ + ".alg" FOR OUTPUT AS #1 '                              algrebraic moves
764.     OPEN "debug.txt" FOR OUTPUT AS #7
765.     'MasterLevel = VAL(COMMAND$) '                                    only 4 really tested....
766.     'GameFile$ = COMMAND$
767.     'IF _FILEEXISTS(GameFile$) THEN ReadGame ELSE GameFile$ = ""
768.     MasterLevel = VAL(COMMAND$)
769.     IF MasterLevel = 0 THEN MasterLevel = 4
770.     debug = true '                                                   someday I may turn this off
771.  
772.     m$ = "(w)hite  (b)lack  (n)one"
773.     r = _HEIGHT \ 32: c = _WIDTH \ 16
774.     CLS: LOCATE r, c - LEN(m$) \ 2: PRINT m$;
775.     DO: _LIMIT 10
776.         i$ = INKEY$
777.         IF i$ = "" THEN i$ = " "
778.         IF i$ = Esc$ THEN SYSTEM
779.         p = INSTR("bwn", i$)
780.     LOOP UNTIL p
781.     IF p = 3 THEN
782.         human = 0 '                                                  press n for none (watch computer play)
783.     ELSE
784.         human = 1
785.         humanc = p - 1 '                                             0 black, 1 white
786.         IF humanc = 0 THEN invert = 1 '                              if black, flip board to have black at bottom
787.     END IF
788.     CLS
789.     PlotAll
790.  
791.     'opening = 1
792.     'RESTORE o1
793. END SUB
794.  
795. SUB KeyGet
796.     EXIT SUB
797.     sr = CSRLIN: sc = POS(0)
798.     DO
799.         ScanKey
800.         star = star XOR 1
801.         IF i$ > "" THEN star = 0
802.         LOCATE sr, sc
803.         IF LEN(GameFile$) = 0 THEN PRINT CHR$(32 + star * 10);
804.     LOOP UNTIL i$ > ""
805.     IF i$ = "s" THEN WaitForKey = false
806. END SUB
807.  
808. FUNCTION Make4$ (t$)
809.     Make4$ = LEFT$(t$ + SPACE$(4), 4)
810. END FUNCTION
811.  
812. SUB MoveIt (m$, real)
813.     IF m$ = "res" THEN EXIT SUB '                                    resign?
814.     fs$ = LEFT$(m$, 2) '                                             from square
815.     ts$ = RIGHT$(m$, 2) '                                            to square
816.     tzz = 1 - (LEFT$(m$, 1) = "O") '                                 two moves for a castle
817.     FOR pass = 1 TO tzz
818.         IF m$ = "O-O" THEN '                                         castle Kingside
819.             IF WorB = 1 THEN '                                       white
820.                 IF pass = 1 THEN '                                   first move of KS castle
821.                     fs$ = "e1": ts$ = "g1"
822.                 ELSE ' else 2nd
823.                     fs$ = "h1": ts$ = "f1"
824.                 END IF
825.             ELSE ' black castle
826.                 IF pass = 1 THEN
827.                     fs$ = "e8": ts$ = "g8"
828.                 ELSE
829.                     fs$ = "h8": ts$ = "f8"
830.                 END IF
831.             END IF
832.         END IF
833.         IF m$ = "O-O-O" THEN '                                       castle Queenside
834.             IF WorB THEN '                                           white
835.                 IF pass = 1 THEN
836.                     fs$ = "e1": ts$ = "c1"
837.                 ELSE
838.                     fs$ = "a1": ts$ = "d1"
839.                 END IF
840.             ELSE
841.                 IF pass = 1 THEN
842.                     fs$ = "e8": ts$ = "c8"
843.                 ELSE
844.                     fs$ = "a8": ts$ = "d8"
845.                 END IF
846.             END IF
847.         END IF
848.         fr = VAL(RIGHT$(fs$, 1)) '                                   from row
849.         fc = INSTR("abcdefgh", LEFT$(fs$, 1)) '                      from column
850.         pm = b(fr, fc) '                                             piece to move
851.         p = pm + (pm > 6) * 6
852.         tr = VAL(RIGHT$(ts$, 1)) '                                   to row
853.         tc = INSTR("abcdefgh", LEFT$(ts$, 1)) '                      to column
854.         b(tr, tc) = pm '                                             move piece in array
855.         b(fr, fc) = 0 '                                              blank old array spot
856.         IF real THEN
857.             IF b(r, c) = o(r, c) THEN o(r, c) = -1
858.             FadePiece fr, fc, tr, tc
859.             IF p = King THEN MID$(Castle$, WorB * 2 + 1, 2) = "XX"
860.             IF p = Rook THEN
861.                 IF WorB = 0 THEN
862.                     IF (fr = 8) AND (fc = 1) THEN MID$(Castle$, 1, 1) = "X"
863.                     IF (fr = 8) AND (fc = 8) THEN MID$(Castle$, 2, 1) = "X"
864.                 ELSE
865.                     IF (fr = 1) AND (fc = 1) THEN MID$(Castle$, 3, 1) = "X"
866.                     IF (fr = 1) AND (fc = 8) THEN MID$(Castle$, 4, 1) = "X"
867.                 END IF
868.             END IF
869.         END IF
870.         IF (p = Pawn) AND ((tr = 1) OR (tr = 8)) THEN
871.             b(tr, tc) = Queen - (pm > 6) * 6 '                       promote to queen
872.             IF real THEN FadePiece tr, tc, tr, tc '                  show queen
873.         END IF
874.     NEXT pass
875. END SUB
876.  
877. SUB PlotAll
878.     IF LEN(GameFile$) > 0 THEN
879.         LOCATE 3, 40 - LEN(GameFile$) \ 2
880.         PRINT GameFile$;
881.     END IF
882.     FOR zr = 1 TO 8
883.         FOR zc = 1 TO 8
884.             FadePiece zr, zc, zr, zc
885.         NEXT zc
886.     NEXT zr
887.     'CIRCLE (xc, yc), 100, red&
888.  
889.     r = _RED32(boardwhite&) \ 2
890.     g = _GREEN32(boardwhite&) \ 2
891.     b = _BLUE32(boardwhite&) \ 2
892.     COLOR _RGB32(r, g, b)
893.     FOR i = 1 TO 8 '                                                 legend
894.         IF invert THEN z = i ELSE z = 9 - i
895.         n$ = LTRIM$(STR$(z))
896.         IF invert THEN z = 9 - i ELSE z = i
897.         a$ = MID$("abcdefgh", z, 1)
898.         nx = xc - 4 * xq - 12
899.         ny = yc + (i - 4) * yq - 34
900.         ax = xc + (i - 5) * xq + 22
901.         ay = yc + 4 * yq + 3
902.         _PRINTSTRING (nx, ny), n$
903.         _PRINTSTRING (ax, ay), a$
904.     NEXT i
905.     COLOR white&
906. END SUB
907.  
908. SUB ReadGame
909.     DIM g$(500)
910.     CLS
911.     OPEN GameFile$ FOR INPUT AS #8
912.     WHILE NOT (EOF(8))
913.         INPUT #8, mn, m1$, m2$
914.         gm = gm + 1: g$(gm) = LTRIM$(m1$)
915.         gm = gm + 1: g$(gm) = LTRIM$(m2$)
916.         PRINT m1$; "*"; m2$
917.     WEND
918.     CLOSE #8
919.     _DISPLAY
920.     SLEEP
921.     CLS
922.     _DISPLAY
923. END SUB
924.  
925. SUB Recurse (Level)
926.     DispTime
927.     IF Level = MasterLevel THEN EXIT SUB
928.     'IF human AND (humanc = WorB) AND (Level = 2) THEN EXIT SUB
929.  
930.     FOR t = 1 TO Moves(Level - 1)
931.         WorB = SaveWorB
932.         IF (Level MOD 2) = 1 THEN WorB = WorB XOR 1
933.         TieTo(Level) = t
934.  
935.         IF (Score(0, t) > -777) THEN
936.             BoSave Level
937.             m$ = Move$(Level - 1, t)
938.             MoveIt m$, 0
939.             t$ = rjust$(Moves(Level - 1), 3)
940.             t$ = t$ + rjust$(t, 4) + " "
941.             t$ = t$ + Make4$(m$)
942.             t$ = t$ + rjust$(Score(Level - 1, t), 5)
943.             ShowMe Level + 1, 24, t$
944.             CheckBoard Level
945.             Recurse Level + 1
946.             TakeBest Level
947.             Score = Score(Level, 1)
948.             levm1 = Level - 1
949.             i = Index
950.             IF Score(levm, i) <> -777 THEN Score(levm1, i) = Score(levm1, i) - Score
951.             IF Level = (MasterLevel - 1) THEN Debug2
952.             BoRestore Level
953.         END IF
954.     NEXT t
955.     ScanKey
956. END SUB
957.  
958. FUNCTION rjust$ (t, n)
959.     rjust$ = RIGHT$("   " + STR$(t), n)
960. END FUNCTION
961.  
962. SUB ScanKey
963.     i$ = INKEY$
964.     IF LEN(i$) = 1 THEN
965.         IF i$ = Enter$ THEN EXIT SUB
966.         IF i$ = Esc$ THEN CLOSE: SYSTEM
967.         c = INSTR("123456789ABCDEF", i$)
968.         IF c > 0 THEN cp&(c) = _RGB32(RND * 255, RND * 255, RND * 255): colorassign: PlotAll
969.         IF i$ = "a" THEN OnAuto = NOT (OnAuto)
970.         IF i$ = "i" THEN invert = invert XOR 1: PlotAll
971.         IF i$ = "p" THEN
972.             ShowMe 1, 72, "NoPause"
973.             ShowMe 1, 72, "       "
974.         END IF
975.         IF i$ = "s" THEN SHELL _DONTWAIT "notepad debug.txt"
976.         IF i$ = "t" THEN tbf = 1
977.         IF i$ = "z" THEN
978.             sillyf = sillyf XOR 1
979.             IF sillyf = 0 THEN PlotAll
980.         END IF
981.         i$ = ""
982.     END IF
983.     IF sillyf AND (rflag = 0) THEN silly
984.     IF rflag = 0 THEN _DISPLAY
985. END SUB
986.  
987. SUB ShowAlgebraic (m$)
988.     IF WorB THEN '                                                  white=1, black=0
989.         Move = Move + 1 '                                            number the moves
990.         PRINT #1, RIGHT$("  " + STR$(Move), 3);
991.         PRINT #1, RIGHT$(SPACE$(10) + m$, 7);
992.         MoveLog$(Move) = SPACE$(15)
993.         MID$(MoveLog$(Move), 1, 3) = rjust$(Move, 3)
994.         MID$(MoveLog$(Move), 5, LEN(m$)) = m$
995.     ELSE
996.         MID$(MoveLog$(Move), 11, LEN(m$)) = m$
997.         PRINT #1, " "; m$
998.         IF (Move MOD 5) = 0 THEN PRINT #1, ""
999.     END IF
1000.  
1001.     BeginAt = Move - 18
1002.     IF BeginAt < 1 THEN BeginAt = 1
1003.     dr = 1
1004.     FOR t = BeginAt TO Move
1005.         ShowMe dr + 1, 1, MoveLog$(t)
1006.         dr = dr + 1
1007.     NEXT t
1008. END SUB
1009.  
1010. SUB ShowAsText (br)
1011.     FOR zr1 = 1 TO 8
1012.         FOR zc1 = 1 TO 8
1013.             zr2 = (10 - zr1) * 2 + 3
1014.             zc2 = zc1 * 3 + 17 + br * 32
1015.             tp = b(zr1, zc1)
1016.             IF tp = 0 THEN
1017.                 z$ = "  "
1018.             ELSEIF tp < 7 THEN
1019.                 z$ = "B" + MID$("RNBQKP", tp, 1)
1020.             ELSE
1021.                 z$ = "W" + MID$("RNBQKP", tp - 6, 1)
1022.             END IF
1023.             ShowMe zr2, zc2, z$
1024.         NEXT zc1
1025.     NEXT zr1
1026. END SUB
1027.  
1028. SUB ShowMe (dr, dc, t$)
1029.     EXIT SUB
1030.     sr = CSRLIN '                                                    save row
1031.     sc = POS(0) '                                                    save column
1032.     IF (dr > 0) AND (dr < MaxRow) AND (dc > 0) AND (dc < 76) THEN
1033.         LOCATE dr, dc '                                              display row & column
1034.         PRINT t$;
1035.     END IF
1036.     IF NOT (OnAuto) THEN KeyGet
1037.     LOCATE sr, sc '                                                  restore to old location
1038.     '   IF Pause THEN SLEEP
1039. END SUB
1040.  
1041. SUB ShowTime (trow, t!, Desc$)
1042.     s! = t!
1043.     SELECT CASE s!
1044.         CASE IS > 3600
1045.             unit$ = "h"
1046.             s! = s! / 3600
1047.         CASE IS > 60
1048.             unit$ = "m"
1049.             s! = s! / 60
1050.         CASE ELSE
1051.             unit$ = "s"
1052.     END SELECT
1053.     trow = trow + 3
1054.     LOCATE trow, 34 - LEN(Desc$): PRINT Desc$;
1055.     LOCATE trow, 34
1056.     PRINT USING "###.#"; s!;
1057.     PRINT unit$
1058. END SUB
1059.  
1060. SUB TakeBest (Level)
1061.     FOR scram = 0 TO 99
1062.         s1 = RND * (Moves(Level) - 1) + 1
1063.         s2 = RND * (Moves(Level) - 1) + 1
1064.         SWAP Score(Level, s1), Score(Level, s2)
1065.         SWAP Move$(Level, s1), Move$(Level, s2)
1066.         SWAP Index(Level, s1), Index(Level, s2)
1067.     NEXT scram
1068.  
1069.     passes = 0
1070.     ReSort:
1071.     Score = -999 ' assume no moves
1072.     DO
1073.         Sorted = true
1074.         FOR s = 2 TO Moves(Level)
1075.             IF Score(Level, s - 1) < Score(Level, s) THEN
1076.                 Sorted = false
1077.                 SWAP Score(Level, s - 1), Score(Level, s)
1078.                 SWAP Move$(Level, s - 1), Move$(Level, s)
1079.                 SWAP Index(Level, s - 1), Index(Level, s)
1080.             END IF
1081.         NEXT s
1082.     LOOP UNTIL Sorted
1083.  
1084.     m$ = Move$(Level, 1)
1085.     Score = Score(Level, 1)
1086.     Index = Index(Level, 1)
1087.  
1088.     'IF Level = -1 THEN
1089.     '    FOR lb = 0 TO 2 '                                            stop repeats
1090.     '        IF INSTR(MoveLog$(Move - lb), m$) THEN
1091.     '            Score(Level, 1) = Score(Level, 2) - 1 '              best = 2nd best-1
1092.     '            passes = passes + 1
1093.     '            IF passes < 5 THEN GOTO ReSort '                     repeat may be only move
1094.     '        END IF
1095.     '    NEXT lb
1096.     'END IF
1097.  
1098.     IF Level = 1 THEN
1099.         IF Score = -777 THEN '                                       in check, no escape
1100.             mess$ = "Mate"
1101.         ELSEIF Score = -999 THEN '                                   no moves
1102.             mess$ = "Stalemate"
1103.         END IF
1104.     END IF
1105.  
1106.     IF (Level = 1) AND (Score = 777) THEN Score(0, TieTo(1)) = -777
1107. END SUB
1108.  
1109. FUNCTION TextCol (xc)
1110.     TextCol = (xc - 1) * 2 + 25
1111. END FUNCTION
1112.  
1113. FUNCTION TextRow (xr)
1114.     TextRow = (8 - xr) * 1 + 8
1115. END FUNCTION
1116.  
1117. FUNCTION TextVal (xr, xc)
1118.     i = b(xr, xc)
1119.     i = i + (i > 6) * 6
1120.     TextVal = i
1121. END FUNCTION
1122.  
1123. SUB TryMove (Level, fr, fc) '                                        from row, from column
1124.     mp = b(fr, fc)
1125.     IF mp = 0 THEN END
1126.     mc = -(mp > 6) - (mp = 0) * 2 '                                  moving color
1127.     IF mc = 2 THEN END
1128.     mp = mp + (mp > 6) * 6
1129.     IF mc = 1 THEN s = -1 ELSE s = 1 '                               direction a pawn moves
1130.  
1131.     FOR n = 0 TO 7 '                                                 possible 8 dirs
1132.         udlr$ = mp$(mp, n) '                                         up/down/left/right
1133.         IF udlr$ = "0000" THEN EXIT FOR '                            added 2Jan95
1134.         du = VAL(MID$(udlr$, 1, 1)) '                                direction up
1135.         dd = VAL(MID$(udlr$, 2, 1)) '                                direction down
1136.         dl = VAL(MID$(udlr$, 3, 1)) '                                direction left
1137.         dr = VAL(MID$(udlr$, 4, 1)) '                                direction right
1138.         IF mp <> Knight THEN '                                       not knight
1139.             du = SGN(du) * s '                                       one square at a time
1140.             dd = SGN(dd) * s
1141.             dl = SGN(dl) * s
1142.             dr = SGN(dr) * s
1143.         END IF
1144.         IF INSTR(udlr$, "8") THEN TrySq = 8 ELSE TrySq = 1
1145.         IF (mp = Pawn) AND (n = 0) THEN '                            pawn first move?
1146.             IF (fr = 2) AND (WorB = 1) THEN TrySq = 2 '              gambit for white
1147.             IF (fr = 7) AND (WorB = 0) THEN TrySq = 2 '              gambit for black
1148.         END IF
1149.         tr = fr: tc = fc '                                           row, column
1150.         IF TrySq = 0 THEN END
1151.         FOR sq = 1 TO TrySq '                                        up to 8 loops
1152.             cap = false
1153.             Score = 0 '                                              must init
1154.             tr = tr - du + dd '                                      row=row-up+down
1155.             tc = tc - dl + dr '                                      column=column-left+right
1156.             IF (tr < 1) OR (tr > 8) OR (tc < 1) OR (tc > 8) THEN EXIT FOR
1157.             cp = b(tr, tc) '                                         capture piece
1158.             cc = -(cp > 6) - (cp = 0) * 2 '                          capture color
1159.             cp = cp + (cp > 6) * 6
1160.             IF mc = cc THEN '                                        own piece!
1161.                 EXIT FOR
1162.             ELSEIF (mc XOR 1) = cc THEN '                            capture
1163.                 IF (mp = Pawn) AND (n = 0) THEN EXIT FOR ' no diag, no cap!
1164.                 cap = true
1165.                 '                 RNBQKP
1166.                 Score = VAL(MID$("533901", cp, 1)) * 10
1167.                 IF (Score > 0) AND (Level = 0) THEN Score = Score + 2
1168.                 IF Score = 0 THEN Score = 777 '                      king capture
1169.                 ' IF redo AND (Score = 777) THEN Score = 25
1170.             ELSE
1171.                 IF (mp = Pawn) AND (n > 0) THEN EXIT FOR
1172.             END IF
1173.             IF mp = Pawn THEN
1174.                 IF (tr = 1) OR (tr = 8) THEN '                       promote pawn
1175.                     IF Score <> 777 THEN Score = Score + 99
1176.                 END IF
1177.             END IF
1178.  
1179.             ' usually not good to be moving the King
1180.             IF mp = King THEN Score = Score - 4
1181.  
1182.             ' small plus for king moving out of check
1183.             InCheck = (mc = SaveWorB) AND check
1184.             IF (mp = King) AND InCheck THEN Score = Score + 2
1185.  
1186.             ' leave king cap scores, also normal bonuses if in check
1187.             IF (Score <> 777) AND (NOT (InCheck)) AND (mp <> King) THEN
1188.                 dis1 = ABS(fr - okr) + ABS(fc - okc) '                 get closer to king
1189.                 dis2 = ABS(tr - okr) + ABS(tc - okc)
1190.                 ' IF dis2 < dis1 THEN Score = Score + (dis1 - dis2)
1191.                 Score = Score + dis1 - dis2
1192.  
1193.                 IF Move < 30 THEN
1194.                     dir = SGN((fr - tr) * s)
1195.                     IF dir = 1 THEN Score = Score + 2 '              move ahead at begin&mid
1196.                 END IF
1197.  
1198.                 ' priority to getting a piece first moved
1199.                 IF mp <> Rook THEN
1200.                     IF b(fr, fc) = o(fr, fc) THEN Score = Score + 1
1201.                 END IF
1202.  
1203.                 ' priority to getting a piece off the bottom rank
1204.                 IF (fr = 1) AND (tr > 1) AND (WorB = 1) THEN Score = Score + 1
1205.                 IF (fr = 8) AND (tf < 8) AND (WorB = 0) THEN Score = Score + 1
1206.             END IF
1207.  
1208.             fs$ = MID$("abcdefgh", fc, 1) + CHR$(48 + fr) '          from square
1209.             ts$ = MID$("abcdefgh", tc, 1) + CHR$(48 + tr) '          to square
1210.             AddIt Level, fs$ + ts$, Score
1211.             IF cap AND (mp <> Pawn) THEN EXIT FOR '                  stop looking
1212.         NEXT sq
1213.     NEXT n
1214. END SUB
1215.  
1216. SUB silly STATIC
1217.     PlotAll
1218.     br = 255
1219.     zz = (zz + 1) MOD 50: IF zz = 1 THEN r! = RND: g! = RND: b! = RND
1220.     x1 = xc - 4 * xq
1221.     y1 = yc - 4 * yq
1222.     x2 = x1 + 8 * xq
1223.     y2 = y1 + 8 * yq
1224.     'LINE (x1, y1)-(x2, y2), boardwhite&
1225.     FOR sy = y1 TO y2
1226.         FOR sx = x1 TO x2
1227.             p& = POINT(sx, sy)
1228.             IF p& = boardwhite& THEN
1229.                 z = ABS((sx - xc - xq \ 2) * (sy - yc - yq \ 2))
1230.                 PSET (sx, sy), _RGB32(br * SIN(.1 * r! * z + zz), br * SIN(.155 * g! * z + zz), br * SIN(2 * b! * z + zz))
1231.             END IF
1232.     NEXT sx: NEXT sy
1233. END SUB
1234.  
1235. SUB SaveForTakeBack STATIC
1236.     FOR i = 10 TO 1 STEP -1
1237.         FOR r = 1 TO 8
1238.             FOR c = 1 TO 8
1239.                 tb(r, c, i) = tb(r, c, i - 1)
1240.             NEXT c
1241.         NEXT r
1242.     NEXT i
1243.     FOR r = 1 TO 8
1244.         FOR c = 1 TO 8
1245.             tb(r, c, 0) = b(r, c)
1246.         NEXT c
1247.     NEXT r
1248.     tbc = tbc + 1
1249.     IF tbc > 10 THEN tbc = 10
1250. END SUB
1251.  
1252. SUB takeback
1253.     IF tbc < 2 THEN EXIT SUB
1254.     SOUND 777, 2
1255.     FOR r = 1 TO 8
1256.         FOR c = 1 TO 8
1257.             b(r, c) = tb(r, c, 2)
1258.         NEXT c
1259.     NEXT r
1260.     FOR i = 0 TO 9
1261.         FOR r = 1 TO 8
1262.             FOR c = 1 TO 8
1263.                 tb(r, c, i) = tb(r, c, i + 1)
1264.             NEXT c
1265.         NEXT r
1266.     NEXT i
1267.     tbc = tbc - 1
1268. END SUB
1269.  

[Richard Frost]

Yes, I think the initial version only played itself, which is the ideal
way to improve the "smarts" of it.  The newest version posted lets
the user pick a side, or "none" for automation.  The purpose of
the initial post is to show the guts of an operating engine - the
approach I took with moving pieces legally and whatnot.  I still
don't even have the mouse working - arrow keys to move. 

I don't know how anyone got the notion that I created this in a day!
I got it to run in QB64 in a day.  It's old QB4.5 code of mine that
probably took me at least a  month to write.

How does one choose which resolution to use?  I had this in 1024*768
for awhile, but I like to see other windows, hence this 800*600.  The old
640*480 is too limiting - no room for big graphics AND text.  It's a problem
I never encounted with old QB4.5 - what to choose!  What factors do you
folk consider to choose a mode?  Or should everything be resizable?

[bplus]

Hi Richard Frost,

The comments about doing chess program in a day were meant for STxAxTIC whose post started this thread.

Hey! Your new one works (maybe I just needed to download png for icon file like for this one for last one. no, no png was provided) and it has a nicely sized board (800 x 600 is nice size until out grows all the options you start adding) and the vital question of doing something different with white squares has been answered! :D

 

So the AI calculates moves but you still have to press enter to get the oppositions pieces moved (after you see the blinking squares).

Hmm... how would plasma look for Black squares :)

[SMcNeill]

Who wants a chess board that looks like half the tiles are high on mushrooms?  White/Red on Black is fine for me, as it seems less distracting and non-seizure inducing.

[bplus]

Who wants a chess board that looks like half the tiles are high on mushrooms?  White/Red on Black is fine for me, as it seems less distracting and non-seizure inducing.

One is not stuck with mushrooms :D and it's not like he doesn't know silly ;-)

Code: QB64: [Select]

1. sillyf = 1 '                                            Moire effect, toggle with "z", or just default this to 0
2.  

[Richard Frost]

Yes, the graphics are a bit distracting, until one gets used to it.  Normally I *do* have
it turned off.  I set the silly flag in the upload to make it easier for everyone to see
the mayhem without having to read or change any code. 

I saw a Queen jump across pawns to eat the other Queen recently....hope that bug isn't in
the upload.  And I'm wrong about the castling, it's still wonky. 

"Bugs spell job security." 

[bplus]

"Bugs spell job security."

LOL played a decent game with White Castling, the moves see farther ahead than I which isn't saying too much.

[romichess]

Now that it works it is more interesting! :)

I was wondering how many moves deep my engine RomiChess would have to see in order to win. I started off RomiChess at 2 moves deep. Note that finishing off capture sequences is part of a 2 ply search and is hard coded. RomiChess played the black pieces. At 2 ply deep RomiChess plays each move instantly.

1. d3 e5 2. c3 Bc5 3. Be3 Bxe3 4. fxe3 Qh4+ 5. Kd2 Ne7 6. g3 Qf6 7. Qe1 Qb6
8. b3 Rf8 9. Bg2 Nbc6 10. Nf3 Nf5 11. d4 Qa5 12. Nxe5 Nxe5 13. dxe5 Qxe5
14. e4 Nd6 15. Na3 Nxe4+ 16. Bxe4 Qxe4 17. Rf1 d5 18. Rf4 Qe7 19. Rd4 Qxa3
20. Qf2 Qb2+ 21. Kd1 Qxa1+ 22. Kd2 Qxa2+ 23. Kd1 Qxb3+ 24. Kc1 Qxc3+ 25.
Kb1 Bf5+ 26. Ka2 Be4 27. e3 c5 28. Ra4 Qe5 29. Qb2 Qxb2+ 30. Kxb2 Ke7 31.
Ra5 Rfc8 32. Ra1 Ke6 33. h3 Ke5 34. Ra4 a5 35. Ra1 b5 36. Ra3 a4 37. Ra1 b4
38. Ra2 a3+ 39. Kb3 h5 40. Ra1 Re8 41. Ra2 Re7 42. Ra1 Rae8 43. Ra2 Rd8 44.
h4 Rde8 45. Ra1 Re6 46. Ra2 R8e7 47. Ra1 Rg6 48. Ra2 Rxg3 49. Re2 Rg1 50.
Ra2 Re1 51. Rd2 Rxe3+ 52. Ka4 Re1 53. Ra2 Bd3 54. Rd2 Kd4 55. Ra2 Rh1 56.
Rd2 Rxh4 57. Ra2 Rh1 58. Rd2 Rhe1 59. Ra2 Re8 60. Rd2 g5 61. Ra2 f5 62. Rd2
f4 63. Ra2 f3 64. Rd2 R8e7 65. Ra2 Bf5 66. Rd2+ Ke5 67. Ra2 Bd3 68. Rd2 Be4
69. Ra2 Bf5 70. Rd2 Re8 71. Ra2 Kd4 72. Rd2+ Bd3 73. Ra2 R8e7 74. Rd2 g4
75. Ra2 h4 76. Rd2 Re8 77. Ra2 h3 78. Rd2 g3 79. Ra2 f2 80. Rxf2 gxf2 81.
Ka5 f1=Q 82. Kb6 a2 83. Kc7 a1=Q 84. Kc6 h2 85. Kc7 h1=Q 86. Kb7 b3 87. Kc6
Qa7 88. Kd6 Qf6# 0-1

I will be doing more with my chess tutorial in the coming days. Maybe I'll just steal this interface for my tutorial! :)

P.S. Romi tried to castle on move 8 so I just moved 8 ... Rf8 instead. Please do not think that Romi made that terrible move on its own volition. lol

P.P.S. I decided to play a quick game with the black pieces.

1. d3 e5 2. a3 Bc5 3. Be3 Bxe3 4. fxe3 Nf6 5. Nd2 d5 6. d4 Nc6 7. dxe5 Nxe5
8. h3 Qd6 9. Ngf3 Neg4 10. Nc4 Qg3+ 11. Kd2 Nf2 12. Qc1 N6e4+ 13. Ke1 Nd3+
14. Kd1 Qe1+ 15. Nxe1 Ndf2# 0-1

[TempodiBasic]

Yes I confirm that there is the bug of EnterKeypressing for get the Black move,
but why does AI prefer always the Nimzowitsch to open game of white ?
https://it.wikipedia.org/wiki/Difesa_Nimzowitsch It is a minor defence against E4!
I think you must use a book of opening to improve AI force.

Here my first game user's experience:

Fine the gameplay also if there are the distracting lights of white squares and  no support of mouse.
A big bug ... AI doesn't recognize the checkmate! See screenshot!
PS your program run away to Print key of Windows to capture the screen. So i must install SnapShot to get it...(I know that there is the SMcNeill Steve's library... but I don't want to write code, now I'm just a player)

 

Here the first game like White

1. e4 Nc6
2. d4 e6
3 Bc4 Na5
4 Bd3 Nc6
5 Nf3  h6
6 O-O Nge7
7 c4  Nb4
8 Be2 Nbc6
9 Nc3  b6
10 Re1 Bb7
11 d5 Nb8
12 dxe6 fxe6
13 e5  Nf5
14 g4  Nfe7
15 Nh4  g5
16 Nf3 Bg7
17 Bd3 O-O
18 Nc3 Qe8
19 Qe2 Qf7
20 Nxg5 hxg5
21 Nxg5 Qe8
22 Bh7+ Kh8
23 Qd3 Nc6
24 Qh3 Rd8
25 Bg6+ Bh6
26 Qxh6+ Kg8
27 Qh7#

moreover...
the game went on with this following moves...

27... Nb4
28 Qxg8 Qxg6

 

so if you want improve that AI
1. not only it must be build the rule of checkmate (the king is under attack and it will be captured to the next move and there is no defence to this)
2. but also you must build the rule without King there is gameover (No King is equal No game for that color/side)

Thanks to share you chessprogram with a intermediate AI and any lack of some rules

[TempodiBasic]

another bit feedback
in my first game as Black... I cannot castle
this is the sequence of moves

1 d3   d5
2 Be3  e5
3 a3   c5
4 c3  Nc6
5 Qb3 Nf6
6 f3  Bd6
7 Nd2

this is the screenshot
 

here if I take King and I do 2 steps to the left the program takes my move but then it resets the input to me refusing my choice.

IMHO also this rules must be added to the AI (castle is for white and for black) .
I hope this is not so much for a positive feedback!

[TempodiBasic]

About CHESS.BAS that follows the QB64 package of example of QB and Qbasic code runnable under QB64..

I and Bplus have worked more on adjurnament of the interface and of the input adding mouse support to input the move, a set of buttons to choose how to play, showing avaiabled moves of the piece that the mouse is pointing, but not so much improving  the AI because without understanding how it is structured the original AI there are poor opportunity to empower something, it is simpler  write again with your way. In fact Bplus wrote the most of the code to let choose and play with the Black the gamer  vs AI. And it was not so clear to me how to use the system  implemented into original AI to play with Black. AI  uses an 8x8 chess table miming the fisical chessboard and no a single array of 64 (0-63) elements. The moves are calculated on fly and not with a offset.
Also with its all limitations the original AI recognize an impossible to continue setting on the chessboard. See screenshots

[SierraKen]

Bplus, 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:
181. END IF
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:
189. END IF
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:
195. END IF
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:
201. END IF
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:
207. END IF
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
296. 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:
305. END IF
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!"
319. END
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:
352. END IF
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:
360. END IF
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:
366. END IF
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:
372. END IF
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:
378. END IF
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
467. 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:
475. END IF
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!"
488. END
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)
513. RETURN
514.  

[bplus]

Hi Ken,

Ah so that's what you've been up to! I wish you started a new thread, so I could join in. This one is already all over the place with chess.

I look forward to checking it out, thanks.

[SierraKen]

I'll make a new thread for it.