home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / laser.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  735 b   |  24 lines
  1. on InitSpriteNums
  2.   global gConsoleBottom, gConsoleLeft, gObjectSprite, gInfoSprite, gVideoSprite, gConsoleText, gMovieSprite, gRAMMonitor, gPopupBaseSprite
  3.   set gConsoleBottom to 4
  4.   set gConsoleLeft to 5
  5.   set gObjectSprite to 6
  6.   set gInfoSprite to 8
  7.   set gVideoSprite to 9
  8.   set gConsoleText to 24
  9.   set gReturnSprite to 25
  10.   set gMovieSprite to 34
  11.   set gPopupBaseSprite to 45
  12.   set gRAMMonitor to 47
  13. end
  14.  
  15. on InitPuppets
  16.   global gConsoleLeft, gConsoleBottom, gConsoleRight, gObjectSprite, gVideoSprite, gConsoleText, gRAMMonitor
  17.   puppetSprite(gConsoleLeft, 1)
  18.   puppetSprite(gConsoleBottom, 1)
  19.   puppetSprite(gObjectSprite, 1)
  20.   puppetSprite(gVideoSprite, 1)
  21.   puppetSprite(gConsoleText, 1)
  22.   puppetSprite(gRAMMonitor, 1)
  23. end
  24.