QB64.org Forum

Active Forums => Programs => Topic started by: Dav on October 27, 2021, 10:46:56 pm

Title: GridWars game - going to add AI to it.
Post by: Dav on October 27, 2021, 10:46:56 pm

@bplus's games has inspired me to try my hand at implementing AI to one of my puzzles.  I think this one is a good candidate. GridWars.  Currently it's a 2 player (2 humans) game, but I want to make it a human vs computer one.  Will have to re-write the code alot, add a valid move check.  Here is the BEFORE version. 

You click on a piece to move.  Move it one space to clone it, move two spaces to just jump.  Touching the other player will convert it to your color.  Object is to fill the grid with all your color.

(Sorry, @SMcNeill, this will be a tiny screen on your laptop...)

EDIT: I didnt come up with this puzzle, I use to play one like it years ago, pre Win95.

- Dav

Code: QB64: [Select]

1.  
2. '============
3. 'GRIDWARS.BAS - v0.1
4. '============
5. 'Coded by Dav OCT/2021
6. 'Work in progress - hoping to add AI play.
7.  
8. RANDOMIZE TIMER
9.  
10. SCREEN _NEWIMAGE(600, 650, 32)
11. DO: LOOP UNTIL _SCREENEXISTS
12. _TITLE "GridWar"
13.  
14. '=== define board info
15. DIM SHARED rows, cols, size
16. rows = 9: cols = 9: size = _WIDTH / cols
17. DIM SHARED box.v(rows * cols) 'value of box
18. DIM SHARED box.x(rows * cols), box.y(rows * cols) 'x/y's
19. DIM SHARED player
20.  
21. '=======
22. restart:
23. '=======
24.  
25. PLAY "MBL32O3CEGEC"
26.  
27. CLS
28.  
29. bc = 1 'counter
30. FOR c = 1 TO cols
31.     FOR r = 1 TO rows
32.         x = (r * size)
33.         y = 50 + (c * size)
34.         box.x(bc) = x - size
35.         box.y(bc) = y - size
36.         box.v(bc) = 0 'zero means nothing, empty square
37.         bc = bc + 1
38.     NEXT
39. NEXT
40.  
41. 'set user's piece
42. box.v(1) = 1: box.v(9) = 2
43. box.v(73) = 2: box.v(81) = 1
44.  
45. player = 1 'user goes first
46.  
47. '====
48. main:
49. '====
50.  
51. selected = 0
52.  
53. UpdateBoard
54.  
55. second: 'Go back here when making second choice
56. _DISPLAY
57.  
58. DO
59.  
60.     'wait until mouse button up to continue
61.     WHILE _MOUSEBUTTON(1) <> 0: n = _MOUSEINPUT: WEND
62.  
63.     trap = _MOUSEINPUT 'Poll mouse data
64.  
65.     'highlight box when a box is selected
66.     IF selected = 1 THEN
67.         LINE (box.x(t) + 2, box.y(t) + 2)-(box.x(t) + size - 2, box.y(t) + size - 2), _RGB(RND * 255, RND * 255, RND * 255), B
68.         LINE (box.x(t) + 3, box.y(t) + 3)-(box.x(t) + size - 3, box.y(t) + size - 3), _RGB(RND * 255, RND * 255, RND * 255), B
69.         LINE (box.x(t) + 4, box.y(t) + 4)-(box.x(t) + size - 4, box.y(t) + size - 4), _RGB(RND * 255, RND * 255, RND * 255), B
70.         _DISPLAY
71.     END IF
72.  
73.  
74.     'If user clicked mouse
75.     IF _MOUSEBUTTON(1) AND _MOUSEY > 50 THEN
76.  
77.         'see where they clicked
78.         mx = _MOUSEX: my = _MOUSEY
79.  
80.         'cycle through all Check blocks...
81.         FOR t = 1 TO (rows * cols)
82.  
83.             'Block loction...
84.             tx = box.x(t): tx2 = box.x(t) + size
85.             ty = box.y(t): ty2 = box.y(t) + size
86.  
87.             'if clicked on a box clicked
88.             IF mx >= tx AND mx <= tx2 THEN
89.                 IF my >= ty AND my <= ty2 THEN
90.  
91.                     'if this is a first choice...
92.                     IF selected = 0 THEN
93.  
94.                         'only select players color
95.                         IF box.v(t) = player THEN
96.                             selected = 1
97.                             SOUND 3000, .1 'made a select
98.                             oldt = t
99.                             oldtv = box.v(t) 'save picked box number color
100.                             GOTO second 'now get second choice
101.                         END IF
102.  
103.                     END IF
104.  
105.                     IF selected = 1 THEN 'making second choice
106.  
107.                         'if selected an empty box
108.                         IF box.v(t) = 0 THEN
109.  
110.                             'if making one space move
111.                             IF HowManyPlaces(oldt, t) = 1 THEN
112.  
113.                                 'clone to 2nd box data
114.                                 SOUND 2000, .1
115.                                 box.v(t) = oldtv
116.                                 UpdateBoard
117.  
118.                                 convertneighbors player, t
119.  
120.                             END IF
121.  
122.                             'if jumping...
123.                             IF HowManyPlaces(oldt, t) = 2 THEN
124.  
125.                                 'jump...erase 1st box data
126.                                 SOUND 2000, .1
127.                                 box.v(t) = oldtv
128.                                 box.v(oldt) = 0
129.                                 UpdateBoard
130.  
131.                                 convertneighbors player, t
132.  
133.                             END IF
134.  
135.  
136.                             UpdateBoard
137.  
138.                             'must have clicked a out of bounds place, redo turn...
139.                             IF HowManyPlaces(oldt, t) = 0 THEN
140.                                 SOUND 500, .1
141.                                 GOTO main
142.                             END IF
143.  
144.                             '===============================
145.                             'check pieces here.....
146.  
147.                             'See how many empty places left
148.                             howmany = 0: reds = 0: blues = 0
149.                             FOR h = 1 TO rows * cols
150.                                 'empty ones
151.                                 IF box.v(h) = 0 THEN howmany = howmany + 1
152.                                 IF box.v(h) = 1 THEN reds = reds + 1
153.                                 IF box.v(h) = 2 THEN blues = blues + 1
154.                             NEXT
155.  
156.                             'If no places left, game over
157.                             IF howmany = 0 THEN
158.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
159.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
160.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "GAME OVER"
161.                                 PLAY "mbl16o2bagfedc"
162.                                 _DISPLAY: SLEEP 5
163.                                 GOTO restart
164.                             END IF
165.  
166.                             'If no reds left, blue wins
167.                             IF reds = 0 THEN
168.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
169.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
170.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "BLUE WINS"
171.                                 PLAY "mbl16o2bagfedc"
172.                                 _DISPLAY: SLEEP 5
173.                                 GOTO restart
174.                             END IF
175.  
176.                             'If no blues left, red wins
177.                             IF blues = 0 THEN
178.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
179.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
180.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "RED WINS!"
181.                                 PLAY "mbl16o2bagfedc"
182.                                 _DISPLAY: SLEEP 5
183.                                 GOTO restart
184.                             END IF
185.  
186.  
187.                             'players move done - switch turn, players
188.                             IF player = 1 THEN
189.  
190.                                 'computers turn here....
191.                                 'CHANGE TO AI MOVE HERE  '<<<<<<<<<<<<<<
192.  
193.                                 player = 2
194.                             ELSE
195.                                 player = 1
196.                             END IF
197.  
198.                             'NEED TO CHECK IF PLAYER HAS VALID MOVE LEFT <<<<<<
199.  
200.                             GOTO main
201.  
202.                         ELSE
203.  
204.                             'if user clicked on another one of its color instead...
205.                             IF box.v(t) = player THEN
206.                                 'clear previous highlighted selection
207.                                 selected = 0
208.                                 UpdateBoard
209.                                 selected = 1
210.                                 oldt = t
211.                                 oldtv = box.v(t) 'save picked box number color
212.                                 SOUND 3000, .1
213.                                 GOTO second
214.                             END IF
215.  
216.                             'clicked on enemy instead, redo
217.                             selected = 0
218.                             UpdateBoard
219.                             SOUND 500, .1
220.                             GOTO main
221.  
222.                         END IF
223.  
224.                     END IF
225.  
226.                 END IF
227.             END IF
228.  
229.         NEXT
230.  
231.     END IF
232.  
233.     _DISPLAY
234.  
235.     IF INKEY$ <> "" THEN GOTO restart
236.  
237. LOOP
238.  
239. FUNCTION HowManyPlaces (old, new)
240.     'computes how many places a user moved
241.     '0 = out of bounds
242.     '1 = one place
243.     '2 = a jump
244.  
245.     p = 0 'default is out of bounds
246.  
247.     SELECT CASE old
248.  
249.         'row 1
250.         CASE 1: IF new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
251.             IF new = 3 OR new = 12 OR new = 19 OR new = 20 OR new = 21 THEN p = 2
252.         CASE 2: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
253.             IF new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
254.         CASE 3 TO 7: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
255.             IF new = old - 2 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
256.         CASE 8: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
257.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
258.         CASE 9: IF new = old - 1 OR new = old + 8 OR new = old + 9 THEN p = 1
259.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
260.  
261.             'row 2
262.         CASE 10: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
263.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
264.         CASE 11: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
265.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
266.         CASE 12: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
267.             IF new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
268.         CASE 13 TO 16: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
269.             IF new = old - 2 OR new = old + 2 OR new = old - 11 OR new = old - 7 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
270.         CASE 17: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
271.             IF new = old - 11 OR new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
272.         CASE 18: IF new = old - 1 OR new = old - 10 OR new = old - 9 OR new = old + 8 OR new = old + 9 THEN p = 1
273.             IF new = old - 2 OR new = old - 11 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
274.  
275.             'row 3
276.         CASE 19, 28, 37, 46, 55: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
277.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
278.         CASE 20, 29, 38, 47, 56: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
279.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
280.             'middle board, all ways,  (thru row 7)
281.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
282.             IF new = old - 2 OR new = old + 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
283.         CASE 26, 35, 44, 53, 62: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
284.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
285.         CASE 27, 36, 45, 54, 63: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
286.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
287.  
288.             'row 8
289.         CASE 64: IF new = old + 1 OR new = old - 8 OR new = old - 9 OR new = old + 9 OR new = old + 10 THEN p = 1
290.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 THEN p = 2
291.         CASE 65: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
292.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 THEN p = 2
293.         CASE 66 TO 70: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
294.             IF new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
295.         CASE 71: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
296.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
297.         CASE 72: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
298.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
299.  
300.             'bottom 9
301.         CASE 73: IF new = old + 1 OR new = old - 8 OR new = old - 9 THEN p = 1
302.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 THEN p = 2
303.         CASE 74: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
304.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 THEN p = 2
305.         CASE 75 TO 79: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
306.             IF new = old + 2 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
307.         CASE 80: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
308.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
309.         CASE 81: IF new = old - 1 OR new = old - 9 OR new = old - 10 THEN p = 1
310.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
311.     END SELECT
312.  
313.     HowManyPlaces = p
314.  
315. END FUNCTION
316.  
317. SUB UpdateBoard
318.  
319.     CLS , _RGB(32, 32, 32)
320.     PPRINT 205, 10, 20, _RGB(255, 255, 255), 0, "-=GridWar=-"
321.  
322.     red = 0: blue = 0
323.  
324.     '=== draw board based on box values
325.     bc = 1 'counter
326.     FOR cl = 1 TO cols
327.         FOR ro = 1 TO rows
328.  
329.             '=== count colors
330.             IF box.v(bc) = 1 THEN red = red + 1
331.             IF box.v(bc) = 2 THEN blue = blue + 1
332.  
333.             '=== if empty box
334.             IF box.v(bc) = 0 THEN
335.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
336.             ELSE
337.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
338.                 '=== draw color ball
339.                 x2 = box.x(bc) + (size / 2) 'find middle of box
340.                 y2 = box.y(bc) + (size / 2)
341.                 sz = size / 2
342.                 SELECT CASE box.v(bc)
343.                     CASE IS = 1: r = 255: g = 64: b = 64 'red
344.                     CASE IS = 2: r = 64: g = 64: b = 255 'blue
345.                 END SELECT
346.                 CIRCLE (x2, y2), sz - 4, _RGB(r, g, b)
347.                 PAINT (x2, y2), _RGB(r, g, b)
348.             END IF
349.             bc = bc + 1
350.         NEXT
351.     NEXT
352.  
353.     PPRINT 30, 15, 14, _RGB(255, 128, 128), 0, "Red =" + STR$(red)
354.     PPRINT 465, 15, 14, _RGB(128, 128, 255), 0, "Blue =" + STR$(blue)
355.  
356.     IF player = 1 THEN
357.         LINE (10, 10)-(150, 40), _RGBA(255, 100, 100, 50), BF
358.     END IF
359.  
360.     IF player = 2 THEN
361.         LINE (440, 10)-(590, 40), _RGBA(100, 100, 255, 50), BF
362.     END IF
363.  
364.     _DISPLAY
365.     _ICON _DISPLAY 'update app icon on taskbar
366. END SUB
367.  
368. SUB convertneighbors (player, num)
369.     'convert neighbors surrounding num to players value.
370.     '(when a piece lands on num, it changes neighbors)
371.     SELECT CASE num
372.         'row 1
373.         CASE 1: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
374.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
375.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
376.         CASE 2 TO 8: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
377.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
378.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player:: change num + 8
379.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
380.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
381.         CASE 9: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
382.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
383.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
384.             'down left side
385.         CASE 10, 19, 28, 37, 46, 55, 64
386.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
387.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
388.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
389.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
390.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
391.             'down right side
392.         CASE 18, 27, 36, 45, 54, 63, 72: IF box.v(num - 9) <> 0 THEN box.v(num - 9) = player: change num - 9
393.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
394.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
395.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
396.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
397.             'middle of board
398.         CASE 11 TO 17, 20 TO 26, 29 TO 35, 38 TO 44, 47 TO 53, 56 TO 62, 65 TO 71
399.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
400.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
401.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
402.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
403.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
404.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
405.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
406.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
407.             'bottom row
408.         CASE 73: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
409.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
410.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
411.         CASE 74 TO 80: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
412.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
413.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
414.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
415.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
416.         CASE 81: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
417.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
418.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
419.     END SELECT
420. END SUB
421.  
422. SUB change (num)
423.  
424.     '=== find center x/y of place
425.     x2 = box.x(num) + (size / 2): y2 = box.y(num) + (size / 2)
426.  
427.     'do shrinking circle first
428.     IF player = 1 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
429.     FOR s = 30 TO 1 STEP -2
430.         SOUND 100 + t, .05
431.         'wipe clean
432.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
433.         CIRCLE (x2, y2), s, clr&
434.         PAINT (x2, y2), clr&
435.         _DISPLAY
436.         _LIMIT 140
437.         t = t + 100
438.     NEXT
439.  
440.     'Expand in the new circle
441.     'do shrinking circle first
442.     IF player = 2 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
443.     FOR s = 1 TO 30 STEP 2
444.         'wipe clean
445.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
446.         CIRCLE (x2, y2), s, clr&
447.         PAINT (x2, y2), clr&
448.         _DISPLAY
449.         _LIMIT 140
450.     NEXT
451.  
452. END SUB
453.  
454. SUB PPRINT (x, y, size, clr&, trans&, text$)
455.     orig& = _DEST
456.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
457.     FOR t = 0 TO LEN(text$) - 1
458.         pprintimg& = _NEWIMAGE(16, 16, bit)
459.         _DEST pprintimg&
460.         CLS , trans&: COLOR clr&
461.         PRINT MID$(text$, t + 1, 1);
462.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
463.         _DEST orig&
464.         x1 = x + (t * size): x2 = x1 + size
465.         y1 = y: y2 = y + size
466.         _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
467.         _FREEIMAGE pprintimg&
468.     NEXT
469. END SUB
470.  
471.  

