;;Ҫɾ

[@Main_Donations]
{
#ACT
Loadvalue D0 "QuestDiary\Donations.txt" [Credit] %USERNAME
#SAY
Welcome {FCOLOR/10}<$USERNAME>{FCOLOR/12}.\
Credit: {FCOLOR/10}<$OUTPUT(D0)>{FCOLOR/12}.\\
How may i help you?\
{FCOLOR/10}1{FCOLOR/12} = {FCOLOR/10}10 Credits{FCOLOR/12}\\
<Trade Credits for Vital Points/@Credit_Vital> Costs: {FCOLOR/10}10{FCOLOR/12} Credits\
<Trade Credits for Fame Points/@Credit_FamePoints> Costs: {FCOLOR/10}20{FCOLOR/12} Credits\
<Gender Change/@Change_Gender> Costs: {FCOLOR/10}20{FCOLOR/12} Credits\
<Translate Books/@TranslateBooks> Costs: {FCOLOR/10}10{FCOLOR/12} Credits\\

\<Leave/@Exit>\

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

[@Credit_Vital]
#IF
ELarge D0 10
#SAY
This will take {FCOLOR/10}10{FCOLOR/12} Credits and give you {FCOLOR/10}25{FCOLOR/12} Vital Points.\\
<Next/@Credit_Vital_Next>
#ELSESAY
You must have atleast {FCOLOR/10}10{FCOLOR/12} Credits\\
<Leave/@Exit>\

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

[@Credit_Vital_Next]
#ACT
Loadvalue D1 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME
Inc D1 25
SaveValue "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME %D1
Mov D3 10
GoTo @SetCredits
#SAY
Done...\\
<Leave/@Exit>\

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

[@Credit_FamePoints]
#IF
ELarge D0 20
#SAY
This will take {FCOLOR/10}20{FCOLOR/12} Credits and give you {FCOLOR/10}10{FCOLOR/12} Fame Points.\\
<Next/@Credit_FamePoints_Next>
#ELSESAY
You must have atleast {FCOLOR/10}20{FCOLOR/12} Credits\\
<Leave/@Exit>\

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

[@Credit_FamePoints_Next]
#IF
CheckFAME
#ACT
Mov D4 %P9
Inc D4 10
SetFame %D4
Mov D3 20
GoTo @SetCredits
#SAY
Done...\\
<Leave/@Exit>\

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

[@Change_Gender]
#IF
ELarge D0 20
#SAY
What do you want to change?\\
<Change Armour Gender/@ArmourGender>\
<Change Character Gender/@CharacterGender>\\
<Leave/@Exit>\
#ELSESAY
You must have atleast {FCOLOR/10}20{FCOLOR/12} Credits\\
<Leave/@Exit>\

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

[@CharacterGender]
#SAY
This costs {FCOLOR/10}20{FCOLOR/12} credits.\\
Please be aware we will remove {FCOLOR/10}Armour{FCOLOR/12} and
{FCOLOR/10}Weding Rings{FCOLOR/12} from your character if you exploit this.\\
<Change Now/@Confirm_Gender_Character_Change>\
<Leave/@Exit>\

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

[@Confirm_Gender_Character_Change]
#ACT
ChangeGender
Mov D3 20
GoTo @SetCredits
#SAY
Done...\\
<Leave/@Exit>\

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

[@ArmourGender]
#SAY
This costs {FCOLOR/10}20{FCOLOR/12} credits.\\
Please click below and type in the\
name of the armour without the {FCOLOR/10}(M){FCOLOR/12} or {FCOLOR/10}(F){FCOLOR/12}.\
{FCOLOR/10}This Will give you a fresh armour so do not Change an added armour!{FCOLOR/12} \\
<Change Male To Female/@@Confirm_Armour_Male_Female>\
<Change Female To Male/@@Confirm_Armour_Female_Male>\
<Leave/@Exit>\

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

[@@Confirm_Armour_Male_Female]
#ACT
Mov A1 %INPUTSTR
Mov A2 %INPUTSTR
AddStr A1{CONVERTBOOKNAME} "(M)"
AddStr A2{CONVERTBOOKNAME} "(F)"

#IF
CheckItem %A1 1
#ACT
Give %A2 1
Take %A1 1
Mov D3 20
GoTo @SetCredits
#SAY
Done...\\
<Leave/@Exit>\
#ELSESAY
You do not have any {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}.\\
<Leave/@Exit>\

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

[@@Confirm_Armour_Female_Male]
#ACT
Mov A1 %INPUTSTR
Mov A2 %INPUTSTR
AddStr A1{CONVERTBOOKNAME} "(F)"
AddStr A2{CONVERTBOOKNAME} "(M)"

#IF
CheckItem %A1 1
#ACT
Give %A2 1
Take %A1 1
Mov D3 20
GoTo @SetCredits
#SAY
Done...\\
<Leave/@Exit>\
#ELSESAY
You do not have any {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}.\\
<Leave/@Exit>\

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

[@SetCredits]
#ACT
Dec D0 %D3
SaveValue "QuestDiary\Donations.txt" [Credit] %USERNAME %D0
BREAK

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

[@TranslateBooks]
#IF
ELarge D0 10
#SAY
This will work {FCOLOR/10}100%{FCOLOR/12} and costs{FCOLOR/10}10{FCOLOR/10} Credits.\\
Click below and type the name of the book you wish to translate.\\
<Enter Book Name/@@TranslateBooks_Next>\
<Leave/@Exit>
#ELSESAY
You must have atleast {FCOLOR/10}10{FCOLOR/12} Credits\\
<Leave/@Exit>\

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

[@@TranslateBooks_Next]
#ACT
Mov A1 %INPUTSTR
Mov A2 %INPUTSTR
AddStr A2{CONVERTBOOKNAME} "(Manual)"

#IF
CheckItem %A1 1
#ACT
Give %A2 1
Take %A1 1
Mov D3 10
GoTo @SetCredits
#SAY
Done...\\
<Leave/@Exit>\
#ELSESAY
You do not have any {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}.\\
<Leave/@Exit>\

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

}
;;Ҫɾ