home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / CREDITS.DIR / 00076_Script_76 < prev    next >
Text File  |  1997-09-27  |  2KB  |  53 lines
  1. on cambiamovie dovevado,chemarker,rit, argomento
  2.   global pippo
  3.   if voidp(argomento) then
  4.     set argomento to "atmosfer"
  5.   end if
  6.   
  7.   if rit = "true" then
  8.     set per to dovevado
  9.   else
  10.     blocca
  11.     -----------------------------------
  12.     set quanti to the number of chars in dovevado
  13.     if quanti > 8 then
  14.       set destinazione to char 1 to 8 of dovevado
  15.     else
  16.       set destinazione to dovevado
  17.     end if
  18.     -----------------------------------
  19.     if dovevado = "articolo" or dovevado = "record" then
  20.       if the machineType > 255 then
  21.         set per to char 1 to 3 of  the moviepath
  22.         set per to per & "scienze\"&argomento&"\"& destinazione & "\" & destinazione & ".dir"
  23.       else
  24.         set per to "scienze:scienze:"&argomento&":"&destinazione &":" & destinazione &".dir"
  25.       end if
  26.     else  
  27.       if the machineType > 255 then
  28.         set per to char 1 to 3 of  the moviepath
  29.         set per to per & "scienze\"&argomento&"\"& destinazione & ".dir"
  30.       else
  31.         set per to "scienze:scienze:"&argomento&":"& destinazione &".dir"
  32.       end if
  33.     end if    
  34.     ----------------------------------------
  35.   end if
  36.   
  37.   if dovevado = argomento  then
  38.     if the machineType > 255 then
  39.       set per to char 1 to 3 of  the moviepath
  40.       set per to per & "scienze\"&argomento&"\"& destinazione & "\" & destinazione & ".dir"
  41.     else
  42.       set per to "scienze:scienze:"&argomento&":"&destinazione &":" & destinazione &".dir"
  43.     end if
  44.   end if
  45.   
  46.   if voidp (chemarker) or chemarker = "" or chemarker = " " then
  47.     go to FRAME "menu" OF MOVIE per
  48.   else
  49.     go to FRAME chemarker  OF MOVIE per
  50.   end if
  51.   
  52. end cambiamovie
  53.