home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / guida.dir / 00890_Script_890 < prev    next >
Text File  |  1997-10-07  |  922b  |  36 lines
  1. on blocca
  2.   global percorso
  3.   set marco to marker(0)
  4.   if marco = 2 then set marco to 1
  5.   if count(percorso) > 0 then
  6.     if getlast (percorso) <>  ("#"&the moviepath&the moviename) or getPropAt(percorso, count(percorso)) <> MARCO then
  7.       set r_movie to "#"&the moviepath&the moviename
  8.       addprop percorso, marco,  r_movie
  9.       
  10.     end if
  11.   else
  12.     set r_movie to "#"&the moviepath&the moviename
  13.     addprop percorso, marco,  r_movie
  14.     
  15.   end if
  16. end 
  17.  
  18.  
  19. on blocca1
  20.   global percorso
  21.   set marco to 1
  22.  
  23.   if count(percorso) > 0 then
  24.     if getlast (percorso) <>  ("#"&the moviepath&the moviename) or getPropAt(percorso, count(percorso)) <> MARCO then
  25.       set r_movie to "#"&the moviepath&the moviename
  26.       addprop percorso, marco,  r_movie
  27.       
  28.     end if
  29.   else
  30.     set r_movie to "#"&the moviepath&the moviename
  31.     addprop percorso, marco,  r_movie
  32.     
  33.   end if
  34. end 
  35.  
  36.