@program rymcensus.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$def AVATAR #21
lvar param
 
: stars ( i -- s )
str 1 rot 1 for pop "*" repeat cat
;
 
: main
var target
var tprop
var spec

param !
"Reticulating splines..." "Rymcensus" pretty tellme
AVATAR "@set #21=/census:" force
"Inverting species table..." "Rymcensus" pretty tellme
2 dbtop int 1 - 1 for dbref target !
target @ player? if
 target @ "species" getprop tostr tolower case
  "0" smatch when 
  AVATAR "/census/Not set" over over getprop 1 + setprop
  AVATAR "/census/Not set/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*lutrai*}" smatch when 
  AVATAR "/census/Lutrai" over over getprop 1 + setprop
  AVATAR "/census/Lutrai/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*hoomiku*}" smatch when 
  AVATAR "/census/Hoomiku" over over getprop 1 + setprop
  AVATAR "/census/Hoomiku/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*cepn*}" smatch when 
  AVATAR "/census/Cepn" over over getprop 1 + setprop
  AVATAR "/census/Cepn/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*gorg*}" smatch when 
  AVATAR "/census/Gorg" over over getprop 1 + setprop
  AVATAR "/census/Gorg/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*koba*}" smatch when 
  AVATAR "/census/Koba" over over getprop 1 + setprop
  AVATAR "/census/Koba/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*skole*}" smatch when 
  AVATAR "/census/Skole" over over getprop 1 + setprop
  AVATAR "/census/Skole/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*myrix*}" smatch when 
  AVATAR "/census/Myrix" over over getprop 1 + setprop
  AVATAR "/census/Myrix/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  "{*elf*}" smatch when 
  AVATAR "/census/Elf" over over getprop 1 + setprop
  AVATAR "/census/Elf/?" over over getpropstr target @ name " " strcat strcat setprop
  end
  default
  AVATAR "/census/Other" over over getprop 1 + setprop
  AVATAR "/census/Other/?" over over getpropstr target @ name " " strcat strcat setprop
  end    
endcase  
then
repeat
"Displaying inverted table..." "Rymcensus" pretty tellme
"Name________________ Census" tellme
AVATAR "/census/" array_get_propvals foreach tprop ! target !
str 
 target @ tostr 10 lj " "
 tprop @ tostr 4 lj
 AVATAR str "/census/" target @ "/?" cat getprop tostr 
cat tellme 
repeat
;
.
c
q