Jooel --------- 182
 1. Shawn --------- 182 (Shawn-185 was reduced by 3 strokes)
 2. Shawn --------- 185 (confirmed)
 3. Shawn --------- 213 (confirmed)
 4. Benny69 ------- 216 (DrillSergeant-217 was reduced by 1 stroke)
 5. DrillSergeant - 217
    Jooel --------- 219
 6. Maciep -------- 225 (confirmed)
 7. Allen --------- 225 (Allen-256 was reduced by 21 strokes)
 8. Richard H ----- 252 (confirmed)
 9. Allen --------- 256 (confirmed)
10. Howard bullock  285 (confirmed)
11. Glenn Barnas -- 337 (confirmed)
    It_took_my_meds 343 (does not pass validation due to not DIMming variables inside the UDF)
12. Jochen -------- 352 (confirmed)
13. Benny69-------- 448 (confirmed)
14. Krabourn ------ 651 (confirmed)

Quote:

---

Cappy, that $ = right($,~) thing ... had to actually run it to figure it out. Its a shorter form of $ = right($,-1). Seems like this:

$ = right("cappy",~)

would return "appy"

That is brilliant.

---

Yes, brilliant. I havn't run it, but still, after you pointed it out, how could one possibly figure that out without having the kixtart source code?
Rogier, what the green heck did you do to find that one, asked Ruud??


Well, my deep respect to all of you.
I started thinking of reducing the mayan string array thing last week, but that was only wishful thinking for me

~ Performs a bit-wise mathematical negation (NOT) operation on a number. 

Function m($)

 dim $a,$b,$c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 for each $a in split($)
  $m = $m * 20 + ascan($c,$a)
  if $+0=$
   $m = $c[$ mod 20]
   if $/20
    $m = m($/20) + " " + $m
  ;endif
 ;endif
;next

EndFunction

 1. Shawn --------- 178 (Shawn-182 was reduced by 4 strokes)
    Jooel --------- 182
 2. Shawn --------- 182 (Shawn-185 was reduced by 3 strokes)
 3. Shawn --------- 185 (confirmed)
 4. Shawn --------- 213 (confirmed)
 5. Benny69 ------- 216 (DrillSergeant-217 was reduced by 1 stroke)
 6. DrillSergeant - 217
    Jooel --------- 219
 7. Maciep -------- 225 (confirmed)
 8. Allen --------- 225 (Allen-256 was reduced by 21 strokes)
 9. Richard H ----- 252 (confirmed)
10. Allen --------- 256 (confirmed)
11. Howard bullock  285 (confirmed)
12. Glenn Barnas -- 337 (confirmed)
    It_took_my_meds 343 (does not pass validation due to not DIMming variables inside the UDF)
13. Jochen -------- 352 (confirmed)
14. Benny69-------- 448 (confirmed)
15. Krabourn ------ 651 (confirmed)

Function m($)

 dim $a,$b,$c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 for each $a in split($)
  $m = $m * 20 + ascan($c,$a)
  if $m<0
   $m = $c[$ mod 20]
   if $/20
    $m = m($/20) + " " + $m
  ;endif
 ;endif
;next

EndFunction

Function m($i)
dim $e, $, $n
 if $i=0+$i
  do
   $ = $i mod 20
   do
    $n = 3*($>4) + ($>1) + ($>)
    $e = substr('-.:__|',1+$n,1) + $e
    $ = $ - $n
   until $=0
   $m = $e + $m
   $e = " "
   $i = $i/20
  until $i=0
 else
  $m=-1
  do $m=$m+1 until $i=m($m)
EndFunction

Function m($)
dim $e, $i, $n
 if $=0+$
  do
   $i = $ mod 20
   $m = split(" . : .: :: -")[iif($i=0,5,$i mod 5)] + left('|||',$i/5) + $e + $m
   $e = ' '
   $ = $/20
  until $=0
 else
  $i=split($)
  $=1
  for $n=-ubound($i) to 0
   for $e=0 to 19
    if $i[-$n]=m($e)
     $m = $m + $ * $e
     $ = $ * 20
EndFunction

Function m($_)

 dim $,$b,$c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $)
  $ = $ + $c[$b] + "| "
 next

 for each $ in split($_)
  $m = $m * 20 + ascan($c,$)
  if $m<0
   $m = $c[$_ mod 20]
   if $_/20
    $m = m($_/20) + " " + $m
 
EndFunction

Function m($)

 dim $a, $b, $c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 if $=0+$
  $m = $c[$ mod 20]
  if $/20
   $m = m($/20) + " " + $m
  endif
 else
  $m=-1
  do $m=$m+1 until $=m($m)
EndFunction

;!
Function m($)

 dim $a

 if $=0+$
  do
   $a = $ mod 20
   $m = trim(iif($a,left('.',$ mod 5 mod 2)+left('::',$ mod 5/2)+left('|||',$a/5),'-')+' '+$m)
   $  = $ / 20
  until $ = 0
 else
  $m=-1
  do
   $m=$m+1 
  until $=m($m)
EndFunction
;!

Function m($)

 if $=0+$
  do
   ;$a = $ mod 20
   $m = trim(iif($ mod 20,left('.',$ mod 5 mod 2)+left('::',$ mod 5/2)+left('|||',$ mod 20/5),'-')+' '+$m)
   $  = $ / 20
  until $ = 0
 else
  $m=-1
  do
   $m=$m+1 
  until $=m($m)
EndFunction

Quote:

---

did you either one test the codes?

---