BROKE IT!!! \:D \:D \:D




KiXtart
KiXtart Version = 4.52
KiXGolf Script = kixgolf_ts.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 2261 MHz
Memory = 1024 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Top Secret
Processing Start = 2007/08/11 01:01:32.015
Processing End = 2007/08/11 01:01:32.046
Duration = 0000/00/00 00:00:00.030
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 299

Thank you for participating in KiXtart Golf!




 Code:
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
dim $i, $o[$c^0], $, $r, $k

For $i=1 to $c^0
	$=Substr($c,$i,1)
	$o[$i] = $
	$a=LCase($)
	If $a>` & $a<}
		$k=$k+$
		$r=$r + " " + $i
	EndIf
	If ($k^)=$l | $i=($c^)
		For Each $ in Split($b,",")
			If ($k^) => $
				$a=$a+" "+$
				$ = ascan(Split($a),$), $
				$o[split($r)[$[$d = D]]] = substr($k, $[$d = E], 1)
			EndIf
		Next
		$r=!
		$k=''
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret 
_________________________
The Code is out there