;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@ConvertRootinBook]
{
#DEFINE A0{BOOKNAME} A0
#DEFINE A1{CONVERTBOOKNAME} A1
#DEFINE S0{BOOKLEVEL} S0

#IF
#ACT
Mov A0{BOOKNAME} ""
Mov A1{CONVERTBOOKNAME} ""
Mov S0{BOOKLEVEL} 0
Mov D0{BOOKPRICE} 0

#IF
#ACT
Mov A0{BOOKNAME} %ARG(1)
AddStr A1{CONVERTBOOKNAME} %A0
AddStr A1{CONVERTBOOKNAME} "(Manual)"
Mov S0{BOOKLEVEL} %ARG(2)
Mov P1 %S0{BOOKLEVEL}
Mov P2 1000
Mul P1 P2
Mov D0{BOOKPRICE} %P9
goto @ConvertRootinBook_Step1

[@ConvertRootinBook_Step1]

#SAY
I can help you to translate this {FCOLOR/12}<$OUTPUT(A0)>{FCOLOR/10} Book\
It will cost you {FCOLOR/12}<$OUTPUT(D0)>{FCOLOR/10} to Translate\
<[ Translate Book ]/@ConvertRootinBook_Step2>\
<[ Exit ]/@exit>

[@ConvertRootinBook_Step2]
#IF
checkitem %A0{BOOKNAME} 1
#ACT
goto @ConvertRootinBook_Step3

#ELSESAY
You do not have the {FCOLOR/12}<$OUTPUT(A0)>{FCOLOR/10} Book!\
<[ Exit ]/@exit>

[@ConvertRootinBook_Step3]
#IF
checkgold %D0{BOOKPRICE}
checkitem %A0{BOOKNAME} 1
#ACT
goto @ConvertRootinBook_Step4

#ELSESAY
You do not have enough Gold, you require {FCOLOR/12}<$OUTPUT(D0)>{FCOLOR/10} Gold to Translate\
<[ Exit ]/@exit>

[@ConvertRootinBook_Step4]
#IF
checkitem %A0{BOOKNAME} 1
Random 5
#ELSEACT
take %A0{BOOKNAME} 1
#ELSESAY
OMG OMG OMG.. the book broke!\
<[ Exit ]/@exit>

#ACT
take %A0{BOOKNAME} 1
take Gold %D0{BOOKPRICE}
give %A1{CONVERTBOOKNAME} 1

#SAY
Translation completed\
<[ Exit ]/@exit>


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