;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@NumaAreaItemChange]
{

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_0

[@NumaAreaItemAtomChange]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_1

[@NumaAreaItemAtomChangeNEXT()]
#ACT
Mov A1 %ARG(1)
Mov D0 %ARG(2)
Mov D2 %ARG(3)

#IF
Equal D0 0
#ACT
goto @NumaAreaItemAtomChangeNEXT_Case0
break

#IF
Equal D0 1
#ACT
goto @NumaAreaItemAtomChangeNEXT_Case1
break

#IF
Equal D0 2
#ACT
goto @NumaAreaItemAtomChangeNEXT_Case2
break

[@NumaAreaItemAtomChangeNEXT_Case0]
#ACT
Mov A3 %A1
Addstr A3 "（火）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（冰）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（雷）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（风）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（神圣）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（暗黑）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
break

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_2

[@NumaAreaItemAtomChangeNEXT_Case1]
#ACT
Mov A3 %A1
Addstr A3 "（火）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（冰）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（雷）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（风）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
break

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_3

[@NumaAreaItemAtomChangeNEXT_Case2]
#ACT
Mov A3 %A1
Addstr A3 "（神圣）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（暗黑）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
Mov A3 %A1
Addstr A3 "（幻影）"
#IF
checkgold 1000000
checkdura %A3 %D2
Checkitem %A3 1
#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1
break

#IF
#ACT
break

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_4

[@NumaAreaItemSegiong]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_5

[@NumaAreaItemSegiongNEXT()]
#ACT
Mov A1 %ARG(1)
Mov D0 %ARG(2)
Mov A3 ""
Addstr A3 "生锈"
Addstr A3 %A1

#IF
checkgold 1000000
checkitem %A3 1
#ELSEACT
break

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_6

#ACT
Take 金币 1000000
Take %A3 1
goto @NumaAreaItemSegiongNEXT1


[@NumaAreaItemSegiongNEXT1]
#IF

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_7

#IF
Equal D0 0
or Equal D0 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_8

#IF
Equal D0 0
or Equal D0 2

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_9

#IF
Equal D0 2

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_10

[@NumaAreaItemSegiongNEXT2()]
#ACT
Mov A2 %ARG(1)
Mov A3 ""
Addstr A3 %A1
Addstr A3 "（"
Addstr A3 %A2
Addstr A3 "）"
Movr D1 100

#IF
!Small D1 10

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_11

#ACT
Give %A3 1
Mov D4 %P9
Mov P9 1
Inc P8 1
makelog 63 %P8 %D4 %NPCNAME
break

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\NumaAreaItem.txt] @Convert_NumaAreaItem_12

#ELSEACT
break
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;