home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / guida.dir / 00079_Script_79 < prev    next >
Text File  |  1997-10-07  |  2KB  |  63 lines
  1. on ritorna
  2.   
  3.   global percorso,r_movie,funzioni
  4.   set funzioni to ""
  5.   
  6.   if count (percorso) > 1 then
  7.     PUT "PRIMA", PERCORSO
  8.     blocca
  9.     PUT "DOPO",PERCORSO
  10.     deleteat (percorso,count(percorso))
  11.     set r_movie = getlast (percorso)
  12.     set r_marker = getPropAt(percorso, count(percorso)) 
  13.     delete char 1 of r_movie
  14.     --  put percorso
  15.     
  16.     if r_movie = the moviepath & the moviename then
  17.       deleteat (percorso,count(percorso))
  18.       repeat with a = 1 to 48
  19.         if a <> 47 then
  20.           puppetsprite a,false
  21.           set the visible of sprite a to true
  22.         end if
  23.       end repeat
  24.       
  25.       -----------PER TORNARE AL VIAGGIO
  26.       set mn to the moviename   
  27.       if r_marker = 1 and (offset("mi",mn) or offset ("mp",mn)) then
  28.         set r_marker to "viaggio"
  29.       end if
  30.       -----------
  31.       go to frame r_marker
  32.       exit
  33.     else
  34.       deleteat (percorso,count(percorso))
  35.       if the colorDepth<=8 then viff 1,48
  36.       puppetsprite 47,false
  37.       set the visible of sprite 47 to false
  38.       toglimenubar
  39.       updatestage
  40.       
  41.       -------NON SPEGNE SE ANDIAMO A DELLE INVENZIONI
  42.       set m_n to the moviename
  43.       if offset ("navig",m_n) or offset ("menu",m_n) or offset ("extra",m_n) or offset ("navig",r_movie) or offset ("menu",r_movie) or offset ("extra",r_movie) then
  44.         if the colorDepth<=8 then viff 1,48
  45.       end if
  46.       -------------
  47.       
  48.       -----------PER TORNARE AL VIAGGIO
  49.       if r_marker = 1 and (offset("mi",r_movie) or offset ("mp",r_movie)) then
  50.         set r_marker to "viaggio"
  51.       end if
  52.       -----------      
  53.       go to frame r_marker of movie r_movie
  54.       exit 
  55.     end if    
  56.   else
  57.     set r_movie = getlast (percorso)
  58.     set r_marker = getPropAt(percorso, count(percorso)) 
  59.     delete char 1 of r_movie
  60.     go to frame r_marker of movie r_movie
  61.     
  62.   end if
  63. end