; begin Taunt Generator
;
;!
function a($)
    dim $b,$c,$d,$e,$g
    for each $b in $
        $c=2
        $=theholygrail
        for each $a in split($b)
            dim $f
            while $a
                $f=$f|$a>'@'
                $=substr($,1+(left($a,1)=left($,1)))
                $a=right($a,~)
            loop
            $c=$c+$f
            $b=join(split($b,'  '))
        Next
        $g=$g+#Knight:\+$b+#
        for $b=1 to $c/3
            if $
                $c=Hamster,Coconut,Duck,Herring,Newt,Peril,Chicken,Vole,Parrot,Mouse,Twit
                $=conspicuous,categorical,positive,cruel,incontrovertib,steed,king,'first-born',mo,fa,grandmo,
                  grandfa,godfa,silly,wicked,sordid,naughty,repulsive,malodorous,'ill-tempered'
                $d=$d+1

                $a = Your\+$[$e/2 mod 5+8]+ther\+iif($d mod 3,was,personified)+\a
				
                if $d mod 3=2
                    $a=$c[$e mod 11]+!\Your\+$[$e/4 mod 3+5]+iif($e/4 mod 2,\masquerades\as\a\+$[$e/8 mod 5]+ly\,\is\a\)+$[$e/4 mod 7+13]
                    $e=$e+1
                    $b=$b+1
                endif
                $=$a+\+lcase($c[$e mod 11])
                $e=$e+1
            else
                $='(A childish hand gesture)'
            endif
            $g=$g+Taunter:\+$+'.#'
            $a=split(right(join(split($g,\)),~),#)
endfunction

;!
;!
; end Taunt Generator

Function a($)
    dim $b,$c,$d,$e,$g
    for each $b in $
        $c=2
        $=theholygrail
        for each $a in split($b)
            dim $f
            while $a
                $f=$f|$a>'@'
                $=substr($,1+(left($a,1)=left($,1)))
                $a=right($a,~)
            loop
            $c=$c+$f
            $b=join(split($b,'  '))
        Next
        $g=$g+#Knight:\+$b+#
        for $b=1 to $c/3
            if $
                $c=Hamster,Coconut,Duck,Herring,Newt,Peril,Chicken,Vole,Parrot,Mouse,Twit
                $=conspicuous,categorical,positive,cruel,incontrovertib,steed,king,'first-born',mo,fa,grandmo,
                  grandfa,godfa,silly,wicked,sordid,naughty,repulsive,malodorous,'ill-tempered'
                $d=$d+1
				$a=Your\+$[$e/2 mod 5+8]+ther\+iif($d,was,personified)+\a
                if $d=2
                    $a=$c[$e mod 11]+!\Your\+$[$e/4 mod 3+5]+iif($e/4 mod 2,\masquerades\as\a\+$[$e/8 mod 5]+ly\,\is\a\)+$[$e/4 mod 7+13]
                    $e=$e+1
                    $b=$b+1
					$d=-1
                endif
                $=$a+\+lcase($c[$e mod 11])
                $e=$e+1
            else
                $='(A childish hand gesture)'
            endif
            $g=$g+Taunter:\+$+'.#'
            $a=split(right(join(split($g,\)),~),#)
EndFunction