home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- global xmusica
- if not soundBusy(3) and xmusica then
- sound playFile 3, "musica2.wav"
- end if
- go(the frame)
- end
-
- on idle
- global zantigua, znueva, znpag
- if voidp(zantigua) then
- set zantigua to 255
- end if
- if rollOver(9) then
- set znueva to the mouseLine
- set ahora to the mouseLine
- if the foreColor of line ahora of field "ztablatitulos" = 3 = 0 then
- if the foreColor of line ahora of field "ztablatitulos" = 253 then
- if the foreColor of line zantigua of field "ztablatitulos" = 6 then
- set the foreColor of line 1 of field "ztablatitulos" to 3
- set the foreColor of line zantigua of field "ztablatitulos" to 255
- end if
- else
- if zantigua <> znueva then
- if (the foreColor of line zantigua of field "ztablatitulos" = 253) or (the foreColor of line zantigua of field "ztablatitulos" = 3) then
- else
- set the foreColor of line zantigua of field "ztablatitulos" to 255
- end if
- set zantigua to znueva
- if (the foreColor of line zantigua of field "ztablatitulos" = 253) or (the foreColor of line zantigua of field "ztablatitulos" = 3) then
- else
- set the foreColor of line znueva of field "ztablatitulos" to 6
- end if
- end if
- end if
- end if
- end if
- DoRolloverArt(9, 10, 13, 14, 15, 16)
- case znpag of
- 1:
- DoRolloverArt(12)
- jDoHide(11)
- 3:
- DoRolloverArt(11)
- jDoHide(12)
- otherwise:
- DoRolloverArt(11, 12)
- end case
- end
-