home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03121_Script_3121 < prev    next >
Text File  |  1997-10-14  |  3KB  |  91 lines
  1. on at_hil dacast,quanti,primocan
  2.   global pallina,audio,dove,men,olddove,audio_barrato,canale_quicktime,pallina_aperta,pallina_chiusa,MENUBAR,attore
  3.   
  4.   
  5.     if the mousecast >= dacast and the mousecast <=dacast + quanti-1 then
  6.       set attore to the mousecast
  7.       if attore >=dacast and attore <= dacast + quanti-1 then
  8.         repeat with num = 1 to quanti
  9.           if dove <> num then
  10.             set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  11.           end if       
  12.         end repeat
  13.         set the castnum of sprite primocan-1 to pallina
  14.         set the castnum of sprite primocan-2  to audio
  15.         set the castnum of sprite (attore-dacast +primocan) to (attore + quanti)
  16.       end if
  17.     end if 
  18.     
  19.     if the mousecast < dacast or the mousecast > pallina_chiusa + 1  then
  20.       repeat with num = 1 to quanti
  21.         if dove <> num then
  22.           set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  23.         end if        
  24.       end repeat
  25.       set the castnum of sprite primocan-1 to pallina
  26.       
  27.       set the castnum of sprite primocan-2  to audio  
  28.     end if
  29.     
  30.     if the mousecast = pallina then
  31.       repeat with num = 1 to quanti
  32.         set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  33.       end repeat
  34.       if pallina_aperta <> pallina_chiusa then
  35.         set the castnum of sprite primocan-1 to pallina +1
  36.       end if
  37.       
  38.       set the castnum of sprite primocan-2  to audio
  39.     end if
  40.     
  41.     set y to the castnum of sprite canale_quicktime
  42.     
  43.     if y>0 then 
  44.       set vv to the casttype of cast y
  45.       
  46.       if vv=#digitalvideo then
  47.         
  48.         set val_vv to the movierate of sprite canale_quicktime
  49.         
  50.       else
  51.         set val_vv to 0
  52.       end if
  53.       
  54.     else
  55.       set val_vv to 0
  56.     end if
  57.     
  58.     
  59.     
  60.     if the mousecast = audio AND val_vv = 0  then
  61.       put "rr"
  62.       repeat with num = 1 to quanti
  63.         set the castnum of sprite (primocan+num -1) to (dacast + num -1)
  64.       end repeat
  65.       
  66.       set the castnum of sprite primocan-1 to pallina
  67.       global anim_loco
  68.       set  elewin to string(the windowlist)
  69.       -- if anim_loco = false and    offset("popup",elewin)=0 then
  70.       
  71.       if anim_loco = false and  offset("popup",elewin)=0  then
  72.         set the castnum of sprite primocan-2  to audio + 1
  73.       else
  74.         if anim_loco = false and offset("popup",elewin)>0  then
  75.           if the visible of window "popup" =  0 then
  76.             set the castnum of sprite primocan-2  to audio + 1
  77.           end if
  78.         end if
  79.       end if
  80.     end if
  81.     
  82.     if dove > 0 then
  83.       set the castnum of sprite (primocan + dove-1) to (dacast + quanti+ dove -1)
  84.     end if
  85.     if olddove>0 then 
  86.       set the castnum of sprite (primocan + olddove-1) to (dacast + quanti+ olddove -1)
  87.     end if
  88.     
  89.     
  90. end
  91.