home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / PTESTFI.DXR / 00003.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  563 b   |  27 lines
  1. on exitFrame
  2.   global xmusica
  3.   if xmusica and (soundBusy(3) = 0) then
  4.     sound playFile 3, "musica2.wav"
  5.   end if
  6.   go(the frame)
  7. end
  8.  
  9. on idle
  10.   global ztope, zpagina, ztopepagina
  11.   DoRolloverArt(50, 51, 52, 53, 54)
  12.   DoRolloverArt(11)
  13.   case zpagina of
  14.     1:
  15.       DoRolloverArt(12)
  16.     ztopepagina:
  17.       DoRolloverArt(10)
  18.     otherwise:
  19.       DoRolloverArt(10, 12)
  20.   end case
  21.   DoRolloverArt(60, 61, 62, 63, 64, 65)
  22.   if ((ztope = 10) and (zpagina = 3)) or ((ztope = 30) and (zpagina = 8)) then
  23.   else
  24.     DoRolloverArt(66, 67, 68, 69, 70, 71)
  25.   end if
  26. end
  27.