home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / index.dir / 00089_Script_89 < prev    next >
Text File  |  1997-10-15  |  419b  |  13 lines
  1. on blocca
  2.   global percorso
  3.   TPS
  4.   if count(percorso) > 0 then
  5.     if getlast (percorso) <>  ("#"&the moviepath&the moviename) or getPropAt(percorso, count(percorso)) <> marker(0) then
  6.       set r_movie to "#"&the moviepath&the moviename
  7.       addprop percorso, marker(0),  r_movie
  8.     end if
  9.   else
  10.     set r_movie to "#"&the moviepath&the moviename
  11.     addprop percorso, marker(0),  r_movie
  12.   end if
  13. end