home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00012_Script_12 < prev    next >
Text File  |  1997-10-14  |  1KB  |  36 lines
  1. on HILITE  _inizio,_fine,_sprite, _cast_name
  2.   
  3.   global attore,men,menubar
  4.   set elewin to string (the windowlist)
  5.   if offset ("popup",elewin) > 0 then 
  6.     if the visible of window "popup" then exit
  7.   end if
  8.   if offset ("menubar",elewin) > 0 then 
  9.     if the visible of  menubar then exit
  10.   end if
  11.   
  12.   if not voidp (_cast_name) then
  13.     set _cast_hilite to _cast_name
  14.   else
  15.     set _cast_hilite to "Ms000"
  16.   end if
  17.   
  18.   set   _num to _fine-_inizio
  19.   set   _libero to true
  20.   repeat while _num>=0
  21.     if rollOver(_num+_sprite) and _libero then
  22.       set the member of sprite (_num+_sprite) to member (_fine+_num+1) of castLib _cast_hilite
  23.       set  _libero to false
  24.     else
  25.       set the member of sprite (_num+_sprite) to member (_inizio+_num) of castLib _cast_hilite
  26.     end if      
  27.     set  _num to _num-1
  28.   end repeat
  29. end
  30.  
  31. --  Spiegazione della procedura HILITE
  32. --  _inizio: primo membro (immagine)
  33. --  _fine: ultimo membro (immagine)
  34. --  _sprite: posizione nello score del primo membro
  35. --  _cast_name: cast che contiene gli hilite (di default e'  "Ms000" )
  36.