@program +dpsys.muf
1 10000 d
i
$include $lib/alynna
$include $lib/rp
: main
var target
var! param
param @ not if me @ target ! else param @ pmatch target ! then
command @ "+dpsys" smatch if
#-1 "*" "P" find_array foreach var! target2 pop
 target2 @ "power" getstat 2.0 /
 target2 @ "xp" getstat 2.0 / +
 target2 @ "dp" getstat +
 target2 @ "@/+dp" rot setprop
repeat
then
command @ "+dpsave" smatch if
 me @ var! target2
 target2 @ "power" getstat 2.0 /
 target2 @ "xp" getstat 2.0 / +
 target2 @ "dp" getstat +
 target2 @ "@/+dp" rot setprop
{ "^GREEN^Total saved DP: " target @ "@/+dp" getprop "." }tell exit
then
{ "^GREEN^Total saved DP: " target @ "@/+dp" getprop "." }tell
;
.
c
q