@program #3444
1 1000 d
i
$include $lib/alynna
lvar param
: help

;

: main
param ! 0 var! yerf var target
param @ "#he*" smatch if HELP exit then
param @ not if { "Syntax: avatars <name> ... wildcards are allowed (like aly* or yao?chi), ** as a wildcard will list only people with member numbers set." }tell exit then
"Player list" header tellme
  #-1 "*" "P" find_array foreach target ! pop
 param @ "**" instr not if param @ "*" instr if
  target @ "@#" getprop not if
  continue
 then then then
 target @ name param @ smatch if
 yerf ++
 {
 "^GREEN^" target @ name 16 lj
 "^YELLOW^" "Avatar #"
   target @ "@#" getprop dup if
    "0000" swap tostr strcat dup strlen 4 - strcut swap pop strcat 13 lj
   else
    pop "----" strcat 13 lj
   then
 "^CYAN^" "PA #"
   target @ "@PA" getprop dup if
    "000" swap tostr strcat dup strlen 3 - strcut swap pop strcat 8 lj
   else
    pop "---" strcat 8 lj
   then
   target @ "@#" getprop if
    { "^GREEN^Posts: " target @ "@Postcount" getprop tostr 4 lj  }cat
    { " ^YELLOW^" target @ "@ForumName" getpropstr 16 lj  }cat
   target @ "@Authorization" getprop case
    -1 = when target @ "!AVATAR" set  { " ^RED^Banned^NORMAL^" }cat end
     0 = when target @ "!AVATAR" set  { " ^YELLOW^Unauthorized^NORMAL^" }cat end
     1 = when target @  "AVATAR" set  { " ^Green^Authorized^NORMAL^" }cat end
   endcase
   then
   target @ "@#" getprop dup if
    { 13 itoc 10 itoc " ^UNDERLINE^^GREEN^http://www.masterzdm.com/NCD/showprofile.php?User=" strcat strcat rot }cat
   else
    pop ""
   then
 }tell
 then
repeat
{ yerf @ " players matched." }cat footer tellme
;
.
c
q