home *** CD-ROM | disk | FTP | other *** search
- global gKountaX, gKountaY, gScorePosition, gSides, gColor, gGameBoard1, gGameBoard2, gGameBoard3, gGameBoard4, gGameBoard5, gGameBoard6, gGameBoard7, gGameBoard8, gSelectH, gSelectV, gSelectH2, gSelectV2, gMouseFix, gCubeSelect, gRemoveH, gRemoveV, gMouseFix2, gMouseFix3, gConnecting, gTop, gRight, gBottom, gLeft, gSlide, gOffset, gWhite, gSlide2, gSlideLeft, gSlideRight, gSlideUp, gSlideDown, gSprites0, gSprites, gSprites2, gSprites3, gSprites4, gSprites5, gSprites6, gSprites7, gSprites8, gSearch1, gSearch2, gSearch3, gSearch4, gSearch5, gSearch6, gSearch7, gSearch8, gSelection, gSelection2, gFinishSlide, gOffset2, gColumnNum, gEmptyColumn, gMoves, gScore
-
- on beginSprite
- puppetSound(3, "win")
- member("ScoreText").text = "Score:" && string(gScore)
- sprite(600).member = "Gameover-Normal"
- end
-
- on mouseEnter
- sprite(600).member = "Gameover-MouseOver"
- puppetSound(4, "continue&restart")
- end
-
- on mouseLeave
- sprite(600).member = "Gameover-Normal"
- puppetSound(4, "continue&restart")
- end
-
- on mouseUp me
- puppetSound(4, "reset")
- if gSelection2 = 1 then
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- if gConnecting = 1 then
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- else
- if gConnecting = 2 then
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- else
- if gConnecting = 3 then
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- else
- if gConnecting = 4 then
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- gScorePosition = gScorePosition - 1
- sprite(gScorePosition).puppet = 0
- end if
- end if
- end if
- end if
- gTop = 0
- gRight = 0
- gBottom = 0
- gLeft = 0
- gConnecting = 0
- gCubeSelect = 0
- gMouseFix2 = 0
- gMouseFix3 = 0
- gSelection2 = 0
- gSelection = 0
- end if
- gScore = 0
- gKountaX = 0
- gKountaY = 0
- gScorePosition = 25
- gColor = random(4)
- gSides = 4
- gGameBoard1 = [[1, 1, 1, 1], [2, 2, 69, 2], [3, 3, 3, 3], [4, 4, 4, 4], [5, 5, 5, 5], [6, 6, 6, 6], [7, 7, 7, 7], [8, 8, 8, 8]]
- gGameBoard2 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gGameBoard3 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gGameBoard4 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gGameBoard5 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gGameBoard6 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gGameBoard7 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gGameBoard8 = [[1, 2, 3, 4], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1], [1, 1, 1, 1]]
- gMouseFix = 0
- gCubeSelect = 0
- gMouseFix2 = 0
- gConnecting = 0
- gTop = 0
- gRight = 0
- gBottom = 0
- gLeft = 0
- gMouseFix3 = 0
- gSlide = 0
- gOffset = 0
- gWhite = 0
- gSlide2 = 0
- gSlideLeft = 0
- gSlideRight = 0
- gSlideUp = 0
- gSlideDown = 0
- gSelection = 0
- gFinishSlide = 1
- gOffset2 = 0
- gEmptyColumn = 0
- gSprites0 = 25
- gSprites = 25
- gSprites2 = 25
- gSprites3 = 25
- gSprites4 = 25
- gSprites5 = 25
- gSprites6 = 25
- gSprites7 = 25
- gSprites8 = 25
- gSearch1 = 1
- gSearch2 = 1
- gSearch3 = 1
- gSearch4 = 1
- gSearch5 = 1
- gSearch6 = 1
- gSearch7 = 1
- gSearch8 = 1
- gMoves = 0
- member("MovesText").text = string(gMoves)
- repeat with gKountaY = 0 to 7
- repeat with gKountaX = 0 to 7
- sprite(gScorePosition).puppet = 1
- sprite(gScorePosition).member = "cube01"
- sprite(gScorePosition).visible = 1
- sprite(gScorePosition).loc = point(52 + (gKountaX * 48), 52 + (gKountaY * 48))
- gScorePosition = gScorePosition + 1
- repeat with gSides = 0 to 3
- sprite(gScorePosition).puppet = 1
- gColor = random(4)
- case gColor of
- 1:
- sprite(gScorePosition).member = "blue"
- 2:
- sprite(gScorePosition).member = "green"
- 3:
- sprite(gScorePosition).member = "red"
- 4:
- sprite(gScorePosition).member = "yellow"
- end case
- case gKountaY of
- 0:
- gGameBoard1[gKountaX + 1][gSides + 1] = gColor
- 1:
- gGameBoard2[gKountaX + 1][gSides + 1] = gColor
- 2:
- gGameBoard3[gKountaX + 1][gSides + 1] = gColor
- 3:
- gGameBoard4[gKountaX + 1][gSides + 1] = gColor
- 4:
- gGameBoard5[gKountaX + 1][gSides + 1] = gColor
- 5:
- gGameBoard6[gKountaX + 1][gSides + 1] = gColor
- 6:
- gGameBoard7[gKountaX + 1][gSides + 1] = gColor
- 7:
- gGameBoard8[gKountaX + 1][gSides + 1] = gColor
- end case
- sprite(gScorePosition).visible = 1
- sprite(gScorePosition).rotation = gSides * 90
- sprite(gScorePosition).loc = point(52 + (gKountaX * 48), 52 + (gKountaY * 48))
- gScorePosition = gScorePosition + 1
- end repeat
- end repeat
- end repeat
- go(1)
- end
-