home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 127 / dpcs0998.iso / Internet / netobs / Install.exe / t2.z / BREAKOUT.DCR / 00003_startMovie.ls < prev    next >
Encoding:
Text File  |  1998-01-20  |  2.2 KB  |  52 lines
  1. on startMovie
  2.   global giPongPaddleChannel, giPongBrickChannel, glWallChannels, giPongSplashChannel, gbPaused, giPlayFieldLeftBoundary, giPlayFieldRightBoundary, giPlayFieldTopBoundary, giPlayFieldBottomBoundary, giHideOffset, giDebugOn, giHitsOnDelay, giPongScore, giPongBall, giPongLevel, glPingSounds, giPongEasyMode, giPongStraightThru, gbPongWaves, gbDuck, giBrickVOffset, giBrickHOffset, glBrickList, giColumns, glBallsInPlay, glBulletsInPlay, giBallMinTicks, giPaddleHalfWidth, giPaddleQuarterWidth, giPaddleHits, giPaddleBounceAngle, giBonusChannel
  3.   set glWallChannels to []
  4.   setAt(glWallChannels, 1, 5)
  5.   setAt(glWallChannels, 2, 6)
  6.   setAt(glWallChannels, 3, 7)
  7.   setAt(glWallChannels, 4, 8)
  8.   setAt(glWallChannels, 5, 9)
  9.   set giPongPaddleChannel to 30
  10.   set giPongBrickChannel to 31
  11.   set giPongSplashChannel to 38
  12.   set gbPaused to 0
  13.   set the visible of sprite 48 to gbPaused
  14.   set giPlayFieldLeftBoundary to 0
  15.   set giPlayFieldRightBoundary to 464
  16.   set giPlayFieldTopBoundary to 10
  17.   set giPlayFieldBottomBoundary to 220
  18.   set giHideOffset to 1000
  19.   set giDebugOn to 1
  20.   set giHitsOnDelay to 0
  21.   set giPongScore to 0
  22.   set giPongBall to 3
  23.   set giPongLevel to 0
  24.   set the text of cast "PongScore" to string(giPongScore)
  25.   set the text of cast "PongBall" to string(giPongBall)
  26.   set the text of cast "PongLevel" to string(giPongLevel)
  27.   set glPingSounds to ["Ting1", "Ting2", "Ting3", "Ting4", "Ting5"]
  28.   set giPongEasyMode to 0
  29.   set giPongStraightThru to 0
  30.   set gbPongWaves to 0
  31.   set gbDuck to 0
  32.   set glBrickList to [[]]
  33.   set glBulletsInPlay to []
  34.   set glBallsInPlay to []
  35.   set giBallMinTicks to 2
  36.   set giColumns to 0
  37.   addAt(glBallsInPlay, 1, birth(script "ballScript", 2, 10, 10, 22, 32, "PongBall1"))
  38.   set giPaddleBounceAngle to 8
  39.   set giPaddleHits to 0
  40.   puppetSprite(giPongPaddleChannel, 1)
  41.   set the locH of sprite giPongPaddleChannel to the mouseH
  42.   puppetSprite(giPongSplashChannel, 1)
  43.   set the locH of sprite giPongSplashChannel to giHideOffset
  44.   puppetSprite(giPongBrickChannel, 1)
  45.   set the locH of sprite giPongBrickChannel to giHideOffset
  46.   set giBonusChannel to 47
  47.   puppetSprite(giBonusChannel, 1)
  48.   pongNewLevel()
  49.   set the keyDownScript to "paddleKeyDown"
  50.   cursor(0)
  51. end
  52.