@program #1761
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$include $lib/pokedex
$def DEX "$pokedex" match
$def AVATAR #851
lvar param

: stars ( i -- s )
str 1 rot 1 for pop "*" repeat cat
;

: main
var target
var tprop
var pokemon
var morph
param !
"Reticulating splines..." "Pokecensus" pretty tellme
begin prog "hold" getprop if 1 sleep else break then repeat
prog "hold" 1 setprop
AVATAR "@set $pokedex=/census:" force
"Inverting species and morph table..." "Pokecensus" pretty tellme
2 dbtop int 1 - 1 for dbref target !
target @ player? target @ "Z" flag? or if
target @ "pokemon" getstat tostr pokemon !
target @ "pokemorph" getstat toint morph !
 morph @ 0 = if
  DEX str "/census/" pokemon @ "/human" cat over over getprop 1 + setprop
  DEX str "/census/human" cat over over getprop 1 + setprop  
 then
 morph @ 1 = if
  DEX str "/census/" pokemon @ "/pokemon" cat over over getprop 1 + setprop
  DEX str "/census/pokemon" cat over over getprop 1 + setprop  
 then
 morph @ 2 = if
  DEX str "/census/" pokemon @ "/morph" cat over over getprop 1 + setprop
  DEX str "/census/pokemorph" cat over over getprop 1 + setprop  
 then
 morph @ 3 = if
  DEX str "/census/" pokemon @ "/metahuman" cat over over getprop 1 + setprop
  DEX str "/census/metahuman" cat over over getprop 1 + setprop  
 then
then
repeat
"Displaying inverted table..." "Pokecensus" pretty tellme
"NUM Name____________________ Census"
DEX "/census/" array_get_propdirs foreach tprop !
str "/census/" tprop @ "/pokemon" cat getdex if
str
 tprop @ 3 lj " "
 str "/pokemon/" tprop @ "/name" cat getdex tostr 30 lj " "
 str "/census/" tprop @ "/pokemon" cat getdex tostr 4 lj
 str "/census/" tprop @ "/pokemon" cat getdex toint stars
cat tellme
then
str "/census/" tprop @ "/morph" cat getdex if
str
 tprop @ 3 lj " "
 str "/pokemon/" tprop @ "/name" cat getdex tostr "-morph" strcat 30 lj " "
 str "/census/" tprop @ "/morph" cat getdex tostr 4 lj
 str "/census/" tprop @ "/morph" cat getdex toint stars
cat tellme
then
str "/census/" tprop @ "/metahuman" cat getdex if
str
 tprop @ 3 lj " "
 str "/pokemon/" tprop @ "/name" cat getdex tostr "-meta" strcat 30 lj " "
 str "/census/" tprop @ "/metahuman" cat getdex tostr 4 lj
 str "/census/" tprop @ "/metahuman" cat getdex toint stars
cat tellme
then
str "/census/" tprop @ "/human" cat getdex if
str
 tprop @ 3 lj " "
 str "/pokemon/" tprop @ "/name" cat getdex tostr "-human" strcat 30 lj " "
 str "/census/" tprop @ "/human" cat getdex tostr 4 lj
 str "/census/" tprop @ "/human" cat getdex toint stars
cat tellme
then
repeat
str "Humans: " "/census/human" getdex tostr cat tellme
str "Morphs: " "/census/pokemorph" getdex tostr cat tellme
str "Metas: " "/census/metahuman" getdex tostr cat tellme
str "Pokemon: " "/census/pokemon" getdex tostr cat tellme
prog "hold" 0 setprop
;
.
c
q