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