;;Ҫɾ

[@ArmourMain]
{
#SAY
To use the armour refine system you must\
use another character on the same account\
as the one wearing the Armour you wish to refine.\\
<Input Character Name That Is Wearing The Armour/@@CharacterWithArmourName>\
<Leave/@Exit>

;-----------------------------------------------------------------------------------------

[@@CharacterWithArmourName]
#ACT
mov A0 %INPUTSTR
#IF
equal A0 %USERNAME
#SAY
{FCOLOR/1}You must use your other character to use \
the advanced refining system! {FCOLOR/12} \\
<Leave/@exit>
#ACT
break
#IF
#ACT
FormatStr "FLD_CHARACTER='%s'" %A0
ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_USERID"  [@armourSameaccounttest]

;-----------------------------------------------------------------------------------------

[@armourSameaccounttest()]
#IF
#ACT
mov A1 %ARG(1)
mov A2 %ARG(2)
#IF
equal A1 %A0
equal A2 %USERID    
#ACT
Goto @ArmourRefine_Main
#ELSESAY
{FCOLOR/1}Character <$OUTPUT(A1)> is not on the same account as <$USERNAME>! {FCOLOR/12} \\
<Leave/@exit>\

;-----------------------------------------------------------------------------------------

[@ArmourRefine_Main]
#SAY
What do you wish to try and refine onto \
{FCOLOR/10}<$OUTPUT(A1)>'s{FCOLOR/12} Armour ?\\
<Armour Class/@ArmourRefineAC>\
<Magic Resistance/@ArmourRefineMR>\\
<Leave/@Exit>

;-----------------------------------------------------------------------------------------

[@ArmourRefineAC]
#CALL [Main\Refine\Armour\RefineAC.txt] @RefineACMain

;-----------------------------------------------------------------------------------------

[@ArmourRefineMR]
#CALL [Main\Refine\Armour\RefineMagic.txt] @RefineArmourMagic

;-----------------------------------------------------------------------------------------

}
;;Ҫɾ
