;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@OldItems_Main]
{
#IF
#SAY
Hi, I can handle your Old items and hopefully\
restore them to their former glory!\
Which Item have you got with you?\
<[ FaultBrace(Old) ]/@ManageOldItem(FaultBrace,1)>\
<[ OriginationBrace(Old) ]/@ManageOldItem(OriginationBrace,1)>\
<[ WarSpiritWheel(Old) ]/@ManageOldItem(WarSpiritWheel,1)>\
<[ Power(Old) ]/@ManageOldItem(Power,2)>\
<[ Dragon(Old) ]/@ManageOldItem(Dragon,2)>\
<[ SangHyoung(Old) ]/@ManageOldItem(SangHyoung,2)>\
<[ LawOfMagic(Old) ]/@ManageOldItem(LawOfMagic,3)>\
<[ SoulPurifier(Old) ]/@ManageOldItem(SoulPurifier,3)>\
<[ ImperialValor(Old) ]/@ManageOldItem(ImperialValor,3)>\
<[ Para(Old) ]/@ManageOldItem(Para,4)>\
<[ Pro(Old) ]/@ManageOldItem(Pro,4)>\
<[ Muscle(Old) ]/@ManageOldItem(Muscle,4)>\
<[ Clear(Old) ]/@ManageOldItem(Clear,4)>\\
<[ Exit ]/@exit>\\\

[@ManageOldItem()]
#IF
#ACT
Mov    A0  %ARG(1)
Mov    A2  %A0
AddStr A2  "(Old)"
Mov    D0  %ARG(2)
Mov    A1  ""
#IF
!CheckItem %A2  1
#SAY
Why Cheat??!?!?!?!!\
#ACT
 
Break

#IF
EQUAL  D0   2
#ACT
Goto @OldRings
Break

#IF
EQUAL  D0   1
#ACT
Goto @OldBraces
Break

#IF
EQUAL  D0   3
#ACT
Goto @OldNecks
Break

#IF
   EQUAL  D0   4
#ACT
   Mov     A7 %USERNAME
   AddStr  A7 ","
   AddStr  A7 %A2
   Savelog "QuestDiary\System\OldSpecialLog.txt" %A7
   Goto @OldSpecial
   Break

#IF
#ACT
Break

[@OldRings]
#IF
!CheckItem %A2 1
#SAY
Why Cheat??!?!?!?!!\
#ACT
Break

#IF
Random 10
#ACT
Mov    A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break

#IF
Random 3
#ACT
Mov    A1 %A0
AddStr A1 "Lord"
Goto @OldElement
Break

#IF
#ACT
Take %A2 1
Break
#SAY
The item was useless after I had finished with it\
Sorry\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\


[@OldBraces]
#IF
!CheckItem %A2 1
#SAY
Why Cheat??!?!?!?!!\
#ACT
 
Break

#IF
Random 20
#ACT
Mov    A1 "Light"
AddStr A1 %A0
Goto @OldElement
Break

#IF
Random 10
#ACT
Mov    A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break

#IF
Random 3
#ACT
Mov A1 %A0
Goto @OldElement
Break

#IF
#ACT
Take %A2 1
Break
#SAY
The item was useless after I had finished with it\
Sorry...\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\


[@OldNecks]
#IF
!CheckItem %A2 1
#SAY
Why Cheat??!?!?!?!!\
#ACT
 
Break

#IF
Random 20
#ACT
Mov    A1 %A0
AddStr A1 "Light"
Goto @OldElement
Break

#IF
Random 10
#ACT
Mov    A1 "Dark"
AddStr A1 %A0
Goto @OldElement
Break

#IF
Random 3
#ACT
Mov A1 %A0
Goto @OldElement
Break

#IF
#ACT
Take %A2 1
Break
#SAY
The item was useless after I had finished with it\
Sorry...\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\


[@OldElement]
#IF
#ACT
Take %A2 1
Movr D1  8
Inc  D1 1

#IF
Equal  D1  8
#ACT
Goto @OldSuccess
Break

#IF
Equal  D1  1
#ACT
AddStr A1 "(IG)"
Goto @OldSuccess
Break

#IF
Equal  D1  2
#ACT
AddStr A1 "(GE)"
Goto @OldSuccess
Break

#IF
Equal  D1  3
#ACT
AddStr A1 "(FU)"
Goto @OldSuccess
Break

#IF
Equal  D1  4
#ACT
AddStr A1 "(VE)"
Goto @OldSuccess
Break

#IF
Equal  D1  5
#ACT
AddStr A1 "(SA)"
Goto @OldSuccess
Break

#IF
Equal  D1  6
#ACT
AddStr A1 "(AT)"
Goto @OldSuccess
Break

#IF
Equal  D1  7
#ACT
AddStr A1 "(PH)"
Goto @OldSuccess
Break

#IF
#SAY
It seems an error occured, please send this\
screen to a GM\\
Sting\\
<[ Exit ]/@exit>\

[@oldSuccess]
#IF
#ACT
Give  %A1 1
#SAY
Success!!! Here is your <$OUTPUT(A1)>!\
Please Note there are certain Items that\
have been removed and therefore will mean\
you fail to get a success, i.e. LawOfMagic(SA)\
as a Holy Magic Necklace is a little useless\
:-)\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\


[@OldSpecial]
#IF
!CheckItem %A2  1
#SAY
Why Cheat??!?!?!?!! \
#ACT

Break

#IF
Random 40
#ACT
Mov    A1 "God"
AddStr A1 %A0
Take %A2 1
Goto @OldSuccess
Break

#IF
Random 30
#ACT
Mov    A1 "Demon"
AddStr A1 %A0
Take %A2 1
Goto @OldSuccess
Break

#IF
Random 10
#ACT
Mov    A1 %A0
AddStr A1 "Ring"
Take %A2 1
Goto @OldSuccess
Break

#IF
#ACT
Take %A2 1
Break
#SAY
The item was useless after I had finished with it\
Sorry\\
<[ Back ]/@Main>\
<[ Exit ]/@exit>\



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