#183867 - 2007-12-18 03:32 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
what you guys been doing the whole time?
function a($)
dim $!, $t, $s[9], $g, $w, $h
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
$! = $! + '}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(split('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',})[$],{)
$h = $t[$s[$]]
$w = left($w, $g-1) + iif($=5 & $g>1,lcase($h),$h) + right($w, -$g)
$s[$] = ($s[$]+1) mod (ubound($t)+1)
loop
next
$! = $! + 'Taunter: ' + $w + '.}'
$a = split(right($!,~),})
endfunction
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 16:32:33.648 Processing End = 2007/12/18 16:32:33.883 Duration = 0000/00/00 00:00:00.235 KiXGolf Score = 899
_________________________
!download KiXnet
|
Top
|
|
|
|
#183874 - 2007-12-18 06:24 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Lonkero]
|
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 19:24:02.360 Processing End = 2007/12/18 19:24:02.641 Duration = 0000/00/00 00:00:00.281 KiXGolf Score = 896
function a($)
dim $!, $t, $g, $w, $s[9]
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
$! = $! + '}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(split('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',})[$],{)
$a = $t[$s[$]]
$w = left($w, $g-1) + iif($=5 & $g>1,lcase($a),$a) + right($w, -$g)
$s[$] = ($s[$]+1) mod (ubound($t)+1)
loop
next
$! = $! + 'Taunter: ' + $w + '.}'
$a = split(right($!,~),})
endfunction
_________________________
!download KiXnet
|
Top
|
|
|
|
#183875 - 2007-12-18 06:35 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Lonkero]
|
RemcovC
Starting to like KiXtart
Registered: 2006-09-13
Posts: 174
Loc: Holland
|
Ok let the brainfusing begin:
Here my 886 Your solution passed all tests
KiXtart
KiXtart Version = 4.60
KiXGolf Script = kixgolf_tg.kix
Computer
OS = Windows Vista Ultimate Edition
CPU = Intel Pentium Model 15
Speed = 1662 MHz
Memory = 1014 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 18:34:02.046
Processing End = 2007/12/18 18:34:02.374
Duration = 0000/00/00 00:00:00.327
KiXGolf Score = 886 Function a($b)
Dim $z,$y,$c,$t,$,$d,$v,$w
For Each $c in $b
For $t=0 To 1
$c=Join(Split($c," "))
Next
$a=$a+"Knight: "+$c+#
For Each $v in Split($c)
$y=0
$z=1
For $w=1 To 72
$z=$z+(Substr($c,$w,1)=Substr(theholygrail,$z,1))
If Asc(Substr($v,$w))>64
$y=1
EndIf
Next
$t=$t+$y
Next
$y = 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=$y[$ mod 11+13]+"! Your "+$y[$/4 mod 3+5]+Iif($/4 mod 2," masquerades as a "+$y[$/8 mod 5]+"ly "," is a ")+$y[$/4 mod 7+24]
$=$+1
$v=$v+1
Else
$z="Your "+$y[$/2 mod 5+8]+"ther "+Iif($d mod 3,was,personified)+" a"
EndIf
$z=$z+" "+LCase($y[$ mod 11+13])+".#"
$=$+1
EndIf
$a=$a+"Taunter: "+$z
Next
$a=$a+#
Next
$a=Split(Left($a,~),#)
EndFunction
_________________________
It's better to have scripted and died, then to never have scripted at all
|
Top
|
|
|
|
#183876 - 2007-12-18 06:38 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: RemcovC]
|
RemcovC
Starting to like KiXtart
Registered: 2006-09-13
Posts: 174
Loc: Holland
|
And one with 885 re-useing $b and fixing bug
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))
If Asc(Substr($v,$w))>64
$b=1
EndIf
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
$a=$a+#
Next
$a=Split(Left($a,~),#)
EndFunction
Edited by RemcovC (2007-12-18 06:50 PM)
_________________________
It's better to have scripted and died, then to never have scripted at all
|
Top
|
|
|
|
#183878 - 2007-12-18 06:59 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: RemcovC]
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
nice!
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 19:59:28.448 Processing End = 2007/12/18 19:59:28.807 Duration = 0000/00/00 00:00:00.358 KiXGolf Score = 880
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 | Asc(Substr($v,$w))>64
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
$a=$a+#
Next
$a=Split(Left($a,~),#)
EndFunction
_________________________
!download KiXnet
|
Top
|
|
|
|
#183879 - 2007-12-18 07:00 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: RemcovC]
|
RemcovC
Starting to like KiXtart
Registered: 2006-09-13
Posts: 174
Loc: Holland
|
Nice in previous posts
Your solution passed all tests
KiXtart KiXtart Version = 4.60 KiXGolf Script = kixgolf_tg.kix
Computer OS = Windows Vista Ultimate Edition CPU = Intel Pentium Model 15 Speed = 1662 MHz Memory = 1014 MB
KiXGolf Scoring Engine Scoring Engine = 3.3
KiXtart Golf Score Tournament = Taunt Generator Processing Start = 2007/12/18 18:59:33.264 Processing End = 2007/12/18 18:59:33.568 Duration = 0000/00/00 00:00:00.304 KiXGolf Score = 881
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))
If Substr($v,$w)>'@'
$b=1
EndIf
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
$a=$a+#
Next
$a=Split(Left($a,~),#)
EndFunction
_________________________
It's better to have scripted and died, then to never have scripted at all
|
Top
|
|
|
|
#183880 - 2007-12-18 07:03 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: RemcovC]
|
RemcovC
Starting to like KiXtart
Registered: 2006-09-13
Posts: 174
Loc: Holland
|
Ok yours and mine toghether
Your solution passed all tests
KiXtart KiXtart Version = 4.60 KiXGolf Script = kixgolf_tg.kix
Computer OS = Windows Vista Ultimate Edition CPU = Intel Pentium Model 15 Speed = 1662 MHz Memory = 1014 MB
KiXGolf Scoring Engine Scoring Engine = 3.3
KiXtart Golf Score Tournament = Taunt Generator Processing Start = 2007/12/18 19:03:01.239 Processing End = 2007/12/18 19:03:01.551 Duration = 0000/00/00 00:00:00.312 KiXGolf Score = 876
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
$a=$a+#
Next
$a=Split(Left($a,~),#)
EndFunction
_________________________
It's better to have scripted and died, then to never have scripted at all
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
1 registered
(Allen)
and 566 anonymous users online.
|
|
|