So for those of you wanting to figure out how much Plat you have on all characters, I made this to list how much everyone has and then total it (with commas).
GetPP.mac
#turbo
Sub Main
/declare i int local
/declare charPP string local
/declare char string local
/declare Total string local 0
|Clear chars
/for i 1 to ${Int[${Math.Calc[${Ini[GetPP,Chars].Count[|]}-1]}]}
/if (${Ini[GetPP,Chars].Arg[${i},|].Length}>0) {
/ini "GetPP" "Chars" "${Ini[GetPP,Chars].Arg[${i},|]}" ""
}
/next i
/delay 4
/noparse /bcaa //ini "GetPP" "Chars" "${Me}" "${Math.Calc[${Me.Platinum}+${Me.PlatinumBank}+${Me.PlatinumShared}].Int}"
/delay 4
|List Char Plat
/for i 1 to ${Int[${Math.Calc[${Ini[GetPP,Chars].Count[|]}-1]}]}
/if (${Ini[GetPP,Chars].Arg[${i},|].Length}>0) {
/varset char ${Ini[GetPP,Chars].Arg[${i},|]}
/varset charPP ${Ini[GetPP,Chars,${char}]}
/if (${charPP.NotEqual[NULL]}) {
/varcalc Total ${Total}+${charPP}
/call Prettify ${charPP}
/bc ${char}: ${Macro.Return}
}
}
/next i
/call Prettify ${Total}
/bc Total: ${Macro.Return}
/delay 5
/return
Sub Prettify(string num)
/declare CommaNator string local
| Strip out any decimal points
/varset num ${num.Arg[1,.]}
/if (${num.Length}<=3 ) /varset CommaNator ${num}
/if (${num.Length}>3 && ${num.Length}<=6) /varset CommaNator ${num.Left[${Math.Calc[${num.Length}-3]}]},${num.Right[3]}
/if (${num.Length}>6 && ${num.Length}<=9) /varset CommaNator ${num.Left[${Math.Calc[${num.Length}-6]}]},${num.Mid[${Math.Calc[${num.Length}-5]},3]},${num.Right[3]}
/if (${num.Length}>9) /varset CommaNator ${num.Left[${Math.Calc[${num.Length}-9]}]},${num.Mid[${Math.Calc[${num.Length}-8]},3]},${num.Mid[${Math.Calc[${num.Length}-5]},3]},${num.Right[3]}
/return ${CommaNator}