; translate file
;
;

translate inpath `shooting`
{
   ; ONLY for the Buffy shooting scripts, as installed on my system.
   ;

   ; change <font face="verdana"> to <tt>, so dialogue is in typewriter style
   ; with who-said-that attribution in bold/underlined.

   when `center`
   {
      setflag c
      done
   }
   
   when `/center`
   {
      clearflag c
      done
   }

   when `font`
   {
      ifflag c
      {
         ifin `verdana`
         {
            replace `tt`
            setflag a
            setflag b
            setopt b
            setopt u
         }
      }
      done
   }
   
   when `br`
   {
      ifflag b
      {
         clearflag b
         unsetopt u
         unsetopt b
      }
      done
   }

   when `/font`
   {
      ifflag a
      {
         replace `/tt`
         clearflag a
      }
      done
   }


   ; if <table>, reset alignment to defeat "<center>" used to wrap the entire
   ; script 'table'.
   unknown `table`
   {
      ifopt c
      {
         ; "unsetopt c" doesn't work as expected, so we'll instead "setopt l".
         setopt l
         clearflag c
      }
      done
   }


   ; and change unknown '<tr>' tag to be '<p>' tag, to space things out a
   ; little bit better...
   unknown `tr`
   {
      ifflag b
      {
         unsetopt u
         unsetopt b
         clearflag b
      }

      replace `p`

      done
   }

   done
}



translate inpath `\`
{
   ; For everything ELSE (would be '.' for RISC OS, no?)

   ; change unknown '<tr>' tag to be '<p>' tag,
   ; to space things out a little bit better...
   unknown `tr`
   {
      replace `p`
      done
   }

   ; change unknown '<td>' tag to be '<br>' tag,
   ; to space things out a little bit better...
   unknown `tr`
   {
      replace `br`
      done
   }

   done
}


