APPEND ~7XXZARJ~

// Human Flesh
IF WEIGHT #-99 ~Global("XzarHumanFlesh","GLOBAL",1)~ THEN BEGIN XzarHumanFlesh1
SAY @2
=
@3
IF ~~ THEN DO ~SetGlobal("XzarHumanFlesh","GLOBAL",2)~ EXIT
END

// Illithid Lair
IF WEIGHT #-99 ~Global("XzarAR0711","AR0711",2) AreaCheck("AR0711") RealGlobalTimerExpired("XzarAR0711TalkTimer","GLOBAL") ~ THEN BEGIN XzarIllithidLair1
SAY @0
=
@1
IF ~~ THEN DO ~SetGlobal("XzarAR0711","AR0711",3)~ EXIT
END

// Spellhold
IF WEIGHT #-99~Global("XzarAR1515","AR1515",2) AreaCheck("AR1515") RealGlobalTimerExpired("XzarAR1515TalkTimer","GLOBAL") ~ THEN BEGIN XzarSpellhold
  SAY @4
=
@5
=
@6 
IF ~~ THEN DO ~SetGlobal("XzarAR1515","AR1515",3)~ EXIT
END

// HarperLair
IF WEIGHT #-99~Global("XzarAR0308","AR0308",2)AreaCheck("AR0308") RealGlobalTimerExpired("XzarAR0308TalkTimer","GLOBAL") ~ THEN BEGIN XzarHaperLair
  SAY @7 
IF ~~ THEN DO ~SetGlobal("XzarAR0308","AR0308",3)~ EXIT
END


// AR0502
IF WEIGHT #-99~Global("Xzarar0502","AR0502",1) AreaCheck("ar0502")~ THEN BEGIN XzarDowntheHole
  SAY @8
IF ~~ THEN DO ~SetGlobal("Xzarar0500","AR0502",2)~ EXIT
END

// Bridge
IF WEIGHT #-99 ~Global("XzarAR0500","AR0500",2) AreaCheck("ar0500") RealGlobalTimerExpired("XzarAR0500TalkTimer","GLOBAL")~ THEN BEGIN XzarDrowning
  SAY @9
=
@10
=
@11
IF ~~ THEN DO ~SetGlobal("XzarAR0500","AR0500",3)~ EXIT
END


// Promenade
IF WEIGHT #-99 ~Global("XzarAR0700","AR0700",2) AreaCheck("ar0700") RealGlobalTimerExpired("XzarAR0700TalkTimer","GLOBAL") ~ THEN BEGIN XzarCityComment
SAY @12
=
@13
=
@14
=
@15 
IF ~~ THEN DO ~SetGlobal("XzarAR0700","AR0700",3)~ EXIT
END

// Underdark
IF WEIGHT #-99 ~Global("XzarAR2100","AR2100",2) AreaCheck("AR2100") RealGlobalTimerExpired("XzarAR2100TalkTimer","GLOBAL") ~ THEN BEGIN XzarUnderdarkComment
SAY @16
=
@17 
IF ~~ THEN DO ~SetGlobal("XzarAR2100","AR2100",3)~ EXIT
END

// Graveyard
IF WEIGHT #-99 ~Global("XzarAR0800","AR0800",2) AreaCheck("ar0800") RealGlobalTimerExpired("XzarAR0800TalkTimer","GLOBAL")~ THEN BEGIN XzarGraveTalk1
  SAY @18
=
@19
IF ~~ THEN REPLY @20 DO ~SetGlobal("XzarAR0800","AR0800",3)~ GOTO XzarGraveTalk1-1
IF ~~ THEN REPLY @21 DO ~SetGlobal("XzarAR0800","AR0800",3)~ GOTO XzarGraveTalk1-1
IF ~~ THEN REPLY @22 DO ~SetGlobal("XzarAR0800","AR0800",3)~ GOTO XzarGraveTalk1-1
IF ~~ THEN REPLY @23 DO ~SetGlobal("XzarAR0800","AR0800",3)~ GOTO XzarGraveTalk1-1
END

IF ~~ THEN BEGIN XzarGraveTalk1-1
  SAY @24
IF ~~ THEN EXIT
END

END

INTERJECT_COPY_TRANS COPCUST1 1 XzarCOPCUST1-1
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@438
=
@439
=
@440
END

INTERJECT_COPY_TRANS TORGAL 0 XzarTorGal
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@441
=
@442
==TORGAL
@443
END

INTERJECT_COPY_TRANS TRSKIN02 16 xzarcommentmurder1
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@444
=
@445
END


