@program econutils.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$include $muf/rp/boxutils
lvar param
 
: resetallgil
var target
2 dbtop int 1 - 1 for dbref target !
target @ player? if target @ mlevel 7 <= if
 target @ "Resources" getstatint 10 *
 target @ "Jnote" "Good With Money" findboxitem if 1.2 * then
 target @ "Special/Conservative-Spending" getstatint if 1.3 * then
 target @ "Jnote" "Bad With Money" findboxitem 0.6 * if then
 target @ "Resources/Bank" getstatint 5 * +
 target @ "Intelligence" getstatint 5 / +
 target @ "Willpower" getstatint 10 / +
 target @ "Jobs/Mundane" getstatint 2 * +
 2 / target @ "Gil" rot setstat 
 target @ "newecon?" 1 setstat
then then
repeat
;
 
: resetmarkets
var item
var value
#0 "/@rp/marketplace/" array_get_propvals foreach value ! item !
 #0 "/@rp/marketplace/" item @ strcat random 100 % 50 + setprop
repeat
#0 "/@rp/bmarketplace/" array_get_propvals foreach value ! item !
 #0 "/@rp/bmarketplace/" item @ strcat random 50 % 20 + setprop
repeat
;

: clearbogusgilprop
var target
2 dbtop int 1 - 1 for dbref target !
target @ player? if target @ mlevel 7 <= if
 target @ "Gil" 0 setprop
then then
repeat
;
: main
tolower param !
param @ case
 "resetallgil" smatch when resetallgil end
 "resetmarkets" smatch when resetmarkets end
 "clearbogusgilprop" smatch when clearbogusgilprop end
endcase
"done" tellme
;
.
c
q