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

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

IF WEIGHT #3 /* Triggers after states #: 1 2 4 even though they appear after this state */
~  True()
~ THEN BEGIN 0 // from:
  SAY #2374 /* ~Hear ye! Hear ye! By order of his Most Radiant of Lathander Kelddath Ormlyr, governor of Beregost, and in the best interest of its peoples, forthwith there be a bounty placed upon the head of the mad cleric Bassilus, for the crimes against nature that he has committed! Anyone bringing proof of his demise to the Song of the Morning temple shall receive no less than 5,000 gold! Hear ye! Hear ye!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ GOTO 5
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ EXTERN ~XZARJ~ 248
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ GOTO 7
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ EXTERN ~XZARJ~ 250
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ GOTO 11
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ EXTERN ~XZARJ~ 254
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ GOTO 17
  IF ~Global("X#TOWNCR0","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#TOWNCR0","GLOBAL",1)~ EXTERN ~SHARTJ~ 321
END

IF WEIGHT #0 ~  StateCheck(Myself,STATE_CHARMED)
~ THEN BEGIN 1 // from:
  SAY #6424 /* ~Sorry buddy, but I'm just simple folk, and don't know anything about politics and such.~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~  CheckStatLT(LastTalkedToBy(Myself),6,REPUTATION)
~ THEN BEGIN 2 // from:
  SAY #8751 /* ~Hear ye! Hear ye! By order of his Most Radiant of Lathander Kelddath Ormlyr, governor of Beregost, and in the best interest of its peoples, forthwith there be a bounty placed upon the head of <CHARNAME>, for their crimes against the good citizens of Beregost! Anyone bringing proof of their demise to the Song of the Morning temple shall receive no less than three thousand gold! Hear ye! Hear ye!~ */
  IF ~~ THEN EXIT
  IF ~Global("X#SharTownCryerBereg2","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SharTownCryerBereg2","GLOBAL",1)~ EXTERN ~SHARTJ~ 97
END

IF ~~ THEN BEGIN 3 // from:
  SAY #9043 /* ~Get away from me! I've work to do!~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #2 ~  Dead("Bassilus")
~ THEN BEGIN 4 // from:
  SAY #11791 /* ~Hear ye! Hear ye! The criminal Bassilus has been killed! It is said that the hero <CHARNAME> did the deed! May <PRO_HESHE> always be welcome in our town!~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5 // from: 0.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 6 // from:
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 7 // from: 0.3
  SAY #50463 /* ~Hear ye! Hear ye! Here comes the man to straighten him out!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 8
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 249
END

IF ~~ THEN BEGIN 8 // from: 7.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 9 // from:
  SAY #50463 /* ~Hear ye! Hear ye! Here comes the man to straighten him out!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 10
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 251
END

IF ~~ THEN BEGIN 10 // from: 9.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 11 // from: 0.5
  SAY #50461 /* ~Hear ye! Hear ye! The mad cleric of Cyric defiles nature! He turned living in the walking corpses and lives with them as they are his family! Fear him!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 13
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 253
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 12
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 252
END

IF ~~ THEN BEGIN 12 // from: 11.3
  SAY #50463 /* ~Hear ye! Hear ye! Here comes the man to straighten him out!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 13
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 253
END

IF ~~ THEN BEGIN 13 // from: 12.1 11.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 14 // from:
  SAY #50461 /* ~Hear ye! Hear ye! The mad cleric of Cyric defiles nature! He turned living in the walking corpses and lives with them as they are his family! Fear him!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 16
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 256
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 15
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 255
END

IF ~~ THEN BEGIN 15 // from: 14.3
  SAY #50463 /* ~Hear ye! Hear ye! Here comes the man to straighten him out!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 16
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 256
END

IF ~~ THEN BEGIN 16 // from: 15.1 14.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 17 // from: 0.7
  SAY #50459 /* ~Hear ye! Hear ye! By order of his Most Radiant of Lathander Kelddath Ormlyr, governor of Beregost, and in the best interest of its peoples-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 20
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 259
  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~ 258
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 18
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 257
END

IF ~~ THEN BEGIN 18 // from: 17.5
  SAY #50461 /* ~Hear ye! Hear ye! The mad cleric of Cyric defiles nature! He turned living in the walking corpses and lives with them as they are his family! Fear him!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 20
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 259
  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~ 258
END

IF ~~ THEN BEGIN 19 // from: 18.3 17.3
  SAY #50463 /* ~Hear ye! Hear ye! Here comes the man to straighten him out!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 20
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 259
END

IF ~~ THEN BEGIN 20 // from: 19.1 18.1 17.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END

IF ~~ THEN BEGIN 21 // from: SHARTJ:321.7
  SAY #50459 /* ~Hear ye! Hear ye! By order of his Most Radiant of Lathander Kelddath Ormlyr, governor of Beregost, and in the best interest of its peoples-~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 24
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 262
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 23
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 261
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 22
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 260
END

IF ~~ THEN BEGIN 22 // from: SHARTJ:321.5 21.5
  SAY #50461 /* ~Hear ye! Hear ye! The mad cleric of Cyric defiles nature! He turned living in the walking corpses and lives with them as they are his family! Fear him!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 24
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 262
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 23
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 261
END

IF ~~ THEN BEGIN 23 // from: SHARTJ:321.3 22.3 21.3
  SAY #50463 /* ~Hear ye! Hear ye! Here comes the man to straighten him out!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN GOTO 24
  IF ~  InParty("xzar")
InMyArea("xzar")
!StateCheck("xzar",CD_STATE_NOTVALID)
~ THEN EXTERN ~XZARJ~ 262
END

IF ~~ THEN BEGIN 24 // from: SHARTJ:321.1 23.1 22.1 21.1
  SAY #50465 /* ~Heh, for me 5,000 gold would be motivation enough to finish him off, if I was an adventurer! Heh, sorry, back to work!~ */
  IF ~~ THEN UNSOLVED_JOURNAL #27205 /* ~Bassilus the Murderer
Kelddath Ormlyr is offering a bounty of 5,000 gold on a man named named Bassilus. I should be able to find Kelddath in the temple of Lathander just east of Beregost.~ */ EXIT
END