Title: Re: GridWars game - going to add AI to it.
Post by: Pete on October 27, 2021, 11:20:09 pm

But whatever I do, I can't seem to get anything to blow up. How do you blow things up?

Yep, works as advertised. Hey, has anyone figured out a way to route (map) two mouse controllers with QB64?

Pete

Title: Re: GridWars game - going to add AI to it.
Post by: bplus on October 27, 2021, 11:31:21 pm

What lovely sounds they make! Put I can't predict what is going to change when I move a piece next to the opponents, sometimes a couple sometimes maybe 7 or 4 or... ? Haven't picked up on the pattern yet but it's late at night.

Wow! AI for this, wow!

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on October 28, 2021, 10:30:23 am

Quote from: bplus on October 27, 2021, 11:31:21 pm

What lovely sounds they make! Put I can't predict what is going to change when I move a piece next to the opponents, sometimes a couple sometimes maybe 7 or 4 or... ? Haven't picked up on the pattern yet but it's late at night.

Wow! AI for this, wow!

When you move a piece to a square, any other pieces on surrounding squares will be converted - like the attached picture shows.  If there's an odd one popping up, there may be a few errors on certain squares, I just caught one this morning. 

I made a Valid Moves function this morning to show valid moves when clicking on any piece.  That's a big hurdle to get to AI.  Also, I needed a way to see if any moves left for a player.

As for coming up with AI, I'm thinking of doing it simple like this first, then expand on it...

First count number of blue (computer) circles on the board.  Cycle through all valid moves for each blue piece, and count the number of blue pieces afterwards.  (A what if I move here and see the results..).  The move which makes the biggest blue gain will be played.  And If there a tie between doing a 1 move play and a jump move, do the 1 move instead as to not create a hole in a big group.  If there is no moves that will change a red piece to blue, then just do a random 1 move with a blue piece to add another blue piece on the board.

- Dav

 

Title: Re: GridWars game - going to add AI to it.
Post by: Statsman1 on October 28, 2021, 10:45:14 am

Love it!  This looks like Ataxx, one of my favorite arcade games. 

And wowee, did that game’s AI ever get hard when you played the top 2 characters.

Looking forward to seeing how this turns out - GridWars would be a must-play, in my book!

Title: Re: GridWars game - going to add AI to it.
Post by: bplus on October 28, 2021, 11:43:21 am

AH, OK so every square touching square you click turns to your color if has piece on it. I think that clears it up nicely for me, that pretty easy to code too.

Yeah for AI testing all the squares is what I did for Connect 4, only had 8 at most. But you have to make up values for inner squares versus outer squares... for tie breakers. I imagine if you could establish a core center you could wall off opponent? This might be a little like Go where you wall off sections of board from opponent.

I did play to point where I couldn't move a red piece and blue still had many moves it could do and game just sat there. So determining if a player doesn't have a move is big step forward.

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on October 28, 2021, 12:34:13 pm

Here's the version with the ValidateMove function and game now shows available moves when clicking on a piece. Also it now checks if player has any moves left.  The code is MUCH more complicated than it needs to be, I will re-organize this mess.  I rushed coding it to get it functioning so I could get to an AI challenge.  Ashamed to post code this ugly, but here goes...

- Dav

Code: QB64: [Select]

1. '============
2. 'GRIDWARS.BAS - v0.2
3. '============
4. 'Coded by Dav OCT/2021
5.  
6. 'v0.2 changes
7. '* Added validmoves function and show moves available.
8. '* See if any moves left for players.  Game over if none.
9.  
10.  
11. RANDOMIZE TIMER
12.  
13. SCREEN _NEWIMAGE(600, 650, 32)
14. DO: LOOP UNTIL _SCREENEXISTS
15. _TITLE "GridWar"
16.  
17. '=== define board info
18. DIM SHARED rows, cols, size
19. rows = 9: cols = 9: size = _WIDTH / cols
20. DIM SHARED box.v(rows * cols) 'value of box
21. DIM SHARED box.x(rows * cols), box.y(rows * cols) 'x/y's
22. DIM SHARED player
23.  
24. '=======
25. restart:
26. '=======
27.  
28. PLAY "MBL32O3CEGEC"
29.  
30. CLS
31.  
32. bc = 1 'counter
33. FOR c = 1 TO cols
34.     FOR r = 1 TO rows
35.         x = (r * size)
36.         y = 50 + (c * size)
37.         box.x(bc) = x - size
38.         box.y(bc) = y - size
39.         box.v(bc) = 0 'zero means nothing, empty square
40.         bc = bc + 1
41.     NEXT
42. NEXT
43.  
44. 'set user's piece
45. box.v(1) = 1: box.v(9) = 2
46. box.v(73) = 2: box.v(81) = 1
47.  
48. player = 1 'user goes first
49.  
50. '====
51. main:
52. '====
53.  
54. selected = 0
55.  
56. UpdateBoard
57.  
58. second: 'Go back here when making second choice
59. _DISPLAY
60.  
61. DO
62.  
63.     'wait until mouse button up to continue
64.     WHILE _MOUSEBUTTON(1) <> 0: n = _MOUSEINPUT: WEND
65.  
66.     trap = _MOUSEINPUT 'Poll mouse data
67.  
68.     'highlight box when a box is selected
69.     IF selected = 1 THEN
70.         LINE (box.x(t) + 2, box.y(t) + 2)-(box.x(t) + size - 2, box.y(t) + size - 2), _RGB(RND * 255, RND * 255, RND * 255), B
71.         LINE (box.x(t) + 3, box.y(t) + 3)-(box.x(t) + size - 3, box.y(t) + size - 3), _RGB(RND * 255, RND * 255, RND * 255), B
72.         LINE (box.x(t) + 4, box.y(t) + 4)-(box.x(t) + size - 4, box.y(t) + size - 4), _RGB(RND * 255, RND * 255, RND * 255), B
73.  
74.         '====================================
75.         'show valid moves, for testing...
76.         v$ = ValidMoves$(t)
77.         FOR f = 1 TO LEN(v$) STEP 2
78.             bv = VAL(MID$(v$, f, 2))
79.             x2 = box.x(bv) + (size / 2) 'find middle of box
80.             y2 = box.y(bv) + (size / 2)
81.             CIRCLE (x2, y2), 3, _RGBA(150, 150, 150, 50), B
82.         NEXT
83.         '====================================
84.  
85.         _DISPLAY
86.     END IF
87.  
88.  
89.     'If user clicked mouse
90.     IF _MOUSEBUTTON(1) AND _MOUSEY > 50 THEN
91.  
92.         'see where they clicked
93.         mx = _MOUSEX: my = _MOUSEY
94.  
95.         'cycle through all Check blocks...
96.         FOR t = 1 TO (rows * cols)
97.  
98.             'Block loction...
99.             tx = box.x(t): tx2 = box.x(t) + size
100.             ty = box.y(t): ty2 = box.y(t) + size
101.  
102.             'if clicked on a box clicked
103.             IF mx >= tx AND mx <= tx2 THEN
104.                 IF my >= ty AND my <= ty2 THEN
105.  
106.                     'if this is a first choice...
107.                     IF selected = 0 THEN
108.  
109.                         'only select players color
110.                         IF box.v(t) = player THEN
111.  
112.                             selected = 1
113.                             SOUND 3000, .1 'made a select
114.                             oldt = t
115.                             oldtv = box.v(t) 'save picked box number color
116.                             GOTO second 'now get second choice
117.                         END IF
118.  
119.                     END IF
120.  
121.                     IF selected = 1 THEN 'making second choice
122.  
123.                         'if selected an empty box
124.                         IF box.v(t) = 0 THEN
125.  
126.                             'if making one space move
127.                             IF HowManyPlaces(oldt, t) = 1 THEN
128.  
129.                                 'clone to 2nd box data
130.                                 SOUND 2000, .1
131.                                 box.v(t) = oldtv
132.                                 UpdateBoard
133.  
134.                                 convertneighbors player, t
135.  
136.                             END IF
137.  
138.                             'if jumping...
139.                             IF HowManyPlaces(oldt, t) = 2 THEN
140.  
141.                                 'jump...erase 1st box data
142.                                 SOUND 2000, .1
143.                                 box.v(t) = oldtv
144.                                 box.v(oldt) = 0
145.                                 UpdateBoard
146.  
147.                                 convertneighbors player, t
148.  
149.                             END IF
150.  
151.  
152.                             UpdateBoard
153.  
154.                             'must have clicked a out of bounds place, redo turn...
155.                             IF HowManyPlaces(oldt, t) = 0 THEN
156.                                 SOUND 500, .1
157.                                 GOTO main
158.                             END IF
159.  
160.                             '===============================
161.                             'check pieces here.....
162.  
163.                             'See how many empty places left
164.                             howmany = 0: reds = 0: blues = 0
165.                             FOR h = 1 TO rows * cols
166.                                 'empty ones
167.                                 IF box.v(h) = 0 THEN howmany = howmany + 1
168.                                 IF box.v(h) = 1 THEN reds = reds + 1
169.                                 IF box.v(h) = 2 THEN blues = blues + 1
170.                             NEXT
171.  
172.                             'If no places left, game over
173.                             IF howmany = 0 THEN
174.  
175.                                 IF reds = blues THEN
176.                                     LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
177.                                     LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
178.                                     PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "TIE GAME!"
179.                                     PLAY "mbl16o2bagfedc"
180.                                     _DISPLAY: SLEEP 5
181.                                     GOTO restart
182.                                 END IF
183.  
184.                                 IF reds > blues THEN GOTO redwins ELSE GOTO bluewins
185.  
186.                             END IF
187.  
188.                             'If no reds left, blue wins
189.                             IF reds = 0 THEN
190.                                 bluewins:
191.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
192.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
193.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "BLUE WINS"
194.                                 PLAY "mbl16o2bagfedc"
195.                                 _DISPLAY: SLEEP 5
196.                                 GOTO restart
197.                             END IF
198.  
199.                             'If no blues left, red wins
200.                             IF blues = 0 THEN
201.                                 redwins:
202.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
203.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
204.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "RED WINS!"
205.                                 PLAY "mbl16o2bagfedc"
206.                                 _DISPLAY: SLEEP 5
207.                                 GOTO restart
208.                             END IF
209.  
210.  
211.                             'players move done - switch turn, players
212.                             IF player = 1 THEN
213.                                 'computers turn here....
214.                                 'CHANGE TO AI MOVE HERE  '<<<<<<<<<<<<<<
215.                                 player = 2
216.                             ELSE
217.                                 player = 1
218.                             END IF
219.  
220.                             '==== CHECK IF PLAYER HAS VALID MOVE LEFT
221.                             movesleft = 0
222.                             FOR g = 1 TO rows * cols
223.                                 IF box.v(g) = player THEN
224.                                     IF ValidMoves$(g) <> "" THEN movesleft = 1
225.                                 END IF
226.                             NEXT
227.  
228.                             IF movesleft = 0 THEN
229.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
230.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
231.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "NO MOVES!"
232.                                 PLAY "mbl16o2bagfedc"
233.                                 _DISPLAY: SLEEP 3
234.                                 IF reds > blues THEN GOTO redwins
235.                                 IF blues > reds THEN GOTO bluewins
236.                                 GOTO restart
237.                             END IF
238.  
239.  
240.                             GOTO main
241.  
242.                         ELSE
243.  
244.                             'if user clicked on another one of its color instead...
245.                             IF box.v(t) = player THEN
246.                                 'clear previous highlighted selection
247.                                 selected = 0
248.                                 UpdateBoard
249.                                 selected = 1
250.                                 oldt = t
251.                                 oldtv = box.v(t) 'save picked box number color
252.                                 SOUND 3000, .1
253.                                 GOTO second
254.                             END IF
255.  
256.                             'clicked on enemy instead, redo
257.                             selected = 0
258.                             UpdateBoard
259.                             SOUND 500, .1
260.                             GOTO main
261.  
262.                         END IF
263.  
264.                     END IF
265.  
266.                 END IF
267.             END IF
268.  
269.         NEXT
270.  
271.     END IF
272.  
273.     _DISPLAY
274.  
275.     IF INKEY$ <> "" THEN GOTO restart
276.  
277. LOOP
278.  
279. FUNCTION HowManyPlaces (old, new)
280.     'computes how many places a user moved
281.     '0 = out of bounds
282.     '1 = one place
283.     '2 = a jump
284.  
285.     p = 0 'default is out of bounds
286.  
287.     SELECT CASE old
288.  
289.         'row 1
290.         CASE 1: IF new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
291.             IF new = 3 OR new = 12 OR new = 19 OR new = 20 OR new = 21 THEN p = 2
292.         CASE 2: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
293.             IF new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
294.         CASE 3 TO 7: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
295.             IF new = old - 2 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
296.         CASE 8: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
297.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
298.         CASE 9: IF new = old - 1 OR new = old + 8 OR new = old + 9 THEN p = 1
299.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
300.  
301.             'row 2
302.         CASE 10: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
303.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
304.         CASE 11: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
305.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
306.         CASE 12: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
307.             IF new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
308.         CASE 13 TO 16: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
309.             IF new = old - 2 OR new = old + 2 OR new = old - 11 OR new = old - 7 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
310.         CASE 17: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
311.             IF new = old - 11 OR new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
312.         CASE 18: IF new = old - 1 OR new = old - 10 OR new = old - 9 OR new = old + 8 OR new = old + 9 THEN p = 1
313.             IF new = old - 2 OR new = old - 11 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
314.  
315.             'row 3
316.         CASE 19, 28, 37, 46, 55: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
317.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
318.         CASE 20, 29, 38, 47, 56: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
319.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
320.             'middle board, all ways,  (thru row 7)
321.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
322.             IF new = old - 2 OR new = old + 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
323.         CASE 26, 35, 44, 53, 62: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
324.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
325.         CASE 27, 36, 45, 54, 63: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
326.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
327.  
328.             'row 8
329.         CASE 64: IF new = old + 1 OR new = old - 8 OR new = old - 9 OR new = old + 9 OR new = old + 10 THEN p = 1
330.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 THEN p = 2
331.         CASE 65: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
332.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 THEN p = 2
333.         CASE 66 TO 70: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
334.             IF new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
335.         CASE 71: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
336.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
337.         CASE 72: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
338.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
339.  
340.             'bottom 9
341.         CASE 73: IF new = old + 1 OR new = old - 8 OR new = old - 9 THEN p = 1
342.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 THEN p = 2
343.         CASE 74: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
344.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 THEN p = 2
345.         CASE 75 TO 79: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
346.             IF new = old + 2 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
347.         CASE 80: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
348.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
349.         CASE 81: IF new = old - 1 OR new = old - 9 OR new = old - 10 THEN p = 1
350.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
351.     END SELECT
352.  
353.     HowManyPlaces = p
354.  
355. END FUNCTION
356.  
357. SUB UpdateBoard
358.  
359.     CLS , _RGB(32, 32, 32)
360.     PPRINT 205, 10, 20, _RGB(255, 255, 255), 0, "-=GridWar=-"
361.  
362.     red = 0: blue = 0
363.  
364.     '=== draw board based on box values
365.     bc = 1 'counter
366.     FOR cl = 1 TO cols
367.         FOR ro = 1 TO rows
368.  
369.             '=== count colors
370.             IF box.v(bc) = 1 THEN red = red + 1
371.             IF box.v(bc) = 2 THEN blue = blue + 1
372.  
373.             '=== if empty box
374.             IF box.v(bc) = 0 THEN
375.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
376.             ELSE
377.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
378.                 '=== draw color ball
379.                 x2 = box.x(bc) + (size / 2) 'find middle of box
380.                 y2 = box.y(bc) + (size / 2)
381.                 sz = size / 2
382.                 SELECT CASE box.v(bc)
383.                     CASE IS = 1: r = 255: g = 64: b = 64 'red
384.                     CASE IS = 2: r = 64: g = 64: b = 255 'blue
385.                 END SELECT
386.                 CIRCLE (x2, y2), sz - 4, _RGB(r, g, b)
387.                 PAINT (x2, y2), _RGB(r, g, b)
388.             END IF
389.             bc = bc + 1
390.         NEXT
391.     NEXT
392.  
393.     PPRINT 30, 15, 14, _RGB(255, 128, 128), 0, "Red =" + STR$(red)
394.     PPRINT 465, 15, 14, _RGB(128, 128, 255), 0, "Blue =" + STR$(blue)
395.  
396.     IF player = 1 THEN
397.         LINE (10, 10)-(150, 40), _RGBA(255, 100, 100, 50), BF
398.     END IF
399.  
400.     IF player = 2 THEN
401.         LINE (440, 10)-(590, 40), _RGBA(100, 100, 255, 50), BF
402.     END IF
403.  
404.     _DISPLAY
405.     _ICON _DISPLAY 'update app icon on taskbar
406. END SUB
407.  
408. SUB convertneighbors (player, num)
409.     'convert neighbors surrounding num to players value.
410.     '(when a piece lands on num, it changes neighbors)
411.     SELECT CASE num
412.         'row 1
413.         CASE 1: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
414.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
415.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
416.         CASE 2 TO 8: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
417.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
418.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player:: change num + 8
419.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
420.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
421.         CASE 9: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
422.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
423.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
424.             'down left side
425.         CASE 10, 19, 28, 37, 46, 55, 64
426.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
427.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
428.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
429.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
430.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
431.             'down right side
432.         CASE 18, 27, 36, 45, 54, 63, 72
433.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
434.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
435.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
436.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
437.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
438.             'middle of board
439.         CASE 11 TO 17, 20 TO 26, 29 TO 35, 38 TO 44, 47 TO 53, 56 TO 62, 65 TO 71
440.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
441.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
442.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: change num + 8
443.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: change num + 9
444.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: change num + 10
445.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
446.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
447.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
448.             'bottom row
449.         CASE 73: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
450.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
451.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
452.         CASE 74 TO 80: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: change num + 1
453.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
454.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: change num - 8
455.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
456.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
457.         CASE 81: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: change num - 1
458.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: change num - 9
459.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: change num - 10
460.     END SELECT
461. END SUB
462.  
463. SUB change (num)
464.  
465.     '=== find center x/y of place
466.     x2 = box.x(num) + (size / 2): y2 = box.y(num) + (size / 2)
467.  
468.     'do shrinking circle first
469.     IF player = 1 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
470.     FOR s = 30 TO 1 STEP -2
471.         SOUND 100 + t, .05
472.         'wipe clean
473.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
474.         CIRCLE (x2, y2), s, clr&
475.         PAINT (x2, y2), clr&
476.         _DISPLAY
477.         _LIMIT 140
478.         t = t + 100
479.     NEXT
480.  
481.     'Expand in the new circle
482.     'do shrinking circle first
483.     IF player = 2 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
484.     FOR s = 1 TO 30 STEP 2
485.         'wipe clean
486.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
487.         CIRCLE (x2, y2), s, clr&
488.         PAINT (x2, y2), clr&
489.         _DISPLAY
490.         _LIMIT 140
491.     NEXT
492.  
493. END SUB
494.  
495. SUB PPRINT (x, y, size, clr&, trans&, text$)
496.     orig& = _DEST
497.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
498.     FOR t = 0 TO LEN(text$) - 1
499.         pprintimg& = _NEWIMAGE(16, 16, bit)
500.         _DEST pprintimg&
501.         CLS , trans&: COLOR clr&
502.         PRINT MID$(text$, t + 1, 1);
503.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
504.         _DEST orig&
505.         x1 = x + (t * size): x2 = x1 + size
506.         y1 = y: y2 = y + size
507.         _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
508.         _FREEIMAGE pprintimg&
509.     NEXT
510. END SUB
511.  
512. FUNCTION ValidMoves$ (num)
513.     'returns a string list of all valid moves for player that is sitting on the num
514.     'The list contains 2 charater byte strings per num place.
515.     'Each one is a num on the board that player could goto.
516.  
517.     list$ = ""
518.     SELECT CASE num
519.         CASE 1 'one steps
520.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
521.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
522.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
523.             '2 steps
524.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
525.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
526.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
527.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
528.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
529.         CASE 2
530.             'one steps
531.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
532.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
533.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
534.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
535.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
536.             'two steps
537.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
538.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
539.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
540.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
541.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
542.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
543.  
544.         CASE 3 TO 7
545.             'one steps
546.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
547.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
548.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
549.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
550.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
551.             'two steps
552.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
553.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
554.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
555.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
556.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
557.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
558.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
559.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
560.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
561.         CASE 8
562.             'one step
563.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
564.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
565.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
566.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
567.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
568.             'two steps
569.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
570.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
571.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
572.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
573.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
574.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
575.         CASE 9
576.             'one step
577.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
578.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
579.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
580.             'two steps
581.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
582.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
583.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
584.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
585.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
586.  
587.             '2nd row
588.         CASE 10
589.             'one step
590.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
591.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
592.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
593.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
594.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
595.             'two steps
596.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
597.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
598.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
599.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
600.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
601.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
602.         CASE 11
603.             'one step
604.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
605.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
606.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
607.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
608.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
609.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
610.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
611.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
612.             'two steps
613.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
614.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
615.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
616.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
617.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
618.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
619.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
620.         CASE 12 TO 16
621.             'one step
622.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
623.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
624.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
625.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
626.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
627.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
628.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
629.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
630.             'two steps
631.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
632.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
633.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
634.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
635.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
636.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
637.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
638.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
639.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
640.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
641.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
642.         CASE 17
643.             'one step
644.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
645.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
646.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
647.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
648.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
649.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
650.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
651.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
652.             'two steps
653.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
654.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
655.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
656.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
657.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
658.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
659.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
660.         CASE 18
661.             'one step
662.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
663.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
664.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
665.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
666.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
667.             'two steps
668.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
669.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
670.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
671.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
672.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
673.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
674.             'down left side, outer
675.         CASE 19, 28, 37, 46, 55
676.             'one step
677.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
678.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
679.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
680.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
681.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
682.             'two steps
683.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
684.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
685.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
686.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
687.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
688.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
689.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
690.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
691.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
692.             'down left side, inner
693.         CASE 20, 29, 38, 47, 56
694.             'one step
695.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
696.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
697.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
698.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
699.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
700.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
701.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
702.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
703.             'two steps
704.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
705.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
706.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
707.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
708.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
709.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
710.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
711.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
712.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
713.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
714.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
715.  
716.             'middle of board (all directions)
717.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61
718.             'one step
719.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
720.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
721.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
722.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
723.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
724.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
725.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
726.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
727.             'two steps
728.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
729.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
730.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
731.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
732.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
733.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
734.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
735.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
736.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
737.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
738.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
739.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
740.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
741.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
742.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
743.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
744.  
745.             'right side, outer
746.         CASE 27, 36, 45, 54, 63
747.             'one step
748.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
749.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
750.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
751.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
752.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
753.             'two steps
754.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
755.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
756.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
757.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
758.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
759.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
760.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
761.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
762.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
763.  
764.             'rigth side, inner
765.         CASE 26, 35, 44, 53, 62
766.             'one step
767.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
768.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
769.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
770.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
771.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
772.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
773.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
774.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
775.             'two steps
776.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
777.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
778.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
779.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
780.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
781.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
782.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
783.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
784.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
785.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
786.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
787.         CASE 64
788.             'one step
789.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
790.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
791.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
792.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
793.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
794.             'two steps
795.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
796.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
797.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
798.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
799.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
800.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
801.         CASE 65
802.             'one step
803.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
804.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
805.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
806.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
807.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
808.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
809.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
810.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
811.             'two steps
812.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
813.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
814.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
815.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
816.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
817.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
818.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
819.         CASE 66 TO 70
820.             'one step
821.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
822.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
823.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
824.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
825.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
826.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
827.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
828.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
829.             'two steps
830.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
831.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
832.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
833.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
834.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
835.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
836.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
837.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
838.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
839.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
840.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
841.         CASE 71
842.             'one step
843.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
844.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
845.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
846.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
847.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
848.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
849.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
850.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
851.             'two steps
852.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
853.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
854.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
855.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
856.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
857.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
858.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
859.         CASE 72
860.             'one step
861.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
862.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
863.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
864.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
865.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
866.             'two steps
867.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
868.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
869.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
870.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
871.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
872.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
873.             'bottom row
874.         CASE 73
875.             'one step
876.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
877.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
878.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
879.             'two steps
880.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
881.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
882.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
883.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
884.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
885.         CASE 74
886.             'one step
887.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
888.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
889.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
890.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
891.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
892.             'two steps
893.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
894.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
895.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
896.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
897.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
898.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
899.         CASE 75 TO 79
900.             'one step
901.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
902.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
903.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
904.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
905.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
906.             'two steps
907.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
908.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
909.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
910.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
911.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
912.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
913.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
914.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
915.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
916.         CASE 80
917.             'one step
918.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
919.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
920.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
921.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
922.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
923.             'two steps
924.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
925.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
926.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
927.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
928.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
929.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
930.         CASE 81
931.             'one step
932.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
933.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
934.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
935.             'two steps
936.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
937.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
938.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
939.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
940.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
941.  
942.     END SELECT
943.  
944.     ValidMoves$ = list$
945.  
946. END FUNCTION
947.  
948. FUNCTION nums$ (num)
949.     'helper function returns num as a two byte string
950.     n$ = LTRIM$(RTRIM$(STR$(num)))
951.     IF LEN(n$) = 1 THEN n$ = "0" + n$
952.     nums$ = n$
953. END FUNCTION
954.  

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on October 28, 2021, 07:35:30 pm

