Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Mare/SHAREDM.CST/03121_Script_3121

Text File | 1997-09-15 | 3KB | 95 lines

on at_hil dacast,quanti,primocan
  global pallina,audio,dove,men,olddove,audio_barrato,canale_quicktime,pallina_aperta,pallina_chiusa,MENUBAR
  set elewin to string (the windowlist)

  if offset ("menubar",elewin) > 0 then
    if the visible of MENUBAR then exit
  end if

  if the mousecast >= dacast and the mousecast <=dacast + quanti-1 then
    set attore to the mousecast
    if attore >=dacast and attore <= dacast + quanti-1 then
      repeat with num = 1 to quanti
        if dove <> num then
          set the castnum of sprite (primocan+num -1) to (dacast + num -1)
        end if
      end repeat
      set the castnum of sprite primocan-1 to pallina
      set the castnum of sprite primocan-2  to audio
      set the castnum of sprite (attore-dacast +primocan) to (attore + quanti)
    end if
  end if

  if the mousecast < dacast or the mousecast > pallina_chiusa + 1  then
    repeat with num = 1 to quanti
      if dove <> num then
        set the castnum of sprite (primocan+num -1) to (dacast + num -1)
      end if
    end repeat
    set the castnum of sprite primocan-1 to pallina

    set the castnum of sprite primocan-2  to audio
  end if

  if the mousecast = pallina then
    repeat with num = 1 to quanti
      set the castnum of sprite (primocan+num -1) to (dacast + num -1)
    end repeat
    if pallina_aperta <> pallina_chiusa then
      set the castnum of sprite primocan-1 to pallina +1
    end if

    set the castnum of sprite primocan-2  to audio
  end if

  set y to the castnum of sprite canale_quicktime

  if y>0 then
    set vv to the casttype of cast y

    if vv=#digitalvideo then

      set val_vv to the movierate of sprite canale_quicktime

    else
      set val_vv to 0
    end if

  else
    set val_vv to 0
  end if



  if the mousecast = audio AND val_vv = 0  then
    put "rr"
    repeat with num = 1 to quanti
      set the castnum of sprite (primocan+num -1) to (dacast + num -1)
    end repeat

    set the castnum of sprite primocan-1 to pallina
    global anim_loco
    set  elewin to string(the windowlist)
    -- if anim_loco = false and    offset("popup",elewin)=0 then

    if anim_loco = false and  offset("popup",elewin)=0  then
      set the castnum of sprite primocan-2  to audio + 1
    else
      if anim_loco = false and offset("popup",elewin)>0  then
        if the visible of window "popup" =  0 then
          set the castnum of sprite primocan-2  to audio + 1
        end if
      end if
    end if
  end if

  if dove > 0 then
    set the castnum of sprite (primocan + dove-1) to (dacast + quanti+ dove -1)
  end if
  if olddove>0 then
    set the castnum of sprite (primocan + olddove-1) to (dacast + quanti+ olddove -1)
  end if


end