Page 4 of 8 « First<23456>Last »
Topic Options
#183882 - 2007-12-18 07:10 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
 Originally Posted By: Lonkero
heh...


\:D
_________________________
It's better to have scripted and died, then to never have scripted at all

Top
#183883 - 2007-12-18 07:23 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: RemcovC]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands

 Code:

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 19:22:29.170
Processing End   = 2007/12/18 19:22:29.436
Duration         = 0000/00/00 00:00:00.266
KiXGolf Score    = 871
 
Thank you for participating in KiXtart Golf!


 Code:
; begin Taunt Generator
;
;!
Function a($b)
	Dim $z,$c,$t,$,$d,$v,$w
	For Each $c in $b
		For $t=-30 To 1
			$c=Join(Split($c,"  "))
		Next
		$a=$a+"#Knight: "+$c+#
		For Each $v in Split($c)
			$b=0
			$z=1
			For $w=1 To 72
				$z=$z+(Substr($c,$w,1)=Substr(theholygrail,$z,1))
				$b=$b | Substr($v,$w)>'@'
			Next
			$t=$t+$b		
		Next
		$b = 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=$b[$ mod 11+13]+"! Your "+$b[$/4 mod 3+5]+Iif($/4 mod 2," masquerades as a "+$b[$/8 mod 5]+"ly "," is a ")+$b[$/4 mod 7+24]
					$=$+1
					$v=$v+1
				Else
					$z="Your "+$b[$/2 mod 5+8]+"ther "+Iif($d mod 3,was,personified)+" a"
 				EndIf
				$z=$z+" "+LCase($b[$ mod 11+13])+".#"
				$=$+1
			EndIf
			$a=$a+"Taunter: "+$z
		Next
	Next
	$a=Split(Right($a,~),#)
EndFunction
;!
;!
; end Taunt Generator
_________________________
The Code is out there

Top
#183884 - 2007-12-18 07:28 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
uhm...

went through the whole code to see what drillie boy changed...
_________________________
!

download KiXnet

Top
#183885 - 2007-12-18 07:35 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
he change the place i added the # to the string
(line 10, 38 and 40)
_________________________
It's better to have scripted and died, then to never have scripted at all

Top
#183886 - 2007-12-18 07:41 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: RemcovC]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
sorry, I was pressed for time when I posted (my wife called for dinner ;)) but yeah, I did what remco said. Something I also came across in my own code during private round
_________________________
The Code is out there

Top
#183887 - 2007-12-18 07:46 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK

Your solution passed all tests

KiXtart
KiXtart Version = 4.60 Beta 1
KiXGolf Script = kixgolf_tg.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 798 MHz
Memory = 1014 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 20:46:28.462
Processing End = 2007/12/18 20:46:28.853
Duration = 0000/00/00 00:00:00.391
KiXGolf Score = 866

 Code:
