home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Beams.dxr / 00155_Globals.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.0 KB  |  40 lines
  1. global gPeiceSelected, gPeiceX, gPeiceY, gLaserList, gNumBlocks, gLevelNum, gBlockArray, gLaserArray, gColorArray, gDirectionArray, gLockedArray, gOtherPeiceSelected, gStupidCounter, gScore, gRemaindingTime, gLevelSeconds
  2.  
  3. on prepareMovie
  4.   gStupidCounter = 0
  5.   initArrays()
  6.   gLevelNum = 0
  7.   gPeiceX = 0
  8.   gPeiceY = 0
  9. end
  10.  
  11. on initArrays
  12.   gScore = 0
  13.   gOtherPeiceSelected = 0
  14.   gPeiceSelected = 0
  15.   gLaserList = []
  16.   gBlockArray = [[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]]
  17.   gLaserArray = [[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]]
  18.   gColorArray = [[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]]
  19.   gLockedArray = [[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]]
  20.   gDirectionArray = [[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]]
  21. end
  22.  
  23. on diplayCurrentLevel level
  24.   member("CurrentLevel").text = string(gLevelNum)
  25. end
  26.  
  27. on displayTime
  28.   if (gRemaindingTime / 60) < 10 then
  29.     timeCount = "0" & string(integer(gRemaindingTime / 60))
  30.   else
  31.     timeCount = string(integer(gRemaindingTime / 60))
  32.   end if
  33.   if (gRemaindingTime mod 60) < 10 then
  34.     timeCount = timeCount && ":" && "0" & string(gRemaindingTime mod 60)
  35.   else
  36.     timeCount = timeCount && ":" && string(gRemaindingTime mod 60)
  37.   end if
  38.   member("LevelTimeDisplay").text = timeCount
  39. end
  40.