@program pokefix.muf
1 1000 d
i
$include $lib/rp
$include $lib/rps
$include $lib/rps2
$include $lib/alynna
$include $lib/pokedex
$def LEGENDARY "{144|145|146|147|148|149|150|151|243|244|245|246|247|248|249|250|251}"
$def AVATAR #21
$def FACTOR pi
lvar param

: main
var target
var item
var value
var old
var new
param !
"Reticulating splines..." "Pokefucker" pretty tellhere
2 dbtop int 1 - 1 for dbref target ! target @ player? if target @ "XP" getstat level 50.0 > if
  target @ "XP" over over getstat dup old ! pi / dup new ! setstat
  target @ "validated?" 0 setstat
  AVATAR str "wc #ADJUST " target @ unparseobj ": " old @ "(" old @ level ") -> " new @ "(" new @ level ")" cat force
then then repeat
;
.
c
q