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