home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03126_Script_3126 < prev   
Text File  |  1997-10-14  |  1KB  |  44 lines
  1. on ATT_HILITE dacast, acast, deltaspr, deltacast, nohiuno, nohidue,deltascritta
  2.   global men,attore,menubar
  3.   set elewin to string (the windowlist)
  4.   if offset ("menubar",elewin) > 0 then 
  5.     if the visible of  menubar then exit
  6.   end if
  7.   
  8.   if offset ("popup",elewin) > 0 then 
  9.     if the visible of window "popup" then exit
  10.     end if
  11.     repeat while the mousecast >=dacast and the mousecast <= acast
  12.       set miohilite = the mousecast
  13.       if miohilite >=dacast and miohilite <= acast then
  14.         repeat with mm = dacast to acast
  15.           set the castnum of sprite (mm-deltaspr) to mm
  16.           if not voidp (deltascritta) then
  17.             set the visible of sprite (mm-deltascritta) to false
  18.           end if
  19.           
  20.         end repeat
  21.         set the castnum of sprite (miohilite-deltaspr) to (miohilite+deltacast)
  22.         if not voidp (deltascritta) then
  23.           set the visible of sprite (miohilite-deltascritta) to true
  24.         end if
  25.         
  26.         updatestage
  27.       end if
  28.     end repeat
  29.     
  30.     
  31.     
  32.     if the mousecast = nohiuno or  the mousecast = nohidue then
  33.       
  34.       repeat with mm = dacast to acast
  35.         set the castnum of sprite (mm-deltaspr) to mm
  36.         
  37.         if not voidp (deltascritta) then
  38.           set the visible of sprite (mm-deltascritta) to false
  39.         end if
  40.         
  41.       end repeat  
  42.     end if
  43.     
  44. end