BEGIN ~solia1~

IF ~Global("Kaishas1","GLOBAL",0)
NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @21624
  IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)~ THEN REPLY @21625 GOTO 1
  IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @21626 GOTO 6
  IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @21627 GOTO 7
  IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)~ THEN REPLY @21628 GOTO 8
  IF ~~ THEN REPLY @21629 GOTO 9
END

IF ~~ THEN BEGIN 1
  SAY @21630
  IF ~~ THEN REPLY @21631 GOTO 9
  IF ~~ THEN REPLY @21632 GOTO 2
  IF ~~ THEN REPLY @21633 GOTO 5
END

IF ~~ THEN BEGIN 2
  SAY @21634
  IF ~~ THEN DO ~StartTimer(1,20)~ UNSOLVED_JOURNAL @310657 GOTO 3
END

IF ~True()~ THEN BEGIN 3
  SAY @21635
  IF ~~ THEN REPLY @21636 GOTO 11
  IF ~~ THEN REPLY @21637 GOTO 4
END

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

IF ~~ THEN BEGIN 5
  SAY @21639
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 6
  SAY @21640
  IF ~~ THEN REPLY @21641 GOTO 10
  IF ~~ THEN REPLY @21642 GOTO 1
END

IF ~~ THEN BEGIN 7
  SAY @21643
  IF ~~ THEN REPLY @21644 GOTO 10
  IF ~~ THEN REPLY @21645 GOTO 1
END

IF ~~ THEN BEGIN 8
  SAY @21646
  IF ~~ THEN REPLY @21647 GOTO 10
  IF ~~ THEN REPLY @21648 GOTO 1
  IF ~~ THEN REPLY @21649 GOTO 5
END

IF ~~ THEN BEGIN 9
  SAY @21650
  IF ~~ THEN REPLY @21651 GOTO 10
  IF ~~ THEN REPLY @21652 GOTO 1
  IF ~~ THEN REPLY @21653 GOTO 5
END

IF ~~ THEN BEGIN 10
  SAY @21654
  IF ~~ THEN REPLY @21655 GOTO 11
  IF ~~ THEN REPLY @21656 GOTO 14
  IF ~~ THEN REPLY @21657 GOTO 16
END

IF ~~ THEN BEGIN 11
  SAY @21658
  IF ~~ THEN REPLY @21659 GOTO 12
  IF ~~ THEN REPLY @21660 GOTO 14
  IF ~~ THEN REPLY @21661 GOTO 16
END

IF ~~ THEN BEGIN 12
  SAY @21662
  IF ~~ THEN REPLY @21663 GOTO 13
  IF ~~ THEN REPLY @21664 GOTO 14
  IF ~~ THEN REPLY @21665 GOTO 16
END

IF ~~ THEN BEGIN 13
  SAY @21666
  IF ~~ THEN REPLY @21667 GOTO 14
  IF ~~ THEN REPLY @21668 GOTO 15
  IF ~~ THEN REPLY @21669 GOTO 16
END

IF ~~ THEN BEGIN 14
  SAY @21670
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 15
  SAY @21671
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 16
  SAY @21672
  IF ~~ THEN EXIT
END
