;;Ҫɾ

[@Main]
#ACT
Mov D2 18
GoTo @SetVitalPoint

[@SetVitalPoint]
#ACT
Loadvalue D1 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME
INC D1 %D2
SaveValue "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME %D1
LoadValue A6 "QuestDiary\System\VitalPoints.txt" [Convert] [Msg1]
SysMsg %A6
SysMsg %A7
GoTo @CheckDailyQuest

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

[@CheckDailyQuest]
#IF
CheckDailyQuest 345
#ACT
Mov A8 "RedMoonEvil"
goto @CALL_TodayQuest_Monster_Total
BREAK

#IF
CheckDailyQuest 497
#ACT
Mov A8 "RedMoonEvil"
goto @CALL_TodayQuest_Monster_Total
BREAK

#ELSEACT
GoTo @PalaceQuest

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

[@PalaceQuest]
#ACT
Loadvalue A1 "QuestDiary\Guild\Palace.txt" [PalaceQuest] %GUILDNAME

#IF
Equal A1 "Stage6"
#ACT
SaveValue "QuestDiary\Guild\Palace.txt" [PalaceQuest] %GUILDNAME Stage7
Give KeepersOre 1
BREAK
#SAY
{FCOLOR/10}(This must be the Special Ore...){FCOLOR/12}\

#IF
Equal A1 "Stage8"
#ACT
SaveValue "QuestDiary\Guild\Palace.txt" [PalaceQuest] %GUILDNAME END
Give RedMoonCrystal 1
BREAK
#SAY
{FCOLOR/10}(This must be the Special Crystal...){FCOLOR/12}\

#ELSEACT
CLOSE

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

[@CALL_TodayQuest_Monster_Total]
#CALL [TodayQuest\QT_TotalMonster.txt] @TodayQuest_Monster_Total

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

;;Ҫɾ