BEGIN ~islsir~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @21505
  IF ~~ THEN REPLY @21507 DO ~SetGlobal("IslSir","GLOBAL",1)~ GOTO 1
  IF ~~ THEN REPLY @21508 DO ~SetGlobal("IslSir","GLOBAL",1)~ GOTO 9
  IF ~~ THEN REPLY @21509 DO ~SetGlobal("IslSir","GLOBAL",1)~ GOTO 4
END

IF ~~ THEN BEGIN 1
  SAY @21510
  IF ~~ THEN REPLY @21513 GOTO 8
  IF ~~ THEN REPLY @21515 GOTO 3
  IF ~~ THEN REPLY @21516 GOTO 4
END

IF ~Global("IslSir","GLOBAL",1)~ THEN BEGIN 2
  SAY @21511
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3
  SAY @21518
  IF ~~ THEN REPLY @21520 GOTO 8
  IF ~~ THEN REPLY @21522 GOTO 5
  IF ~~ THEN REPLY @21523 GOTO 6
END

IF ~~ THEN BEGIN 4
  SAY @21524
  IF ~~ THEN REPLY @21526 GOTO 6
  IF ~~ THEN REPLY @21528 GOTO 8
  IF ~~ THEN REPLY @21529 GOTO 7
END

IF ~~ THEN BEGIN 5
  SAY @21531
  IF ~~ THEN REPLY @21532 GOTO 6
  IF ~~ THEN REPLY @21534 GOTO 8
  IF ~~ THEN REPLY @21535 GOTO 7
END

IF ~~ THEN BEGIN 6
  SAY @21537
  IF ~~ THEN DO ~SetGlobal("IslSir","GLOBAL",1)
AddexperienceParty(2000)
GiveItem("MISC1E",LastTalkedToBy) 
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 7
  SAY @21538
  IF ~~ THEN DO ~CreateCreature("SIRINE",[318.2010],0)
CreateCreature("SIRINE",[387.1870],0)
CreateCreature("SIRINE",[813.803],0)
CreateCreature("SIRINE",[735.738],0)
Shout(99)
Enemy()~ EXIT
END

IF ~~ THEN BEGIN 8
  SAY @21539
  IF ~~ THEN DO ~CreateCreature("SIRINE",[318.2010],0)
CreateCreature("SIRINE",[387.1870],0)
CreateCreature("SIRINE",[813.803],0)
CreateCreature("SIRINE",[735.738],0)
Shout(99)
Enemy()~ EXIT
END

IF ~~ THEN BEGIN 9
  SAY @22848
  IF ~~ THEN REPLY @22849 GOTO 1
  IF ~~ THEN REPLY @22850 GOTO 4
END
