Sub Bod_Reward_Value
Namespace Push
Namespace Local Mwinc_Bod_Point_Calc
set !Bod %1
For !Attempt 1 5
{
Event Property !Bod
if Blessed in #Property
Break
wait 5
}
if Blessed in #Property
{
set !Value 0
if Make: , #Spc , 10 in #property
set !Value !Value + 10
if Make: , #Spc , 15 in #property
set !Value !Value + 25
if Make: , #Spc , 20 in #property
set !Value !Value + 50
if Exceptional in #Property
set !Value !Value + 200
if Dull , #spc , Copper , #spc , Ingots in #Property
set !Value !Value + 200
if Shadow , #spc , Iron , #spc , Ingots in #property
set !Value !Value + 250
if Copper , #Spc , Ingots in #property && Dull , #Spc , Copper Notin #Property
set !Value !Value + 300
if Bronze , #Spc , Ingots in #Property
set !Value !Value + 350
if Gold , #spc , Ingots in #Property
set !Value !Value + 400
if Agapite , #Spc , Ingots in #Property
set !Value !Value + 450
if Verite , #Spc , Ingots in #Property
set !Value !Value + 500
if Valorite , #Spc , Ingots in #Property
set !Value !Value + 550
set #result !Value
}
Else
set #Result Property
Namespace Pop
Return #Result
Here is what I have so far for small smithing bods. You can add more things for larges if you wish.
Gosub Bod_Reward_Value (Bod id)
#Result is the Point value