// creator  : weidu.exe (version 23100)
// argument : _ARKION.DLG
// game		 : .
// source	 : ./override/_ARKION.DLG
// dialog	 : ./DIALOG.TLK
// dialogF  : (none)

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

IF ~~ THEN BEGIN 0 // from:
  SAY #85264 /* ~Go away, I have no need of good folks like yerselves... Yer 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 #85265 /* ~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 #85266 /* ~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 a 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~ 160
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~_FALDOJ~ 161
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~_VICONJ~ 193
  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~ 195
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~_SKIEJ~ 191
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~_JAHEIJ~ 384
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~_EDWINJ~ 167
  IF ~Global("X#ARKION1","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ARKION1","GLOBAL",1)~ EXTERN ~_ALORAJ~ 118
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 #85267 /* ~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 #85268 /* ~Ah, a ripe one. Ya've done well, there haven't ya. Here's 250 gp to relieve the stink of it all... Ah, Nemphre, I'll have that ring yet!~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ 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~ 234
  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~ 46
END

IF ~~ THEN BEGIN 4 // from:
  SAY #85269 /* ~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 gp. Money is the only thing that still removes the stink of the world.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
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~ 107
END

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

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

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

IF ~~ THEN BEGIN 8 // from: 1.4
  SAY #103386 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #85266 /* ~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 a 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~ 194
END

IF ~~ THEN BEGIN 9 // from:
  SAY #103386 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #85266 /* ~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 a house just south of the Elfsong tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 168
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 167
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~_VICONJ~ 196
END

IF ~~ THEN BEGIN 10 // from:
  SAY #103386 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #85266 /* ~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 a house just south of the Elfsong tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 170
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 169
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~_VICONJ~ 198
END

IF ~~ THEN BEGIN 11 // from:
  SAY #103386 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #85266 /* ~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 a house just south of the Elfsong tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 172
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 171
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~_VICONJ~ 200
END

IF ~~ THEN BEGIN 12 // from: _EDWINJ:167.4
  SAY #103386 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #85266 /* ~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 a house just south of the Elfsong tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 174
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 173
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~_VICONJ~ 202
END

IF ~~ THEN BEGIN 13 // from: _EDWINJ:168.4 _ALORAJ:118.4
  SAY #103386 /* ~Beggin' ye're pardon, dark lady, if ye find it morally objec-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #85266 /* ~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 a house just south of the Elfsong tavern.~ */ EXIT
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 176
  IF ~  InParty("faldorn")
InMyArea("faldorn")
!StateCheck("faldorn",CD_STATE_NOTVALID)
~ THEN EXTERN ~_FALDOJ~ 175
  IF ~  InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN EXTERN ~_VICONJ~ 204
END

IF ~~ THEN BEGIN 14 // from: 3.1
  SAY #99096 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ EXIT
END

IF ~~ THEN BEGIN 15 // from:
  SAY #99096 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ EXIT
END

IF ~~ THEN BEGIN 16 // from: 3.3
  SAY #32302 /* ~I do not.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ 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~ 235
END

IF ~~ THEN BEGIN 17 // from: 16.1
  SAY #99096 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ EXIT
END

IF ~~ THEN BEGIN 18 // from:
  SAY #32302 /* ~I do not.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ 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~ 236
END

IF ~~ THEN BEGIN 19 // from: 18.1
  SAY #99096 /* ~I have no time for philosophy.~ */
  IF ~~ THEN DO ~EraseJournalEntry(85266)
SetGlobal("HelpArkion","GLOBAL",1)
TakePartyItem("_MISC80")
GivePartyGold(250)
AddexperienceParty(1800)
~ SOLVED_JOURNAL #88945 /* ~A corpse for Arkion

I delivered a corpse to Arkion the necromancer, as requested.  He rewarded me with some gold for my trouble.~ */ EXIT
END
