home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03049_Script_3049 < prev    next >
Text File  |  1997-09-15  |  1KB  |  38 lines
  1. --on ATT_HILITE dacast, acast, deltaspr, deltacast, nohiuno, nohidue,deltascritta
  2. --  global men,attore
  3. --  if objectp(men) then exit
  4. --  if objectp(attore) then exit  
  5. --  repeat while the mousecast >=dacast and the mousecast <= acast
  6. --    set miohilite = the mousecast
  7. --    if miohilite >=dacast and miohilite <= acast then
  8. --      repeat with mm = dacast to acast
  9. --        set the castnum of sprite (mm-deltaspr) to mm
  10. --        if not voidp (deltascritta) then
  11. --          set the visible of sprite (mm-deltascritta) to false
  12. --        end if
  13. --        
  14. --      end repeat
  15. --      set the castnum of sprite (miohilite-deltaspr) to (miohilite+deltacast)
  16. --      if not voidp (deltascritta) then
  17. --        set the visible of sprite (miohilite-deltascritta) to true
  18. --      end if
  19. --      
  20. --      updatestage
  21. --    end if
  22. --  end repeat
  23. --  
  24. --  
  25. --  
  26. --  if the mousecast = nohiuno or  the mousecast = nohidue then
  27. --    
  28. --    repeat with mm = dacast to acast
  29. --      set the castnum of sprite (mm-deltaspr) to mm
  30. --      
  31. --      if not voidp (deltascritta) then
  32. --        set the visible of sprite (mm-deltascritta) to false
  33. --      end if
  34. --      
  35. --    end repeat  
  36. --  end if
  37. --  
  38. --end