;;;;;;;;;;;;;;;;;;;;;;;;
[@TodayQuest_Monster_RedMoonEvil]

#IF
 CheckDailyQuest 5




#ACT
 Mov    A8  "RedMoonEvil"
 goto @CALL_TodayQuest_Monster_Total
#ELSEACT
 goto @CALLDGS

[@CALLDGS]
#IF
Check [150] 1
#ACT
Goto @DGSNext

[@DGSNext]
#IF
Random 50
Check [151] 0
#ACT
FormatStr "FLD_QUEST ='DGS' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @DGSQUest15


[@DGSQUest15()]
#ACT
mov D1 %ARG(1)

#IF
Equal D1  15
#ACT
Give CalabashOfSpirit 1
#SAY
I have found the CalabashOfSpirit.. \\
<[ Exit ]/@exit>\\

#IF
#ACT
break

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

;;;;;;;;;;;;;;;;;;;;;;;;