Page 3 of 8 <12345>Last »
Topic Options
#183861 - 2007-12-18 02:42 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
stupid board.
nobody has that wide posts but still it makes the windows scroll
_________________________
!

download KiXnet

Top
#183862 - 2007-12-18 02:43 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
woah! I was posting and reading in firefox and that looks perfect, but now I'm looking in IE and it looks like [censored] indeed...

In firefox, the codeboxes also get a horizontal scrollbar so the overal width of the topic doesn't change, in IE you only get a vertical scrollbar.



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

Top
#183863 - 2007-12-18 02:46 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Well Jooel, you have that wide line !
_________________________



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

Registered: 2001-06-05
Posts: 22343
Loc: OK
sorry jochen, not true.
it was way wide before I posted.
_________________________
!

download KiXnet

Top
#183865 - 2007-12-18 03:24 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
My post AND Jooel's post both have that wide line
_________________________
The Code is out there

Top
#183866 - 2007-12-18 03:27 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Oh yeah? Well, I don't feel sorry to blame any of you splitters
_________________________



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

Registered: 2001-06-05
Posts: 22343
Loc: OK
what you guys been doing the whole time?

 Code:
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
#183868 - 2007-12-18 03:35 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
 Originally Posted By: Lonkero
what you guys been doing the whole time?


Umm, working?

edit: OMFG!!! We were blind !!!


Edited by Jochen (2007-12-18 03:37 PM)
_________________________



Top
#183870 - 2007-12-18 05:01 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 hitting coconut halves against eachother...
_________________________
The Code is out there

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

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
good horse.
_________________________



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

Registered: 2001-06-05
Posts: 22343
Loc: OK
what's the purpose of $s array?
tried to eliminate it and the code failed.
I don't see any reason for it though.
_________________________
!

download KiXnet

Top
#183873 - 2007-12-18 05:59 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
take that back, didn't look deep enough.
_________________________
!

download KiXnet

Top
#183874 - 2007-12-18 06:24 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
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

 Code:
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 Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
Ok let the brainfusing begin:

Here my 886
 Code:
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 

 Code:
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 Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
And one with 885 re-useing $b and fixing bug

 Code:
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
#183877 - 2007-12-18 06:46 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: RemcovC]
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
Lol found a bug in my code...

if more then 4 spaces in a row are used, my code will fail

ok edited my previous post, removed bug


Edited by RemcovC (2007-12-18 06:51 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 Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
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

 Code:
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 Offline
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
 Code:
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 Offline
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
 Code:
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
#183881 - 2007-12-18 07:05 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: RemcovC]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
heh...
_________________________
!

download KiXnet

Top
Page 3 of 8 <12345>Last »


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

Who's Online
1 registered (Allen) and 155 anonymous users online.
Newest Members
vertage, dimi575, Drecksnacken, Nlill, webtools321
17735 Registered Users

Generated in 0.061 seconds in which 0.022 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