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

BEGIN ~_CARSA~

IF ~True()
~ THEN BEGIN 0 // from:
  SAY #77657 /* ~He's driving me... mad!  Oh please make it stop, make him stop his screaming.  AAAHhhhhhh... Shut it up!~ */
  IF ~~ THEN REPLY #77658 /* ~What's wrong?  What is driving you to madness.  Lady, if you want help, you're going to have to calm down.~ */ GOTO 2
  IF ~~ THEN REPLY #77659 /* ~Get away from us you crazy wench!~ */ GOTO 1
END

IF ~~ THEN BEGIN 1 // from: 2.1 0.1
  SAY #77660 /* ~No one will help me... no one will help...~ */
  IF ~~ THEN DO ~EscapeArea()
~ EXIT
  IF ~Global("X#ImoenCarsa1","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#ImoenCarsa1","GLOBAL",1)~ EXTERN ~_IMOEN2~ 170
END

IF ~~ THEN BEGIN 2 // from: 0.0
  SAY #77661 /* ~He... it's in my head.  It won't be quiet, just keeps on whispering, and whispering.  You see this jar.  Do you SEE it?!!!~ */
  IF ~~ THEN REPLY #77662 /* ~We see the jar lady, now just calm down and tell us what's happening.~ */ GOTO 3
  IF ~~ THEN REPLY #77663 /* ~You're a crazy one.  Too crazy for us.  Take your jar and get away from us.~ */ GOTO 1
  IF ~Global("X#XzarCarsa1","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#XzarCarsa1","GLOBAL",1)~ EXTERN ~_XZARJ~ 109
END

IF ~~ THEN BEGIN 3 // from: 2.0
  SAY #77664 /* ~My companions and I... we explored the Firewine ruins... and we found... we found, this jar.  It... it drove them all mad.  They hacked and they cut, and... the blood, so much blood.  They're all dead now, and only I'm left.  The voice... it tells me to say the name.  If I say the name, it promises great rewards.  But... I won't... I won't.~ */
  IF ~~ THEN REPLY #77665 /* ~What do you want us to do lady.  How can we help you?~ */ GOTO 4
  IF ~~ THEN REPLY #77666 /* ~Give us the jar, we'll know what to do with it.~ */ GOTO 5
  IF ~Global("X#XzarCarsa2","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#XzarCarsa2","GLOBAL",1)~ EXTERN ~_XZARJ~ 110
END

IF ~~ THEN BEGIN 4 // from: 3.0
  SAY #77667 /* ~Poor Carsa cannot be helped.  You can't help Carsa!  You must run, and run fast.  Soon Carsa will not be able to resist... soon Carsa will say its name.  Then it will come... and there will be blood... my blood, your blood.~ */
  IF ~~ THEN REPLY #77668 /* ~Ahhh, I think we had better get away from this woman quickly.  Okay Carsa, thanks for everything.  Good luck on the jar thing.~ */ GOTO 7
  IF ~~ THEN REPLY #77669 /* ~Just give us the jar Carsa.  We'll know what to do with it.  Don't worry.~ */ GOTO 5
  IF ~Global("X#QuaCars","GLOBAL",0)
InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#QuaCars","GLOBAL",1)~ EXTERN ~_QUAYLJ~ 10
END

IF ~~ THEN BEGIN 5 // from: 4.1 3.1
  SAY #77670 /* ~NO!  Carsa will not give the jar.  The jar is Carsa's and hers alone.  Get away... get away or Carsa will say the name... and we will all die.~ */
  IF ~~ THEN REPLY #77671 /* ~Whoa!  This is getting a little crazy.  You just keep the jar, and we'll get out of here.~ */ GOTO 7
  IF ~~ THEN REPLY #77672 /* ~Give us the jar Carsa.  Give it to us now!~ */ GOTO 6
  IF ~Global("X#XzarCarsa3","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#XzarCarsa3","GLOBAL",1)~ EXTERN ~_XZARJ~ 111
