#184013 - 2007-12-20 02:10 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Lonkero]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
I dunno.. it's just plain text between PRE tags... Here's the same info between CODE tags:
; begin Taunt Generator
;
;!
function a($)
dim $b,$c,$d,$e,$g
for each $b in $
$c=2
$=theholygrail
for each $a in split($b)
dim $f
while $a
$f=$f|$a>'@'
$=substr($,1+(left($a,1)=left($,1)))
$a=right($a,~)
loop
$c=$c+$f
$b=join(split($b,' '))
Next
$g=$g+#Knight:\+$b+#
for $b=1 to $c/3
if $
$c=Hamster,Coconut,Duck,Herring,Newt,Peril,Chicken,Vole,Parrot,Mouse,Twit
$=conspicuous,categorical,positive,cruel,incontrovertib,steed,king,'first-born',mo,fa,grandmo,
grandfa,godfa,silly,wicked,sordid,naughty,repulsive,malodorous,'ill-tempered'
$d=$d+1
$a = Your\+$[$e/2 mod 5+8]+ther\+iif($d mod 3,was,personified)+\a
if $d mod 3=2
$a=$c[$e mod 11]+!\Your\+$[$e/4 mod 3+5]+iif($e/4 mod 2,\masquerades\as\a\+$[$e/8 mod 5]+ly\,\is\a\)+$[$e/4 mod 7+13]
$e=$e+1
$b=$b+1
endif
$=$a+\+lcase($c[$e mod 11])
$e=$e+1
else
$='(A childish hand gesture)'
endif
$g=$g+Taunter:\+$+'.#'
$a=split(right(join(split($g,\)),~),#)
endfunction
;!
;!
; end Taunt Generator
Edited by DrillSergeant (2007-12-20 02:10 PM)
_________________________
The Code is out there
|
Top
|
|
|
|
#184017 - 2007-12-20 02:30 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
sorry Jochen, i had a pms moment. well done guys.
|
Top
|
|
|
|
#184021 - 2007-12-20 02:52 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
i don't know what happened, like a woman i just went off, sorry dude.
|
Top
|
|
|
|
#184030 - 2007-12-20 04:35 PM
Re: KiXgolf 2007: Taunt Generator - Public Round
[Re: Jochen]
|
RemcovC
Starting to like KiXtart
Registered: 2006-09-13
Posts: 174
Loc: Holland
|
Yes !!!!!!! Finaly
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/20 16:29:37.304 Processing End = 2007/12/20 16:29:37.492 Duration = 0000/00/00 00:00:00.188 KiXGolf Score = 812
Function a($)
dim $b,$c,$d,$e,$g
for each $b in $
$c=2
$=theholygrail
for each $a in split($b)
dim $f
while $a
$f=$f|$a>'@'
$=substr($,1+(left($a,1)=left($,1)))
$a=right($a,~)
loop
$c=$c+$f
$b=join(split($b,' '))
Next
$g=$g+#Knight:\+$b+#
for $b=1 to $c/3
if $
$c=Hamster,Coconut,Duck,Herring,Newt,Peril,Chicken,Vole,Parrot,Mouse,Twit
$=conspicuous,categorical,positive,cruel,incontrovertib,steed,king,'first-born',mo,fa,grandmo,
grandfa,godfa,silly,wicked,sordid,naughty,repulsive,malodorous,'ill-tempered'
$d=$d+1
$a=Your\+$[$e/2 mod 5+8]+ther\+iif($d,was,personified)+\a
if $d=2
$a=$c[$e mod 11]+!\Your\+$[$e/4 mod 3+5]+iif($e/4 mod 2,\masquerades\as\a\+$[$e/8 mod 5]+ly\,\is\a\)+$[$e/4 mod 7+13]
$e=$e+1
$b=$b+1
$d=-1
endif
$=$a+\+lcase($c[$e mod 11])
$e=$e+1
else
$='(A childish hand gesture)'
endif
$g=$g+Taunter:\+$+'.#'
$a=split(right(join(split($g,\)),~),#)
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
|
0 registered
and 610 anonymous users online.
|
|
|