Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Extraurb/sharede.cst/03002_Script_3002

Text File | 1997-10-08 | 3KB | 89 lines

on blocca
  global dove,anim_loco,vidstat,gia_fatto,vidstat,foto_vid
  if the mouseh <= 68 and the mousev>= 320 and the mousev <= 373 then
    nothing
  else
    set anim_loco to false
  end if
  set pinc to the mousecast
  set mv to the mousev
  set mh to the mouseh
  set n_castlib to "sharede"
  ------------------------BLOCCA E SPEGNE I VIDEO QUANDO SI CAMBIA SCHERMATA
  if pinc > 0 then
    set scrpt to the scripttext of member (pinc)
    set gia_fatto to false
    if offset(" go ",scrpt) and the name of member pinc <> "1h_cur" then
      if the membernum of sprite 48 > 0 then
        if the casttype of member (the membernum of sprite 48) = #digitalvideo then
          set the movierate of sprite 48 to 0
          set vidstat to "stop"
          puppetsprite 48 , false
          updatestage
        end if
      end if

    end if
    ----------
    if the membernum of sprite 47 > 0 then
      if the casttype of member (the membernum of sprite 47) of castlib n_castlib = #digitalvideo then
        if offset("spritebox",scrpt) and offset("111",scrpt) then
          global qvolte_video
          put "passato"
          set the video of cast 3001 of castlib n_castlib to 0
          set the video of cast 3001 of castlib n_castlib to 1
          set the movierate of sprite 47 to 0
          put "mvrt",the movierate of sprite 47
          set qvolte_video to false
        end if
      end if
    end if

    ---------BLOCCA IL CUBETTO QUANDO SI INGRANDISCONO I VIDEO E LE FOTO
    if the membernum of sprite 47 > 0 then
      if the casttype of member (the membernum of sprite 47) of castlib n_castlib = #digitalvideo then

        if offset("spritebox",scrpt) and the name of member pinc <> "1h_cur" and offset("640",scrpt) then
          if the movierate of sprite 47 = 1 then
            set the movierate of sprite 47 to 0
            if the mouseh < 260 then
              set foto_vid to true
            else
              set foto_vid to false
            end if
          end if
        else
          if the movierate of sprite 47 = 0 then
            if foto_vid then
              set the movierate of sprite 47 to 1
              set foto_vid to false
            end if
          end if
        end if
      end if

    end if
  end if
  ------------------
  global percorso
  if marker(0) = 1 then
    set rit_marker to marker("viaggio")
  else
    set rit_marker to marker(0)
  end if
  if not rit_marker  then
    set rit_marker to 1
  end if
  if count(percorso) > 0 then
    if getlast (percorso) <>  ("#"&the moviepath&the moviename) or getPropAt(percorso, count(percorso)) <> rit_marker then
      set r_movie to "#"&the moviepath&the moviename
      addprop percorso, rit_marker,  r_movie
    end if
  else
    set r_movie to "#"&the moviepath&the moviename
    addprop percorso, rit_marker,  r_movie
  end if
  -----
end if

end