BEGIN ~desslo~

IF WEIGHT #2 ~True()~ THEN BEGIN 0
  SAY @17335
  IF ~~ THEN REPLY @17336 GOTO 8
  IF ~~ THEN REPLY @17338 GOTO 9
  IF ~~ THEN REPLY @17339 GOTO 2
  IF ~~ THEN REPLY @17340 GOTO 1
  IF ~ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN REPLY @17341 GOTO 5
  IF ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN REPLY @17342 GOTO 6
END

IF ~~ THEN BEGIN 1
  SAY @17343
  IF ~~ THEN REPLY @17344 GOTO 4
  IF ~~ THEN REPLY @17345 GOTO 2
END

IF ~~ THEN BEGIN 2
  SAY @17346
  IF ~~ THEN REPLY @17347 GOTO 4
  IF ~~ THEN REPLY @17348 GOTO 3
END

IF ~~ THEN BEGIN 3
  SAY @17349
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 4
  SAY @17350
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 5
  SAY @17351
  IF ~~ THEN REPLY @17353 GOTO 1
  IF ~~ THEN REPLY @17354 GOTO 2
  IF ~~ THEN REPLY @17355 GOTO 7
END

IF ~~ THEN BEGIN 6
  SAY @17352
  IF ~~ THEN REPLY @17357 GOTO 1
  IF ~~ THEN REPLY @17358 GOTO 2
  IF ~~ THEN REPLY @17359 GOTO 7
END

IF ~~ THEN BEGIN 7
  SAY @17356
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 8
  SAY @17360
  IF ~~ THEN REPLY @17337 GOTO 2
  IF ~~ THEN REPLY @17361 GOTO 7
END

IF ~~ THEN BEGIN 9
  SAY @17362
  IF ~~ THEN REPLY @17363 GOTO 4
  IF ~~ THEN REPLY @17364 GOTO 2
  IF ~~ THEN REPLY @17365 GOTO 7
END

IF ~~ THEN BEGIN 10
  SAY @17366
  IF ~~ THEN REPLY @17370 GOTO 7
  IF ~~ THEN REPLY @17371 GOTO 2
END

IF WEIGHT #0 ~InParty("Xzar")~ THEN BEGIN 11
  SAY @20645
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF WEIGHT #1 ~InParty("Montaron")~ THEN BEGIN 12
  SAY @20646
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END