Got AI play working!  Now you can play against the computer.  It's not the strongest playing, but it's a beginning which can be expanded on, like choosing pieces closest to enemy, etc.. Now I can start cleaning up the code and reorganize it to make it look like a sane person wrote it.  Attached a screenshot of a game, which I'm losing.

Hope you enjoy playing it as much as I enjoying making it.

- Dav

Code: QB64: [Select]

1.  
2. '============
3. 'GRIDWARS.BAS - v0.3
4. '============
5. 'Coded by Dav OCT/2021
6.  
7. 'v0.3
8. '* Added AI play.  Now play against the computer!
9.  
10.  
11. RANDOMIZE TIMER
12.  
13. SCREEN _NEWIMAGE(600, 650, 32)
14. DO: LOOP UNTIL _SCREENEXISTS
15. _TITLE "GridWar"
16.  
17. '=== define board info
18. DIM SHARED rows, cols, size
19. rows = 9: cols = 9: size = _WIDTH / cols
20. DIM SHARED box.v(rows * cols) 'value of box
21. DIM SHARED box.x(rows * cols), box.y(rows * cols) 'x/y's
22. DIM SHARED player
23.  
24. '=======
25. restart:
26. '=======
27.  
28. PLAY "MBL32O3CEGEC"
29.  
30. CLS
31.  
32. bc = 1 'counter
33. FOR c = 1 TO cols
34.     FOR r = 1 TO rows
35.         x = (r * size)
36.         y = 50 + (c * size)
37.         box.x(bc) = x - size
38.         box.y(bc) = y - size
39.         box.v(bc) = 0 'zero means nothing, empty square
40.         bc = bc + 1
41.     NEXT
42. NEXT
43.  
44. 'set user's piece
45. box.v(1) = 1: box.v(9) = 2
46. box.v(73) = 2: box.v(81) = 1
47.  
48. player = 1 'user goes first
49.  
50. '====
51. main:
52. '====
53.  
54. 'do a computer move here
55. IF player = 2 THEN
56.  
57.     UpdateBoard
58.  
59.     mv$ = ComputerMove$
60.     old = VAL(LEFT$(mv$, 2)): new = VAL(RIGHT$(mv$, 2))
61.  
62.     _DELAY .5 'a little pause to make it seem human
63.  
64.     'show all valid moves
65.     v$ = ValidMoves$(old)
66.     FOR f = 1 TO LEN(v$) STEP 2
67.         bv = VAL(MID$(v$, f, 2))
68.         x2 = box.x(bv) + (size / 2) 'find middle of box
69.         y2 = box.y(bv) + (size / 2)
70.         CIRCLE (x2, y2), 3, _RGBA(150, 150, 150, 150), b
71.     NEXT
72.  
73.     'highlight piece to move
74.     FOR k = 1 TO 30
75.         LINE (box.x(old) + 2, box.y(old) + 2)-(box.x(old) + size - 2, box.y(old) + size - 2), _RGB(RND * 255, RND * 255, RND * 255), B
76.         LINE (box.x(old) + 3, box.y(old) + 3)-(box.x(old) + size - 3, box.y(old) + size - 3), _RGB(RND * 255, RND * 255, RND * 255), B
77.         LINE (box.x(old) + 4, box.y(old) + 4)-(box.x(old) + size - 4, box.y(old) + size - 4), _RGB(RND * 255, RND * 255, RND * 255), B
78.         _DISPLAY
79.         _LIMIT 30
80.     NEXT
81.  
82.     'if making one space move, clone
83.     IF HowManyPlaces(old, new) = 1 THEN
84.         SOUND 2000, .1
85.         box.v(new) = player
86.         UpdateBoard: convertneighbors player, new, 1
87.     END IF
88.  
89.     'if jumping...erase old place
90.     IF HowManyPlaces(old, new) = 2 THEN
91.         SOUND 2000, .1
92.         box.v(new) = player
93.         box.v(old) = 0
94.         UpdateBoard: convertneighbors player, new, 1
95.     END IF
96.  
97.     UpdateBoard
98.  
99.     'check pieces here.....
100.  
101.     'See how many empty places left
102.     howmany = 0: reds = 0: blues = 0
103.     FOR h = 1 TO rows * cols
104.         'empty ones
105.         IF box.v(h) = 0 THEN howmany = howmany + 1
106.         IF box.v(h) = 1 THEN reds = reds + 1
107.         IF box.v(h) = 2 THEN blues = blues + 1
108.     NEXT
109.  
110.     'If no places left, game over
111.     IF howmany = 0 THEN
112.         IF reds = blues THEN
113.             LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
114.             LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
115.             PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "TIE GAME!"
116.             PLAY "mbl16o2bagfedc"
117.             _DISPLAY: SLEEP 5
118.             GOTO restart
119.         END IF
120.         IF reds > blues THEN GOTO redwins ELSE GOTO bluewins
121.     END IF
122.  
123.     'If no reds left, blue wins
124.     IF reds = 0 THEN GOTO bluewins
125.     'If no blues left, red wins
126.     IF blues = 0 THEN GOTO redwins
127.  
128.     'switch player to human
129.     player = 1
130.  
131.     '==== CHECK IF new PLAYER HAS any MOVE LEFT
132.     movesleft = 0
133.     FOR g = 1 TO rows * cols
134.         IF box.v(g) = player THEN
135.             IF ValidMoves$(g) <> "" THEN movesleft = 1
136.         END IF
137.     NEXT
138.  
139.     IF movesleft = 0 THEN
140.         LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
141.         LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
142.         PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "NO MOVES!"
143.         PLAY "mbl16o2bagfedc"
144.         _DISPLAY: SLEEP 3
145.         IF reds > blues THEN GOTO redwins
146.         IF blues > reds THEN GOTO bluewins
147.         GOTO restart
148.     END IF
149.  
150.     player = 1
151.     GOTO main
152. END IF
153.  
154.  
155. selected = 0
156.  
157. UpdateBoard
158.  
159. second: 'Go back here when making second choice
160. _DISPLAY
161.  
162. DO
163.  
164.     'wait until mouse button up to continue
165.     WHILE _MOUSEBUTTON(1) <> 0: n = _MOUSEINPUT: WEND
166.  
167.     trap = _MOUSEINPUT 'Poll mouse data
168.  
169.     'highlight box when a box is selected
170.     IF selected = 1 THEN
171.         LINE (box.x(t) + 2, box.y(t) + 2)-(box.x(t) + size - 2, box.y(t) + size - 2), _RGB(RND * 255, RND * 255, RND * 255), B
172.         LINE (box.x(t) + 3, box.y(t) + 3)-(box.x(t) + size - 3, box.y(t) + size - 3), _RGB(RND * 255, RND * 255, RND * 255), B
173.         LINE (box.x(t) + 4, box.y(t) + 4)-(box.x(t) + size - 4, box.y(t) + size - 4), _RGB(RND * 255, RND * 255, RND * 255), B
174.  
175.         '====================================
176.         'show valid moves, for testing...
177.         v$ = ValidMoves$(t)
178.         FOR f = 1 TO LEN(v$) STEP 2
179.             bv = VAL(MID$(v$, f, 2))
180.             x2 = box.x(bv) + (size / 2) 'find middle of box
181.             y2 = box.y(bv) + (size / 2)
182.             CIRCLE (x2, y2), 3, _RGBA(150, 150, 150, 50), b
183.         NEXT
184.         '====================================
185.  
186.         _DISPLAY
187.     END IF
188.  
189.  
190.     'If user clicked mouse
191.     IF _MOUSEBUTTON(1) AND _MOUSEY > 50 THEN
192.  
193.         'see where they clicked
194.         mx = _MOUSEX: my = _MOUSEY
195.  
196.         'cycle through all Check blocks...
197.         FOR t = 1 TO (rows * cols)
198.  
199.             'Block loction...
200.             tx = box.x(t): tx2 = box.x(t) + size
201.             ty = box.y(t): ty2 = box.y(t) + size
202.  
203.             'if clicked on a box clicked
204.             IF mx >= tx AND mx <= tx2 THEN
205.                 IF my >= ty AND my <= ty2 THEN
206.  
207.                     'if this is a first choice...
208.                     IF selected = 0 THEN
209.  
210.                         'only select players color
211.                         IF box.v(t) = player THEN
212.  
213.                             selected = 1
214.                             SOUND 3000, .1 'made a select
215.                             oldt = t
216.                             oldtv = box.v(t) 'save picked box number color
217.                             GOTO second 'now get second choice
218.                         END IF
219.  
220.                     END IF
221.  
222.                     IF selected = 1 THEN 'making second choice
223.  
224.                         'if selected an empty box
225.                         IF box.v(t) = 0 THEN
226.  
227.                             'if making one space move
228.                             IF HowManyPlaces(oldt, t) = 1 THEN
229.  
230.                                 'clone to 2nd box data
231.                                 SOUND 2000, .1
232.                                 box.v(t) = oldtv
233.                                 UpdateBoard
234.  
235.                                 convertneighbors player, t, 1
236.  
237.                             END IF
238.  
239.                             'if jumping...
240.                             IF HowManyPlaces(oldt, t) = 2 THEN
241.  
242.                                 'jump...erase 1st box data
243.                                 SOUND 2000, .1
244.                                 box.v(t) = oldtv
245.                                 box.v(oldt) = 0
246.                                 UpdateBoard
247.  
248.                                 convertneighbors player, t, 1
249.  
250.                             END IF
251.  
252.  
253.                             UpdateBoard
254.  
255.                             'must have clicked a out of bounds place, redo turn...
256.                             IF HowManyPlaces(oldt, t) = 0 THEN
257.                                 SOUND 500, .1
258.                                 GOTO main
259.                             END IF
260.  
261.                             '===============================
262.                             'check pieces here.....
263.  
264.                             'See how many empty places left
265.                             howmany = 0: reds = 0: blues = 0
266.                             FOR h = 1 TO rows * cols
267.                                 'empty ones
268.                                 IF box.v(h) = 0 THEN howmany = howmany + 1
269.                                 IF box.v(h) = 1 THEN reds = reds + 1
270.                                 IF box.v(h) = 2 THEN blues = blues + 1
271.                             NEXT
272.  
273.                             'If no places left, game over
274.                             IF howmany = 0 THEN
275.  
276.                                 IF reds = blues THEN
277.                                     LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
278.                                     LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
279.                                     PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "TIE GAME!"
280.                                     PLAY "mbl16o2bagfedc"
281.                                     _DISPLAY: SLEEP 5
282.                                     GOTO restart
283.                                 END IF
284.  
285.                                 IF reds > blues THEN GOTO redwins ELSE GOTO bluewins
286.  
287.                             END IF
288.  
289.                             'If no reds left, blue wins
290.                             IF reds = 0 THEN
291.                                 bluewins:
292.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
293.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
294.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "BLUE WINS"
295.                                 PLAY "mbl16o2bagfedc"
296.                                 _DISPLAY: SLEEP 5
297.                                 GOTO restart
298.                             END IF
299.  
300.                             'If no blues left, red wins
301.                             IF blues = 0 THEN
302.                                 redwins:
303.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
304.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
305.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "RED WINS!"
306.                                 PLAY "mbl16o2bagfedc"
307.                                 _DISPLAY: SLEEP 5
308.                                 GOTO restart
309.                             END IF
310.  
311.  
312.                             'players move done - switch turn, players
313.                             IF player = 1 THEN
314.  
315.                                 'computers turn here....
316.                                 'CHANGE TO AI MOVE HERE  '<<<<<<<<<<<<<<
317.                                 player = 2
318.  
319.                             ELSE
320.                                 player = 1
321.                             END IF
322.  
323.                             '==== CHECK IF PLAYER HAS VALID MOVE LEFT
324.                             movesleft = 0
325.                             FOR g = 1 TO rows * cols
326.                                 IF box.v(g) = player THEN
327.                                     IF ValidMoves$(g) <> "" THEN movesleft = 1
328.                                 END IF
329.                             NEXT
330.  
331.                             IF movesleft = 0 THEN
332.                                 LINE (200, 250)-(400, 350), _RGB(0, 0, 0), BF
333.                                 LINE (200, 250)-(400, 350), _RGB(255, 255, 255), B
334.                                 PPRINT 233, 285, 18, _RGB(255, 255, 255), 0, "NO MOVES!"
335.                                 PLAY "mbl16o2bagfedc"
336.                                 _DISPLAY: SLEEP 3
337.                                 IF reds > blues THEN GOTO redwins
338.                                 IF blues > reds THEN GOTO bluewins
339.                                 GOTO restart
340.                             END IF
341.  
342.  
343.                             GOTO main
344.  
345.                         ELSE
346.  
347.                             'if user clicked on another one of its color instead...
348.                             IF box.v(t) = player THEN
349.                                 'clear previous highlighted selection
350.                                 selected = 0
351.                                 UpdateBoard
352.                                 selected = 1
353.                                 oldt = t
354.                                 oldtv = box.v(t) 'save picked box number color
355.                                 SOUND 3000, .1
356.                                 GOTO second
357.                             END IF
358.  
359.                             'clicked on enemy instead, redo
360.                             selected = 0
361.                             UpdateBoard
362.                             SOUND 500, .1
363.                             GOTO main
364.  
365.                         END IF
366.  
367.                     END IF
368.  
369.                 END IF
370.             END IF
371.  
372.         NEXT
373.  
374.     END IF
375.  
376.     _DISPLAY
377.  
378.     IF INKEY$ <> "" THEN GOTO restart
379.  
380. LOOP
381.  
382. FUNCTION HowManyPlaces (old, new)
383.     'computes how many places a user moved
384.     '0 = out of bounds
385.     '1 = one place
386.     '2 = a jump
387.  
388.     p = 0 'default is out of bounds
389.  
390.     SELECT CASE old
391.  
392.         'row 1
393.         CASE 1: IF new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
394.             IF new = 3 OR new = 12 OR new = 19 OR new = 20 OR new = 21 THEN p = 2
395.         CASE 2: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
396.             IF new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
397.         CASE 3 TO 7: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
398.             IF new = old - 2 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
399.         CASE 8: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
400.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
401.         CASE 9: IF new = old - 1 OR new = old + 8 OR new = old + 9 THEN p = 1
402.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
403.  
404.             'row 2
405.         CASE 10: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
406.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
407.         CASE 11: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
408.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
409.         CASE 12: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
410.             IF new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
411.         CASE 13 TO 16: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
412.             IF new = old - 2 OR new = old + 2 OR new = old - 11 OR new = old - 7 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
413.         CASE 17: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
414.             IF new = old - 11 OR new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
415.         CASE 18: IF new = old - 1 OR new = old - 10 OR new = old - 9 OR new = old + 8 OR new = old + 9 THEN p = 1
416.             IF new = old - 2 OR new = old - 11 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
417.  
418.             'row 3
419.         CASE 19, 28, 37, 46, 55: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
420.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
421.         CASE 20, 29, 38, 47, 56: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
422.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
423.             'middle board, all ways,  (thru row 7)
424.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
425.             IF new = old - 2 OR new = old + 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
426.         CASE 26, 35, 44, 53, 62: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
427.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
428.         CASE 27, 36, 45, 54, 63: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
429.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
430.  
431.             'row 8
432.         CASE 64: IF new = old + 1 OR new = old - 8 OR new = old - 9 OR new = old + 9 OR new = old + 10 THEN p = 1
433.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 THEN p = 2
434.         CASE 65: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
435.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 THEN p = 2
436.         CASE 66 TO 70: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
437.             IF new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
438.         CASE 71: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
439.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
440.         CASE 72: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
441.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
442.  
443.             'bottom 9
444.         CASE 73: IF new = old + 1 OR new = old - 8 OR new = old - 9 THEN p = 1
445.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 THEN p = 2
446.         CASE 74: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
447.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 THEN p = 2
448.         CASE 75 TO 79: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
449.             IF new = old + 2 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
450.         CASE 80: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
451.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
452.         CASE 81: IF new = old - 1 OR new = old - 9 OR new = old - 10 THEN p = 1
453.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
454.     END SELECT
455.  
456.     HowManyPlaces = p
457.  
458. END FUNCTION
459.  
460. SUB UpdateBoard
461.  
462.     CLS , _RGB(32, 32, 32)
463.     PPRINT 205, 10, 20, _RGB(255, 255, 255), 0, "-=GridWar=-"
464.  
465.     red = 0: blue = 0
466.  
467.     '=== draw board based on box values
468.     bc = 1 'counter
469.     FOR cl = 1 TO cols
470.         FOR ro = 1 TO rows
471.  
472.             '=== count colors
473.             IF box.v(bc) = 1 THEN red = red + 1
474.             IF box.v(bc) = 2 THEN blue = blue + 1
475.  
476.             '=== if empty box
477.             IF box.v(bc) = 0 THEN
478.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
479.             ELSE
480.                 LINE (box.x(bc) + 2, box.y(bc) + 2)-(box.x(bc) + size - 2, box.y(bc) + size - 2), _RGB(64, 64, 64), BF
481.                 '=== draw color ball
482.                 x2 = box.x(bc) + (size / 2) 'find middle of box
483.                 y2 = box.y(bc) + (size / 2)
484.                 sz = size / 2
485.                 SELECT CASE box.v(bc)
486.                     CASE IS = 1: r = 255: g = 64: b = 64 'red
487.                     CASE IS = 2: r = 64: g = 64: b = 255 'blue
488.                 END SELECT
489.                 CIRCLE (x2, y2), sz - 4, _RGB(r, g, b)
490.                 PAINT (x2, y2), _RGB(r, g, b)
491.             END IF
492.             bc = bc + 1
493.         NEXT
494.     NEXT
495.  
496.     PPRINT 30, 15, 14, _RGB(255, 128, 128), 0, "Red =" + STR$(red)
497.     PPRINT 465, 15, 14, _RGB(128, 128, 255), 0, "Blue =" + STR$(blue)
498.  
499.     IF player = 1 THEN
500.         LINE (10, 10)-(150, 40), _RGBA(255, 100, 100, 50), BF
501.     END IF
502.  
503.     IF player = 2 THEN
504.         LINE (440, 10)-(590, 40), _RGBA(100, 100, 255, 50), BF
505.     END IF
506.  
507.     _DISPLAY
508.     _ICON _DISPLAY 'update app icon on taskbar
509. END SUB
510.  
511. SUB convertneighbors (player, num, show)
512.     'convert neighbors surrounding num to players value.
513.     '(when a piece lands on num, it changes neighbors)
514.     SELECT CASE num
515.         'row 1
516.         CASE 1: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: IF show = 1 THEN change num + 1
517.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: IF show = 1 THEN change num + 9
518.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: IF show = 1 THEN change num + 10
519.         CASE 2 TO 8: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: IF show = 1 THEN change num + 1
520.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: IF show = 1 THEN change num - 1
521.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player:: IF show = 1 THEN change num + 8
522.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: IF show = 1 THEN change num + 9
523.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: IF show = 1 THEN change num + 10
524.         CASE 9: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: IF show = 1 THEN change num - 1
525.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: IF show = 1 THEN change num + 8
526.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: IF show = 1 THEN change num + 9
527.             'down left side
528.         CASE 10, 19, 28, 37, 46, 55, 64
529.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: IF show = 1 THEN change num - 9
530.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: IF show = 1 THEN change num - 8
531.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: IF show = 1 THEN change num + 1
532.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: IF show = 1 THEN change num + 9
533.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: IF show = 1 THEN change num + 10
534.             'down right side
535.         CASE 18, 27, 36, 45, 54, 63, 72
536.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: IF show = 1 THEN change num - 9
537.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: IF show = 1 THEN change num - 10
538.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: IF show = 1 THEN change num - 1
539.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: IF show = 1 THEN change num + 8
540.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: IF show = 1 THEN change num + 9
541.             'middle of board
542.         CASE 11 TO 17, 20 TO 26, 29 TO 35, 38 TO 44, 47 TO 53, 56 TO 62, 65 TO 71
543.             IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: IF show = 1 THEN change num + 1
544.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: IF show = 1 THEN change num - 1
545.             IF box.v(num + 8) <> 0 AND box.v(num + 8) <> player THEN box.v(num + 8) = player: IF show = 1 THEN change num + 8
546.             IF box.v(num + 9) <> 0 AND box.v(num + 9) <> player THEN box.v(num + 9) = player: IF show = 1 THEN change num + 9
547.             IF box.v(num + 10) <> 0 AND box.v(num + 10) <> player THEN box.v(num + 10) = player: IF show = 1 THEN change num + 10
548.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: IF show = 1 THEN change num - 8
549.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: IF show = 1 THEN change num - 9
550.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: IF show = 1 THEN change num - 10
551.             'bottom row
552.         CASE 73: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: IF show = 1 THEN change num + 1
553.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: IF show = 1 THEN change num - 9
554.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: IF show = 1 THEN change num - 8
555.         CASE 74 TO 80: IF box.v(num + 1) <> 0 AND box.v(num + 1) <> player THEN box.v(num + 1) = player: IF show = 1 THEN change num + 1
556.             IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: IF show = 1 THEN change num - 1
557.             IF box.v(num - 8) <> 0 AND box.v(num - 8) <> player THEN box.v(num - 8) = player: IF show = 1 THEN change num - 8
558.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: IF show = 1 THEN change num - 9
559.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: IF show = 1 THEN change num - 10
560.         CASE 81: IF box.v(num - 1) <> 0 AND box.v(num - 1) <> player THEN box.v(num - 1) = player: IF show = 1 THEN change num - 1
561.             IF box.v(num - 9) <> 0 AND box.v(num - 9) <> player THEN box.v(num - 9) = player: IF show = 1 THEN change num - 9
562.             IF box.v(num - 10) <> 0 AND box.v(num - 10) <> player THEN box.v(num - 10) = player: IF show = 1 THEN change num - 10
563.     END SELECT
564. END SUB
565.  
566. SUB change (num)
567.  
568.     '=== find center x/y of place
569.     x2 = box.x(num) + (size / 2): y2 = box.y(num) + (size / 2)
570.  
571.     'do shrinking circle first
572.     IF player = 1 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
573.     FOR s = 30 TO 1 STEP -2
574.         SOUND 100 + t, .05
575.         'wipe clean
576.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
577.         CIRCLE (x2, y2), s, clr&
578.         PAINT (x2, y2), clr&
579.         _DISPLAY
580.         _LIMIT 140
581.         t = t + 100
582.     NEXT
583.  
584.     'Expand in the new circle
585.     'do shrinking circle first
586.     IF player = 2 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
587.     FOR s = 1 TO 30 STEP 2
588.         'wipe clean
589.         LINE (box.x(num) + 2, box.y(num) + 2)-(box.x(num) + size - 2, box.y(num) + size - 2), _RGB(64, 64, 64), BF
590.         CIRCLE (x2, y2), s, clr&
591.         PAINT (x2, y2), clr&
592.         _DISPLAY
593.         _LIMIT 140
594.     NEXT
595.  
596. END SUB
597.  
598. SUB PPRINT (x, y, size, clr&, trans&, text$)
599.     orig& = _DEST
600.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
601.     FOR t = 0 TO LEN(text$) - 1
602.         pprintimg& = _NEWIMAGE(16, 16, bit)
603.         _DEST pprintimg&
604.         CLS , trans&: COLOR clr&
605.         PRINT MID$(text$, t + 1, 1);
606.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
607.         _DEST orig&
608.         x1 = x + (t * size): x2 = x1 + size
609.         y1 = y: y2 = y + size
610.         _PUTIMAGE (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
611.         _FREEIMAGE pprintimg&
612.     NEXT
613. END SUB
614.  
615. FUNCTION ValidMoves$ (num)
616.     'returns a string list of all valid moves for player that is sitting on the num
617.     'The list contains 2 charater byte strings per num place.
618.     'Each one is a num on the board that player could goto.
619.  
620.     list$ = ""
621.     SELECT CASE num
622.         CASE 1 'one steps
623.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
624.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
625.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
626.             '2 steps
627.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
628.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
629.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
630.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
631.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
632.         CASE 2
633.             'one steps
634.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
635.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
636.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
637.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
638.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
639.             'two steps
640.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
641.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
642.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
643.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
644.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
645.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
646.  
647.         CASE 3 TO 7
648.             'one steps
649.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
650.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
651.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
652.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
653.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
654.             'two steps
655.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
656.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
657.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
658.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
659.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
660.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
661.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
662.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
663.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
664.         CASE 8
665.             'one step
666.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
667.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
668.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
669.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
670.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
671.             'two steps
672.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
673.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
674.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
675.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
676.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
677.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
678.         CASE 9
679.             'one step
680.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
681.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
682.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
683.             'two steps
684.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
685.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
686.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
687.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
688.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
689.  
690.             '2nd row
691.         CASE 10
692.             'one step
693.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
694.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
695.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
696.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
697.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
698.             'two steps
699.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
700.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
701.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
702.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
703.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
704.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
705.         CASE 11
706.             'one step
707.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
708.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
709.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
710.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
711.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
712.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
713.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
714.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
715.             'two steps
716.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
717.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
718.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
719.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
720.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
721.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
722.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
723.         CASE 12 TO 16
724.             'one step
725.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
726.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
727.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
728.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
729.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
730.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
731.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
732.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
733.             'two steps
734.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
735.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
736.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
737.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
738.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
739.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
740.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
741.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
742.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
743.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
744.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
745.         CASE 17
746.             'one step
747.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
748.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
749.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
750.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
751.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
752.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
753.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
754.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
755.             'two steps
756.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
757.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
758.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
759.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
760.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
761.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
762.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
763.         CASE 18
764.             'one step
765.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
766.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
767.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
768.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
769.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
770.             'two steps
771.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
772.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
773.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
774.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
775.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
776.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
777.             'down left side, outer
778.         CASE 19, 28, 37, 46, 55
779.             'one step
780.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
781.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
782.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
783.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
784.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
785.             'two steps
786.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
787.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
788.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
789.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
790.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
791.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
792.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
793.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
794.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
795.             'down left side, inner
796.         CASE 20, 29, 38, 47, 56
797.             'one step
798.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
799.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
800.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
801.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
802.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
803.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
804.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
805.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
806.             'two steps
807.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
808.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
809.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
810.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
811.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
812.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
813.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
814.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
815.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
816.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
817.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
818.  
819.             'middle of board (all directions)
820.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61
821.             'one step
822.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
823.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
824.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
825.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
826.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
827.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
828.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
829.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
830.             'two steps
831.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
832.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
833.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
834.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
835.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
836.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
837.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
838.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
839.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
840.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
841.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
842.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
843.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
844.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
845.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
846.             IF box.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
847.  
848.             'right side, outer
849.         CASE 27, 36, 45, 54, 63
850.             'one step
851.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
852.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
853.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
854.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
855.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
856.             'two steps
857.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
858.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
859.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
860.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
861.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
862.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
863.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
864.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
865.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
866.  
867.             'rigth side, inner
868.         CASE 26, 35, 44, 53, 62
869.             'one step
870.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
871.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
872.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
873.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
874.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
875.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
876.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
877.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
878.             'two steps
879.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
880.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
881.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
882.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
883.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
884.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
885.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
886.             IF box.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
887.             IF box.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
888.             IF box.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
889.             IF box.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
890.         CASE 64
891.             'one step
892.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
893.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
894.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
895.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
896.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
897.             'two steps
898.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
899.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
900.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
901.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
902.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
903.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
904.         CASE 65
905.             'one step
906.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
907.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
908.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
909.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
910.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
911.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
912.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
913.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
914.             'two steps
915.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
916.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
917.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
918.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
919.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
920.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
921.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
922.         CASE 66 TO 70
923.             'one step
924.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
925.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
926.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
927.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
928.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
929.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
930.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
931.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
932.             'two steps
933.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
934.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
935.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
936.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
937.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
938.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
939.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
940.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
941.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
942.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
943.             IF box.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
944.         CASE 71
945.             'one step
946.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
947.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
948.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
949.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
950.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
951.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
952.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
953.             IF box.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
954.             'two steps
955.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
956.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
957.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
958.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
959.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
960.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
961.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
962.         CASE 72
963.             'one step
964.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
965.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
966.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
967.             IF box.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
968.             IF box.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
969.             'two steps
970.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
971.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
972.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
973.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
974.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
975.             IF box.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
976.             'bottom row
977.         CASE 73
978.             'one step
979.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
980.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
981.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
982.             'two steps
983.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
984.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
985.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
986.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
987.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
988.         CASE 74
989.             'one step
990.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
991.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
992.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
993.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
994.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
995.             'two steps
996.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
997.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
998.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
999.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
1000.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
1001.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
1002.         CASE 75 TO 79
1003.             'one step
1004.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
1005.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1006.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1007.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1008.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
1009.             'two steps
1010.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
1011.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1012.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1013.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
1014.             IF box.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
1015.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
1016.             IF box.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
1017.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
1018.             IF box.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
1019.         CASE 80
1020.             'one step
1021.             IF box.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
1022.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1023.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1024.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1025.             IF box.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
1026.             'two steps
1027.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
1028.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1029.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1030.             IF box.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
1031.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
1032.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
1033.         CASE 81
1034.             'one step
1035.             IF box.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1036.             IF box.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1037.             IF box.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1038.             'two steps
1039.             IF box.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
1040.             IF box.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1041.             IF box.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1042.             IF box.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
1043.             IF box.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
1044.  
1045.     END SELECT
1046.  
1047.     ValidMoves$ = list$
1048.  
1049. END FUNCTION
1050.  
1051. FUNCTION nums$ (num)
1052.     'helper function returns num as a two byte string
1053.     n$ = LTRIM$(RTRIM$(STR$(num)))
1054.     IF LEN(n$) = 1 THEN n$ = "0" + n$
1055.     nums$ = n$
1056. END FUNCTION
1057.  
1058.  
1059. FUNCTION ComputerMove$ ()
1060.  
1061.     'this will find the best move and return a string of it.
1062.     'the string will contain the from place and the new place numbers.
1063.     '(like "0103" to move piece 1 to place 3
1064.  
1065.     'backup original board values, for restoring later
1066.     'and count total blue pieces on board while were at it....
1067.     REDIM box.v2(rows * cols): totalblues = 0
1068.     FOR o = 1 TO rows * cols
1069.         box.v2(o) = box.v(o)
1070.         IF box.v(0) = 2 THEN totalblues = totalblues + 1
1071.     NEXT
1072.  
1073.     bestgain = 0: bestplace = 0
1074.  
1075.     'step through pieces again, this time trying all moves on blues
1076.     FOR piece = 1 TO rows * cols
1077.  
1078.         'if it's a blue piece
1079.         IF box.v(piece) = 2 THEN
1080.  
1081.             'get valid moves of piece, if any
1082.             Valids$ = ValidMoves$(piece)
1083.  
1084.             'If there is....
1085.             IF Valids$ <> "" THEN
1086.  
1087.                 'try each move on piece...recount board
1088.                 FOR try = 1 TO LEN(Valids$) STEP 2
1089.  
1090.                     new = VAL(MID$(Valids$, try, 2))
1091.  
1092.                     'do the move, temporarily, just to see outcome
1093.                     'if making one space move, clone player 2
1094.                     IF HowManyPlaces(piece, new) = 1 THEN
1095.                         box.v(new) = 2
1096.                         convertneighbors player, new, 0
1097.                     END IF
1098.                     'if jumping...erase old place
1099.                     IF HowManyPlaces(piece, new) = 2 THEN
1100.                         box.v(new) = player
1101.                         box.v(piece) = 0: convertneighbors player, new, 0
1102.                     END IF
1103.  
1104.                     'now recount totalblues of board
1105.                     newtotal = 0
1106.                     FOR ss = 1 TO rows * cols
1107.                         IF box.v(ss) = 2 THEN newtotal = newtotal + 1
1108.                     NEXT
1109.  
1110.                     'see what new tally is
1111.                     compute = newtotal - totalblues
1112.  
1113.                     'if better than others, save data
1114.                     IF compute > bestgain THEN
1115.                         'save this info
1116.                         origplace = piece: bestplace = new
1117.                         bestgain = compute
1118.                     END IF
1119.  
1120.                     'restore original board values to try other valid moves
1121.                     FOR res = 1 TO rows * cols
1122.                         box.v(res) = box.v2(res)
1123.                     NEXT
1124.  
1125.                 NEXT
1126.  
1127.             END IF
1128.  
1129.         END IF
1130.  
1131.     NEXT
1132.  
1133.     ComputerMove$ = nums$(origplace) + nums$(bestplace)
1134.  
1135.     'restore original board values again, just to be safe...
1136.  
1137.     FOR res = 1 TO rows * cols
1138.         box.v(res) = box.v2(res)
1139.     NEXT
1140.  
1141. END FUNCTION
1142.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: GridWars game - going to add AI to it.
Post by: bplus on October 28, 2021, 11:21:52 pm

Great @Dav you've created a monster!

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on October 29, 2021, 12:40:05 pm

@Pete, @Statsman1, @bplus, thanks for the comments. I may put in some barriers in the middle like ataxx game had.  Started cleaning the monster code up this morning.

Tweaked the AI to make computer moves more random so it doesn’t make the same moves at the beginning of every game. The computermove scanning now starts either at the bottom or top of board randomly, so different pieces are being used.  Doesn’t hurt the play, makes it seem more human.  Have some other ideas.  May update graphics.  Also, I’m working on a music player sub to add background looping music. Since PLAY won’t loop songs, I’m using _SNDRAW songs. Seems to work. I could use external files, but like the idea of have everything in code.

- Dav

Title: Re: GridWars game - going to add AI to it.
Post by: Statsman1 on October 29, 2021, 12:51:46 pm

I love the way it’s going, @Dav.  Great job!   I am looking forward to how you tune up the AI.

Do you plan to keep score / records / stats at all?  A way to show if a player is improving?

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on October 29, 2021, 06:27:13 pm

Quote from: Statsman1 on October 29, 2021, 12:51:46 pm

Do you plan to keep score / records / stats at all?  A way to show if a player is improving?

Hadn’t thought of it, but I can add that.  Thought to have different kinds of grids at one point.   I didn’t realize how much a following ataxx game has, there’s even a website dedicated to discussing the AI methods it uses. 

- Dav

Title: Re: GridWars game - going to add AI to it.
Post by: OldMoses on October 29, 2021, 07:28:58 pm

That's really cool, and the AI spanked me by two to one.

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on October 29, 2021, 09:30:19 pm

Quote from: OldMoses on October 29, 2021, 07:28:58 pm

That's really cool, and the AI spanked me by two to one.

Yeah, the board can change on me quick when making 1 wrong move.  I've been reading on ways to make AI play harder, but think I'll just code what I would look for on the board for a move instead, like locking in the edges with my color, not leaving a vulnerable hole exposing a bunch of my pieces when I jump somewhere. (Coding this little puzzle has been really a fun challenge)

- Dav

Title: Re: GridWars game - going to add AI to it.
Post by: Statsman1 on October 29, 2021, 09:49:32 pm

Quote from: Dav on October 29, 2021, 06:27:13 pm

Hadn’t thought of it, but I can add that.  Thought to have different kinds of grids at one point.   I didn’t realize how much a following ataxx game has, there’s even a website dedicated to discussing the AI methods it uses. 

- Dav

Ataxx was a brain game that I loved, along with Klax, Tetris….those kinds of games were my jam!  But very popular, world-wide, as you have seen.

I hope to get some time to give your game a whirl this weekend.  Looks amazing, dude!

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on November 03, 2021, 09:17:56 pm

I haven't been able to work on this as much as I would like, but I have done something new with it and would like some testing on this version please. 

This new version auto-scales the puzzle board based on your current desktop size.  Hopefully the puzzle will now look and play the same regardless of your screen size.  (That means it won't look like an icon on Steves super duper laptop!) 

Instead or hard-coding the pixel size with everything, all the graphics are scaled based on _DESKTOPHEIGHT now, the font is too.  The only thing I have found is that on large screens (over 2000 desktopheight) the game plays sluggish. 

After doing all this changing, it then hit me that I really should have tried to add @SMcNeill autoscale thing first.  Anyway, I've tried this in 4 different screen sizes and the puzzle fills the screen pretty nicely.  How does it display on yours?

- Dav

Code: QB64: [Select]

1.  
2. '============
3. 'GRIDWARS.BAS - v0.4
4. '============
5. 'Coded by Dav NOV/2021
6.  
7. 'NEW FOR v0.4:
8. '  * Board auto sizes based on users desktop settings.
9. '    Game should look and play same on any screen size now.
10. '  * Randomized AI so game doesn't always start playing same way.
11. '    (AI scans board from top OR bottom now - not always from top)
12. '  * Random player starts - not always human goes first now.
13.  
14. 'TO DO: Make if player doesn't have a move, but other player does,
15. '       auto-fill in rest of board with the movable players color.
16.  
17. RANDOMIZE TIMER
18.  
19. _DELAY .25
20.  
21. _TITLE "GridWars"
22.  
23. DIM SHARED Rows, Columns, SquareSize: Rows = 9: Columns = 9
24.  
25. SquareSize = _DESKTOPHEIGHT * .95 / Columns / 1.3
26.  
27. 'SquareSize = 800 * .95 / Columns / 1.3  '<< --- over-ride for testing
28.  
29. DIM SHARED Square.v(Rows * Columns) 'value of the square
30. DIM SHARED Square.x(Rows * Columns), Square.y(Rows * Columns) 'square x/y
31. DIM SHARED player
32.  
33.  
34. SCREEN _NEWIMAGE(Rows * SquareSize, Columns * SquareSize + SquareSize, 32)
35.  
36. '=========================================================================
37. restart:
38. '=======
39.  
40. PLAY "MBL32O3CEGEC"
41.  
42. CLS
43.  
44. bc = 1
45. FOR c = 1 TO Columns
46.     FOR r = 1 TO Rows
47.         x = (r * SquareSize)
48.         y = SquareSize + (c * SquareSize)
49.         Square.x(bc) = x - SquareSize
50.         Square.y(bc) = y - SquareSize
51.         Square.v(bc) = 0
52.         bc = bc + 1
53.     NEXT
54. NEXT
55.  
56. 'set players pieces on board
57. Square.v(1) = 1: Square.v(9) = 2
58. Square.v(73) = 2: Square.v(81) = 1
59.  
60. player = INT(RND * 2) + 1 'choose a random player to goes first
61.  
62.  
63. '======================================================================
64. main:
65. '====
66.  
67. 'if it's the computers turn to move....
68. IF player = 2 THEN
69.     UpdateBoard 'draw board
70.  
71.     mv$ = ComputerMove$ 'get a computer move
72.  
73.     old = VAL(LEFT$(mv$, 2)) 'grab the move from place
74.     new = VAL(RIGHT$(mv$, 2)) 'grab the move to place
75.  
76.     _DELAY .5 'a little pause to make it seem human
77.  
78.     'show all valid moves
79.     v$ = ValidMoves$(old)
80.     FOR f = 1 TO LEN(v$) STEP 2
81.         bv = VAL(MID$(v$, f, 2))
82.         x2 = Square.x(bv) + (SquareSize / 2) 'find middle of box
83.         y2 = Square.y(bv) + (SquareSize / 2)
84.         CIRCLE (x2, y2), SquareSize * .05, _RGBA(150, 150, 150, 150), b
85.     NEXT
86.  
87.     'highlight piece to move
88.     FOR k = 1 TO 30
89.         LINE (Square.x(old) + 2, Square.y(old) + 2)-(Square.x(old) + SquareSize - 2, Square.y(old) + SquareSize - 2), _RGB(RND * 255, RND * 255, RND * 255), B
90.         LINE (Square.x(old) + 3, Square.y(old) + 3)-(Square.x(old) + SquareSize - 3, Square.y(old) + SquareSize - 3), _RGB(RND * 255, RND * 255, RND * 255), B
91.         LINE (Square.x(old) + 4, Square.y(old) + 4)-(Square.x(old) + SquareSize - 4, Square.y(old) + SquareSize - 4), _RGB(RND * 255, RND * 255, RND * 255), B
92.         _DISPLAY
93.         _LIMIT 30
94.     NEXT
95.  
96.     'if making one space move, clone
97.     IF HowManyPlaces(old, new) = 1 THEN
98.         SOUND 2000, .1
99.         Square.v(new) = player
100.         UpdateBoard: convertneighbors player, new, 1
101.     END IF
102.  
103.     'if jumping...erase old place
104.     IF HowManyPlaces(old, new) = 2 THEN
105.         SOUND 2000, .1
106.         Square.v(new) = player
107.         Square.v(old) = 0
108.         UpdateBoard: convertneighbors player, new, 1
109.     END IF
110.  
111.     UpdateBoard
112.  
113.     'check pieces here.....
114.  
115.     'See how many empty places left
116.     howmany = 0: reds = 0: blues = 0
117.     FOR h = 1 TO Rows * Columns
118.         'empty ones
119.         IF Square.v(h) = 0 THEN howmany = howmany + 1
120.         IF Square.v(h) = 1 THEN reds = reds + 1
121.         IF Square.v(h) = 2 THEN blues = blues + 1
122.     NEXT
123.  
124.     'If no places left, game over
125.     IF howmany = 0 THEN
126.         IF reds = blues THEN
127.             LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(0, 0, 0), BF
128.             LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(255, 255, 255), B
129.             PPRINT SquareSize * 3.3, SquareSize * 4.5, SquareSize / 3, _RGB(255, 255, 255), 0, "TIE GAME!"
130.             PLAY "mbl16o2bagfedc"
131.             _DISPLAY: SLEEP 5
132.             GOTO restart
133.         END IF
134.         IF reds > blues THEN GOTO redwins ELSE GOTO bluewins
135.     END IF
136.  
137.     'If no reds left, blue wins
138.     IF reds = 0 THEN GOTO bluewins
139.     'If no blues left, red wins
140.     IF blues = 0 THEN GOTO redwins
141.  
142.     'switch player to human
143.     player = 1
144.  
145.     '==== First check if the new PLAYER HAS any MOVE LEFT
146.     movesleft = 0
147.     FOR g = 1 TO Rows * Columns
148.         IF Square.v(g) = player THEN
149.             IF ValidMoves$(g) <> "" THEN movesleft = 1
150.         END IF
151.     NEXT
152.  
153.     IF movesleft = 0 THEN
154.         LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(0, 0, 0), BF
155.         LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(255, 255, 255), B
156.         PPRINT SquareSize * 3.3, SquareSize * 4.5, SquareSize / 3, _RGB(255, 255, 255), 0, "NO MOVES!"
157.         PLAY "mbl16o2bagfedc"
158.         _DISPLAY: SLEEP 3
159.         IF reds > blues THEN GOTO redwins
160.         IF blues > reds THEN GOTO bluewins
161.         GOTO restart
162.     END IF
163.  
164.     player = 1
165.     GOTO main
166. END IF
167.  
168. selected = 0
169.  
170. UpdateBoard
171.  
172. second: 'Go back here when making second choice
173. _DISPLAY
174.  
175. DO
176.  
177.     'wait until mouse button up to continue
178.     WHILE _MOUSEBUTTON(1) <> 0: n = _MOUSEINPUT: WEND
179.  
180.     trap = _MOUSEINPUT 'Poll mouse data
181.  
182.     'draw a highlight box when a box is selected
183.     IF selected = 1 THEN
184.         LINE (Square.x(t) + 2, Square.y(t) + 2)-(Square.x(t) + SquareSize - 2, Square.y(t) + SquareSize - 2), _RGB(RND * 255, RND * 255, RND * 255), B
185.         LINE (Square.x(t) + 3, Square.y(t) + 3)-(Square.x(t) + SquareSize - 3, Square.y(t) + SquareSize - 3), _RGB(RND * 255, RND * 255, RND * 255), B
186.         LINE (Square.x(t) + 4, Square.y(t) + 4)-(Square.x(t) + SquareSize - 4, Square.y(t) + SquareSize - 4), _RGB(RND * 255, RND * 255, RND * 255), B
187.         _DISPLAY
188.     END IF
189.  
190.  
191.     'If user clicked mouse in board area
192.     IF _MOUSEBUTTON(1) AND _MOUSEY > SquareSize THEN
193.  
194.         'see where they clicked
195.         mx = _MOUSEX: my = _MOUSEY
196.  
197.         'cycle through all Check blocks...
198.         FOR t = 1 TO (Rows * Columns)
199.  
200.             'Block loction...
201.             tx = Square.x(t): tx2 = Square.x(t) + SquareSize
202.             ty = Square.y(t): ty2 = Square.y(t) + SquareSize
203.  
204.             'if clicked on a box clicked
205.             IF mx >= tx AND mx <= tx2 THEN
206.                 IF my >= ty AND my <= ty2 THEN
207.  
208.                     'if this is a first choice...
209.                     IF selected = 0 THEN
210.  
211.                         'only select players color
212.                         IF Square.v(t) = player THEN
213.                             selected = 1
214.                             SOUND 3000, .1 'made a select
215.                             oldt = t
216.                             oldtv = Square.v(t) 'save picked box number color
217.  
218.                             'show valid moves
219.                             v$ = ValidMoves$(t)
220.                             FOR f = 1 TO LEN(v$) STEP 2
221.                                 bv = VAL(MID$(v$, f, 2))
222.                                 x2 = Square.x(bv) + (SquareSize / 2) 'find middle of box
223.                                 y2 = Square.y(bv) + (SquareSize / 2)
224.                                 CIRCLE (x2, y2), SquareSize * .05, _RGBA(150, 150, 150, 150), b
225.                             NEXT
226.                             _DISPLAY
227.  
228.                             GOTO second 'now get second choice
229.                         END IF
230.  
231.                     END IF
232.  
233.                     IF selected = 1 THEN 'making second choice
234.  
235.                         'if selected an empty box
236.                         IF Square.v(t) = 0 THEN
237.  
238.                             'if making one space move
239.                             IF HowManyPlaces(oldt, t) = 1 THEN
240.  
241.                                 'clone to 2nd box data
242.                                 SOUND 2000, .1
243.                                 Square.v(t) = oldtv
244.                                 UpdateBoard
245.  
246.                                 convertneighbors player, t, 1
247.  
248.                             END IF
249.  
250.                             'if jumping...
251.                             IF HowManyPlaces(oldt, t) = 2 THEN
252.  
253.                                 'jump...erase 1st box data
254.                                 SOUND 2000, .1
255.                                 Square.v(t) = oldtv
256.                                 Square.v(oldt) = 0
257.                                 UpdateBoard
258.  
259.                                 convertneighbors player, t, 1
260.  
261.                             END IF
262.  
263.  
264.                             UpdateBoard
265.  
266.                             'must have clicked a out of bounds place, redo turn...
267.                             IF HowManyPlaces(oldt, t) = 0 THEN
268.                                 SOUND 500, .1
269.                                 GOTO main
270.                             END IF
271.  
272.                             '===============================
273.                             'check pieces here.....
274.  
275.                             'See how many empty places left
276.                             howmany = 0: reds = 0: blues = 0
277.                             FOR h = 1 TO Rows * Columns
278.                                 'empty ones
279.                                 IF Square.v(h) = 0 THEN howmany = howmany + 1
280.                                 IF Square.v(h) = 1 THEN reds = reds + 1
281.                                 IF Square.v(h) = 2 THEN blues = blues + 1
282.                             NEXT
283.  
284.                             'If no places left, game over
285.                             IF howmany = 0 THEN
286.  
287.                                 IF reds = blues THEN
288.                                     LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(0, 0, 0), BF
289.                                     LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(255, 255, 255), B
290.                                     PPRINT SquareSize * 3.3, SquareSize * 4.5, SquareSize / 3, _RGB(255, 255, 255), 0, "TIE GAME!"
291.                                     PLAY "mbl16o2bagfedc"
292.                                     _DISPLAY: SLEEP 5
293.                                     GOTO restart
294.                                 END IF
295.  
296.                                 IF reds > blues THEN GOTO redwins ELSE GOTO bluewins
297.  
298.                             END IF
299.  
300.                             'If no reds left, blue wins
301.                             IF reds = 0 THEN
302.                                 bluewins:
303.                                 LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(0, 0, 0), BF
304.                                 LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(255, 255, 255), B
305.                                 PPRINT SquareSize * 3.3, SquareSize * 4.5, SquareSize / 3, _RGB(255, 255, 255), 0, "BLUE WINS"
306.                                 PLAY "mbl16o2bagfedc"
307.                                 _DISPLAY: SLEEP 5
308.                                 GOTO restart
309.                             END IF
310.  
311.                             'If no blues left, red wins
312.                             IF blues = 0 THEN
313.                                 redwins:
314.                                 LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(0, 0, 0), BF
315.                                 LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(255, 255, 255), B
316.                                 PPRINT SquareSize * 3.3, SquareSize * 4.5, SquareSize / 3, _RGB(255, 255, 255), 0, "RED WINS!"
317.                                 PLAY "mbl16o2bagfedc"
318.                                 _DISPLAY: SLEEP 5
319.                                 GOTO restart
320.                             END IF
321.  
322.  
323.                             'players move done - switch turn, players
324.                             IF player = 1 THEN
325.                                 player = 2
326.                             ELSE
327.                                 player = 1
328.                             END IF
329.  
330.                             '==== CHECK IF PLAYER HAS VALID MOVE LEFT
331.                             movesleft = 0
332.                             FOR g = 1 TO Rows * Columns
333.                                 IF Square.v(g) = player THEN
334.                                     IF ValidMoves$(g) <> "" THEN movesleft = 1
335.                                 END IF
336.                             NEXT
337.  
338.                             IF movesleft = 0 THEN
339.                                 LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(0, 0, 0), BF
340.                                 LINE (SquareSize * 3 - (SquareSize * .3), SquareSize * 4)-(SquareSize * 6 + (SquareSize * .3), SquareSize * 5.5), _RGB(255, 255, 255), B
341.                                 PPRINT SquareSize * 3.3, SquareSize * 4.5, SquareSize / 3, _RGB(255, 255, 255), 0, "NO MOVES!"
342.                                 PLAY "mbl16o2bagfedc"
343.                                 _DISPLAY: SLEEP 3
344.                                 IF reds > blues THEN GOTO redwins
345.                                 IF blues > reds THEN GOTO bluewins
346.                                 GOTO restart
347.                             END IF
348.  
349.  
350.                             GOTO main
351.  
352.                         ELSE
353.  
354.                             'if user clicked on another one of its color instead...
355.                             IF Square.v(t) = player THEN
356.                                 'clear previous highlighted selection
357.                                 selected = 0
358.                                 UpdateBoard
359.                                 selected = 1
360.                                 oldt = t
361.                                 oldtv = Square.v(t) 'save picked box number color
362.                                 SOUND 3000, .1
363.                                 GOTO second
364.                             END IF
365.  
366.                             'clicked on enemy instead, redo
367.                             selected = 0
368.                             UpdateBoard
369.                             SOUND 500, .1
370.                             GOTO main
371.  
372.                         END IF
373.  
374.                     END IF
375.  
376.                 END IF
377.             END IF
378.  
379.         NEXT
380.  
381.     END IF
382.  
383.     _DISPLAY
384.  
385.     IF INKEY$ <> "" THEN GOTO restart
386.  
387.     '_LIMIT 600
388.  
389. LOOP
390.  
391. FUNCTION HowManyPlaces (old, new)
392.     'computes how many places a user moved
393.     '0 = out of bounds
394.     '1 = one place
395.     '2 = a jump
396.  
397.     p = 0 'default is out of bounds
398.  
399.     SELECT CASE old
400.  
401.         'row 1
402.         CASE 1: IF new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
403.             IF new = 3 OR new = 12 OR new = 19 OR new = 20 OR new = 21 THEN p = 2
404.         CASE 2: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
405.             IF new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
406.         CASE 3 TO 7: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
407.             IF new = old - 2 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
408.         CASE 8: IF new = old - 1 OR new = old + 1 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
409.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
410.         CASE 9: IF new = old - 1 OR new = old + 8 OR new = old + 9 THEN p = 1
411.             IF new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
412.  
413.             'row 2
414.         CASE 10: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
415.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
416.         CASE 11: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
417.             IF new = old - 7 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
418.         CASE 12: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
419.             IF new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
420.         CASE 13 TO 16: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
421.             IF new = old - 2 OR new = old + 2 OR new = old - 11 OR new = old - 7 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
422.         CASE 17: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
423.             IF new = old - 11 OR new = old - 2 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
424.         CASE 18: IF new = old - 1 OR new = old - 10 OR new = old - 9 OR new = old + 8 OR new = old + 9 THEN p = 1
425.             IF new = old - 2 OR new = old - 11 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
426.  
427.             'row 3
428.         CASE 19, 28, 37, 46, 55: IF new = old - 9 OR new = old - 8 OR new = old + 1 OR new = old + 9 OR new = old + 10 THEN p = 1
429.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
430.         CASE 20, 29, 38, 47, 56: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
431.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
432.             'middle board, all ways,  (thru row 7)
433.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
434.             IF new = old - 2 OR new = old + 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 11 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 OR new = old + 20 THEN p = 2
435.         CASE 26, 35, 44, 53, 62: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
436.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 OR new = old + 19 THEN p = 2
437.         CASE 27, 36, 45, 54, 63: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
438.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 OR new = old + 16 OR new = old + 17 OR new = old + 18 THEN p = 2
439.  
440.             'row 8
441.         CASE 64: IF new = old + 1 OR new = old - 8 OR new = old - 9 OR new = old + 9 OR new = old + 10 THEN p = 1
442.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old + 2 OR new = old + 11 THEN p = 2
443.         CASE 65: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
444.             IF new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old + 2 OR new = old + 11 THEN p = 2
445.         CASE 66 TO 70: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
446.             IF new = old + 2 OR new = old + 7 OR new = old + 11 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
447.         CASE 71: IF new = old - 1 OR new = old + 1 OR new = old - 10 OR new = old - 9 OR new = old - 8 OR new = old + 8 OR new = old + 9 OR new = old + 10 THEN p = 1
448.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
449.         CASE 72: IF new = old - 1 OR new = old - 9 OR new = old - 10 OR new = old + 8 OR new = old + 9 THEN p = 1
450.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 OR new = old + 7 THEN p = 2
451.  
452.             'bottom 9
453.         CASE 73: IF new = old + 1 OR new = old - 8 OR new = old - 9 THEN p = 1
454.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 THEN p = 2
455.         CASE 74: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
456.             IF new = old + 2 OR new = old - 7 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 THEN p = 2
457.         CASE 75 TO 79: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
458.             IF new = old + 2 OR new = old - 2 OR new = old - 7 OR new = old - 11 OR new = old - 16 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
459.         CASE 80: IF new = old + 1 OR new = old - 1 OR new = old - 8 OR new = old - 9 OR new = old - 10 THEN p = 1
460.             IF new = old - 2 OR new = old - 11 OR new = old - 17 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
461.         CASE 81: IF new = old - 1 OR new = old - 9 OR new = old - 10 THEN p = 1
462.             IF new = old - 2 OR new = old - 11 OR new = old - 18 OR new = old - 19 OR new = old - 20 THEN p = 2
463.     END SELECT
464.  
465.     HowManyPlaces = p
466.  
467. END FUNCTION
468.  
469. SUB UpdateBoard
470.  
471.     CLS , _RGB(32, 32, 32)
472.  
473.     PPRINT SquareSize * 3.4, SquareSize / 4, SquareSize / 3, _RGB(255, 255, 255), 0, "GridWars"
474.  
475.     red = 0: blue = 0
476.  
477.     '=== draw board based on box values
478.     bc = 1 'counter
479.     FOR cl = 1 TO Columns
480.         FOR ro = 1 TO Rows
481.  
482.             '=== count colors
483.             IF Square.v(bc) = 1 THEN red = red + 1
484.             IF Square.v(bc) = 2 THEN blue = blue + 1
485.  
486.             '=== if empty box
487.             IF Square.v(bc) = 0 THEN
488.                 LINE (Square.x(bc) + 2, Square.y(bc) + 2)-(Square.x(bc) + SquareSize - 2, Square.y(bc) + SquareSize - 2), _RGB(64, 64, 64), BF
489.             ELSE
490.                 LINE (Square.x(bc) + 2, Square.y(bc) + 2)-(Square.x(bc) + SquareSize - 2, Square.y(bc) + SquareSize - 2), _RGB(64, 64, 64), BF
491.                 '=== draw color ball
492.                 x2 = Square.x(bc) + (SquareSize / 2) 'find middle of box
493.                 y2 = Square.y(bc) + (SquareSize / 2)
494.                 sz = SquareSize / 2
495.                 SELECT CASE Square.v(bc)
496.                     CASE IS = 1: r = 255: g = 64: b = 64 'red
497.                     CASE IS = 2: r = 64: g = 64: b = 255 'blue
498.                 END SELECT
499.                 CIRCLE (x2, y2), sz - 4, _RGB(r, g, b)
500.                 PAINT (x2, y2), _RGB(r, g, b)
501.             END IF
502.             bc = bc + 1
503.         NEXT
504.     NEXT
505.  
506.     PPRINT SquareSize / 2, SquareSize / 3.5, SquareSize / 4, _RGB(255, 128, 128), 0, "Red =" + STR$(red)
507.     PPRINT SquareSize * 6 + (SquareSize / 1.6), SquareSize / 3.5, SquareSize / 4, _RGB(128, 128, 255), 0, "Blue =" + STR$(blue)
508.  
509.     'highlight current player
510.     IF player = 1 THEN
511.         LINE (SquareSize / 7, SquareSize / 8)-(SquareSize * 3 - (SquareSize / 2), SquareSize / 1.2), _RGBA(255, 100, 100, 50), BF
512.     END IF
513.  
514.     IF player = 2 THEN
515.         LINE (SquareSize * 6 + (SquareSize / 4), SquareSize / 8)-(SquareSize * 9 - (SquareSize / 7), SquareSize / 1.2), _RGBA(100, 100, 255, 50), BF
516.     END IF
517.  
518.     _DISPLAY
519.     _ICON _DISPLAY 'update app icon on taskbar
520. END SUB
521.  
522. SUB convertneighbors (player, num, show)
523.     'convert neighbors surrounding num to players value.
524.     '(when a piece lands on num, it changes neighbors)
525.     SELECT CASE num
526.         'row 1
527.         CASE 1: IF Square.v(num + 1) <> 0 AND Square.v(num + 1) <> player THEN Square.v(num + 1) = player: IF show = 1 THEN change num + 1
528.             IF Square.v(num + 9) <> 0 AND Square.v(num + 9) <> player THEN Square.v(num + 9) = player: IF show = 1 THEN change num + 9
529.             IF Square.v(num + 10) <> 0 AND Square.v(num + 10) <> player THEN Square.v(num + 10) = player: IF show = 1 THEN change num + 10
530.         CASE 2 TO 8: IF Square.v(num + 1) <> 0 AND Square.v(num + 1) <> player THEN Square.v(num + 1) = player: IF show = 1 THEN change num + 1
531.             IF Square.v(num - 1) <> 0 AND Square.v(num - 1) <> player THEN Square.v(num - 1) = player: IF show = 1 THEN change num - 1
532.             IF Square.v(num + 8) <> 0 AND Square.v(num + 8) <> player THEN Square.v(num + 8) = player:: IF show = 1 THEN change num + 8
533.             IF Square.v(num + 9) <> 0 AND Square.v(num + 9) <> player THEN Square.v(num + 9) = player: IF show = 1 THEN change num + 9
534.             IF Square.v(num + 10) <> 0 AND Square.v(num + 10) <> player THEN Square.v(num + 10) = player: IF show = 1 THEN change num + 10
535.         CASE 9: IF Square.v(num - 1) <> 0 AND Square.v(num - 1) <> player THEN Square.v(num - 1) = player: IF show = 1 THEN change num - 1
536.             IF Square.v(num + 8) <> 0 AND Square.v(num + 8) <> player THEN Square.v(num + 8) = player: IF show = 1 THEN change num + 8
537.             IF Square.v(num + 9) <> 0 AND Square.v(num + 9) <> player THEN Square.v(num + 9) = player: IF show = 1 THEN change num + 9
538.             'down left side
539.         CASE 10, 19, 28, 37, 46, 55, 64
540.             IF Square.v(num - 9) <> 0 AND Square.v(num - 9) <> player THEN Square.v(num - 9) = player: IF show = 1 THEN change num - 9
541.             IF Square.v(num - 8) <> 0 AND Square.v(num - 8) <> player THEN Square.v(num - 8) = player: IF show = 1 THEN change num - 8
542.             IF Square.v(num + 1) <> 0 AND Square.v(num + 1) <> player THEN Square.v(num + 1) = player: IF show = 1 THEN change num + 1
543.             IF Square.v(num + 9) <> 0 AND Square.v(num + 9) <> player THEN Square.v(num + 9) = player: IF show = 1 THEN change num + 9
544.             IF Square.v(num + 10) <> 0 AND Square.v(num + 10) <> player THEN Square.v(num + 10) = player: IF show = 1 THEN change num + 10
545.             'down right side
546.         CASE 18, 27, 36, 45, 54, 63, 72
547.             IF Square.v(num - 9) <> 0 AND Square.v(num - 9) <> player THEN Square.v(num - 9) = player: IF show = 1 THEN change num - 9
548.             IF Square.v(num - 10) <> 0 AND Square.v(num - 10) <> player THEN Square.v(num - 10) = player: IF show = 1 THEN change num - 10
549.             IF Square.v(num - 1) <> 0 AND Square.v(num - 1) <> player THEN Square.v(num - 1) = player: IF show = 1 THEN change num - 1
550.             IF Square.v(num + 8) <> 0 AND Square.v(num + 8) <> player THEN Square.v(num + 8) = player: IF show = 1 THEN change num + 8
551.             IF Square.v(num + 9) <> 0 AND Square.v(num + 9) <> player THEN Square.v(num + 9) = player: IF show = 1 THEN change num + 9
552.             'middle of board
553.         CASE 11 TO 17, 20 TO 26, 29 TO 35, 38 TO 44, 47 TO 53, 56 TO 62, 65 TO 71
554.             IF Square.v(num + 1) <> 0 AND Square.v(num + 1) <> player THEN Square.v(num + 1) = player: IF show = 1 THEN change num + 1
555.             IF Square.v(num - 1) <> 0 AND Square.v(num - 1) <> player THEN Square.v(num - 1) = player: IF show = 1 THEN change num - 1
556.             IF Square.v(num + 8) <> 0 AND Square.v(num + 8) <> player THEN Square.v(num + 8) = player: IF show = 1 THEN change num + 8
557.             IF Square.v(num + 9) <> 0 AND Square.v(num + 9) <> player THEN Square.v(num + 9) = player: IF show = 1 THEN change num + 9
558.             IF Square.v(num + 10) <> 0 AND Square.v(num + 10) <> player THEN Square.v(num + 10) = player: IF show = 1 THEN change num + 10
559.             IF Square.v(num - 8) <> 0 AND Square.v(num - 8) <> player THEN Square.v(num - 8) = player: IF show = 1 THEN change num - 8
560.             IF Square.v(num - 9) <> 0 AND Square.v(num - 9) <> player THEN Square.v(num - 9) = player: IF show = 1 THEN change num - 9
561.             IF Square.v(num - 10) <> 0 AND Square.v(num - 10) <> player THEN Square.v(num - 10) = player: IF show = 1 THEN change num - 10
562.             'bottom row
563.         CASE 73: IF Square.v(num + 1) <> 0 AND Square.v(num + 1) <> player THEN Square.v(num + 1) = player: IF show = 1 THEN change num + 1
564.             IF Square.v(num - 9) <> 0 AND Square.v(num - 9) <> player THEN Square.v(num - 9) = player: IF show = 1 THEN change num - 9
565.             IF Square.v(num - 8) <> 0 AND Square.v(num - 8) <> player THEN Square.v(num - 8) = player: IF show = 1 THEN change num - 8
566.         CASE 74 TO 80: IF Square.v(num + 1) <> 0 AND Square.v(num + 1) <> player THEN Square.v(num + 1) = player: IF show = 1 THEN change num + 1
567.             IF Square.v(num - 1) <> 0 AND Square.v(num - 1) <> player THEN Square.v(num - 1) = player: IF show = 1 THEN change num - 1
568.             IF Square.v(num - 8) <> 0 AND Square.v(num - 8) <> player THEN Square.v(num - 8) = player: IF show = 1 THEN change num - 8
569.             IF Square.v(num - 9) <> 0 AND Square.v(num - 9) <> player THEN Square.v(num - 9) = player: IF show = 1 THEN change num - 9
570.             IF Square.v(num - 10) <> 0 AND Square.v(num - 10) <> player THEN Square.v(num - 10) = player: IF show = 1 THEN change num - 10
571.         CASE 81: IF Square.v(num - 1) <> 0 AND Square.v(num - 1) <> player THEN Square.v(num - 1) = player: IF show = 1 THEN change num - 1
572.             IF Square.v(num - 9) <> 0 AND Square.v(num - 9) <> player THEN Square.v(num - 9) = player: IF show = 1 THEN change num - 9
573.             IF Square.v(num - 10) <> 0 AND Square.v(num - 10) <> player THEN Square.v(num - 10) = player: IF show = 1 THEN change num - 10
574.     END SELECT
575. END SUB
576.  
577. SUB change (num)
578.  
579.     '=== find center x/y of place
580.     x2 = Square.x(num) + (SquareSize / 2): y2 = Square.y(num) + (SquareSize / 2)
581.  
582.     'do shrinking circle first
583.     IF player = 1 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
584.     FOR s = (SquareSize / 2.2) TO 1 STEP -(SquareSize * .025)
585.         SOUND 100 + t, .05
586.         'wipe clean
587.         LINE (Square.x(num) + 2, Square.y(num) + 2)-(Square.x(num) + SquareSize - 2, Square.y(num) + SquareSize - 2), _RGB(64, 64, 64), BF
588.         CIRCLE (x2, y2), s, clr&
589.         PAINT (x2, y2), clr&
590.         _DISPLAY
591.         IF _DESKTOPHEIGHT < 2000 THEN _LIMIT 140
592.         t = t + 100
593.     NEXT
594.  
595.     'Expand in the new circle
596.     'do shrinking circle first
597.     IF player = 2 THEN clr& = _RGB(64, 64, 255) ELSE clr& = _RGB(255, 64, 64)
598.     FOR s = 1 TO (SquareSize / 2.2) STEP (SquareSize * .025)
599.         'wipe clean
600.         LINE (Square.x(num) + 2, Square.y(num) + 2)-(Square.x(num) + SquareSize - 2, Square.y(num) + SquareSize - 2), _RGB(64, 64, 64), BF
601.         CIRCLE (x2, y2), s, clr&
602.         PAINT (x2, y2), clr&
603.         _DISPLAY
604.         IF _DESKTOPHEIGHT < 2000 THEN _LIMIT 140
605.     NEXT
606.  
607. END SUB
608.  
609. SUB PPRINT (x, y, SquareSize, clr&, trans&, text$)
610.     orig& = _DEST
611.     bit = 32: IF _PIXELSIZE(0) = 1 THEN bit = 256
612.     FOR t = 0 TO LEN(text$) - 1
613.         pprintimg& = _NEWIMAGE(16, 16, bit)
614.         _DEST pprintimg&
615.         CLS , trans&: COLOR clr&
616.         PRINT MID$(text$, t + 1, 1);
617.         _CLEARCOLOR _RGB(0, 0, 0), pprintimg&
618.         _DEST orig&
619.         x1 = x + (t * SquareSize): x2 = x1 + SquareSize
620.         y1 = y: y2 = y + SquareSize
621.         _PUTIMAGE (x1 - (SquareSize / 2), y1)-(x2, y2 + (SquareSize / 3)), pprintimg&
622.         _FREEIMAGE pprintimg&
623.     NEXT
624. END SUB
625.  
626. FUNCTION ValidMoves$ (num)
627.     'returns a string list of all valid moves for player that is sitting on the num
628.     'The list contains 2 charater byte strings per num place.
629.     'Each one is a num on the board that player could goto.
630.  
631.     list$ = ""
632.     SELECT CASE num
633.         CASE 1 'one steps
634.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
635.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
636.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
637.             '2 steps
638.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
639.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
640.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
641.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
642.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
643.         CASE 2
644.             'one steps
645.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
646.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
647.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
648.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
649.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
650.             'two steps
651.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
652.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
653.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
654.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
655.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
656.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
657.  
658.         CASE 3 TO 7
659.             'one steps
660.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
661.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
662.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
663.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
664.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
665.             'two steps
666.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
667.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
668.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
669.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
670.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
671.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
672.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
673.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
674.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
675.         CASE 8
676.             'one step
677.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
678.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
679.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
680.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
681.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
682.             'two steps
683.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
684.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
685.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
686.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
687.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
688.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
689.         CASE 9
690.             'one step
691.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
692.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
693.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
694.             'two steps
695.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
696.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
697.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
698.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
699.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
700.  
701.             '2nd row
702.         CASE 10
703.             'one step
704.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
705.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
706.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
707.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
708.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
709.             'two steps
710.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
711.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
712.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
713.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
714.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
715.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
716.         CASE 11
717.             'one step
718.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
719.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
720.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
721.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
722.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
723.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
724.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
725.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
726.             'two steps
727.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
728.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
729.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
730.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
731.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
732.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
733.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
734.         CASE 12 TO 16
735.             'one step
736.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
737.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
738.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
739.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
740.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
741.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
742.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
743.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
744.             'two steps
745.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
746.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
747.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
748.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
749.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
750.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
751.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
752.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
753.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
754.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
755.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
756.         CASE 17
757.             'one step
758.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
759.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
760.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
761.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
762.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
763.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
764.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
765.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
766.             'two steps
767.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
768.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
769.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
770.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
771.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
772.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
773.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
774.         CASE 18
775.             'one step
776.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
777.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
778.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
779.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
780.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
781.             'two steps
782.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
783.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
784.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
785.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
786.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
787.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
788.             'down left side, outer
789.         CASE 19, 28, 37, 46, 55
790.             'one step
791.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
792.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
793.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
794.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
795.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
796.             'two steps
797.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
798.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
799.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
800.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
801.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
802.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
803.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
804.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
805.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
806.             'down left side, inner
807.         CASE 20, 29, 38, 47, 56
808.             'one step
809.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
810.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
811.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
812.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
813.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
814.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
815.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
816.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
817.             'two steps
818.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
819.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
820.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
821.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
822.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
823.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
824.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
825.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
826.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
827.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
828.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
829.  
830.             'middle of board (all directions)
831.         CASE 21 TO 25, 30 TO 34, 39 TO 43, 48 TO 52, 57 TO 61
832.             'one step
833.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
834.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
835.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
836.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
837.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
838.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
839.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
840.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
841.             'two steps
842.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
843.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
844.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
845.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
846.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
847.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
848.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
849.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
850.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
851.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
852.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
853.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
854.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
855.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
856.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
857.             IF Square.v(num + 20) = 0 THEN list$ = list$ + nums$(num + 20)
858.  
859.             'right side, outer
860.         CASE 27, 36, 45, 54, 63
861.             'one step
862.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
863.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
864.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
865.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
866.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
867.             'two steps
868.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
869.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
870.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
871.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
872.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
873.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
874.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
875.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
876.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
877.  
878.             'rigth side, inner
879.         CASE 26, 35, 44, 53, 62
880.             'one step
881.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
882.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
883.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
884.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
885.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
886.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
887.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
888.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
889.             'two steps
890.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
891.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
892.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
893.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
894.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
895.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
896.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
897.             IF Square.v(num + 16) = 0 THEN list$ = list$ + nums$(num + 16)
898.             IF Square.v(num + 17) = 0 THEN list$ = list$ + nums$(num + 17)
899.             IF Square.v(num + 18) = 0 THEN list$ = list$ + nums$(num + 18)
900.             IF Square.v(num + 19) = 0 THEN list$ = list$ + nums$(num + 19)
901.         CASE 64
902.             'one step
903.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
904.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
905.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
906.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
907.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
908.             'two steps
909.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
910.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
911.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
912.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
913.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
914.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
915.         CASE 65
916.             'one step
917.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
918.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
919.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
920.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
921.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
922.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
923.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
924.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
925.             'two steps
926.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
927.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
928.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
929.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
930.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
931.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
932.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
933.         CASE 66 TO 70
934.             'one step
935.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
936.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
937.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
938.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
939.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
940.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
941.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
942.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
943.             'two steps
944.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
945.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
946.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
947.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
948.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
949.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
950.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
951.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
952.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
953.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
954.             IF Square.v(num + 11) = 0 THEN list$ = list$ + nums$(num + 11)
955.         CASE 71
956.             'one step
957.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
958.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
959.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
960.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
961.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
962.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
963.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
964.             IF Square.v(num + 10) = 0 THEN list$ = list$ + nums$(num + 10)
965.             'two steps
966.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
967.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
968.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
969.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
970.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
971.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
972.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
973.         CASE 72
974.             'one step
975.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
976.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
977.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
978.             IF Square.v(num + 8) = 0 THEN list$ = list$ + nums$(num + 8)
979.             IF Square.v(num + 9) = 0 THEN list$ = list$ + nums$(num + 9)
980.             'two steps
981.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
982.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
983.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
984.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
985.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
986.             IF Square.v(num + 7) = 0 THEN list$ = list$ + nums$(num + 7)
987.             'bottom row
988.         CASE 73
989.             'one step
990.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
991.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
992.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
993.             'two steps
994.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
995.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
996.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
997.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
998.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
999.         CASE 74
1000.             'one step
1001.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
1002.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1003.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1004.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1005.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
1006.             'two steps
1007.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1008.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1009.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
1010.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
1011.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
1012.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
1013.         CASE 75 TO 79
1014.             'one step
1015.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
1016.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1017.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1018.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1019.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
1020.             'two steps
1021.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
1022.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1023.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1024.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
1025.             IF Square.v(num - 16) = 0 THEN list$ = list$ + nums$(num - 16)
1026.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
1027.             IF Square.v(num - 7) = 0 THEN list$ = list$ + nums$(num - 7)
1028.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
1029.             IF Square.v(num + 2) = 0 THEN list$ = list$ + nums$(num + 2)
1030.         CASE 80
1031.             'one step
1032.             IF Square.v(num - 8) = 0 THEN list$ = list$ + nums$(num - 8)
1033.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1034.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1035.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1036.             IF Square.v(num + 1) = 0 THEN list$ = list$ + nums$(num + 1)
1037.             'two steps
1038.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
1039.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1040.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1041.             IF Square.v(num - 17) = 0 THEN list$ = list$ + nums$(num - 17)
1042.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
1043.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
1044.         CASE 81
1045.             'one step
1046.             IF Square.v(num - 9) = 0 THEN list$ = list$ + nums$(num - 9)
1047.             IF Square.v(num - 10) = 0 THEN list$ = list$ + nums$(num - 10)
1048.             IF Square.v(num - 1) = 0 THEN list$ = list$ + nums$(num - 1)
1049.             'two steps
1050.             IF Square.v(num - 20) = 0 THEN list$ = list$ + nums$(num - 20)
1051.             IF Square.v(num - 19) = 0 THEN list$ = list$ + nums$(num - 19)
1052.             IF Square.v(num - 18) = 0 THEN list$ = list$ + nums$(num - 18)
1053.             IF Square.v(num - 11) = 0 THEN list$ = list$ + nums$(num - 11)
1054.             IF Square.v(num - 2) = 0 THEN list$ = list$ + nums$(num - 2)
1055.  
1056.     END SELECT
1057.  
1058.     ValidMoves$ = list$
1059.  
1060. END FUNCTION
1061.  
1062. FUNCTION nums$ (num)
1063.     'helper function returns num as a two byte string
1064.     n$ = LTRIM$(RTRIM$(STR$(num)))
1065.     IF LEN(n$) = 1 THEN n$ = "0" + n$
1066.     nums$ = n$
1067. END FUNCTION
1068.  
1069.  
1070. FUNCTION ComputerMove$ ()
1071.  
1072.     'this function will find the best move and return a string of it.
1073.     'the string will contain the from place and the new place numbers.
1074.     '(like "0103" to move piece 1 to place 3
1075.  
1076.     'ideas: if bestgain is only 1 (no enemies) then use a random piece
1077.     'instead of first one scanned.  This way game doesn't start same way
1078.     'all the time.  Will have to keep track of pieces and make sure more than
1079.     'one is found.
1080.  
1081.     'backup original board values, for restoring later
1082.     'and count total blue pieces on board while were at it....
1083.     REDIM box.v2(Rows * Columns): totalblues = 0
1084.     FOR o = 1 TO Rows * Columns
1085.         box.v2(o) = Square.v(o)
1086.         IF Square.v(0) = 2 THEN totalblues = totalblues + 1
1087.     NEXT
1088.  
1089.     bestgain = 0: bestplace = 0
1090.  
1091.     'added random below, so doesnt always start the same way.
1092.     'now either scan from top, or from bottom.
1093.  
1094.     scandir = INT(RND * 2) 'returns a 0 or 1
1095.  
1096.     IF scandir = 0 THEN
1097.         'step through pieces again, this time trying all moves on blues
1098.         FOR piece = 1 TO Rows * Columns
1099.             'if it's a blue piece
1100.             IF Square.v(piece) = 2 THEN
1101.                 'get valid moves of piece, if any
1102.                 Valids$ = ValidMoves$(piece)
1103.                 'If there is....
1104.                 IF Valids$ <> "" THEN
1105.                     'try each move on piece...recount board
1106.                     FOR try = 1 TO LEN(Valids$) STEP 2
1107.                         new = VAL(MID$(Valids$, try, 2))
1108.                         'do the move, temporarily, just to see outcome
1109.                         'if making one space move, clone player 2
1110.                         IF HowManyPlaces(piece, new) = 1 THEN
1111.                             Square.v(new) = 2
1112.                             convertneighbors player, new, 0
1113.                         END IF
1114.                         'if jumping...erase old place
1115.                         IF HowManyPlaces(piece, new) = 2 THEN
1116.                             Square.v(new) = player
1117.                             Square.v(piece) = 0: convertneighbors player, new, 0
1118.                         END IF
1119.                         'now recount totalblues of board
1120.                         newtotal = 0
1121.                         FOR ss = 1 TO Rows * Columns
1122.                             IF Square.v(ss) = 2 THEN newtotal = newtotal + 1
1123.                         NEXT
1124.                         'see what new tally is
1125.                         compute = newtotal - totalblues
1126.                         'if better than others, save data
1127.                         IF compute > bestgain THEN
1128.                             'save this info
1129.                             origplace = piece: bestplace = new
1130.                             bestgain = compute
1131.                         END IF
1132.  
1133.                         'restore original board values to try other valid moves
1134.                         FOR res = 1 TO Rows * Columns
1135.                             Square.v(res) = box.v2(res)
1136.                         NEXT
1137.                     NEXT
1138.                 END IF
1139.             END IF
1140.         NEXT
1141.  
1142.     ELSE
1143.  
1144.         'step through pieces again, this time trying all moves on blues
1145.         FOR piece = Rows * Columns TO 1 STEP -1
1146.             'if it's a blue piece
1147.             IF Square.v(piece) = 2 THEN
1148.                 'get valid moves of piece, if any
1149.                 Valids$ = ValidMoves$(piece)
1150.                 'If there is....
1151.                 IF Valids$ <> "" THEN
1152.                     'try each move on piece...recount board
1153.                     FOR try = 1 TO LEN(Valids$) STEP 2
1154.                         new = VAL(MID$(Valids$, try, 2))
1155.                         'do the move, temporarily, just to see outcome
1156.                         'if making one space move, clone player 2
1157.                         IF HowManyPlaces(piece, new) = 1 THEN
1158.                             Square.v(new) = 2
1159.                             convertneighbors player, new, 0
1160.                         END IF
1161.                         'if jumping...erase old place
1162.                         IF HowManyPlaces(piece, new) = 2 THEN
1163.                             Square.v(new) = player
1164.                             Square.v(piece) = 0: convertneighbors player, new, 0
1165.                         END IF
1166.                         'now recount totalblues of board
1167.                         newtotal = 0
1168.                         FOR ss = 1 TO Rows * Columns
1169.                             IF Square.v(ss) = 2 THEN newtotal = newtotal + 1
1170.                         NEXT
1171.                         'see what new tally is
1172.                         compute = newtotal - totalblues
1173.                         'if better than others, save data
1174.                         IF compute > bestgain THEN
1175.                             'save this info
1176.                             origplace = piece: bestplace = new
1177.                             bestgain = compute
1178.                         END IF
1179.                         'restore original board values to try other valid moves
1180.                         FOR res = 1 TO Rows * Columns
1181.                             Square.v(res) = box.v2(res)
1182.                         NEXT
1183.                     NEXT
1184.                 END IF
1185.             END IF
1186.         NEXT
1187.  
1188.     END IF
1189.  
1190.     ComputerMove$ = nums$(origplace) + nums$(bestplace)
1191.  
1192.     'restore original board values again, just to be safe...
1193.  
1194.     FOR res = 1 TO Rows * Columns
1195.         Square.v(res) = box.v2(res)
1196.     NEXT
1197.  
1198. END FUNCTION
1199.  

Title: Re: GridWars game - going to add AI to it.
Post by: bplus on November 04, 2021, 01:14:48 pm

Your AI plays "too good!", it makes a move and suddenly half my pieces are it's color. I go,"What?!" If it made a jump, I swear the place it jumps from is not leaving a hole that it occupied, maybe not?

Is it possible to highlight the last move AI made with it's piece, from and to? I don't want to accuse it of cheating simply because it doesn't care! (My tendency would be just to quit playing with it.)

PLUS for extra bonus, when showing legal moves show by color difference which are jumps that should leave hole and which are "clones" (good name, and maybe something I am not use to playing with/against).

Title: Re: GridWars game - going to add AI to it.
Post by: bplus on November 04, 2021, 02:48:59 pm

Quote

How does it display on yours?

Pretty much the same as before which was already fine.

Title: Re: GridWars game - going to add AI to it.
Post by: Statsman1 on November 04, 2021, 03:20:19 pm

@Dav ...

Game looks great!  Played 2 games, won both, the second one by a large margin.  I am not going to dive into the AI at this time, you must have something going on - it appears that the AI looks for the move with the biggest piece turnover, and takes it, without considering position, especially along the sides.

A couple of things I noticed...

When the game ends and the winner is announced, the score is not updated, the game just moves on to the next game.

Also, sometimes there is a big delay between selecting a piece with the mouse, and the piece becoming "active" and ready to move.

But your game is coming along nicely!  Like the sound effects!

Title: Re: GridWars game - going to add AI to it.
Post by: Dav on November 05, 2021, 03:46:44 pm

@bplus:  Hmm, I haven't caught it cheating yet, but perhaps I made a mistake in the change sub, an it's flipping squares wrong somewhere.  I will double check that.  Maybe I can add a tracer to see what happened at last move.  Was thinking of adding a UNDO last move thing.  I may add difficulty levels, easy, medium, hard.  Where it is now would be the hard one.  Thanks for telling me how it displays on your system!

@Statsman1.  Thanks!  You have a keen eye.  You are correct, the AI takes the move that gives it the most gain for that move.  I need to do a look ahead - see if the next best for the human would result in less pieces after all, or something. Thanks for catching the score not being updated at the end.  I hadn't noticed it.  About the delay, yeah it happens to me when the window is larger than 1400 pixels high, I'm not sure how to fix that but will investigate.  Thanks for trying it out!

- Dav

Text Only | Text with Attachments