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