I_C_T PLAYER1 16 XzarIrenicusDead
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @446
=
@447
END

I_C_T PLAYER1 25 XzarInHell
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @448
=
@449
=
@450
END



I_C_T HELLJON 7 XzarDoesntLikeIrenicus
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @451
END

I_C_T HELLJON 8 XzarDoesntLikeIrenicus
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @451
END

I_C_T HELLJON 9 xzarDoesntLikeIrenicus
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @451
END

I_C_T HELLJON 10 XzarDoesntLikeIrenicus
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @451
END

I_C_T IMOEN2 22 XzarLeaveImoen
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @452
END

I_C_T BODHI 12 XzarBodhi12
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @453
=
@454
END

I_C_T BODHI 26 XzarBodhi26
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @455
END

INTERJECT_COPY_TRANS BODHIAMB 0 XzarBodhi3
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@456 
END 

INTERJECT_COPY_TRANS C6BODHI 0 XzarBodhi4
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@457 
END


I_C_T HAERDA 109 XzarHaerDalisUnderSpell
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN 
@458
=
@459
END

I_C_T PPSAEM 59 SaemonBetraysXzar
== 7XXZARJ IF ~InParty("7XXZAR")!StateCheck("7XXZAR",CD_STATE_NOTVALID) InMyArea("7XXZAR")~ THEN
@460
END

I_C_T PPSAEM2 19 SaemonXzarTalk1
== 7XXZARJ IF ~InParty("7XXZAR")!StateCheck("7XXZAR",CD_STATE_NOTVALID) InMyArea("7XXZAR")~ THEN
@461
END

I_C_T PPSAEM 14 XzarSaemonBrynnlaw1 
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN 
@462
 END

I_C_T PPSAEM 53 XzarSaemonBrynnlaw2
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@462
 END

I_C_T PPIMOEN 4 XZARImoenMad 
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@463 
END

INTERJECT_COPY_TRANS BEGGAR1 0 xzarcommentbeggar
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@464
=
@465
END 


INTERJECT_COPY_TRANS BELMIN 0 xzarcommentbelmin
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@466
=
@467
END 

INTERJECT_COPY_TRANS BPROST2 0 xzarcommentpros
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@468
END

INTERJECT_COPY_TRANS GUARD1 0 Xzarcommentguard1
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN
@469
END 

I_C_T TANWIZ1 0 XzarTANWIZ1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@470
=
@471 
END

I_C_T AERIEJ 78 XzarAERIEJ78
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@472
=
@473 
== AERIEJ @474
== 7XXZARJ @475
=
@476
== 7XMONTJ IF ~InParty("7XMONT") InMyArea("7XMONT") !StateCheck("7XMONT",CD_STATE_NOTVALID)~ THEN @477
== AERIEJ @478
=
@479
== 7XXZARJ @169
END



I_C_T TANNER 18 XzarTanner18
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@480 
== TANNER @481
== 7XMONTB IF ~InParty("7XMONT") InMyArea("7XMONT") !StateCheck("7XMONT",CD_STATE_NOTVALID)~ THEN @482
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@483 
END


I_C_T NEEBER 5 XzarNeeber5
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@484
END


I_C_T NALIAJ 246 XzarNALIAJ246
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@485
=
@486
END

I_C_T BODHI 18 XzarSidingWithBodhi18
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@487
END

I_C_T INSPECT 9 XzarINSPECT-9
== 7XXZARJ IF
~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
 @488 
END

I_C_T INSPECT 13 XzarBridgeKillings
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
 @489
=
@490
END


I_C_T MAEVAR 31 XzarKillingEmbarl
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@491
END

I_C_T BOOTER 3 XzarBooter1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@492
END

I_C_T FIRKRA01 9 XzarFir1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@493
== FIRKRA01 @494
END


I_C_T BARONP 57 XzarBaronP1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
 @495
=
@496
END

I_C_T BARONP 0 XzarBaronP2
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@497
=
@498
== BARONP
@499
=
@500
END

I_C_T BARONP 40 XzarPloyer4
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@501
=
@502
END

I_C_T BARONP 42 XzarPloyer3
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@503
END

INTERJECT_COPY_TRANS SPPAIN 0 xzar-paina
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@504
=
@505
==SPPAIN
@506
== 7XXZARJ
@507
==SPPAIN
@508
=
@509
END

INTERJECT_COPY_TRANS ARAN 0 xzar-aran1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@510
==ARAN
@511
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@512
=
@513
==ARAN
@514
=
@515
END

