home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 44 / Mm44.iso / sipice / icesol.exe / icesol.DXR / 00001.ls next >
Encoding:
Text File  |  1997-06-15  |  1.7 KB  |  82 lines
  1. on startMovie
  2.   global TXT3, TXT4
  3.   openXLib("XTXT.dll")
  4.   set KKDBK to XTXT(mnew)
  5.   KKDBK(MSETWINDOWBYNAME, "HFRHSYEJODHJC")
  6.   KKDBK(mdispose)
  7.   set TXT3 to XTXT(mnew)
  8.   set TXT4 to XTXT(mnew)
  9. end
  10.  
  11. on PONPUPOFF INI, FIN
  12.   repeat with A = INI to FIN
  13.     puppetSprite(A, 0)
  14.   end repeat
  15. end
  16.  
  17. on CURSORES QUECURSOR
  18.   puppetSprite(QUECURSOR, 0)
  19.   set the cursor of sprite QUECURSOR to 4
  20.   go(the frame)
  21.   set the cursor of sprite QUECURSOR to 0
  22.   puppetSprite(QUECURSOR, 1)
  23. end
  24.  
  25. on PONER_LETRA PRIMERO, ULTIMO
  26.   puppetSprite(PRIMERO, 1)
  27.   set the castNum of sprite PRIMERO to ULTIMO
  28.   updateStage()
  29.   go(the frame)
  30.   puppetSprite(PRIMERO, 0)
  31. end
  32.  
  33. on PONER_CURSOR PRIMERO, MODO, SALTO
  34.   set the cursor of sprite PRIMERO to MODO
  35. end
  36.  
  37. on PONER_CURSOR_MASCARA NUMERO, PRIMERO, ULTIMO
  38.   set the cursor of sprite NUMERO to [PRIMERO, ULTIMO]
  39. end
  40.  
  41. on COMPANIA CUAL
  42.   global TXT3
  43.   LIMPIATEXT()
  44.   set TODO to the text of field CUAL
  45.   TXT3(MSETBKMODE, 0)
  46.   TXT3(MSETPAPERCOLOR, 0, 0, 0)
  47.   TXT3(MSETINKCOLOR, 255, 255, 255)
  48.   TXT3(MSETJUSTMODE, 1)
  49.   TXT3(MSETFONT, "VERDANA", 12, 1)
  50.   TXT3(MOPENTEXTWINDOW2, 390, 20, 230, 440, TODO, 0)
  51. end
  52.  
  53. on COMPANIAs CUAL
  54.   global TXT4
  55.   LIMPIATEXT()
  56.   set TODO to the text of field CUAL
  57.   TXT4(MSETBKMODE, 0)
  58.   TXT4(MSETPAPERCOLOR, 0, 0, 0)
  59.   TXT4(MSETINKCOLOR, 255, 255, 255)
  60.   TXT4(MSETJUSTMODE, 1)
  61.   TXT4(MSETFONT, "VERDANA", 12, 1)
  62.   TXT4(MOPENTEXTWINDOW2, 20, 85, 395, 150, TODO, 0)
  63. end
  64.  
  65. on LIMPIATEXT
  66.   global TXT3, TXT4
  67.   TXT3(MCLOSETEXT)
  68.   TXT4(MCLOSETEXT)
  69. end
  70.  
  71. on PULSA SPR, NOMB
  72.   puppetSprite(SPR, 1)
  73.   set the castNum of sprite SPR to the number of cast NOMB
  74.   updateStage()
  75. end
  76.  
  77. on tempo CUANTO
  78.   startTimer()
  79.   repeat while the timer < CUANTO
  80.   end repeat
  81. end
  82.