« previous next »
Pages: [1] 2   Go Down

Author Topic: GridWars game - going to add AI to it.  (Read 8068 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
GridWars game - going to add AI to it.
« 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.  
  9.  
  10. SCREEN _NEWIMAGE(600, 650, 32)
  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.  
  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
  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
  57.  
  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
  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.  
  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.  
  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
  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
  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.  
  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
  470.  
  471.  
« Last Edit: October 27, 2021, 10:56:28 pm by Dav »
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #1 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
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #2 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!
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #3 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

 
gridwarhow.jpg

« Last Edit: October 28, 2021, 10:44:30 am by Dav »
Logged

Offline Statsman1

  • Newbie
  • Posts: 36
  • I'm just a jerk, but a hero is what I want to be.
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #4 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!
Logged
Good decisions come from experience.
Experience comes from bad decisions.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #5 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.
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #6 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.  
  12.  
  13. SCREEN _NEWIMAGE(600, 650, 32)
  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.  
  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
  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
  60.  
  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
  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.  
  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.  
  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
  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
  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.  
  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
  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.  
  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$
  954.  
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #7 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.  
  12.  
  13. SCREEN _NEWIMAGE(600, 650, 32)
  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.  
  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
  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
  153.  
  154.  
  155. selected = 0
  156.  
  157. UpdateBoard
  158.  
  159. second: 'Go back here when making second choice
  161.  
  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
  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.  
  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.  
  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
  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
  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.  
  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
  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.  
  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$
  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.  
  1142.  

 
gridwars.jpg
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #8 on: October 28, 2021, 11:21:52 pm »
Great @Dav you've created a monster!
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #9 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
Logged

Offline Statsman1

  • Newbie
  • Posts: 36
  • I'm just a jerk, but a hero is what I want to be.
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #10 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?
Logged
Good decisions come from experience.
Experience comes from bad decisions.

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #11 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
Logged

Offline OldMoses

  • Seasoned Forum Regular
  • Posts: 469
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #12 on: October 29, 2021, 07:28:58 pm »
That's really cool, and the AI spanked me by two to one.
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #13 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
Logged

Offline Statsman1

  • Newbie
  • Posts: 36
  • I'm just a jerk, but a hero is what I want to be.
    • View Profile
Re: GridWars game - going to add AI to it.
« Reply #14 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!
Logged
Good decisions come from experience.
Experience comes from bad decisions.
Pages: [1] 2   Go Up
« previous next »