home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00161.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  690 b   |  40 lines
  1. on OnElevSprites
  2.   puppetSprite(1, 1)
  3.   updateStage()
  4. end
  5.  
  6. on OffElevSprites
  7.   puppetSprite(1, 0)
  8.   updateStage()
  9. end
  10.  
  11. on UpElev
  12.   puppetSprite(1, 1)
  13.   set H to the locV of sprite 1
  14.   set the locV of sprite 1 to H + 6
  15.   if the locV of sprite 1 < 85 then
  16.     nothing()
  17.   else
  18.     set the locV of sprite 1 to 85
  19.     puppetSprite(1, 0)
  20.     updateStage()
  21.     go("EL CLOSE 2")
  22.   end if
  23.   updateStage()
  24. end
  25.  
  26. on DownElev
  27.   puppetSprite(1, 1)
  28.   set H to the locV of sprite 1
  29.   set the locV of sprite 1 to H - 6
  30.   if the locV of sprite 1 > -486 then
  31.     nothing()
  32.   else
  33.     set the locV of sprite 1 to -486
  34.     puppetSprite(1, 0)
  35.     updateStage()
  36.     go("EL CLOSE 1")
  37.   end if
  38.   updateStage()
  39. end
  40.