1 more:

 Code:
Function a($)
	Dim $z,$t,$!,$d,$v,$w,$x
	For Each $ in $
		For $t = -9 to 1
			$=Join(Split($,"  "))
		Next
		$x=$x+#Knight:\+$+#
		For Each $v in Split($)
			$a=0
			$z=1
			For $w=1 to 72
				$z=$z+(SubStr($,$w,1)=SubStr(theholygrail,$z,1))
				$a=$a | SubStr($v,$w)>'@'
			Next
			$t=$t+$a	
		Next
		$ = Split("conspicuous categorical positive cruel incontrovertib steed king first-born mo fa grandmo grandfa godfa Hamster Coconut Duck Herring Newt Peril Chicken Vole Parrot Mouse Twit silly wicked sordid naughty repulsive malodorous ill-tempered")
		For $v=1 to $t/3
			If $v=1&$z>12
				$z="(A childish hand gesture).#"
			Else
				$d=$d+1
				If $d mod 3=2
					$z=$[$! mod 11+13]+!\Your\+$[$!/4 mod 3+5]+IIf($!/4 mod 2,\masquerades\as\a\+$[$!/8 mod 5]+ly\,\is\a\)+$[$!/4 mod 7+24]
					$!=$!+1
					$v=$v+1
				Else
					$z=Your\+$[$!/2 mod 5+8]+ther\+IIf($d mod 3,was,personified)+\a
 				EndIf
				$z=$z+\+LCase($[$! mod 11+13])+".#"
				$!=$!+1
			EndIf
			$x=$x+Taunter:\+$z
			$a=Split(Right(Join(Split($x,\)),~),#)
EndFunction


Your solution passed all tests

KiXtart
KiXtart Version = 4.60
KiXGolf Script = kixgolf_tg.kix

Computer
OS = Windows Vista Ultimate Edition
CPU = Intel(R) Pentium(R) D CPU 2.80GHz
Speed = 2792 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 15:39:18.411
Processing End = 2007/12/18 15:39:18.910
Duration = 0000/00/00 00:00:00.499
KiXGolf Score = 854

Thank you for participating in KiXtart Golf!
Press any key to continue...
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)