#183817 - 2007-12-18 06:35 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Sealeopard]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
Allright, let me be the first to post code, before I hit the shower and go to work, for all the grail seekers and cage rattlers to abuse, improve or else
; begin Taunt Generator
;!
function a($)
dim $_,$c,$d,$e,$f,$g,$h,$j,$k,$l,$n,$q,$r,$t,$z
$t='Taunter: '
$e=Hamster,Coconut,Duck,Herring,Newt,Peril,Chicken,Vole,Parrot,Mouse,Twit
$c=was,personified
$f=conspicuously,categorically,positively,cruelly,incontrovertibly
$g=mother,father,grandmother,grandfather,godfather
for each $n in $
for $=0 to 36
$n=join(split($n,' '))
next
$_=$_+'#Knight: '+$n+#
$=trim($n)
for $j=33 to 64
$=join(split(join(split($,' '+chr($j)),''),chr($j)),'')
next
$j=ubound(split($))/3+1
for $d=1 to 12
$h=instr($,substr('theholygrail',$d,1))
$=right($,-$h)
next
if $h
$_=$_+$t+'(A childish hand gesture).#'
$j=$j-1
endif
while $j>0
$=$r mod 3=1
$j=$j-1-$
$_=$_+$t+iif($,$e[$q mod 11]+'! ','')+
'Your '+iif($,split('steed king first-born')[$l mod 3]+split(' is# masquerades as',#)[$l mod 2],
$g[$k mod 5]+' '+$c[$k mod 2])+' a '+iif($,iif($l mod 2,$f[$z mod 5]+' ','')
+split('silly wicked sordid naughty repulsive malodorous ill-tempered')[$l mod 7]+' ','')
+lcase($e[($q+$) mod 11])+'.#'
$k=($=)+$k
$z=$*$l mod 2+$z
$l=$+$l
$r=1+$r
$q=1+$+$q
$a=split(right($_,~),#)
endfunction
;!
;!
; end Taunt Generator
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 = 2399 MHz
Memory = 2048 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 06:35:35.578
Processing End = 2007/12/18 06:35:35.625
Duration = 0000/00/00 00:00:00.046
KiXGolf Score = 997
Thank you for participating in KiXtart Golf!
_________________________
|
Top
|
|
|
|
#183818 - 2007-12-18 07:10 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
Here's my 960:
; 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!
_________________________
The Code is out there
|
Top
|
|
|
|
#183820 - 2007-12-18 08:10 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
Nevertheless:
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_tg.kix
Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 08:09:01.171
Processing End = 2007/12/18 08:09:01.203
Duration = 0000/00/00 00:00:00.032
KiXGolf Score = 956
Thank you for participating in KiXtart Golf!
Function a($)
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 $
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
_________________________
|
Top
|
|
|
|
#183822 - 2007-12-18 08:37 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
borrowing from mine adding to yours ...
Function a($)
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 $
dim $d
$g = 'theholygrail'
for $ = 0 to 36
$t = join(split($t,' '))
next
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
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_tg.kix
Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 08:35:43.656
Processing End = 2007/12/18 08:35:43.718
Duration = 0000/00/00 00:00:00.062
KiXGolf Score = 947
Thank you for participating in KiXtart Golf!
_________________________
|
Top
|
|
|
|
#183830 - 2007-12-18 11:00 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: DrillSergeant]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
My fuses are safe for another 9 hours then...
Function a($)
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 $
dim $d
$g = 'theholygrail'
for $ = 0 to 36
$t = join(split($t,' '))
next
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=)
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
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_tg.kix
Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 10:56:28.000
Processing End = 2007/12/18 10:56:28.062
Duration = 0000/00/00 00:00:00.061
KiXGolf Score = 946
Thank you for participating in KiXtart Golf!
_________________________
|
Top
|
|
|
|
#183832 - 2007-12-18 11:17 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
On the phone he told me one of his dirty tricks:
Change:
$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'
To:
$c= '1{5! 1{1', 'Your 4ther 7 a 2{Your 3 6 a 2{Your 4ther 7 a 5', '5{8 5{5{9ly 8 5', 'steed{king{first-born', 'mo{fa{grandmo{grandfa{godfa', 'Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit', 'is{masquerades as', 'was{personified', 'silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered', 'conspicuous{categorical{positive{cruel{incontrovertib'
I'm not officially posting it because I didn't come up with it, but you can see he really has the mind of a madman
_________________________
The Code is out there
|
Top
|
|
|
|
#183836 - 2007-12-18 11:39 AM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
If only I thought of that again, my private code should have been this:
function a($)
dim $_,$c,$d,$e,$f,$g,$h,$j,$k,$l,$n,$q,$r,$t,$z
$t='Taunter: '
$e=Hamster,Coconut,Duck,Herring,Newt,Peril,Chicken,Vole,Parrot,Mouse,Twit
$c=was,personified
$f=conspicuously,categorically,positively,cruelly,incontrovertibly
$g=mo,fa,grandmo,grandfa,godfa
for each $n in $
for $=0 to 36
$n=join(split($n,' '))
next
$_=$_+'#Knight: '+$n+#
$=trim($n)
for $j=33 to 64
$=join(split(join(split($,' '+chr($j)),''),chr($j)),'')
next
$j=ubound(split($))/3+1
for $d=1 to 12
$h=instr($,substr('theholygrail',$d,1))
$=right($,-$h)
next
if $h
$_=$_+$t+'(A childish hand gesture).#'
$j=$j-1
endif
while $j>0
$=$r mod 3=1
$j=$j-1-$
$_=$_+$t+iif($,$e[$q mod 11]+'! ','')+
'Your '+iif($,split('steed king first-born')[$l mod 3]+split(' is# masquerades as',#)[$l mod 2],
$g[$k mod 5]+'ther '+$c[$k mod 2])+' a '+iif($,iif($l mod 2,$f[$z mod 5]+' ','')
+split('silly wicked sordid naughty repulsive malodorous ill-tempered')[$l mod 7]+' ','')
+lcase($e[($q+$) mod 11])+'.#'
$k=($=)+$k
$z=$*$l mod 2+$z
$l=$+$l
$r=1+$r
$q=1+$+$q
$a=split(right($_,~),#)
endfunction
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_tg.kix
Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 11:36:24.937
Processing End = 2007/12/18 11:36:25.000
Duration = 0000/00/00 00:00:00.063
KiXGolf Score = 981
Thank you for participating in KiXtart Golf!
Still this would have changed nothing in the standings...
_________________________
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
1 registered
(Allen)
and 566 anonymous users online.
|
|
|