BEGIN ~tracea~

IF ~True()~ THEN BEGIN 0
  SAY @22968
  IF ~~ THEN REPLY @22969 GOTO 1
  IF ~~ THEN REPLY @22970 GOTO 2
  IF ~~ THEN REPLY @22971 GOTO 3
  IF ~~ THEN REPLY @22973 GOTO 4
  IF ~~ THEN REPLY @22972 GOTO 5
END

IF ~~ THEN BEGIN 1
  SAY @22974
  IF ~~ THEN DO ~CreateCreature("TANAR",[641.583],1)~ EXIT
END

IF ~~ THEN BEGIN 2
  SAY @22975
  IF ~~ THEN DO ~CreateCreature("TANAR",[641.583],1)~ EXIT
END

IF ~~ THEN BEGIN 3
  SAY @22984
  IF ~~ THEN DO ~CreateCreature("TANAR",[641.583],1)~ EXIT
END

IF ~~ THEN BEGIN 4
  SAY @22994
  IF ~~ THEN DO ~CreateCreature("TANAR",[641.583],1)~ EXIT
END

IF ~~ THEN BEGIN 5
  SAY @22995
  IF ~~ THEN DO ~CreateCreature("TANAR",[641.583],1)~ EXIT
END
