MASPC 1/MASPC_1.iso/CursoWordI/AUTIL.DXR/00002.ls

Text File | 1998-07-20 | 679 b | 31 lines

on exitFrame
  go(the frame)
end

on idle
  global xmusica, zinstala, zejecuta, za, zn
  if not soundBusy(3) and xmusica then
    sound playFile 3, "musica1"
  end if
  if voidp(za) then
    set za to 255
  end if
  if rollOver(20) then
    set zn to the mouseLine
    if za <> zn then
      set the foreColor of line za of member the member of sprite 20 to 255
      set za to zn
      set the foreColor of line zn of member the member of sprite 20 to 6
    end if
  end if
  DoRolloverArt(10, 11, 12, 13, 14)
  DoRolloverArt(16, 17, 20)
  DoRolloverArt(30, 31, 32, 33, 34)
  if zinstala then
    DoRolloverArt(18)
  end if
  if zejecuta then
    DoRolloverArt(19)
  end if
end