;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@ChangeGOLD]
{

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MoneyChange.txt] @Convert_MoneyChange_0

[@Change()]
#IF
#ACT
Mov A0 %ARG(1)
Mov A1 %ARG(2)
Mov D0 %ARG(3)
Mov D1 %ARG(4)

#IF
checkitem %A0 1
checkgold %D1
#ACT
take %A0 1
take ½ð±Ò %D1
give %A1 %D0

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MoneyChange.txt] @Convert_MoneyChange_1


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MoneyChange.txt] @Convert_MoneyChange_2

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;