;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@main]
#IF
Check [251] 1
Check [252] 0
#ACT
FormatStr "FLD_QUEST ='Doreen' and FLD_CHARACTER='%s'" %USERNAME
ReadValueSql "TBL_StingQuests" %A9 "FLD_Stage" @DoreenQuestStage
Break

#IF
Check [251] 1
Check [252] 1
#SAY
Hi, thanks for everything you have done for me\
<[ Exit ]/@exit>\\

#ELSESAY
Your Just the person I have been looking for!\
<[ Why? ]/@Main>\
#ELSEACT
Set  [251] 1


[@DoreenQuestStage()]
#IF
#ACT
Mov   D1   %ARG(1)

#IF
Equal  D1  0
#ACT
Goto @DoreenQuest0
Break

#IF
Equal  D1  1
#ACT
Goto @DoreenQuest1
Break

#IF
Equal  D1  2
#ACT
Goto @DoreenQuest2
Break

#IF
Equal  D1  3
#ACT
Goto @DoreenQuest3
Break

#IF
Equal  D1  4
#ACT
Goto @DoreenQuest4
Break

#IF
Equal  D1  5
#ACT
Goto @DoreenQuest5
Break

#IF
Equal  D1  6
#ACT
Goto @DoreenQuest6
Break

#IF
#SAY
<$OUTPUT(D1)> D1 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 0
[@DoreenQuest0]
#SAY
My {FCOLOR/10}Bracelet{FCOLOR/12} was stolen, and I think it may have been\
a pesky {FCOLOR/10}Oma{FCOLOR/12}. Do you think you could get it back\
for me?\\
<[ Yes, I'd be glad to ]/@DoreenQuest0_1>\
<[ No, I haven't got time right now ]/@exit>\\\
#ACT
Break

[@DoreenQuest0_1]
#SAY
Excellent, thanks.  I hope to speak to you soon.\\
<[ Exit ]/@exit>\
#ACT
Mov  A0  %USERNAME
Mov  A1  "Doreen"
Mov  D0  1
FormatStr "'%s','%s',%s" %A0 %A1 %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
WriteValueSql "TBL_StingQuests" %A9 "FLD_CHARACTER,FLD_QUEST,FLD_STAGE" %A8

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 1
[@DoreenQuest1]
#SAY
You've forgotten already!!  Can you please get my\
{FCOLOR/10}Bracelet{FCOLOR/12} off that nasty {FCOLOR/10}Oma{FCOLOR/12}?\\
<[ Yes, sorry I'm on it! ]/@exit>\\
#ACT
Break

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 2
[@DoreenQuest2]

#IF
CheckItem DoreensBracelet 1

#SAY
Thank You, it goes with my {FCOLOR/10}Earrings{FCOLOR/12}.\
Unfortunately however, one of them is missing.\
Could you search amongst the {FCOLOR/10}OmaWarriors{FCOLOR/12} and see\
if they have it?\\
<[ Yes, no problem ]/@DoreenQuest2_1>\
<[ No, I'm busy ]/@exit>\\\

#ACT
Take DoreensBracelet 1
Give Gold 25000
Mov  A0  %USERNAME
Mov  A1  "Doreen"
Mov  D0  3
FormatStr "FLD_STAGE=%s" %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Break

#ELSESAY
Please fetch me my {FCOLOR/10}Bracelet{FCOLOR/12}.. I really need it\\
<[ I'll go fetch it ]/@exit>\\
#ELSEACT
Break

[@DoreenQuest2_1]
#SAY
Your so nice, thanks for all your help.\\
<[ Exit ]/@exit>\
#ACT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 3
[@DoreenQuest3]
#SAY
Please hurry and find my {FCOLOR/10}Earring{FCOLOR/12}, I have a night\
out planned, an {FCOLOR/10}OmaWarrior{FCOLOR/12} has it!!\\
<[ I'll Look Now ]/@exit>\
#ACT
Break

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 4
[@DoreenQuest4]

#IF
CheckItem DoreensEarring 1

#SAY
Thanks very much, I'm so grateful to you. However,\
whilst you were away, that terrible {FCOLOR/10}OmaChief{FCOLOR/12} came\
and snatched my matching {FCOLOR/10}Necklace{FCOLOR/12} away. I hate to\
ask you for another favour, but do you think you\
could find him and take it back from him?\
<[ Yeah, sure ]/@DoreenQuest4_1>\
<[ No way, do you think Im nuts ]/@exit>\\\

#ACT
Take DoreensEarring 1
Give Gold 50000
Mov  A0  %USERNAME
Mov  A1  "Doreen"
Mov  D0  5
FormatStr "FLD_STAGE=%s" %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Break

#ELSESAY
Please hurry and find my {FCOLOR/10}Earring{FCOLOR/12}, I have a night\
out planned, an {FCOLOR/10}OmaWarrior{FCOLOR/12} has it!!\\
<[ I'll Look Now ]/@exit>\

#ELSEACT
Break

[@DoreenQuest4_1]
#SAY
Your so nice, thanks for all your help.\\
<[ Exit ]/@exit>\
#ACT

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 5
[@DoreenQuest5]
#SAY
I know that {FCOLOR/10}OmaChief{FCOLOR/12} is a nasty Character, but can you\
try and get my {FCOLOR/10}Necklace{FCOLOR/12} back plzzzzzzz!!\\
<[ I'll Look Now ]/@exit>\
#ACT
Break

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Part 6
[@DoreenQuest6]

#IF
CheckItem DoreensNecklace 1

#SAY
Oh, Ill never be able to thank you enough for all\
youve done! Its not much, but please accept this \
small reward as a token of my gratitude\\
<[ Here to Please! ]/@exit>\

#ACT
Take DoreensNecklace 1
Give Gold 75000
Mov  A0  %USERNAME
Mov  A1  "Doreen"
Mov  D0  7
FormatStr "FLD_STAGE=%s" %D0
Mov A8 %A9
FormatStr "FLD_CHARACTER='%s' and FLD_QUEST='%s'" %A0 %A1
UpdateValueSql "TBL_StingQuests" %A9 %A8
Set  [252]  1
Break

#ELSESAY
Please tell me you haven't lost my {FCOLOR/10}Necklace{FCOLOR/12}, its a \
one of a kind, I would be lost without it.\\

<[ I have it somewhere ]/@exit>\

#ELSEACT
Break


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