home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  986 b   |  44 lines
  1. on exitFrame
  2.   global gFlagFich, g_currentframe, yHayVid, yHayTest, MyCur, gtxtxsp, opc1, opc2, y_linea, xcapi, aux
  3.   jdoscUP(5, 21)
  4.   jdoscDOWN(6, 21)
  5.   DoRolloverArt(3, 14, 17, 30, 31, 32)
  6.   jDoRollover(opc1, "-", opc2)
  7.   set cual to doWho()
  8.   if the mouseUp = 0 then
  9.     if the rollOver >= 40 then
  10.       set y_linea to chars(cual, 5, 6)
  11.     end if
  12.   end if
  13.   if (the mouseWord <> -1) and (the foreColor of word the mouseWord of field the member of sprite 21 = 6) then
  14.     set the cursor of sprite 21 to MyCur
  15.   else
  16.     set the cursor of sprite 21 to 0
  17.   end if
  18.   if yHayVid then
  19.     DoRolloverArt(13)
  20.     if rollOver(13) then
  21.       DoHide(9)
  22.     else
  23.       DoShow(9)
  24.     end if
  25.   end if
  26.   if yHayTest then
  27.     DoRolloverArt(15)
  28.     if rollOver(15) then
  29.       DoHide(8)
  30.     else
  31.       DoShow(8)
  32.     end if
  33.   end if
  34.   go(the frame)
  35. end
  36.  
  37. on idle
  38.   global xmusica, xhelp
  39.   set xhelp to "afichas"
  40.   if xmusica and (soundBusy(3) = 0) then
  41.     sound playFile 3, "musica2.wav"
  42.   end if
  43. end
  44.