@program pokecensus.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$include $lib/pokedex
$def DEX "$pokedex" match
$def AVATAR #21
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
AVATAR "@set $pokedex=/census:" force
"Inverting species and morph table..." "Pokecensus" pretty tellme
2 dbtop int 1 - 1 for dbref target !
target @ player? if
target @ "pokemon" getstat tostr pokemon !
target @ "pokemorph" getstat toint morph? !
morph? @ if
 morph? @ 1 = if
  DEX str "/census/" pokemon @ "/morph" cat over over getprop 1 + setprop
 then
 morph? @ 2 = if
  DEX str "/census/" pokemon @ "/taur" cat over over getprop 1 + setprop
 then 
 else
  DEX str "/census/" pokemon @ "/pokemon" 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 20 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 20 lj " "
 str "/census/" tprop @ "/morph" cat getdex tostr 4 lj
 str "/census/" tprop @ "/morph" cat getdex toint stars
cat tellme
then
str "/census/" tprop @ "/taur" cat getdex if
str 
 tprop @ 3 lj " "
 str "/pokemon/" tprop @ "/name" cat getdex tostr "-taur" strcat 20 lj " "
 str "/census/" tprop @ "/taur" cat getdex tostr 4 lj
 str "/census/" tprop @ "/taur" cat getdex toint stars
cat tellme
then
repeat
;
.
c
q