;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Mir3GuideBook]
{
#IF
Check [010] 0
#ACT
SaveValue "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME 0
SET [010] 1
GoTo @Mir3GuideBookNext
#ELSEACT
GoTo @Mir3GuideBookNext

[@Mir3GuideBookNext]
#ACT
Loadvalue A2 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME
#IF
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_0

#IF
Checkfame
#ACT
Mov A0 %P9
Loadvalue A1 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME 
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_1
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_2

#IF
Check [203] 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_3

#IF
Check [205] 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_4

#IF
Check [207] 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_5

#IF
Check [209] 1
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_6
<Group Recall/@GroupRecall>\
#ACT
Mov A1 %USERNAME
#IF
Equal A1 "Vamp"

#SAY
<KIll ZT/@KILL>\

#IF
Equal A1 "Majestic"
Or Equal A1 "Vamp"
Or Equal A1 "Tipsy"
Or Equal A1 "BobMarley"
Or Equal A1 "FoxDie"
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_7
#ACT
Mov A1 %USERNAME

[@KILL]
#ACT
mapting D1106A 3 228 112

[@VPMain]
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_8

[@@Check_VP]
#ACT
mov A7 %INPUTSTR
Loadvalue D1 "QuestDiary\System\VitalPoints.txt" [Points] %A7
#SAY
{FCOLOR/10}'<$OUTPUT(A7)>'{FCOLOR/12} has {FCOLOR/10}'<$OUTPUT(D1)>'{FCOLOR/12} Vital Points.\\
<Leave/@Exit>

[@@Increase_VP]
#SAY
removed

[@@Admin_Shout]
#ACT
mov A7 %INPUTSTR
EventMsg Grobal %A7 10025
CLOSE

[@CALLAreaQuestBook]
;#CALL [QuestSystem\HelperAreaBook.txt] @HelperAreaQuest

[@CALLTodayQuestBook]
#IF
CheckNameList AcceptDailyQuestRules.txt
#ACT
GoTo @CALLTodayQuestBook_Main
BREAK

#IF
CheckNameList NotAcceptDailyQuestRules.txt
#SAY
You didnt accept the rules...\\\
<Leave/@Exit>\
#ACT
BREAK

#ELSESAY
Daily Quest Rules:\\
Bugged Quest:\
{FCOLOR/15}1){FCOLOR/12} POST On forum any other ways will be {FCOLOR/1}IGNORED!\
{FCOLOR/15}2){FCOLOR/12} Daily quest will {FCOLOR/1}NOT {FCOLOR/12}be changed for any reason.\
{FCOLOR/15}3){FCOLOR/12} Rewards / Fame will {FCOLOR/1}NOT{FCOLOR/12} be refunded due to bugged quest.\\
General Usage:\
{FCOLOR/15}1){FCOLOR/12} Do {FCOLOR/1}NOT{FCOLOR/12} exploit any bug found within the scripts.\
{FCOLOR/15}2){FCOLOR/12} Always report bugs on forum.\
{FCOLOR/15}3){FCOLOR/12} Do {FCOLOR/1}NOT{FCOLOR/12} constantly Contact a GM Post on forum and wait.\\

Do you agree to the rules and accept that admin hold the right\
to {FCOLOR/1}BAN or {FCOLOR/12}Remove daily quests{FCOLOR/12} from your account?\\
<Accept/@AcceptDQ>\
<Nope/@Nope>\\

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

[@CALLTodayQuestBook_Main]
#CALL [TodayQuest\HelperTodayBook.txt] @HelperTodayQuest

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

[@AcceptDQ]
#ACT
AddNameList AcceptDailyQuestRules.txt
#CALL [TodayQuest\HelperTodayBook.txt] @HelperTodayQuest

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

[@Nope]
#ACT
AddNameList NotAcceptDailyQuestRules.txt
CLOSE

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

[@CALLHonChonMaDoBook]
;#CALL [HonChonMaDo\HelperHonChonMaDoBook.txt] @HelperHonChonMaDoQuest

[@CALLHonChonDoBook]
;#CALL [HonChonDo\HelperHonChonDoBook.txt] @HelperHonChonDoQuest

[@CALLSinGiSunBook]
;#CALL [SinGiSun\HelperSinGiSunBook.txt] @HelperSinGiSunQuest


[@SinGiSun_Display]
#CALL [System\Display.txt] @SinGiSun_Display_Main

[@MainQuest_Display]
#CALL [System\Display.txt] @MainQuest_Display_Main

[@Honchondo_Display]
#CALL [System\Display.txt] @Honchondo_Display_Main

[@Honchonmado_Display]
#CALL [System\Display.txt] @Honchonmado_Display_Main

[@Sabuk_Display]
#CALL [System\Display.txt] @Sabuk_Display_Main

[@Taosong_Display]
#CALL [System\Display.txt] @Samak_Display_Main

[@TodayQuest_Display]
#CALL [System\Display.txt] @TodayQuest_Display_Main

[@Boss_Info]
#CALL [System\Boss.txt] @Boss_Infomation

[@CALL_HungerBook]
#CALL [System\FoodSystem\FoodBook.txt] @BookMain

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

[@@AllowTeleportToUser]
#ACT
Mov A1 %INPUTSTR
LoadValue A2 [QuestDiary\System\PlayerTeleport.txt] %A1 [Request]
LoadValue A3 [QuestDiary\System\PlayerTeleport.txt] %A1 [Character]
LoadValue A4 [QuestDiary\System\PlayerTeleport.txt] %A1 [Map]
LoadValue D5 [QuestDiary\System\PlayerTeleport.txt] %A1 [X]
LoadValue D6 [QuestDiary\System\PlayerTeleport.txt] %A1 [Y]

#IF
!Equal A3 %USERNAME
#SAY
This user has not applied for teleport....\\
<Leave/@Exit>
#ELSEACT
GoTo @TeleportToUserCheckPos

[@TeleportToUserCheckPos]
#IF
CheckPos %A4 %D5 %D6 1
#ACT
SaveValue "QuestDiary\System\PlayerTeleport.txt" %A1 [AllowTeleport] %USERNAME
#SAY
Done the player may now click next and teleport to you.\
#ELSEACT
SaveValue "QuestDiary\System\PlayerTeleport.txt" %A1 [AllowTeleport] Failed
#ELSESAY
The player may have the wrong co-ords.\

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

[@GroupRecall]
#IF
CheckNameList HasDonated.txt
#SAY
This will instantly recall your whole group to you...\
This costs {FCOLOR/10}5 Credits{FCOLOR/12}\\
Make sure that you are in the place you want to recall\
your group to then click "Recall Now"\
{FCOLOR/1}NO RECALL PLAYER KILLING!{FCOLOR/12}\
<Recall Now/@Recall_Now>
#ELSESAY
To use this function you must have donated...\\
<Leave/@Exit>\

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

[@Recall_Now]
#ACT
Loadvalue D3 "QuestDiary\Donations.txt" [Credit] %USERNAME
Mov A0 %USERMAP
Mov A1 %USERX
Mov A2 %USERY
#IF
ELarge D3 5
#ACT
Mov D4 5
Dec D3 %D4
SaveValue "QuestDiary\Donations.txt" [Credit] %USERNAME %D3
FormatStr "%s,%s,%s,0" %A0 %A1 %A2
GroupMove %A9 %USERNAME
Close
#ELSESAY
You must have atleast {FCOLOR/10}5{FCOLOR/12} Credits\\
<Leave/@Exit>\

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