home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Silhouette.dxr / 00012.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.9 KB  |  61 lines
  1. on exitFrame me
  2.   global shadowShapeData, shadowSpinData, shadowSolidData, blankMapData, solidData, rippleData, playerScore, timeToDie, levelWidth, tileSize, playerlevel, stampShape, stampShapeQue, stampSpinQue, fallBlockData, gravityForce
  3.   playerlevel = playerlevel + 1
  4.   member("Level Display").text = string(playerlevel)
  5.   shadowShapeData = []
  6.   shadowSpinData = []
  7.   shadowSolidData = []
  8.   solidData = []
  9.   rippleData = []
  10.   wSprite = 10
  11.   repeat with whichY = 1 to 8
  12.     oneLiner1 = []
  13.     oneLiner2 = []
  14.     oneLiner3 = []
  15.     oneLiner4 = []
  16.     oneLiner5 = []
  17.     repeat with whichX = 1 to levelWidth
  18.       if playerlevel > 4 then
  19.         randomSeaLevel = 4
  20.       else
  21.         randomSeaLevel = 8 - playerlevel
  22.       end if
  23.       if whichY > randomSeaLevel then
  24.         add(oneLiner1, random(random(3 + playerlevel)))
  25.         add(oneLiner2, (whichX mod 4) + 1)
  26.         add(oneLiner3, 1)
  27.       else
  28.         add(oneLiner1, 0)
  29.         add(oneLiner2, 0)
  30.         add(oneLiner3, 0)
  31.       end if
  32.       add(oneLiner4, 0)
  33.       add(oneLiner5, 0)
  34.       puppetSprite(wSprite, 1)
  35.       set the loc of sprite wSprite to point(whichX * tileSize, whichY * tileSize) + the loc of sprite 2
  36.       set the member of sprite wSprite to "Empty Tile"
  37.       wSprite = wSprite + 1
  38.     end repeat
  39.     add(shadowShapeData, oneLiner1.value)
  40.     add(shadowSpinData, oneLiner2.value)
  41.     add(shadowSolidData, oneLiner3.value)
  42.     add(solidData, oneLiner4.value)
  43.     add(rippleData, oneLiner5.value)
  44.   end repeat
  45.   stampShapeQue = []
  46.   stampSpinQue = []
  47.   repeat with wShape = 1 to 2
  48.     addToQue()
  49.   end repeat
  50.   stampShape = [stampShapeQue[1], stampSpinQue[1]]
  51.   setBlock(stampShapeQue[1], stampSpinQue[1])
  52.   fallBlockData = [0, point(3, 1), stampShape, 0]
  53.   gravityForce = 0
  54.   member("Level Display").text = string(playerlevel)
  55.   member("Blocks Display").text = string(playerlevel * 7)
  56.   member("Score Display").text = string(0)
  57.   sprite(9).locZ = 230
  58.   sprite(244).locZ = 2
  59.   go(5)
  60. end
  61.