// creator  : weidu.exe (version 23600)
// argument : NEMPHR.DLG
// game     : .
// source   : ./override/NEMPHR.DLG
// dialog   : lang\en_us/dialog.tlk
// dialogF  : (none)

BEGIN ~NEMPHR~
//////////////////////////////////////////////////
// WARNING: this file contains non-trivial WEIGHTs
//////////////////////////////////////////////////

IF WEIGHT #5 /* Triggers after states #: 1 2 3 4 5 even though they appear after this state */
~  True()
~ THEN BEGIN 0 // from:
  SAY #15019 /* ~I have little need of one such as you.~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #0 ~  Global("HelpNemphre","GLOBAL",0)
ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
Gender(LastTalkedToBy,MALE)
~ THEN BEGIN 1 // from:
  SAY #15020 /* ~You will make an adequate pawn. Don't argue, as I have little patience for your prattle. There is a dark mage at work somewhere in this city and he must be stopped. He goes by the name of Arkion and has a bloodstone amulet that is of great importance to my plans. Return it to me and I will reward you greatly.~ */
  IF ~~ THEN DO ~SetGlobal("HelpNemphre","GLOBAL",1)
~ UNSOLVED_JOURNAL #27318 /* ~Arkion's Bloodstone Amulet
I have met a necromancer by the name of Nemphre here in Baldur's Gate... and I must admit, I think I am in a bit over my head. She has asked me to obtain a bloodstone amulet from a man named Arkion and return it to her. The only trouble is, Arkion sounds like a rather powerful mage, and I get the sense that he won't part with that amulet willingly... There is something about this city that scares me, somehow. Nemphre can be found in a house just south of the Elfsong Tavern.~ */ EXIT
END

IF WEIGHT #1 ~  Global("HelpNemphre","GLOBAL",0)
ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)
Gender(LastTalkedToBy,MALE)
~ THEN BEGIN 2 // from:
  SAY #15021 /* ~Mmm, you are a sweet one. Could you do a favor for Nemphre? An old lover of mine has followed me here to the city and has been threatening me with some very dark magic. His name is Arkion and, if you could just get a certain amulet of his to me, perhaps there are a few things I could do for you, don't you think, mmn?~ */
  IF ~~ THEN DO ~SetGlobal("HelpNemphre","GLOBAL",1)
~ UNSOLVED_JOURNAL #27319 /* ~Arkion's Bloodstone Amulet
There is a woman in Baldur's Gate who has been gifted with the... succulent... name of Nemphre. I must admit, I am torn between a certain sense of passion and a much less certain sense of foreboding. Arkion, an old lover of hers, has apparently kept an amulet of hers that she would like to have returned. Maybe if I could just talk to him... I found Nemphre in a house just south of the Elfsong Tavern.~ */ EXIT
END

IF WEIGHT #2 ~  PartyHasItem("OHAMUL13")
Global("HelpNemphre","GLOBAL",1)
~ THEN BEGIN 3 // from:
  SAY #15022 /* ~You are a sweet fool but a fool nonetheless. Here, take this scroll and go. I have no further need of you.~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
  IF ~Global("X#NEMPHR3","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#NEMPHR3","GLOBAL",1)~ GOTO 6
  IF ~Global("X#NEMPHR3","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#NEMPHR3","GLOBAL",1)~ EXTERN ~EDWINJ~ 140
  IF ~Global("X#NEMPHR3","GLOBAL",0)
InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#NEMPHR3","GLOBAL",1)~ GOTO 8
  IF ~Global("X#NEMPHR3","GLOBAL",0)
InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#NEMPHR3","GLOBAL",1)~ EXTERN ~CORANJ~ 293
END

IF WEIGHT #3 ~  Global("HelpNemphre","GLOBAL",1)
~ THEN BEGIN 4 // from:
  SAY #15023 /* ~How many times must I ask you to do my bidding, imbecile? Find Arkion and get his amulet to me and do it NOW!~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #4 ~  False()
~ THEN BEGIN 5 // from:
  SAY #15024 /* ~You dare to attack the great Nemphre? You shall shrivel in the face of my wrath.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 6 // from: 3.1
  SAY #46976 /* ~Aiyee!~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
END

IF ~~ THEN BEGIN 7 // from:
  SAY #46976 /* ~Aiyee!~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
END

IF ~~ THEN BEGIN 8 // from: 3.3
  SAY #49852 /* ~Get lost, already!~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN GOTO 9
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN EXTERN ~EDWINJ~ 141
END

IF ~~ THEN BEGIN 9 // from: 8.1
  SAY #46976 /* ~Aiyee!~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
END

IF ~~ THEN BEGIN 10 // from:
  SAY #49852 /* ~Get lost, already!~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN GOTO 11
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN EXTERN ~EDWINJ~ 142
END

IF ~~ THEN BEGIN 11 // from: 10.1
  SAY #46976 /* ~Aiyee!~ */
  IF ~~ THEN DO ~EraseJournalEntry(27318)
EraseJournalEntry(27319)
EraseJournalEntry(27320)
EraseJournalEntry(27321)
SetGlobal("HelpNemphre","GLOBAL",2)
TakePartyItem("OHAMUL13")
GiveItem("SCRL1Q",LastTalkedToBy)
AddexperienceParty(1000)
~ SOLVED_JOURNAL #27322 /* ~Arkion's Bloodstone Amulet
For returning Arkion's amulet to Nemphre, I have a nice new magical scroll.~ */ EXIT
END
