; Begin Taunt Generator
;
;!
Function a($b)

dim $c, $, $t, $s[9], $g, $w, $h

$c= '1{5! 1{1', 'Your 4 7 a 2{Your 3 6 a 2{Your 4 7 a 5', '5{8 5{5{9 8 5', 'steed{king{first-born',
	'mother{father{grandmother{grandfather{godfather', 'Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit',
	'is{masquerades as', 'was{personified', 'silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered',
	'conspicuously{categorically{positively{cruelly{incontrovertibly'

For each $t in $b

	dim $d
	$g = 'theholygrail'

	while instr($t,'  ')
		$t = join(split($t,'  '))
	Loop

	For each $ in split($t)
		$w=0
		While $
			$w = $w+($>'@')
			$g = substr($g,(left($,1) = left($g,1))+1)
			$  = right($, ~)
		loop
		$d = $d + ($w>)
	Next

	$a = $a + '}Knight: ' + $t + iif($g,},'}Taunter: (A childish hand gesture).}')
	$d = $d - 3*($g=0)

	While $d>0
		$w = 0
		for $ = 0 to 9
			while instr($w, $)
				$d = $d - 3*($=5)
				$g = instr($w, $)
				$t = split($c[$],{)
				$h = $t[$s[$]]
				if $=5 & $g>1 $h=lcase($h) endif
				$w = left($w, $g-1) + $h + right($w, -$g)
				$s[$] = ($s[$]+1) mod (ubound($t)+1)
			Loop
		next
		$a = $a + 'Taunter: ' + $w + '.}'
	loop
Next
$a = split(right($a,~),})

EndFunction
;!
;!
; End Taunt Generator




Your solution passed all tests

KiXtart
KiXtart Version  = 4.60
KiXGolf Script   = kixgolf_tg.KIX

Computer
OS               = Windows Vista Business Edition
CPU              = Intel Pentium Model 15
Speed            = 2194 MHz
Memory           = 2038 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Taunt Generator
Processing Start = 2007/12/18 07:09:41.680
Processing End   = 2007/12/18 07:09:42.285
Duration         = 0000/00/00 00:00:00.604
KiXGolf Score    = 960
 
Thank you for participating in KiXtart Golf!