home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / ProGoMoku.dxr / 00032_gameMovie2.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  12.8 KB  |  221 lines
  1. global gGameBoard, gKounterH, gKounterV, gPosH, gPosV, gPuppeter, singleUndo, gPlaying, gSingleMove, gCompsTurn, gEKountH, gEKountV, gEPuppet, gEMoves, gEWinX, gEWinY, gETrys, gEholdX, gEholdY, gELineH, gELineV, gELineHolder, gELineDirection, gGo4WinV, gGo4WinH, gCheckPLines, gNuLine, gEBalls, gNuMapPosX, gNuMapPosY, gKountY, gKountX, gESaveLength, gLineDot, gAdd5Xs, gKount2, gFullBoard, gSpecial
  2.  
  3. on EnemyWin
  4.   repeat with gEWinY = 1 to 15
  5.     repeat with gEWinX = 1 to 15
  6.       if (gEWinX >= 2) and (gEWinX < 11) then
  7.         if ((gGameBoard[gEWinY][gEWinX - 1] = 0) or (gGameBoard[gEWinY][gEWinX - 1] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY][gEWinX + 1] = 2) and (gGameBoard[gEWinY][gEWinX + 2] = 2) and (gGameBoard[gEWinY][gEWinX + 3] = 2) and (gGameBoard[gEWinY][gEWinX + 4] = 2) and ((gGameBoard[gEWinY][gEWinX + 5] = 0) or (gGameBoard[gEWinY][gEWinX + 5] = 1)) then
  8.           repeat with gAdd5Xs = 0 to 4
  9.             sprite(286 + gAdd5Xs).puppet = 1
  10.             sprite(286 + gAdd5Xs).member = "red x black trim"
  11.             sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + (gEWinY * 26))
  12.           end repeat
  13.           gPlaying = 0
  14.           startTimer()
  15.           go(25)
  16.         end if
  17.       else
  18.         if gEWinX = 1 then
  19.           if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY][gEWinX + 1] = 2) and (gGameBoard[gEWinY][gEWinX + 2] = 2) and (gGameBoard[gEWinY][gEWinX + 3] = 2) and (gGameBoard[gEWinY][gEWinX + 4] = 2) and ((gGameBoard[gEWinY][gEWinX + 5] = 0) or (gGameBoard[gEWinY][gEWinX + 5] = 1)) then
  20.             repeat with gAdd5Xs = 0 to 4
  21.               sprite(286 + gAdd5Xs).puppet = 1
  22.               sprite(286 + gAdd5Xs).member = "red x black trim"
  23.               sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + (gEWinY * 26))
  24.             end repeat
  25.             gPlaying = 0
  26.             startTimer()
  27.             go(25)
  28.           end if
  29.         else
  30.           if gEWinX = 11 then
  31.             if ((gGameBoard[gEWinY][gEWinX - 1] = 0) or (gGameBoard[gEWinY][gEWinX - 1] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY][gEWinX + 1] = 2) and (gGameBoard[gEWinY][gEWinX + 2] = 2) and (gGameBoard[gEWinY][gEWinX + 3] = 2) and (gGameBoard[gEWinY][gEWinX + 4] = 2) then
  32.               repeat with gAdd5Xs = 0 to 4
  33.                 sprite(286 + gAdd5Xs).puppet = 1
  34.                 sprite(286 + gAdd5Xs).member = "red x black trim"
  35.                 sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + (gEWinY * 26))
  36.               end repeat
  37.               gPlaying = 0
  38.               startTimer()
  39.               go(25)
  40.             end if
  41.           end if
  42.         end if
  43.       end if
  44.       if (gEWinY >= 2) and (gEWinY < 11) then
  45.         if ((gGameBoard[gEWinY - 1][gEWinX] = 0) or (gGameBoard[gEWinY - 1][gEWinX] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX] = 2) and (gGameBoard[gEWinY + 2][gEWinX] = 2) and (gGameBoard[gEWinY + 3][gEWinX] = 2) and (gGameBoard[gEWinY + 4][gEWinX] = 2) and ((gGameBoard[gEWinY + 5][gEWinX] = 0) or (gGameBoard[gEWinY + 5][gEWinX] = 1)) then
  46.           repeat with gAdd5Xs = 0 to 4
  47.             sprite(286 + gAdd5Xs).puppet = 1
  48.             sprite(286 + gAdd5Xs).member = "red x black trim"
  49.             sprite(286 + gAdd5Xs).loc = point(59 + (gEWinX * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  50.           end repeat
  51.           gPlaying = 0
  52.           startTimer()
  53.           go(25)
  54.         end if
  55.       else
  56.         if gEWinY = 1 then
  57.           if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX] = 2) and (gGameBoard[gEWinY + 2][gEWinX] = 2) and (gGameBoard[gEWinY + 3][gEWinX] = 2) and (gGameBoard[gEWinY + 4][gEWinX] = 2) and ((gGameBoard[gEWinY + 5][gEWinX] = 0) or (gGameBoard[gEWinY + 5][gEWinX] = 1)) then
  58.             repeat with gAdd5Xs = 0 to 4
  59.               sprite(286 + gAdd5Xs).puppet = 1
  60.               sprite(286 + gAdd5Xs).member = "red x black trim"
  61.               sprite(286 + gAdd5Xs).loc = point(59 + (gEWinX * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  62.             end repeat
  63.             gPlaying = 0
  64.             startTimer()
  65.             go(25)
  66.           end if
  67.         else
  68.           if gEWinY = 11 then
  69.             if ((gGameBoard[gEWinY - 1][gEWinX] = 0) or (gGameBoard[gEWinY - 1][gEWinX] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX] = 2) and (gGameBoard[gEWinY + 2][gEWinX] = 2) and (gGameBoard[gEWinY + 3][gEWinX] = 2) and (gGameBoard[gEWinY + 4][gEWinX] = 2) then
  70.               repeat with gAdd5Xs = 0 to 4
  71.                 sprite(286 + gAdd5Xs).puppet = 1
  72.                 sprite(286 + gAdd5Xs).member = "red x black trim"
  73.                 sprite(286 + gAdd5Xs).loc = point(59 + (gEWinX * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  74.               end repeat
  75.               gPlaying = 0
  76.               startTimer()
  77.               go(25)
  78.             end if
  79.           end if
  80.         end if
  81.       end if
  82.       if (gEWinY >= 2) and (gEWinY < 11) and ((gEWinX >= 2) and (gEWinX < 11)) then
  83.         if ((gGameBoard[gEWinY - 1][gEWinX - 1] = 0) or (gGameBoard[gEWinY - 1][gEWinX - 1] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY + 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY + 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY + 4][gEWinX + 4] = 2) and ((gGameBoard[gEWinY + 5][gEWinX + 5] = 0) or (gGameBoard[gEWinY + 5][gEWinX + 5] = 1)) then
  84.           repeat with gAdd5Xs = 0 to 4
  85.             sprite(286 + gAdd5Xs).puppet = 1
  86.             sprite(286 + gAdd5Xs).member = "red x black trim"
  87.             sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  88.           end repeat
  89.           gPlaying = 0
  90.           startTimer()
  91.           go(25)
  92.         end if
  93.       else
  94.         if (gEWinY = 1) and (gEWinX < 11) then
  95.           if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY + 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY + 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY + 4][gEWinX + 4] = 2) and ((gGameBoard[gEWinY + 5][gEWinX + 5] = 0) or (gGameBoard[gEWinY + 5][gEWinX + 5] = 1)) then
  96.             repeat with gAdd5Xs = 0 to 4
  97.               sprite(286 + gAdd5Xs).puppet = 1
  98.               sprite(286 + gAdd5Xs).member = "red x black trim"
  99.               sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  100.             end repeat
  101.             gPlaying = 0
  102.             startTimer()
  103.             go(25)
  104.           end if
  105.         else
  106.           if (gEWinY = 1) and (gEWinX = 11) then
  107.             if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY + 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY + 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY + 4][gEWinX + 4] = 2) then
  108.               repeat with gAdd5Xs = 0 to 4
  109.                 sprite(286 + gAdd5Xs).puppet = 1
  110.                 sprite(286 + gAdd5Xs).member = "red x black trim"
  111.                 sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  112.               end repeat
  113.               gPlaying = 0
  114.               startTimer()
  115.               go(25)
  116.             end if
  117.           else
  118.             if (gEWinY = 11) and (gEWinX >= 2) and (gEWinX <= 11) then
  119.               if ((gGameBoard[gEWinY - 1][gEWinX - 1] = 0) or (gGameBoard[gEWinY - 1][gEWinX - 1] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY + 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY + 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY + 4][gEWinX + 4] = 2) then
  120.                 repeat with gAdd5Xs = 0 to 4
  121.                   sprite(286 + gAdd5Xs).puppet = 1
  122.                   sprite(286 + gAdd5Xs).member = "red x black trim"
  123.                   sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  124.                 end repeat
  125.                 gPlaying = 0
  126.                 startTimer()
  127.                 go(25)
  128.               end if
  129.             else
  130.               if (gEWinY = 11) and (gEWinX = 1) then
  131.                 if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY + 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY + 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY + 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY + 4][gEWinX + 4] = 2) then
  132.                   repeat with gAdd5Xs = 0 to 4
  133.                     sprite(286 + gAdd5Xs).puppet = 1
  134.                     sprite(286 + gAdd5Xs).member = "red x black trim"
  135.                     sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY + gAdd5Xs) * 26))
  136.                   end repeat
  137.                   gPlaying = 0
  138.                   startTimer()
  139.                   go(25)
  140.                 end if
  141.               end if
  142.             end if
  143.           end if
  144.         end if
  145.       end if
  146.       if (gEWinY > 5) and (gEWinY < 15) and ((gEWinX >= 2) and (gEWinX < 11)) then
  147.         if ((gGameBoard[gEWinY + 1][gEWinX - 1] = 0) or (gGameBoard[gEWinY + 1][gEWinX - 1] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY - 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY - 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY - 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY - 4][gEWinX + 4] = 2) and ((gGameBoard[gEWinY - 5][gEWinX + 5] = 0) or (gGameBoard[gEWinY - 5][gEWinX + 5] = 1)) then
  148.           repeat with gAdd5Xs = 0 to 4
  149.             sprite(286 + gAdd5Xs).puppet = 1
  150.             sprite(286 + gAdd5Xs).member = "red x black trim"
  151.             sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY - gAdd5Xs) * 26))
  152.           end repeat
  153.           gPlaying = 0
  154.           startTimer()
  155.           go(25)
  156.         end if
  157.       else
  158.         if (gEWinY = 15) and (gEWinX < 11) then
  159.           if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY - 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY - 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY - 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY - 4][gEWinX + 4] = 2) and ((gGameBoard[gEWinY - 5][gEWinX + 5] = 0) or (gGameBoard[gEWinY - 5][gEWinX + 5] = 1)) then
  160.             repeat with gAdd5Xs = 0 to 4
  161.               sprite(286 + gAdd5Xs).puppet = 1
  162.               sprite(286 + gAdd5Xs).member = "red x black trim"
  163.               sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY - gAdd5Xs) * 26))
  164.             end repeat
  165.             gPlaying = 0
  166.             startTimer()
  167.             go(25)
  168.           end if
  169.         else
  170.           if (gEWinY = 15) and (gEWinX = 11) then
  171.             if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY - 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY - 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY - 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY - 4][gEWinX + 4] = 2) then
  172.               repeat with gAdd5Xs = 0 to 4
  173.                 sprite(286 + gAdd5Xs).puppet = 1
  174.                 sprite(286 + gAdd5Xs).member = "red x black trim"
  175.                 sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY - gAdd5Xs) * 26))
  176.               end repeat
  177.               gPlaying = 0
  178.               startTimer()
  179.               go(25)
  180.             end if
  181.           else
  182.             if (gEWinY = 5) and (gEWinX >= 2) and (gEWinX <= 11) then
  183.               if ((gGameBoard[gEWinY + 1][gEWinX - 1] = 0) or (gGameBoard[gEWinY + 1][gEWinX - 1] = 1)) and (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY - 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY - 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY - 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY - 4][gEWinX + 4] = 2) then
  184.                 repeat with gAdd5Xs = 0 to 4
  185.                   sprite(286 + gAdd5Xs).puppet = 1
  186.                   sprite(286 + gAdd5Xs).member = "red x black trim"
  187.                   sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY - gAdd5Xs) * 26))
  188.                 end repeat
  189.                 gPlaying = 0
  190.                 startTimer()
  191.                 go(25)
  192.               end if
  193.             else
  194.               if (gEWinY >= 5) and (gEWinX = 1) then
  195.                 if (gGameBoard[gEWinY][gEWinX] = 2) and (gGameBoard[gEWinY - 1][gEWinX + 1] = 2) and (gGameBoard[gEWinY - 2][gEWinX + 2] = 2) and (gGameBoard[gEWinY - 3][gEWinX + 3] = 2) and (gGameBoard[gEWinY - 4][gEWinX + 4] = 2) then
  196.                   repeat with gAdd5Xs = 0 to 4
  197.                     sprite(286 + gAdd5Xs).puppet = 1
  198.                     sprite(286 + gAdd5Xs).member = "red x black trim"
  199.                     sprite(286 + gAdd5Xs).loc = point(59 + ((gEWinX + gAdd5Xs) * 26), 10 + ((gEWinY - gAdd5Xs) * 26))
  200.                   end repeat
  201.                   gPlaying = 0
  202.                   startTimer()
  203.                   go(25)
  204.                 end if
  205.               end if
  206.             end if
  207.           end if
  208.         end if
  209.       end if
  210.       if gGameBoard[gEWinY][gEWinX] <> 0 then
  211.         gFullBoard = gFullBoard + 1
  212.       end if
  213.       if (gFullBoard >= 225) or (gGameBoard.count = 225) then
  214.         gFullBoard = 0
  215.         go(22)
  216.       end if
  217.     end repeat
  218.   end repeat
  219.   gFullBoard = 0
  220. end
  221.