home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 127 / dpcs0998.iso / Internet / netobs / Install.exe / t2.z / BREAKOUT.DCR / 00013_pongPaddleChange.ls < prev    next >
Encoding:
Text File  |  1998-01-20  |  473 b   |  10 lines
  1. on pongPaddleChange piPaddleSize
  2.   global giPaddleHalfWidth, giPaddleQuarterWidth, giPongPaddleChannel
  3.   set the width of sprite giPongPaddleChannel to (piPaddleSize * 11) + 16
  4.   set the height of sprite giPongPaddleChannel to 10
  5.   updateStage()
  6.   set giPaddleHalfWidth to integer(0.5 * the width of sprite giPongPaddleChannel)
  7.   set giPaddleQuarterWidth to integer(0.5 * giPaddleHalfWidth)
  8.   debugMessage("pongPaddleChange complete w/ piPaddleSize = " & piPaddleSize)
  9. end
  10.