home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00018_Script_18 < prev    next >
Text File  |  1997-10-14  |  2KB  |  56 lines
  1. ON MOSTRAT STILE,FRASE
  2.   global caricato,coddef
  3.   
  4.   if stile="bold,italic" or (stile="italic,bold") then
  5.     set stile to "bold" 
  6.   end if
  7.   
  8.   if stile="underline,italic" or (stile="italic,underline") then
  9.     set stile to "underline"
  10.   end if
  11.   
  12.   
  13.   put "frase pulita ",frase
  14.   put "stile", stile
  15.   if stile = "underline" then
  16.     if not caricato then
  17.       iniziafin
  18.       set caricato to true
  19.     end if  
  20.     set cod to line cerca ("sottolineati",frase) of field "sottolineati.idx"
  21.     if char 1 of cod = "#" then
  22.       delete char 1 of cod
  23.       set coddef to cod
  24.       put "codice = ",cod
  25.       open window "def"
  26.       movetofront window "def"
  27.     end if
  28.   else
  29.     set cod to line cerca ("grassetti",frase) of field "grassetti.idx"
  30.     put cod
  31.     if char 1 of cod = "m" then
  32.       if char 2 of cod = "i" then
  33.         set dest to item 2 of cod
  34.         set cod to item 1 of cod
  35.         if the machinetype = 256 then
  36.           go to movie char 1 of the moviepath&":\invenzio\"&dest&"\"&cod&".dir"
  37.         else
  38.           go to movie "INVENZIONI:INVENZIO:"&dest&":"&cod&".DIR"
  39.         end if
  40.       end if
  41.       if char 2 of cod = "s" then
  42.         global correlati
  43.         set correlati to cod
  44.         cps
  45.       end if
  46.       if char 2 of cod = "p" then 
  47.         if the machinetype = 256 then
  48.           go to movie char 1 of the moviepath&":\invenzio\tori\"&cod&".dir"
  49.         else
  50.           go to movie "INVENZIONI:INVENZIO:TORI:"&cod&".DIR"
  51.         end if
  52.       end if
  53.     end if
  54.   end if
  55.   CURSOR -1
  56. END