BEGIN ~50CARITA~

IF WEIGHT #1 ~  NumberOfTimesTalkedTo(0)
~ THEN BEGIN 0
  SAY #6158
  IF ~  Global("50Suoma_Help","Global",3)
!Global("50Kurttu_Ghost","Global",1)
~ THEN REPLY #6159 GOTO 2
  IF ~  Global("50Kurttu_Ghost","Global",1)
~ THEN REPLY #6160 JOURNAL #6157 GOTO 3
  IF ~~ THEN REPLY #6161 GOTO 1
  IF ~~ THEN REPLY #6162 EXIT
END

IF ~~ THEN BEGIN 1
  SAY #6163
  IF ~  Global("50Suoma_Help","Global",3)
!Global("50Kurttu_Ghost","Global",1)
~ THEN REPLY #6164 GOTO 2
  IF ~  Global("50Kurttu_Ghost","Global",1)
~ THEN REPLY #6165 JOURNAL #6157 GOTO 3
  IF ~~ THEN REPLY #6166 EXIT
END

IF ~~ THEN BEGIN 2
  SAY #6167
  IF ~~ THEN REPLY #6168 GOTO 1
  IF ~~ THEN REPLY #6169 EXIT
END

IF ~~ THEN BEGIN 3
  SAY #6170
  IF ~~ THEN REPLY #6171 GOTO 4
  IF ~~ THEN REPLY #6168 GOTO 1
  IF ~~ THEN REPLY #6169 EXIT
END

IF ~~ THEN BEGIN 4
  SAY #6172
  IF ~~ THEN REPLY #6168 GOTO 1
  IF ~~ THEN REPLY #6169 EXIT
END

IF WEIGHT #2 ~  True()
~ THEN BEGIN 5
  SAY #6173
  IF ~  Global("50Suoma_Help","Global",3)
!Global("50Kurttu_Ghost","Global",1)
~ THEN REPLY #6174 GOTO 2
  IF ~  Global("50Kurttu_Ghost","Global",1)
~ THEN REPLY #6175 JOURNAL #6157 GOTO 3
  IF ~~ THEN REPLY #6176 GOTO 1
  IF ~~ THEN REPLY #6162 EXIT
END

IF WEIGHT #0 ~See([ENEMY], 0)~ THEN BEGIN 6
  SAY #37856
  IF ~~ THEN EXIT
END
