home *** CD-ROM | disk | FTP | other *** search
Wrap
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 on EatBallsPlayer repeat with gEatmV = 1 to 13 repeat with gEatmH = 1 to 13 if gGameBoard[gEatmV][gEatmH] = 1 then if (gEatmV > 8) and (gEatmV <= 10) then gEraseFixV = 6 else if (gEatmV > 10) and (gEatmV <= 11) then gEraseFixV = 6 else if (gEatmV >= 12) and (gEatmV <= 13) then gEraseFixV = 5 else if (gEatmV < 6) and (gEatmV >= 4) then gEraseFixV = 8 else if (gEatmV < 5) and (gEatmV >= 3) then gEraseFixV = 8 else if (gEatmV <= 3) and (gEatmV > 2) then gEraseFixV = 9 else if gEatmV = 1 then gEraseFixV = 10 else gEraseFixV = 7 end if end if end if end if end if end if end if if (gEatmH > 8) and (gEatmH <= 10) then gEraseFixH = 56 else if (gEatmH > 10) and (gEatmH <= 11) then gEraseFixH = 56 else if (gEatmH >= 12) and (gEatmH <= 13) then gEraseFixH = 55 else if (gEatmH < 6) and (gEatmH >= 4) then gEraseFixH = 58 else if (gEatmH < 5) and (gEatmH >= 3) then gEraseFixH = 59 else if (gEatmH < 3) and (gEatmH >= 1) then gEraseFixH = 60 else gEraseFixH = 57 end if end if end if end if end if end if if gEatmH <= 9 then if (gGameBoard[gEatmV][gEatmH + 1] = 2) and (gGameBoard[gEatmV][gEatmH + 2] = 2) and (gGameBoard[gEatmV][gEatmH + 3] = 2) and (gGameBoard[gEatmV][gEatmH + 4] = 1) then puppetSound(5, "dissapearing pieces") gPlayerHasEaten = 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + (gEatmV * 30)) gGameBoard[gEatmV][gEatmH + 1] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + (gEatmV * 30)) gGameBoard[gEatmV][gEatmH + 2] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 3) * 30), gEraseFixV + (gEatmV * 30)) gGameBoard[gEatmV][gEatmH + 3] = 0 gPuppeter = gPuppeter + 1 end if end if if gEatmV <= 9 then if (gGameBoard[gEatmV + 1][gEatmH] = 2) and (gGameBoard[gEatmV + 2][gEatmH] = 2) and (gGameBoard[gEatmV + 3][gEatmH] = 2) and (gGameBoard[gEatmV + 4][gEatmH] = 1) then puppetSound(5, "dissapearing pieces") gPlayerHasEaten = 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 1) * 30)) gGameBoard[gEatmV + 1][gEatmH] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 2) * 30)) gGameBoard[gEatmV + 2][gEatmH] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 3) * 30)) gGameBoard[gEatmV + 3][gEatmH] = 0 gPuppeter = gPuppeter + 1 end if end if if (gEatmH <= 9) and (gEatmV <= 9) then if (gGameBoard[gEatmV + 1][gEatmH + 1] = 2) and (gGameBoard[gEatmV + 2][gEatmH + 2] = 2) and (gGameBoard[gEatmV + 3][gEatmH + 3] = 2) and (gGameBoard[gEatmV + 4][gEatmH + 4] = 1) then puppetSound(5, "dissapearing pieces") gPlayerHasEaten = 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV + 1) * 30)) gGameBoard[gEatmV + 1][gEatmH + 1] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV + 2) * 30)) gGameBoard[gEatmV + 2][gEatmH + 2] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 3) * 30), gEraseFixV + ((gEatmV + 3) * 30)) gGameBoard[gEatmV + 3][gEatmH + 3] = 0 gPuppeter = gPuppeter + 1 end if end if if (gEatmH <= 9) and (gEatmV >= 5) then if (gGameBoard[gEatmV - 1][gEatmH + 1] = 2) and (gGameBoard[gEatmV - 2][gEatmH + 2] = 2) and (gGameBoard[gEatmV - 3][gEatmH + 3] = 2) and (gGameBoard[gEatmV - 4][gEatmH + 4] = 1) then puppetSound(5, "dissapearing pieces") gPlayerHasEaten = 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 gCapturedPlayer = gCapturedPlayer + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "red bead" sprite(gPuppeter).loc = point(20, (gCapturedPlayer * 24) - 4) gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV - 1) * 30)) gGameBoard[gEatmV - 1][gEatmH + 1] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV - 2) * 30)) gGameBoard[gEatmV - 2][gEatmH + 2] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 3) * 30), gEraseFixV + ((gEatmV - 3) * 30)) gGameBoard[gEatmV - 3][gEatmH + 3] = 0 gPuppeter = gPuppeter + 1 end if end if end if end repeat end repeat end on EatBallsEnemy repeat with gEatmV = 1 to 13 repeat with gEatmH = 1 to 13 if gGameBoard[gEatmV][gEatmH] = 2 then if (gEatmV > 8) and (gEatmV <= 10) then gEraseFixV = 6 else if (gEatmV > 10) and (gEatmV <= 11) then gEraseFixV = 6 else if (gEatmV >= 12) and (gEatmV <= 13) then gEraseFixV = 5 else if (gEatmV < 6) and (gEatmV >= 4) then gEraseFixV = 8 else if (gEatmV < 5) and (gEatmV >= 3) then gEraseFixV = 8 else if (gEatmV <= 3) and (gEatmV > 2) then gEraseFixV = 9 else if gEatmV = 1 then gEraseFixV = 10 else gEraseFixV = 7 end if end if end if end if end if end if end if if (gEatmH > 8) and (gEatmH <= 10) then gEraseFixH = 56 else if (gEatmH > 10) and (gEatmH <= 11) then gEraseFixH = 56 else if (gEatmH >= 12) and (gEatmH <= 13) then gEraseFixH = 55 else if (gEatmH < 6) and (gEatmH >= 4) then gEraseFixH = 58 else if (gEatmH < 5) and (gEatmH >= 3) then gEraseFixH = 59 else if (gEatmH < 3) and (gEatmH >= 1) then gEraseFixH = 60 else gEraseFixH = 57 end if end if end if end if end if end if if gEatmH <= 9 then if (gGameBoard[gEatmV][gEatmH + 1] = 1) and (gGameBoard[gEatmV][gEatmH + 2] = 1) and (gGameBoard[gEatmV][gEatmH + 3] = 1) and (gGameBoard[gEatmV][gEatmH + 4] = 2) then puppetSound(5, "dissapearing pieces") gEnemyHasEaten = 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + (gEatmV * 30)) gGameBoard[gEatmV][gEatmH + 1] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + (gEatmV * 30)) gGameBoard[gEatmV][gEatmH + 2] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 3) * 30), gEraseFixV + (gEatmV * 30)) gGameBoard[gEatmV][gEatmH + 3] = 0 gPuppeter = gPuppeter + 1 end if end if if gEatmV <= 9 then if (gGameBoard[gEatmV + 1][gEatmH] = 1) and (gGameBoard[gEatmV + 2][gEatmH] = 1) and (gGameBoard[gEatmV + 3][gEatmH] = 1) and (gGameBoard[gEatmV + 4][gEatmH] = 2) then puppetSound(5, "dissapearing pieces") gEnemyHasEaten = 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 1) * 30)) gGameBoard[gEatmV + 1][gEatmH] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 2) * 30)) gGameBoard[gEatmV + 2][gEatmH] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + (gEatmH * 30), gEraseFixV + ((gEatmV + 3) * 30)) gGameBoard[gEatmV + 3][gEatmH] = 0 gPuppeter = gPuppeter + 1 end if end if if (gEatmH <= 9) and (gEatmV <= 9) then if (gGameBoard[gEatmV + 1][gEatmH + 1] = 1) and (gGameBoard[gEatmV + 2][gEatmH + 2] = 1) and (gGameBoard[gEatmV + 3][gEatmH + 3] = 1) and (gGameBoard[gEatmV + 4][gEatmH + 4] = 2) then puppetSound(5, "dissapearing pieces") gEnemyHasEaten = 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV + 1) * 30)) gGameBoard[gEatmV + 1][gEatmH + 1] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV + 2) * 30)) gGameBoard[gEatmV + 2][gEatmH + 2] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 3) * 30), gEraseFixV + ((gEatmV + 3) * 30)) gGameBoard[gEatmV + 3][gEatmH + 3] = 0 gPuppeter = gPuppeter + 1 end if end if if (gEatmH <= 9) and (gEatmV >= 5) then if (gGameBoard[gEatmV - 1][gEatmH + 1] = 1) and (gGameBoard[gEatmV - 2][gEatmH + 2] = 1) and (gGameBoard[gEatmV - 3][gEatmH + 3] = 1) and (gGameBoard[gEatmV - 4][gEatmH + 4] = 2) then puppetSound(5, "dissapearing pieces") gEnemyHasEaten = 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 gCapturedEnemy = gCapturedEnemy + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "black bead" sprite(gPuppeter).loc = point(516, (gCapturedEnemy * 24) + 58) sprite(gPuppeter).width = 20 sprite(gPuppeter).height = 20 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 1) * 30), gEraseFixV + ((gEatmV - 1) * 30)) gGameBoard[gEatmV - 1][gEatmH + 1] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 2) * 30), gEraseFixV + ((gEatmV - 2) * 30)) gGameBoard[gEatmV - 2][gEatmH + 2] = 0 gPuppeter = gPuppeter + 1 sprite(gPuppeter).puppet = 1 sprite(gPuppeter).member = "cover05" sprite(gPuppeter).loc = point(gEraseFixH + ((gEatmH + 3) * 30), gEraseFixV + ((gEatmV - 3) * 30)) gGameBoard[gEatmV - 3][gEatmH + 3] = 0 gPuppeter = gPuppeter + 1 end if end if end if end repeat end repeat end