Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Citta/shared.cst/03007_Script_3007

Text File | 1997-10-14 | 2KB | 59 lines

on idle

  global cisei,menuindice,simon,gr,men,funzioni,correlati,canale_audio,audio_barrato,audio,audio_nonbarrato,MENUBAR,winpres

  if  not soundbusy(1)  then
    if  the mousecast <> audio_nonbarrato+1 then
      set audio to audio_barrato
    else
      set audio to audio_nonbarrato+1
    end if
    updatestage
  end if

  --  if the castnum of sprite 48 > 0 then
  --    if the type of member (the castnum of sprite 48) = #digitalvideo then
  --      if the movierate of sprite 48 = 1 then
  --        exit
  --      end if
  --    end if
  --  end if

  if offset ("pop", string (the windowlist)) and the mousedown then
    curfinmetti
  end if

  if correlati  <>  ""   and offset (":",correlati) then
    put "passo qui",correlati
    set tmp to correlati
    toglipopart
    put "TMP = ",tmp
    if tmp <> "" then go to movie tmp
    exit
  end if

  if gr=false then
    if rollover (47) and not winpres then
      chiamamenubar
      exit
    end if
    if the mouseV < 418  and winpres then
      toglimenubar
    end if
  END IF
  if the membernum of sprite 47 > 0 then
    if the casttype of member (the membernum of sprite 47) of castlib "shared"= #digitalVideo then
      set mrk to marker(0)
      global qvolte_video
      if (mrk = marker("viaggio") or mrk =marker("chiuso") or mrk = marker("articolo") or mrk = marker ("principio") or mrk = marker ("menu") )  then
        set the movierate of sprite 47 to 1
        set qvolte_video to false
      end if
    end if
  end if
end