;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@AnneForestYeti]
#IF
Check [260] 0
Random 50
#ACT
FormatStr "FLD_QUEST ='Anne' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @AnneForestYeti


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

#IF
Equal D1  1
#ACT
Give RedPotion 1
Mov  A0  %USERNAME
Mov  A1  "Anne"
Mov  D0  2
FormatStr "FLD_STAGE=%s" %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Break
#SAY
RedPotion Obtained\\
<[ Exit ]/@exit>\\
#IF
#ACT
break


[@AnneZumaArcher]
#IF
Check [260] 0
Random 50
#ACT
FormatStr "FLD_QUEST ='Anne' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @AnneZumaArcher1


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

#IF
Equal D1  3
#ACT
Give BluePotion 1
Mov  A0  %USERNAME
Mov  A1  "Anne"
Mov  D0  4
FormatStr "FLD_STAGE=%s" %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Break
#SAY
BluePotion Obtained\\
<[ Exit ]/@exit>\\

#IF
#ACT
break


[@AnneBlackCaptain]
#IF
Check [260] 0
#ACT
FormatStr "FLD_QUEST ='Anne' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @AnneBlackCaptain1


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

#IF
Equal D1  5
#ACT
Give GreenPotion 1
Mov  A0  %USERNAME
Mov  A1  "Anne"
Mov  D0  6
FormatStr "FLD_STAGE=%s" %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Break
#SAY
GreenPotion Obtained\\
<[ Exit ]/@exit>\\

#IF
#ACT
break

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