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

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

IF WEIGHT #1 /* Triggers after states #: 3 even though they appear after this state */
~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)
~ THEN BEGIN 0 // from:
  SAY #79748 /* ~A good day to you!  No doubt you have heard of the Blushing Mermaid and sought it out.  Seldom do people come here accidentally.  It's sometimes a dangerous place to be.  At least, it is without ample protection for your purse.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #69534 /* ~Goodbye.~ */ EXIT
  IF ~Global("X#SkieBORK","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SkieBORK","GLOBAL",1)~ EXTERN ~_SKIEJ~ 58
  IF ~Global("X#EdwinBork","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinBork","GLOBAL",1)~ GOTO 5
  IF ~Global("X#AloraBork1","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AloraBork1","GLOBAL",1)~ EXTERN ~_ALORAJ~ 76
  IF ~Global("X#QuaBork","GLOBAL",0)
InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#QuaBork","GLOBAL",1)~ EXTERN ~_QUAYLJ~ 24
END

IF WEIGHT #2 /* Triggers after states #: 3 even though they appear after this state */
~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
~ THEN BEGIN 1 // from:
  SAY #79750 /* ~Welcome, you are.  Just try not to make too many "messes" while here.  We lose enough patrons to their professions without losing them to their recreation as well.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #79751 /* ~See you later.~ */ EXIT
  IF ~Global("X#AloraBork2","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AloraBork2","GLOBAL",1)~ EXTERN ~_ALORAJ~ 77
END

IF WEIGHT #3 /* Triggers after states #: 3 even though they appear after this state */
~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)
~ THEN BEGIN 2 // from:
  SAY #79752 /* ~Welcome.  Even scum such as yourselves are welcome here.  Don't look so shocked at me, if ye canna withstand such a minor truth as that ye will surely leave here dead tonight.  Besides, ye must be used to it by now.~ */
  IF ~~ THEN REPLY #79753 /* ~What do you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #79754 /* ~We won't just stand here and let you insult us.  Goodbye!~ */ EXIT
  IF ~Global("X#AloraBork3","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AloraBork3","GLOBAL",1)~ EXTERN ~_ALORAJ~ 78
END

IF WEIGHT #0 ~StateCheck(Myself,STATE_CHARMED)
~ THEN BEGIN 3 // from:
  SAY #79755 /* ~It don't matter if we're friends or not.  I treat everyone the same.  The Blushing Mermaid is for everyone who don't want their business known.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 4 // from:
  SAY #75411 /* ~You've made no friends here!  Move along!~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5 // from: 10.3 7.3 0.3 _ALORAJ:76.3
  SAY #100016 /* ~Oh, my lord Odesseiron... how have you been? The girls were asking after you.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #69534 /* ~Goodbye.~ */ EXIT
  IF ~Global("X#SkieBORK","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SkieBORK","GLOBAL",1)~ EXTERN ~_SKIEJ~ 58
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN GOTO 6
  IF ~  InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN EXTERN ~_EDWINJ~ 83
END

IF ~~ THEN BEGIN 6 // from: _EDWINJ:83.3 5.3
  SAY #100018 /* ~Thank you for your patronage.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #69534 /* ~Goodbye.~ */ EXIT
  IF ~Global("X#SkieBORK","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SkieBORK","GLOBAL",1)~ EXTERN ~_SKIEJ~ 58
END

IF ~~ THEN BEGIN 7 // from: _ALORAJ:76.4
  SAY #100256 /* ~Would that it kept your sort away from my clientele.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #69534 /* ~Goodbye.~ */ EXIT
  IF ~Global("X#SkieBORK","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SkieBORK","GLOBAL",1)~ EXTERN ~_SKIEJ~ 58
  IF ~Global("X#EdwinBork","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinBork","GLOBAL",1)~ GOTO 5
END

IF ~~ THEN BEGIN 8 // from: _ALORAJ:77.2
  SAY #100256 /* ~Would that it kept your sort away from my clientele.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #79751 /* ~See you later.~ */ EXIT
END

IF ~~ THEN BEGIN 9 // from: _ALORAJ:78.2
  SAY #100256 /* ~Would that it kept your sort away from my clientele.~ */
  IF ~~ THEN REPLY #79753 /* ~What do you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #79754 /* ~We won't just stand here and let you insult us.  Goodbye!~ */ EXIT
END

IF ~~ THEN BEGIN 10 // from:
  SAY #100833 /* ~Yeah. Somethin' new every day in this place.~ */
  IF ~~ THEN REPLY #79749 /* ~Can you tell us what you have to offer here?~ */ DO ~StartStore("_TAV0114",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #69534 /* ~Goodbye.~ */ EXIT
  IF ~Global("X#SkieBORK","GLOBAL",0)
InParty("skie")
InMyArea("skie")
!StateCheck("skie",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SkieBORK","GLOBAL",1)~ EXTERN ~_SKIEJ~ 58
  IF ~Global("X#EdwinBork","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinBork","GLOBAL",1)~ GOTO 5
  IF ~Global("X#AloraBork1","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AloraBork1","GLOBAL",1)~ EXTERN ~_ALORAJ~ 76
END
