home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / GoMoku.dxr / 00032_gameMovie2.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  12.3 KB  |  213 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 13
  5.     repeat with gEWinX = 1 to 13
  6.       if (gEWinX >= 2) and (gEWinX < 9) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + (gEWinY * 30))
  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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + (gEWinY * 30))
  24.             end repeat
  25.             gPlaying = 0
  26.             startTimer()
  27.             go(25)
  28.           end if
  29.         else
  30.           if gEWinX = 9 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + (gEWinY * 30))
  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 < 9) 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(55 + (gEWinX * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  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(55 + (gEWinX * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  62.             end repeat
  63.             gPlaying = 0
  64.             startTimer()
  65.             go(25)
  66.           end if
  67.         else
  68.           if gEWinY = 9 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(55 + (gEWinX * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  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 < 9) and ((gEWinX >= 2) and (gEWinX < 9)) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  88.           end repeat
  89.           gPlaying = 0
  90.           startTimer()
  91.           go(25)
  92.         end if
  93.       else
  94.         if (gEWinY = 1) and (gEWinX < 9) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  100.             end repeat
  101.             gPlaying = 0
  102.             startTimer()
  103.             go(25)
  104.           end if
  105.         else
  106.           if (gEWinY = 1) and (gEWinX = 9) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  112.               end repeat
  113.               gPlaying = 0
  114.               startTimer()
  115.               go(25)
  116.             end if
  117.           else
  118.             if (gEWinY = 9) and (gEWinX >= 2) and (gEWinX <= 9) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  124.                 end repeat
  125.                 gPlaying = 0
  126.                 startTimer()
  127.                 go(25)
  128.               end if
  129.             else
  130.               if (gEWinY = 9) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY + gAdd5Xs) * 30))
  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 < 13) and ((gEWinX >= 2) and (gEWinX < 9)) 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(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY - gAdd5Xs) * 30))
  152.           end repeat
  153.           gPlaying = 0
  154.           startTimer()
  155.           go(25)
  156.         end if
  157.         next repeat
  158.       end if
  159.       if (gEWinY = 13) and (gEWinX < 9) then
  160.         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
  161.           repeat with gAdd5Xs = 0 to 4
  162.             sprite(286 + gAdd5Xs).puppet = 1
  163.             sprite(286 + gAdd5Xs).member = "red x black trim"
  164.             sprite(286 + gAdd5Xs).loc = point(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY - gAdd5Xs) * 30))
  165.           end repeat
  166.           gPlaying = 0
  167.           startTimer()
  168.           go(25)
  169.         end if
  170.         next repeat
  171.       end if
  172.       if (gEWinY = 13) and (gEWinX = 9) then
  173.         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
  174.           repeat with gAdd5Xs = 0 to 4
  175.             sprite(286 + gAdd5Xs).puppet = 1
  176.             sprite(286 + gAdd5Xs).member = "red x black trim"
  177.             sprite(286 + gAdd5Xs).loc = point(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY - gAdd5Xs) * 30))
  178.           end repeat
  179.           gPlaying = 0
  180.           startTimer()
  181.           go(25)
  182.         end if
  183.         next repeat
  184.       end if
  185.       if (gEWinY = 5) and (gEWinX >= 2) and (gEWinX <= 9) then
  186.         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
  187.           repeat with gAdd5Xs = 0 to 4
  188.             sprite(286 + gAdd5Xs).puppet = 1
  189.             sprite(286 + gAdd5Xs).member = "red x black trim"
  190.             sprite(286 + gAdd5Xs).loc = point(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY - gAdd5Xs) * 30))
  191.           end repeat
  192.           gPlaying = 0
  193.           startTimer()
  194.           go(25)
  195.         end if
  196.         next repeat
  197.       end if
  198.       if (gEWinY >= 5) and (gEWinX = 1) then
  199.         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
  200.           repeat with gAdd5Xs = 0 to 4
  201.             sprite(286 + gAdd5Xs).puppet = 1
  202.             sprite(286 + gAdd5Xs).member = "red x black trim"
  203.             sprite(286 + gAdd5Xs).loc = point(55 + ((gEWinX + gAdd5Xs) * 30), 7 + ((gEWinY - gAdd5Xs) * 30))
  204.           end repeat
  205.           gPlaying = 0
  206.           startTimer()
  207.           go(25)
  208.         end if
  209.       end if
  210.     end repeat
  211.   end repeat
  212. end
  213.