home *** CD-ROM | disk | FTP | other *** search
- global gSelectedTile, gNumTiles, gTileArray, gArrayWidth, gArrayHeight, gTileWidth, gTileHeight, gTopLeftPoint, gColorRequired, gCurrentLevel, gLevelTime, gTotalScore
-
- on prepareMovie
- gTotalScore = 0
- gLevelTime = 0
- gCurrentLevel = 0
- gColorRequired = 0
- gSelectedTile = 0
- gTileArray = [[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]]
- gArrayWidth = 11
- gArrayHeight = 7
- gTileWidth = 42
- gTileHeight = 50
- gTopLeftPoint = point(35, 85)
- end
-
- on myIntersection spriteRect, objectSpriteNum
- colRect = intersect(spriteRect, sprite(objectSpriteNum).rect)
- if colRect = rect(0, 0, 0, 0) then
- return 0
- end if
- x1 = colRect.left - sprite(objectSpriteNum).rect.left
- x2 = colRect.right - sprite(objectSpriteNum).rect.left
- y1 = colRect.top - sprite(objectSpriteNum).rect.top
- y2 = colRect.bottom - sprite(objectSpriteNum).rect.top
- repeat with x = x1 to x2
- x = x + 3
- theColor = sprite(objectSpriteNum).member.image.getPixel(x, y1)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- end repeat
- repeat with x = x1 to x2
- x = x + 3
- theColor = sprite(objectSpriteNum).member.image.getPixel(x, y2)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- end repeat
- repeat with y = y1 to y2
- y = y + 3
- theColor = sprite(objectSpriteNum).member.image.getPixel(x1, y)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- end repeat
- repeat with y = y1 to y2
- y = y + 3
- theColor = sprite(objectSpriteNum).member.image.getPixel(x2, y)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- end repeat
- return 0
- end
-
- on displayTime
- if (gLevelTime / 60) < 10 then
- timeCount = "0" & string(integer(gLevelTime / 60))
- else
- timeCount = string(integer(gLevelTime / 60))
- end if
- if (gLevelTime mod 60) < 10 then
- timeCount = timeCount & ":" & "0" & string(gLevelTime mod 60)
- else
- timeCount = timeCount & ":" & string(gLevelTime mod 60)
- end if
- member("timedisp").text = timeCount
- end
-