#183883 - 2007-12-18 07:23 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: RemcovC]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
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!
; 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
|
|
|
|
#183887 - 2007-12-18 07:46 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: DrillSergeant]
|
Lonkero
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
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
|
|
|
|
#183890 - 2007-12-18 08:36 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Lonkero]
|
Jochen
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
|
|
|
|
#183895 - 2007-12-18 09:26 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Lonkero
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
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
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
860
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
|
|
|
|
#183899 - 2007-12-18 10:20 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: DrillSergeant]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
can i play too:
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...
|
Top
|
|
|
|
#183902 - 2007-12-18 10:39 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Lonkero]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
1 more:
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...
|
Top
|
|
|
|
#183903 - 2007-12-18 10:58 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Benny69]
|
Lonkero
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
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
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
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
oooh, me can play too
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
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 896 anonymous users online.
|
|
|