home *** CD-ROM | disk | FTP | other *** search
- global pActiveBullets, pBulletDirection, gCurrentLevel, gTotalScore, gNumLives, gMapChannel, gWon, pInvincibility, gBombList, pEneBombList, pAntObject, pEneObject, pEneObject2, pEneObject3, gNumCheckPoints, gTotalCheckPoints
-
- on prepareMovie me
- gCurrentLevel = 0
- gTotalScore = 0
- gMapChannel = 7
- end
-
- on displayScore
- member("ScoreDisplay").text = string(gTotalScore)
- end
-
- on displayTries
- member("LivesDisplay").text = string(gNumLives)
- end
-
- on displayLevel
- member("LevelDisplay").text = string(gCurrentLevel)
- end
-
- on displayTime theTime
- if (theTime / 60) < 10 then
- timeCount = "0" & string(integer(theTime / 60))
- else
- timeCount = string(integer(theTime / 60))
- end if
- if (theTime mod 60) < 10 then
- timeCount = timeCount && ":" && "0" & string(theTime mod 60)
- else
- timeCount = timeCount && ":" && string(theTime mod 60)
- end if
- member("TimeDisplay").text = timeCount
- end
-
- on thisIsMYIntersectionFunctionBitch 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
- theColor = sprite(objectSpriteNum).member.image.getPixel(x, y1)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- x = x + 3
- end repeat
- repeat with x = x1 to x2
- theColor = sprite(objectSpriteNum).member.image.getPixel(x, y2)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- x = x + 3
- end repeat
- repeat with y = y1 to y2
- theColor = sprite(objectSpriteNum).member.image.getPixel(x1, y)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- y = y + 3
- end repeat
- repeat with y = y1 to y2
- theColor = sprite(objectSpriteNum).member.image.getPixel(x2, y)
- if theColor = rgb(0, 0, 0) then
- return 1
- end if
- y = y + 3
- end repeat
- return 0
- end
-