home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Pente.dxr / 00055_gameMovie6.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  15.4 KB  |  352 lines
  1. global gGameBoard, gKounterH, gKounterV, gPosH, gPosV, gPuppeter, singleUndo, gPlaying, gSingleMove, gCompsTurn, gEKountH, gEKountV, gEMoves, gEWinX, gEWinY, gETrys, gEholdX, gEholdY, gELineH, gELineV, gELineHolder, gELineDirection, gGo4WinV, gGo4WinH, gEatmV, gEatmH, gEraseEnemy, gEraseFixH, gEraseFixV, gCapturedPlayer, gCapturedEnemy, gCheckPLines, gNuLine, gEBalls, gNuMapPosX, gNuMapPosY, gKountY, gKountX, gESaveLength, gLineDot, gAdd5Xs, gKount2, gFullBoard, gPlayerHasEaten, gEnemyHasEaten
  2.  
  3. on EatBallsPlayer
  4.   repeat with gEatmV = 1 to 13
  5.     repeat with gEatmH = 1 to 13
  6.       if gGameBoard[gEatmV][gEatmH] = 1 then
  7.         if (gEatmV > 8) and (gEatmV <= 10) then
  8.           gEraseFixV = 6
  9.         else
  10.           if (gEatmV > 10) and (gEatmV <= 11) then
  11.             gEraseFixV = 6
  12.           else
  13.             if (gEatmV >= 12) and (gEatmV <= 13) then
  14.               gEraseFixV = 5
  15.             else
  16.               if (gEatmV < 6) and (gEatmV >= 4) then
  17.                 gEraseFixV = 8
  18.               else
  19.                 if (gEatmV < 5) and (gEatmV >= 3) then
  20.                   gEraseFixV = 8
  21.                 else
  22.                   if (gEatmV <= 3) and (gEatmV > 2) then
  23.                     gEraseFixV = 9
  24.                   else
  25.                     if gEatmV = 1 then
  26.                       gEraseFixV = 10
  27.                     else
  28.                       gEraseFixV = 7
  29.                     end if
  30.                   end if
  31.                 end if
  32.               end if
  33.             end if
  34.           end if
  35.         end if
  36.         if (gEatmH > 8) and (gEatmH <= 10) then
  37.           gEraseFixH = 56
  38.         else
  39.           if (gEatmH > 10) and (gEatmH <= 11) then
  40.             gEraseFixH = 56
  41.           else
  42.             if (gEatmH >= 12) and (gEatmH <= 13) then
  43.               gEraseFixH = 55
  44.             else
  45.               if (gEatmH < 6) and (gEatmH >= 4) then
  46.                 gEraseFixH = 58
  47.               else
  48.                 if (gEatmH < 5) and (gEatmH >= 3) then
  49.                   gEraseFixH = 59
  50.                 else
  51.                   if (gEatmH < 3) and (gEatmH >= 1) then
  52.                     gEraseFixH = 60
  53.                   else
  54.                     gEraseFixH = 57
  55.                   end if
  56.                 end if
  57.               end if
  58.             end if
  59.           end if
  60.         end if
  61.         if gEatmH <= 10 then
  62.           if (gGameBoard[gEatmV][gEatmH + 1] = 2) and (gGameBoard[gEatmV][gEatmH + 2] = 2) and (gGameBoard[gEatmV][gEatmH + 3] = 1) then
  63.             puppetSound(5, "dissapearing pieces")
  64.             gPlayerHasEaten = 1
  65.             gCapturedPlayer = gCapturedPlayer + 1
  66.             sprite(gPuppeter).puppet = 1
  67.             sprite(gPuppeter).member = "red bead"
  68.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  69.             gPuppeter = gPuppeter + 1
  70.             gCapturedPlayer = gCapturedPlayer + 1
  71.             sprite(gPuppeter).puppet = 1
  72.             sprite(gPuppeter).member = "red bead"
  73.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  74.             gPuppeter = gPuppeter + 1
  75.             sprite(gPuppeter).puppet = 1
  76.             sprite(gPuppeter).member = "cover05"
  77.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + (gEatmV * 30))
  78.             gGameBoard[gEatmV][gEatmH + 1] = 0
  79.             gPuppeter = gPuppeter + 1
  80.             sprite(gPuppeter).puppet = 1
  81.             sprite(gPuppeter).member = "cover05"
  82.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + (gEatmV * 30))
  83.             gGameBoard[gEatmV][gEatmH + 2] = 0
  84.             gPuppeter = gPuppeter + 1
  85.           end if
  86.         end if
  87.         if gEatmV <= 10 then
  88.           if (gGameBoard[gEatmV + 1][gEatmH] = 2) and (gGameBoard[gEatmV + 2][gEatmH] = 2) and (gGameBoard[gEatmV + 3][gEatmH] = 1) then
  89.             puppetSound(5, "dissapearing pieces")
  90.             gPlayerHasEaten = 1
  91.             gCapturedPlayer = gCapturedPlayer + 1
  92.             sprite(gPuppeter).puppet = 1
  93.             sprite(gPuppeter).member = "red bead"
  94.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  95.             gPuppeter = gPuppeter + 1
  96.             gCapturedPlayer = gCapturedPlayer + 1
  97.             sprite(gPuppeter).puppet = 1
  98.             sprite(gPuppeter).member = "red bead"
  99.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  100.             gPuppeter = gPuppeter + 1
  101.             sprite(gPuppeter).puppet = 1
  102.             sprite(gPuppeter).member = "cover05"
  103.             sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 1) * 30))
  104.             gGameBoard[gEatmV + 1][gEatmH] = 0
  105.             gPuppeter = gPuppeter + 1
  106.             sprite(gPuppeter).puppet = 1
  107.             sprite(gPuppeter).member = "cover05"
  108.             sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 2) * 30))
  109.             gGameBoard[gEatmV + 2][gEatmH] = 0
  110.             gPuppeter = gPuppeter + 1
  111.           end if
  112.         end if
  113.         if (gEatmH <= 10) and (gEatmV <= 10) then
  114.           if (gGameBoard[gEatmV + 1][gEatmH + 1] = 2) and (gGameBoard[gEatmV + 2][gEatmH + 2] = 2) and (gGameBoard[gEatmV + 3][gEatmH + 3] = 1) then
  115.             puppetSound(5, "dissapearing pieces")
  116.             gPlayerHasEaten = 1
  117.             gCapturedPlayer = gCapturedPlayer + 1
  118.             sprite(gPuppeter).puppet = 1
  119.             sprite(gPuppeter).member = "red bead"
  120.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  121.             gPuppeter = gPuppeter + 1
  122.             gCapturedPlayer = gCapturedPlayer + 1
  123.             sprite(gPuppeter).puppet = 1
  124.             sprite(gPuppeter).member = "red bead"
  125.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  126.             gPuppeter = gPuppeter + 1
  127.             sprite(gPuppeter).puppet = 1
  128.             sprite(gPuppeter).member = "cover05"
  129.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV + 1) * 30))
  130.             gGameBoard[gEatmV + 1][gEatmH + 1] = 0
  131.             gPuppeter = gPuppeter + 1
  132.             sprite(gPuppeter).puppet = 1
  133.             sprite(gPuppeter).member = "cover05"
  134.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV + 2) * 30))
  135.             gGameBoard[gEatmV + 2][gEatmH + 2] = 0
  136.             gPuppeter = gPuppeter + 1
  137.           end if
  138.         end if
  139.         if (gEatmH <= 10) and (gEatmV >= 4) then
  140.           if (gGameBoard[gEatmV - 1][gEatmH + 1] = 2) and (gGameBoard[gEatmV - 2][gEatmH + 2] = 2) and (gGameBoard[gEatmV - 3][gEatmH + 3] = 1) then
  141.             puppetSound(5, "dissapearing pieces")
  142.             gPlayerHasEaten = 1
  143.             gCapturedPlayer = gCapturedPlayer + 1
  144.             sprite(gPuppeter).puppet = 1
  145.             sprite(gPuppeter).member = "red bead"
  146.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  147.             gPuppeter = gPuppeter + 1
  148.             gCapturedPlayer = gCapturedPlayer + 1
  149.             sprite(gPuppeter).puppet = 1
  150.             sprite(gPuppeter).member = "red bead"
  151.             sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4)
  152.             gPuppeter = gPuppeter + 1
  153.             sprite(gPuppeter).puppet = 1
  154.             sprite(gPuppeter).member = "cover05"
  155.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV - 1) * 30))
  156.             gGameBoard[gEatmV - 1][gEatmH + 1] = 0
  157.             gPuppeter = gPuppeter + 1
  158.             sprite(gPuppeter).puppet = 1
  159.             sprite(gPuppeter).member = "cover05"
  160.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV - 2) * 30))
  161.             gGameBoard[gEatmV - 2][gEatmH + 2] = 0
  162.             gPuppeter = gPuppeter + 1
  163.           end if
  164.         end if
  165.       end if
  166.     end repeat
  167.   end repeat
  168. end
  169.  
  170. on EatBallsEnemy
  171.   repeat with gEatmV = 1 to 13
  172.     repeat with gEatmH = 1 to 13
  173.       if gGameBoard[gEatmV][gEatmH] = 2 then
  174.         if (gEatmV > 8) and (gEatmV <= 10) then
  175.           gEraseFixV = 6
  176.         else
  177.           if (gEatmV > 10) and (gEatmV <= 11) then
  178.             gEraseFixV = 6
  179.           else
  180.             if (gEatmV >= 12) and (gEatmV <= 13) then
  181.               gEraseFixV = 5
  182.             else
  183.               if (gEatmV < 6) and (gEatmV >= 4) then
  184.                 gEraseFixV = 8
  185.               else
  186.                 if (gEatmV < 5) and (gEatmV >= 3) then
  187.                   gEraseFixV = 8
  188.                 else
  189.                   if (gEatmV <= 3) and (gEatmV > 2) then
  190.                     gEraseFixV = 9
  191.                   else
  192.                     if gEatmV = 1 then
  193.                       gEraseFixV = 10
  194.                     else
  195.                       gEraseFixV = 7
  196.                     end if
  197.                   end if
  198.                 end if
  199.               end if
  200.             end if
  201.           end if
  202.         end if
  203.         if (gEatmH > 8) and (gEatmH <= 10) then
  204.           gEraseFixH = 56
  205.         else
  206.           if (gEatmH > 10) and (gEatmH <= 11) then
  207.             gEraseFixH = 56
  208.           else
  209.             if (gEatmH >= 12) and (gEatmH <= 13) then
  210.               gEraseFixH = 55
  211.             else
  212.               if (gEatmH < 6) and (gEatmH >= 4) then
  213.                 gEraseFixH = 58
  214.               else
  215.                 if (gEatmH < 5) and (gEatmH >= 3) then
  216.                   gEraseFixH = 59
  217.                 else
  218.                   if (gEatmH < 3) and (gEatmH >= 1) then
  219.                     gEraseFixH = 60
  220.                   else
  221.                     gEraseFixH = 57
  222.                   end if
  223.                 end if
  224.               end if
  225.             end if
  226.           end if
  227.         end if
  228.         if gEatmH <= 10 then
  229.           if (gGameBoard[gEatmV][gEatmH + 1] = 1) and (gGameBoard[gEatmV][gEatmH + 2] = 1) and (gGameBoard[gEatmV][gEatmH + 3] = 2) then
  230.             puppetSound(5, "dissapearing pieces")
  231.             gEnemyHasEaten = 1
  232.             gCapturedEnemy = gCapturedEnemy + 1
  233.             sprite(gPuppeter).puppet = 1
  234.             sprite(gPuppeter).member = "black bead"
  235.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  236.             sprite(gPuppeter).width = 20
  237.             sprite(gPuppeter).height = 20
  238.             gPuppeter = gPuppeter + 1
  239.             gCapturedEnemy = gCapturedEnemy + 1
  240.             sprite(gPuppeter).puppet = 1
  241.             sprite(gPuppeter).member = "black bead"
  242.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  243.             sprite(gPuppeter).width = 20
  244.             sprite(gPuppeter).height = 20
  245.             gPuppeter = gPuppeter + 1
  246.             sprite(gPuppeter).puppet = 1
  247.             sprite(gPuppeter).member = "cover05"
  248.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + (gEatmV * 30))
  249.             gGameBoard[gEatmV][gEatmH + 1] = 0
  250.             gPuppeter = gPuppeter + 1
  251.             sprite(gPuppeter).puppet = 1
  252.             sprite(gPuppeter).member = "cover05"
  253.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + (gEatmV * 30))
  254.             gGameBoard[gEatmV][gEatmH + 2] = 0
  255.             gPuppeter = gPuppeter + 1
  256.           end if
  257.         end if
  258.         if gEatmV <= 10 then
  259.           if (gGameBoard[gEatmV + 1][gEatmH] = 1) and (gGameBoard[gEatmV + 2][gEatmH] = 1) and (gGameBoard[gEatmV + 3][gEatmH] = 2) then
  260.             puppetSound(5, "dissapearing pieces")
  261.             gEnemyHasEaten = 1
  262.             gCapturedEnemy = gCapturedEnemy + 1
  263.             sprite(gPuppeter).puppet = 1
  264.             sprite(gPuppeter).member = "black bead"
  265.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  266.             sprite(gPuppeter).width = 20
  267.             sprite(gPuppeter).height = 20
  268.             gPuppeter = gPuppeter + 1
  269.             gCapturedEnemy = gCapturedEnemy + 1
  270.             sprite(gPuppeter).puppet = 1
  271.             sprite(gPuppeter).member = "black bead"
  272.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  273.             sprite(gPuppeter).width = 20
  274.             sprite(gPuppeter).height = 20
  275.             gPuppeter = gPuppeter + 1
  276.             sprite(gPuppeter).puppet = 1
  277.             sprite(gPuppeter).member = "cover05"
  278.             sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 1) * 30))
  279.             gGameBoard[gEatmV + 1][gEatmH] = 0
  280.             gPuppeter = gPuppeter + 1
  281.             sprite(gPuppeter).puppet = 1
  282.             sprite(gPuppeter).member = "cover05"
  283.             sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 2) * 30))
  284.             gGameBoard[gEatmV + 2][gEatmH] = 0
  285.             gPuppeter = gPuppeter + 1
  286.           end if
  287.         end if
  288.         if (gEatmH <= 10) and (gEatmV <= 10) then
  289.           if (gGameBoard[gEatmV + 1][gEatmH + 1] = 1) and (gGameBoard[gEatmV + 2][gEatmH + 2] = 1) and (gGameBoard[gEatmV + 3][gEatmH + 3] = 2) then
  290.             puppetSound(5, "dissapearing pieces")
  291.             gEnemyHasEaten = 1
  292.             gCapturedEnemy = gCapturedEnemy + 1
  293.             sprite(gPuppeter).puppet = 1
  294.             sprite(gPuppeter).member = "black bead"
  295.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  296.             sprite(gPuppeter).width = 20
  297.             sprite(gPuppeter).height = 20
  298.             gPuppeter = gPuppeter + 1
  299.             gCapturedEnemy = gCapturedEnemy + 1
  300.             sprite(gPuppeter).puppet = 1
  301.             sprite(gPuppeter).member = "black bead"
  302.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  303.             sprite(gPuppeter).width = 20
  304.             sprite(gPuppeter).height = 20
  305.             gPuppeter = gPuppeter + 1
  306.             sprite(gPuppeter).puppet = 1
  307.             sprite(gPuppeter).member = "cover05"
  308.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV + 1) * 30))
  309.             gGameBoard[gEatmV + 1][gEatmH + 1] = 0
  310.             gPuppeter = gPuppeter + 1
  311.             sprite(gPuppeter).puppet = 1
  312.             sprite(gPuppeter).member = "cover05"
  313.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV + 2) * 30))
  314.             gGameBoard[gEatmV + 2][gEatmH + 2] = 0
  315.             gPuppeter = gPuppeter + 1
  316.           end if
  317.         end if
  318.         if (gEatmH <= 10) and (gEatmV >= 4) then
  319.           if (gGameBoard[gEatmV - 1][gEatmH + 1] = 1) and (gGameBoard[gEatmV - 2][gEatmH + 2] = 1) and (gGameBoard[gEatmV - 3][gEatmH + 3] = 2) then
  320.             puppetSound(5, "dissapearing pieces")
  321.             gEnemyHasEaten = 1
  322.             sprite(gPuppeter).puppet = 1
  323.             sprite(gPuppeter).member = "cover05"
  324.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV - 1) * 30))
  325.             gGameBoard[gEatmV - 1][gEatmH + 1] = 0
  326.             gPuppeter = gPuppeter + 1
  327.             sprite(gPuppeter).puppet = 1
  328.             sprite(gPuppeter).member = "cover05"
  329.             sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV - 2) * 30))
  330.             gGameBoard[gEatmV - 2][gEatmH + 2] = 0
  331.             gPuppeter = gPuppeter + 1
  332.             gCapturedEnemy = gCapturedEnemy + 1
  333.             sprite(gPuppeter).puppet = 1
  334.             sprite(gPuppeter).member = "black bead"
  335.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  336.             sprite(gPuppeter).width = 20
  337.             sprite(gPuppeter).height = 20
  338.             gPuppeter = gPuppeter + 1
  339.             gCapturedEnemy = gCapturedEnemy + 1
  340.             sprite(gPuppeter).puppet = 1
  341.             sprite(gPuppeter).member = "black bead"
  342.             sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 180)
  343.             sprite(gPuppeter).width = 20
  344.             sprite(gPuppeter).height = 20
  345.             gPuppeter = gPuppeter + 1
  346.           end if
  347.         end if
  348.       end if
  349.     end repeat
  350.   end repeat
  351. end
  352.