Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Tori/Mp011.dir/00066_Script_66

Text File | 1997-09-09 | 1KB | 34 lines

 on hi_nav dacast, acast, deltaspr, deltacast, nohiuno, nohidue,deltascritta

  repeat while the mousecast >=dacast and the mousecast <= acast
    set miohilite = the mousecast
    if miohilite >=dacast and miohilite <= acast then
      repeat with mm = dacast to acast
        set the castnum of sprite (mm-deltaspr) to mm
        if not voidp (deltascritta) then
          set the visible of sprite (mm-deltascritta) to false
        end if

      end repeat
      set the castnum of sprite (miohilite-deltaspr) to (miohilite+deltacast)
      if not voidp (deltascritta) then
        set the visible of sprite (miohilite-deltascritta) to true
      end if

      updatestage
    end if
  end repeat



  if the mousecast = nohiuno or  the mousecast = nohidue then
    repeat with mm = dacast to acast
      set the castnum of sprite (mm-deltaspr) to mm
      if not voidp (deltascritta) then
        set the visible of sprite (mm-deltascritta) to false
      end if

    end repeat
  end if

end