@program pokepurge.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 1.0 lvar param : main var target var item var value param ! "Reticulating splines..." "Pokepurge" pretty tellme 2 dbtop int 1 - 1 for dbref target ! target @ player? if ( Procedure for normals ) ( AVATAR str "wc Tuning 50% increase for " target @ " " target @ iam cat force ) ( Adjust attacks by FACTOR ) target @ "/@rp/a/" array_get_propvals foreach value ! item ! target @ "a/" item @ strcat over over getstat FACTOR * int setstat repeat ( Adjust equipment by FACTOR ) target @ "/@rp/e/" array_get_propvals foreach value ! item ! target @ "e/" item @ strcat over over getstat FACTOR * int setstat repeat ( Reduce cash by FACTOR ) target @ "yen" over over getstat FACTOR * int setstat ( Reduce XP by FACTOR ) target @ "xp" over over getstat FACTOR * int setstat ( Clear lastlevel/pokemon/pokemorph/hp status ) target @ "lastlevel" 0 setstat target @ "hp" target @ maxhp setstat then repeat ; . c q