Function a($b)
	Dim $z,$c,$t,$,$d,$v,$w,$x
	For Each $c in $b
		For $t=-30 To 1
			$c=Join(Split($c,"  "))
		Next
		$x=$x+"#Knight: "+$c+#
		For Each $v in Split($c)
			$b=0
			$z=1
			For $w=1 To 72
				$z=$z+(Substr($c,$w,1)=Substr(theholygrail,$z,1))
				$b=$b | Substr($v,$w)>'@'
			Next
			$t=$t+$b		
		Next
		$b = 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=$b[$ mod 11+13]+"! Your "+$b[$/4 mod 3+5]+Iif($/4 mod 2," masquerades as a "+$b[$/8 mod 5]+"ly "," is a ")+$b[$/4 mod 7+24]
					$=$+1
					$v=$v+1
				Else
					$z="Your "+$b[$/2 mod 5+8]+"ther "+Iif($d mod 3,was,personified)+" a"
 				EndIf
				$z=$z+" "+LCase($b[$ mod 11+13])+".#"
				$=$+1
			EndIf
			$x=$x+"Taunter: "+$z
			$a=Split(Right($x,~),#)
EndFunction
_________________________
!

download KiXnet

Top
#183888 - 2007-12-18 07:47 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
ja, I found the place, just took me line by line reading and had to read the whole code before got it :p
I'm not a faster reader, so it took quite a while.
_________________________
!

download KiXnet

Top
#183890 - 2007-12-18 08:36 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany


Your solution passed all tests

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_tg.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 15
Speed            = 2400 MHz
Memory           = 2048 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Taunt Generator
Processing Start = 2007/12/18 20:34:09.673
Processing End   = 2007/12/18 20:34:09.814
Duration         = 0000/00/00 00:00:00.141
KiXGolf Score    = 865

Thank you for participating in KiXtart Golf!



function a($)
	dim $z,$c,$t,$!,$d,$v,$w,$x
	for each $c in $
		for $t=-30 To 1
			$c=join(split($c,"  "))
		next
		$x=$x+"#Knight: "+$c+#
		for each $v in split($c)
			$=0
			$z=1
			for $w=1 to 72
				$z=$z+(substr($c,$w,1)=substr(theholygrail,$z,1))
				$=$ | substr($v,$w)>'@'
			next
			$t=$t+$		
		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($x,~),#)
endfunction

_________________________



Top
#183892 - 2007-12-18 08:45 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
for $t=-30 to 1

Respect!!!
_________________________



Top
#183895 - 2007-12-18 09:26 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
done.

Your solution passed all tests

KiXtart
KiXtart Version = 4.60 Beta 1
KiXGolf Script = kixgolf_tg.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 798 MHz
Memory = 1014 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 22:26:40.981
Processing End = 2007/12/18 22:26:41.356
Duration = 0000/00/00 00:00:00.375
KiXGolf Score = 863

 Code:
function a($)
	dim $z,$c,$t,$!,$d,$v,$w,$x
	for each $ in $
		for $t=-30 To 1
			$=join(split($,"  "))
		next
		$x=$x+"#Knight: "+$+#
		for each $v in split($)
			$c=0
			$z=1
			for $w=1 to 72
				$z=$z+(substr($,$w,1)=substr(theholygrail,$z,1))
				$c=$c | substr($v,$w)>'@'
			next
			$t=$t+$c		
		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($x,~),#)
endfunction
_________________________
!

download KiXnet

Top
#183896 - 2007-12-18 09:27 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
860

 Code:
function a($)
	dim $z,$t,$!,$d,$v,$w,$x
	for each $ in $
		for $t=-30 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($x,~),#)
endfunction
_________________________
!

download KiXnet

Top
#183897 - 2007-12-18 09:59 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Nice !

I haven't inspected this section of $-ability \:\)
_________________________



Top
#183898 - 2007-12-18 10:09 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
I was on the phone with Remco at the end of the private round and he said he couldn't believe that his 886 would get any shorter...

Desillusioned Remco? \:D
_________________________
The Code is out there

Top
#183899 - 2007-12-18 10:20 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
can i play too:

 Code:
Function a($)
	Dim $z,$t,$!,$d,$v,$w,$x
	For Each $ in $
		For $t=-30 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:19:09.338
Processing End = 2007/12/18 15:19:09.837
Duration = 0000/00/00 00:00:00.498
KiXGolf Score = 855

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)

Top
#183900 - 2007-12-18 10:37 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Benny69]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
slashing 5 strokes? That's not playing, that's bullying

_________________________
The Code is out there

Top
#183901 - 2007-12-18 10:37 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Benny69]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
jihaa, you did what I wanted to do earlier but wasn't able to get my head around it.
_________________________
!

download KiXnet

Top
#183902 - 2007-12-18 10:39 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
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)

Top
#183903 - 2007-12-18 10:58 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Benny69]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
hmm...
I thought the 32 was needed there?

if it is, here is my 852
 Code:
Function a($)
	Dim $z,$t,$!,$d,$v,$w,$x
	For Each $ in $
		For $t=-30 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
		For $v=1 to $t/3
			$ = 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")
			If $v=1&$z>12
				$="(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+\+LCase($[$! mod 11+13])+".#"
				$!=$!+1
			EndIf
			$x=$x+Taunter:\+$
			$a=Split(Right(Join(Split($x,\)),~),#)
EndFunction


and, if it's not needed, here is my 851
 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
		For $v=1 to $t/3
			$ = 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")
			If $v=1&$z>12
				$="(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+\+LCase($[$! mod 11+13])+".#"
				$!=$!+1
			EndIf
			$x=$x+Taunter:\+$
			$a=Split(Right(Join(Split($x,\)),~),#)
EndFunction
_________________________
!

download KiXnet

Top
#183905 - 2007-12-18 11:03 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Benny69]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
oooh, me can play too \:D

 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
		For $v=1 to $t/3
			$ = 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")
			If $v=1&$z>12
				$="(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+\+LCase($[$! mod 11+13])
				$!=$!+1
			EndIf
			$x=$x+Taunter:\+$+".#"
			$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 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 23:02:15.013
Processing End = 2007/12/18 23:02:15.271
Duration = 0000/00/00 00:00:00.257
KiXGolf Score = 849

Thank you for participating in KiXtart Golf!


Edited by DrillSergeant (2007-12-18 11:06 PM)
_________________________
The Code is out there

Top
#183907 - 2007-12-18 11:56 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
hmm...
wonder...
was looking at what this produces:
$a=$a | SubStr($v,$w)>'@'

some hits don't make any sense:
here a: there there
here a: else else
here a: see see

what have I missed?
that match is for asc() over 64, right?
so how can it match these words?
_________________________
!

download KiXnet

Top
Page 4 of 8 « First<23456>Last »


Moderator:  Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
1 registered (Allen) and 382 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.074 seconds in which 0.025 seconds were spent on a total of 14 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org