home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00008.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  819 b   |  28 lines
  1. on exitFrame
  2.   global y_frame, y_colortexto, y_textlines, y_linum, y_mouwait, xcapi, y_linea, opc1, opc2, y_opc
  3.   set y_colortexto to 3
  4.   set l_w1 to y_frame & "H"
  5.   jcargatexto(l_w1, 20, 1, 2)
  6.   set the visible of sprite 20 to 1
  7.   jcargatexto_hTX(y_frame, 21, 4, y_textlines)
  8.   set the visible of sprite 21 to 1
  9.   set y_linum to y_textlines
  10.   set y_mouwait to 17
  11.   set opciones to getAt(y_opc, integer(xcapi))
  12.   set opc1 to 40
  13.   set opc2 to 40 + opciones
  14.   set contador to 1
  15.   set Miembro to "TC" & xcapi & "0" & contador & "B"
  16.   repeat with i = opc1 to opc2 - 1
  17.     DoPupOn(i)
  18.     set the member of sprite i to member Miembro
  19.     DoHide(i)
  20.     set contador to contador + 1
  21.     set Miembro to "TC" & xcapi & "0" & contador & "B"
  22.   end repeat
  23.   repeat with i = opc2 to 50
  24.     DoHide(i)
  25.     DoPupOff(i)
  26.   end repeat
  27. end
  28.