BEGIN ~slavlead~

IF ~True()~ THEN BEGIN 0
  SAY @10426
  IF ~~ THEN REPLY @10427 GOTO 1
  IF ~~ THEN REPLY @10428 GOTO 2
END

IF ~~ THEN BEGIN 1
  SAY @10429
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2
  SAY @10430
  IF ~~ THEN REPLY @10431 GOTO 3
  IF ~PartyGoldGT(99)~ THEN REPLY @10432 GOTO 4
END

IF ~~ THEN BEGIN 3
  SAY @10433
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 4
  SAY @10434
  IF ~~ THEN DO ~TakePartyGold(100)
SetGlobal("FREESLAV","GLOBAL",1)
EscapeArea()~ EXIT
END
