;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@EvilDead]
#IF
#ACT
FormatStr "FLD_QUEST ='Halloween' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @EvilDeadOne


[@EvilDeadOne()]
#ACT
mov D1 %ARG(1)
#IF
Equal D1  1
#ACT
FormatStr "FLD_QUEST ='Halloween' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_VAR1" @EvilDeadTWo

[@EvilDeadTwo()]
#ACT
Mov  D1  %ARG(1)
Mov  D2  100
Inc  D1  %D2
Mov  A0  %USERNAME
Mov  A1  "Halloween"
FormatStr "FLD_VAR1=%s" %D1
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8

[@EvilDead1]
#IF
#ACT
FormatStr "FLD_QUEST ='Halloween' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @EvilDead1One


[@EvilDead1One()]
#ACT
mov D1 %ARG(1)
#IF
Equal D1  1
#ACT
FormatStr "FLD_QUEST ='Halloween' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_VAR1" @EvilDead1TWo

[@EvilDead1Two()]
#ACT
Mov  D1  %ARG(1)
Mov  D2  10
Inc  D1  %D2
Mov  A0  %USERNAME
Mov  A1  "Halloween"
FormatStr "FLD_VAR1=%s" %D1
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8


[@EvilDead2]
#IF
#ACT
FormatStr "FLD_QUEST ='Halloween' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @EvilDead2One


[@EvilDead2One()]
#ACT
mov D1 %ARG(1)
#IF
Equal D1  1
#ACT
FormatStr "FLD_QUEST ='Halloween' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_VAR1" @EvilDead2TWo

[@EvilDead2Two()]
#ACT
Mov  D1  %ARG(1)
Mov  D2  1
Inc  D1  %D2
Mov  A0  %USERNAME
Mov  A1  "Halloween"
FormatStr "FLD_VAR1=%s" %D1
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Mov A0  %GUILDNAME
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;