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

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

IF ~~ THEN BEGIN 0 // from:
  SAY #15010 /* ~Go away. I have no need of good folks like yerselves... Ye're prob'ly Nemphre's dirty agents anyhow. You tell her that I'm on to her, that Arkion has plans.~ */
  IF ~~ THEN DO ~EscapeArea()
~ EXIT
END

IF WEIGHT #0 ~  NumberOfTimesTalkedTo(0)
~ THEN BEGIN 1 // from:
  SAY #15011 /* ~I've got a dirty deed fer ya. How 'bout you go down into the sewers and bring me up a body. Now, I don't ask questions 'bout how you come 'bout them and I don't want any questions 'bout what I use 'em fer. Bring 'em to me when ya find 'em.~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~FALDOJ~ 150
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~FALDOJ~ 151
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~VICONJ~ 201
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ GOTO 8
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~VICONJ~ 203
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~SKIEJ~ 196
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~JAHEIJ~ 389
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~EDWINJ~ 179
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~ALORAJ~ 109
END

IF WEIGHT #3 /* Triggers after states #: 3 5 even though they appear after this state */
~  Global("HelpArkion","GLOBAL",0)
~ THEN BEGIN 2 // from:
  SAY #15014 /* ~So, have ya got a few stiffs fer me?~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~  PartyHasItem("MISC80")
Global("HelpArkion","GLOBAL",0)
~ THEN BEGIN 3 // from:
  SAY #15015 /* ~Ah, a ripe one. Ya've done well there, haven't ya? Here's 250 gold pieces to relieve the stink of it all. Ah, Nemphre, I'll have that ring yet!~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
  IF ~Global("X#ARKION3","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION3","GLOBAL",1)~ GOTO 14
  IF ~Global("X#ARKION3","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION3","GLOBAL",1)~ EXTERN ~XZARJ~ 238
  IF ~Global("X#ARKION3","GLOBAL",0)
InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION3","GLOBAL",1)~ GOTO 16
  IF ~Global("X#ARKION3","GLOBAL",0)
InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION3","GLOBAL",1)~ EXTERN ~QUAYLJ~ 41
END

IF ~~ THEN BEGIN 4 // from:
  SAY #15016 /* ~Even more than I asked fer, my dark cousin. Maybe you an' I should go into business sometime. I could tell ya all 'bout the betrayals of Nemphre, 'bout the insult of that onyx ring she holds... Here, take 400 gold pieces. Money is the only thing that still removes the stink of the world.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
GivePartyGold(400)
AddexperienceParty(1800)
~ EXIT
  IF ~Global("X#XzarArkion2","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#XzarArkion2","GLOBAL",1)~ EXTERN ~XZARJ~ 111
END

IF WEIGHT #2 ~  False()
~ THEN BEGIN 5 // from:
  SAY #15017 /* ~Ya plan to give me my own corpse, do ya? I'll have yer's first, my dark cousin. Aye, I'll have yer's first.~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #4 ~  True()
~ THEN BEGIN 6 // from:
  SAY #15018 /* ~Live long in the stench of the dead, cousin.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 7 // from:
  SAY #45743 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
GivePartyGold(400)
AddexperienceParty(1800)
~ EXIT
END

IF ~~ THEN BEGIN 8 // from: 1.4
  SAY #50078 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 156
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 155
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~VICONJ~ 202
END

IF ~~ THEN BEGIN 9 // from:
  SAY #50078 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 158
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 157
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~VICONJ~ 204
END

IF ~~ THEN BEGIN 10 // from:
  SAY #50078 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 160
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 159
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~VICONJ~ 206
END

IF ~~ THEN BEGIN 11 // from:
  SAY #50078 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 162
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 161
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~VICONJ~ 208
END

IF ~~ THEN BEGIN 12 // from: EDWINJ:179.4
  SAY #50078 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 164
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 163
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~VICONJ~ 210
END

IF ~~ THEN BEGIN 13 // from: ALORAJ:109.4 EDWINJ:180.4
  SAY #50078 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #26853 /* ~A Corpse for Arkion
A necromancer named Arkion is in need of corpses and has singled me out for the task of finding one. According to him, the sewers are the best place for that sort of thing. If I were to decide to procure one for him, I can find him again in his house just south of the Elfsong Tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 166
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~FALDOJ~ 165
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~VICONJ~ 212
END

IF ~~ THEN BEGIN 14 // from: 3.1
  SAY #45743 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
END

IF ~~ THEN BEGIN 15 // from:
  SAY #45743 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
END

IF ~~ THEN BEGIN 16 // from: 3.3
  SAY #50083 /* ~I do not.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 17
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 239
END

IF ~~ THEN BEGIN 17 // from: 16.1
  SAY #45743 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
END

IF ~~ THEN BEGIN 18 // from:
  SAY #50083 /* ~I do not.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 19
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 240
END

IF ~~ THEN BEGIN 19 // from: 18.1
  SAY #45743 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(26853)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #26854 /* ~A Corpse for Arkion
Arkion the necromancer has his corpse, and I have some more gold.~ */ EXIT
END