END

IF ~~ THEN BEGIN 6 // from: 5.1
  SAY #77673 /* ~You not take the jar from Carsa.  It's mine.  MINE!!  Stay away, or I say the name.  Stay away.~ */
  IF ~~ THEN REPLY #77674 /* ~I think this one's a lost cause.  All right Carsa, you keep your jar and we'll be on our way.~ */ GOTO 7
  IF ~~ THEN REPLY #77675 /* ~We're taking the jar from you, whether you like it or not.~ */ GOTO 8
END

IF ~~ THEN BEGIN 7 // from: 6.0 5.0 4.0
  SAY #77676 /* ~Bye bye... ahahahah... see you later or sooner, but most likely never.~ */
  IF ~~ THEN DO ~EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 8 // from: 6.1
  SAY #77677 /* ~NOOOoooo...

KAHRK!!

OH MIGHTY KAHRK!!!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
  IF ~Global("X#CARSA8","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CARSA8","GLOBAL",1)~ GOTO 10
  IF ~Global("X#CARSA8","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
OR(3)
!InParty("montaron")
!InMyArea("montaron")
StateCheck("montaron",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CARSA8","GLOBAL",1)~ EXTERN ~_XZARJ~ 237
  IF ~Global("X#CARSA8","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
InParty("montaron")
InMyArea("montaron")
!StateCheck("montaron",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CARSA8","GLOBAL",1)~ EXTERN ~_XZARJ~ 238
  IF ~Global("X#CARSA8","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CARSA8","GLOBAL",1)~ GOTO 13
  IF ~Global("X#CARSA8","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CARSA8","GLOBAL",1)~ EXTERN ~_IMOEN2~ 471
END

IF ~~ THEN BEGIN 9 // from:
  SAY #100327 /* ~Aiyee!~ */
  IF ~~ THEN DO ~EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 10 // from: 8.1
  SAY #103605 /* ~Fool! You are more mad even that Carsa! Death will fit you well! KAHRK!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
END

IF ~~ THEN BEGIN 11 // from:
  SAY #103605 /* ~Fool! You are more mad even that Carsa! Death will fit you well! KAHRK!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
END

IF ~~ THEN BEGIN 12 // from:
  SAY #103605 /* ~Fool! You are more mad even that Carsa! Death will fit you well! KAHRK!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
END

IF ~~ THEN BEGIN 13 // from: 8.4
  SAY #103602 /* ~OH MIGHTY KAHRK!!!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 14
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
OR(3)
!InParty("montaron")
!InMyArea("montaron")
StateCheck("montaron",CD_STATE_NOTVALID)
~ THEN EXTERN ~_XZARJ~ 241
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
InParty("montaron")
InMyArea("montaron")
!StateCheck("montaron",CD_STATE_NOTVALID)
~ THEN EXTERN ~_XZARJ~ 240
END

IF ~~ THEN BEGIN 14 // from: 13.1
  SAY #103605 /* ~Fool! You are more mad even that Carsa! Death will fit you well! KAHRK!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
END

IF ~~ THEN BEGIN 15 // from:
  SAY #103602 /* ~OH MIGHTY KAHRK!!!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 16
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
OR(3)
!InParty("montaron")
!InMyArea("montaron")
StateCheck("montaron",CD_STATE_NOTVALID)
~ THEN EXTERN ~_XZARJ~ 243
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
InParty("montaron")
InMyArea("montaron")
!StateCheck("montaron",CD_STATE_NOTVALID)
~ THEN EXTERN ~_XZARJ~ 242
END

IF ~~ THEN BEGIN 16 // from: 15.1
  SAY #103605 /* ~Fool! You are more mad even that Carsa! Death will fit you well! KAHRK!~ */
  IF ~~ THEN DO ~CreateCreature("_KAHRK",[3476.852],0)
Kill("carsa")
~ EXIT
END
