home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / PTEST.DXR / 00004.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  1.5 KB  |  50 lines

  1. on exitFrame
  2.   global xmusica
  3.   if not soundBusy(3) and xmusica then
  4.     sound playFile 3, "musica2.wav"
  5.   end if
  6.   go(the frame)
  7. end
  8.  
  9. on idle
  10.   global zantigua, znueva, znpag
  11.   if voidp(zantigua) then
  12.     set zantigua to 255
  13.   end if
  14.   if rollOver(9) then
  15.     set znueva to the mouseLine
  16.     set ahora to the mouseLine
  17.     if the foreColor of line ahora of field "ztablatitulos" = 3 = 0 then
  18.       if the foreColor of line ahora of field "ztablatitulos" = 253 then
  19.         if the foreColor of line zantigua of field "ztablatitulos" = 6 then
  20.           set the foreColor of line 1 of field "ztablatitulos" to 3
  21.           set the foreColor of line zantigua of field "ztablatitulos" to 255
  22.         end if
  23.       else
  24.         if zantigua <> znueva then
  25.           if (the foreColor of line zantigua of field "ztablatitulos" = 253) or (the foreColor of line zantigua of field "ztablatitulos" = 3) then
  26.           else
  27.             set the foreColor of line zantigua of field "ztablatitulos" to 255
  28.           end if
  29.           set zantigua to znueva
  30.           if (the foreColor of line zantigua of field "ztablatitulos" = 253) or (the foreColor of line zantigua of field "ztablatitulos" = 3) then
  31.           else
  32.             set the foreColor of line znueva of field "ztablatitulos" to 6
  33.           end if
  34.         end if
  35.       end if
  36.     end if
  37.   end if
  38.   DoRolloverArt(9, 10, 13, 14, 15, 16)
  39.   case znpag of
  40.     1:
  41.       DoRolloverArt(12)
  42.       jDoHide(11)
  43.     3:
  44.       DoRolloverArt(11)
  45.       jDoHide(12)
  46.     otherwise:
  47.       DoRolloverArt(11, 12)
  48.   end case
  49. end
  50.