;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@TodayQuest_Monster_Total]
{
  #ACT
    FormatStr "FLD_USERNAME='%s'" %USERNAME
    ReadValueSql "TBL_DairyQuestUser" %A9 "FLD_TQCASE,FLD_Condition1,FLD_Condition1Amount,FLD_Condition2,FLD_Condition2Amount" [@TodayQuest_Monster_Total_Next]
[@TodayQuest_Monster_Total_Next()]
  #ACT
    Mov D0 %ARG(1)
    Mov A1 %ARG(2)
    Mov D1 %ARG(3)
    Mov A2 %ARG(4)
    Mov D2 %ARG(1)
  #IF
    Equal D0 1
  #ACT
    FormatStr "FLD_USERNAME='%s'" %USERNAME
    ReadValueSql "TBL_DairyQuestUser" %A9 "FLD_STEP1,FLD_STEP2,FLD_STEP3" [@TodayQuest_Monster_Total_Case1]
    break
  #IF
    Equal D0 2
  #ACT
    goto @TodayQuest_Monster_Total_Case2
    break
  #IF
  #ACT


[@TodayQuest_Monster_Total_Case1()]
  #ACT
    Mov A4 %ARG(1)
    Mov A5 %ARG(2)
    Mov A6 %ARG(3)
  #IF
    Equal A1 %A8
  #ACT
    goto @TodayQuest_Monster_Total_Case1_Type1
    break
  #IF
    Equal A2 %A8
  #ACT
    goto @TodayQuest_Monster_Total_Case1_Type2
    break
  #IF
    Equal A3 %A8
  #ACT
    goto @TodayQuest_Monster_Total_Case1_Type3
    break

[@TodayQuest_Monster_Total_Case1_Type1]
  #ACT
    Movr D4 %D1
  #IF
    !Equal D4 0
  #ACT
    break
  #ELSEACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_STEP1='END'"
  #IF
    Equal A2 "NULL"
    Equal A3 "NULL"
  #SAY
You have done what is required of Today's Quest\
  #ACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_Step='PreEnd'"
    Set [210] 0
    break
  #IF
    Equal A5 "END"
    Equal A6 "END"
  #SAY
You have done what is required of Today's Quest\
  #ACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_Step='PreEnd'"
    Set [210] 0
    break
  #IF
  #SAY
Thats enough of this Monster on to the others\
[@TodayQuest_Monster_Total_Case1_Type2]
  #ACT
    Movr D4 %D2
  #IF
    !Equal D4 0
  #ACT
    break
  #ELSEACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_STEP2='END'"
  #IF
    Equal A4 "END"
    Equal A3 "NULL"
  #SAY
You have done what is required of Today's Quest\
  #ACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_Step='PreEnd'"
    Set [210] 0
    break
  #IF
    Equal A4 "END"
    Equal A6 "END"
  #SAY
You have done what is required of Today's Quest\
  #ACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_Step='PreEnd'"
    Set [210] 0
    break
  #IF
  #SAY
Thats enough of this Monster on to the others\
[@TodayQuest_Monster_Total_Case1_Type3]
  #ACT
    Movr D4 %D3
  #IF
    !Equal D4 0
  #ACT
    break
  #ELSEACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_STEP3='END'"
  #IF
    Equal A4 "END"
    Equal A5 "END"
  #SAY
You have done what is required of Today's Quest\
  #ACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_Step='PreEnd'"
    Set [210] 0
    break
  #IF
  #SAY
You have done what is required of Today's Quest\


[@TodayQuest_Monster_Total_Case2]
  #IF
    !Equal A1 %A8
  #ACT
    break
  #ELSEACT
    Movr D4 %D1
  #IF
    Equal D4 0
  #ACT
    Give %A2 1
  #IF
    Checkitem %A2 %D2
  #ACT
    FormatSTR "FLD_UserName='%s'" %USERNAME
    UpdateValueSQL "TBL_DairyQuestUser" %A9 "FLD_Step='PreEnd'"
    Set [210] 0
    break
  #SAY
You have all of the items for Today's Quest\
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;