INTERJECT_COPY_TRANS ARAN 4 Xzar-aran2
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@516
END

INTERJECT_COPY_TRANS ARAN 14 xzarcommentaranmeet6
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@517
END 


INTERJECT_COPY_TRANS VICONI 2 XzarVic
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@518
END

INTERJECT_COPY_TRANS ARNBOY01 3 XzarArnboy
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@519
END


INTERJECT_COPY_TRANS C6ELHAN2 28 XzarElhan
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@520
=
@521
END

INTERJECT_COPY_TRANS2 EDWINW 0 XzarEdwinaW
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@522
=
@523
END



I_C_T YOSHJ 113 YoshBetrayalReactionXzar
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@524
END


I_C_T BEGGAR3 0 Xzar-BEGGAR3
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN 
@525
END

I_C_T BRAT1 8 Xzar-Brat1
== 7XXZARJ IF ~InParty("7XXZAR")InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN 
@526
END

I_C_T BRAT1 9 Xzar-Brat2
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN 
@527
=
@528
END

I_C_T BRAT2 7 XzarBrat2-1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@529
END

I_C_T BRAT2 6 XzarBrat2-2
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@530
END


I_C_T DCOWL1 1 XzarRayic-1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@531
== DCOWL1 @532
== 7XXZARJ @533
== DCOWL1 @534
END

I_C_T DCOWL1 3 XzarRayic-2
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@531
== DCOWL1 @532
== 7XXZARJ @533
== DCOWL1 @534
END


I_C_T MARCUS 2 XzarMarcus2-1
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@535
== MARCUS @536
END

I_C_T PPIRENI1 0 XzarPPIRENI1-0
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@537
END

I_C_T PLAYER1 10 XzarPLAYER1-10
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN 
@538
END

I_C_T C6ELHAN2 73 XzarC6ELHAN2-73
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN @539
=@540
== C6ELHAN2 @541
END

// Tree of Life
INTERJECT PLAYER1 33 TreeOLifeXzar1
== PLAYER1 IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN @542
END
++ @543 EXTERN 7XXZARJ TreeOLifeXzar2
++ @544 EXTERN 7XXZARJ TreeOLifeXzar2

APPEND 7XXZARJ
IF ~~ THEN BEGIN TreeOLifeXzar2
SAY @545
=@546
COPY_TRANS PLAYER1 33
END
END

I_C_T BHOISIG 15 XzarBHOISIG-15
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN @547
=@548
== BHOISIG @549
END

I_C_T FIRKRA02 0 XzarFIRKRA02-0
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN
@550
END
//

I_C_T BODHI 1 XzarBodhi1
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @559
== BODHI @560
== 7XXZARJ @561
== BODHI @562
== 7XXZARJ @563
END

I_C_T FIRKRA02 19 XzarFIRKRA0219
== 7XXZARJ IF ~!StateCheck("7XXZAR",CD_STATE_NOTVALID)InParty("7XXZAR") InMyArea("7XXZAR")~ THEN @564
== FIRKRA02 @565
== 7XMONTJ IF ~InParty("7XMONT") InMyArea("7XMONT") !StateCheck("7XMONT",CD_STATE_NOTVALID)~ THEN @566
== IF_FILE_EXISTS DORNJ IF ~InParty("Dorn") InMyArea("Dorn") !StateCheck("Dorn",CD_STATE_NOTVALID) OR(3) !InParty("7XMONT") !InMyArea("7XMONT") StateCheck("7XMONT",CD_STATE_NOTVALID)~ THEN @566
== KORGANJ IF ~InParty("Korgan") InMyArea("Korgan") !StateCheck("Korgan",CD_STATE_NOTVALID) OR(3) !InParty("Dorn") !InMyArea("Dorn") StateCheck("Dorn",CD_STATE_NOTVALID) OR(3) !InParty("7XMONT") !InMyArea("7XMONT") StateCheck("7XMONT",CD_STATE_NOTVALID)~ THEN @566
== 7XXZARJ @567
== FIRKRA02 @568
== 7XXZARJ @569
== FIRKRA02 @570
END

I_C_T BODHI 34 XzarBodhi34
== 7XXZARJ IF ~InParty("7XXZAR") InMyArea("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN @571
== BODHI @572
END

I_C_T PPBODHI4 13 XzarPPBODHI4-13
== 7XXZARJ IF ~InParty("7XXZAR") !StateCheck("7XXZAR",CD_STATE_NOTVALID)~ THEN @589
== PPBODHI4 @590
END