home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / CREDITS.DIR / 00075_Script_75 < prev    next >
Text File  |  1997-09-27  |  678b  |  25 lines
  1. on ritorna
  2.   global percorso,r_movie
  3.   if count (percorso) > 1 then
  4.     blocca
  5.     deleteat (percorso,count(percorso))
  6.     set r_movie = getlast (percorso)
  7.     set r_marker = getPropAt(percorso, count(percorso)) 
  8.     delete char 1 of r_movie
  9.     --  put percorso
  10.     
  11.     if r_movie = the moviepath & the moviename then
  12.       deleteat (percorso,count(percorso))
  13.       repeat with a = 1 to 48
  14.         puppetsprite a,false
  15.         set the visible of sprite a to true
  16.       end repeat
  17.       go to frame r_marker
  18.       exit
  19.     else
  20.       deleteat (percorso,count(percorso))
  21.       cambiamovie r_movie, r_marker, "true"
  22.       exit 
  23.     end if    
  24.   end if
  25. end