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