BEGIN ~stone~

IF ~RandomNum(3,1)
NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @23227
  IF ~~ THEN REPLY @23231 GOTO 3
  IF ~~ THEN REPLY @23234 GOTO 7
END

IF ~RandomNum(3,2)
NumTimesTalkedTo(0)~ THEN BEGIN 1
  SAY @23228
  IF ~~ THEN REPLY @23232 GOTO 4
  IF ~~ THEN REPLY @23235 GOTO 7
END

IF ~RandomNum(3,3)
NumTimesTalkedTo(0)~ THEN BEGIN 2
  SAY @23229
  IF ~~ THEN REPLY @23233 GOTO 5
  IF ~~ THEN REPLY @23236 GOTO 7
END

IF ~~ THEN BEGIN 3
  SAY @23230
  IF ~~ THEN REPLY @23242 GOTO 8
  IF ~~ THEN REPLY @23243 GOTO 8
  IF ~~ THEN REPLY @23244 GOTO 8
  IF ~~ THEN REPLY @23245 GOTO 8
  IF ~~ THEN REPLY @23246 GOTO 6
  IF ~~ THEN REPLY @23247 GOTO 8
  IF ~~ THEN REPLY @23248 GOTO 8
  IF ~~ THEN REPLY @23250 GOTO 8
END

IF ~~ THEN BEGIN 4
  SAY @23237
  IF ~~ THEN REPLY @23251 GOTO 8
  IF ~~ THEN REPLY @23253 GOTO 8
  IF ~~ THEN REPLY @23254 GOTO 8
  IF ~~ THEN REPLY @23255 GOTO 8
  IF ~~ THEN REPLY @23256 GOTO 8
  IF ~~ THEN REPLY @23257 GOTO 6
  IF ~~ THEN REPLY @23259 GOTO 8
  IF ~~ THEN REPLY @23260 GOTO 8
END

IF ~~ THEN BEGIN 5
  SAY @23238
  IF ~~ THEN REPLY @23262 GOTO 8
  IF ~~ THEN REPLY @23263 GOTO 8
  IF ~~ THEN REPLY @23264 GOTO 8
  IF ~~ THEN REPLY @23265 GOTO 8
  IF ~~ THEN REPLY @23266 GOTO 6
  IF ~~ THEN REPLY @23267 GOTO 8
  IF ~~ THEN REPLY @23268 GOTO 8
  IF ~~ THEN REPLY @23269 GOTO 8
END

IF ~~ THEN BEGIN 6
  SAY @23239
  IF ~~ THEN REPLY @23249 GOTO 9
  IF ~~ THEN REPLY @23258 GOTO 9
  IF ~~ THEN REPLY @23270 GOTO 9
  IF ~~ THEN REPLY @23271 GOTO 9
  IF ~~ THEN REPLY @23272 GOTO 9
  IF ~~ THEN REPLY @23273 GOTO 9
  IF ~~ THEN REPLY @23274 GOTO 9
  IF ~~ THEN REPLY @23275 GOTO 10
END

IF ~~ THEN BEGIN 7
  SAY @23240
  IF ~~ THEN DO ~SetNumTimesTalkedTo(0)~ EXIT
END

IF ~~ THEN BEGIN 8
  SAY @23241
  IF ~~ THEN DO ~SetNumTimesTalkedTo(0)
ForceSpell([PC],WIZARD_FIREBALL)~ EXIT
END

IF ~~ THEN BEGIN 9
  SAY @23276
  IF ~~ THEN DO ~SetNumTimesTalkedTo(0)~ EXIT
END

IF ~~ THEN BEGIN 10
  SAY @23277
  IF ~~ THEN REPLY @23280 GOTO 12
  IF ~~ THEN REPLY @23281 GOTO 9
  IF ~~ THEN REPLY @23282 GOTO 9
  IF ~~ THEN REPLY @23283 GOTO 9
  IF ~~ THEN REPLY @23284 GOTO 9
  IF ~~ THEN REPLY @23285 GOTO 9
  IF ~~ THEN REPLY @23286 GOTO 9
  IF ~~ THEN REPLY @23287 GOTO 9
END

IF ~True()~ THEN BEGIN 11
  SAY @23278
  IF ~~ THEN DO ~ForceSpell([PC],WIZARD_FIREBALL)~ EXIT
END

IF ~~ THEN BEGIN 12
  SAY @23279
  IF ~~ THEN DO ~SetGlobal("DurStatue","GLOBAL",1)~ EXIT
END
