BEGIN ~KGSTO1~

IF ~Global("KGSTO1","GLOBAL",0)~ THEN BEGIN Talk1
SAY @0
=
@1
=
@2
=
@3 
=
@4
=
@5
=
@6
IF ~~ THEN DO ~SetGlobal("KGSTO1","GLOBAL",1)~ EXIT
END


IF ~Global("KGSTO1","GLOBAL",1)~ THEN BEGIN Talk2
SAY @7
=
@8
=
@9
=
@10
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @12 GOTO Talk2g
IF ~~ THEN REPLY @13 GOTO Talk2f
IF ~~ THEN REPLY @14 GOTO Talk2h
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @16 GOTO Talk2e
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN RUDE
SAY @20
IF ~~ THEN DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT 
END

IF ~~ THEN BEGIN Talk2d
SAY@21
=
@22
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @16 GOTO Talk2e
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN Talk2b
SAY@23
=
@24
=
@25
=
@26
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @12 GOTO Talk2g
IF ~~ THEN REPLY @14 GOTO Talk2h
IF ~~ THEN REPLY @13 GOTO Talk2f
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @16 GOTO Talk2e
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN Talk2c
SAY@27
=
@28
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @12 GOTO Talk2g
IF ~~ THEN REPLY @29 GOTO Talk2e
IF ~~ THEN REPLY @13 GOTO Talk2f
IF ~~ THEN REPLY @14 GOTO Talk2h
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN Talk2e
SAY@30
=
@31
=
@32
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @12 GOTO Talk2g
IF ~~ THEN REPLY @13 GOTO Talk2f
IF ~~ THEN REPLY @14 GOTO Talk2h
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN Talk2f
SAY@33
=
@34
=
@35
=
@36
=
@37
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @14 GOTO Talk2h
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @16 GOTO Talk2e
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN Talk2g
SAY@38
=
@39
=
@40
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @13 GOTO Talk2f
IF ~~ THEN REPLY @14 GOTO Talk2h
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @16 GOTO Talk2e
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN Talk2h
SAY @41
=
@42
=
@43
IF ~!InParty("7XKAGA")~ THEN REPLY @11 GOTO Talk2d
IF ~~ THEN REPLY @12 GOTO Talk2g
IF ~~ THEN REPLY @13 GOTO Talk2f
IF ~~ THEN REPLY @15 GOTO Talk2c
IF ~~ THEN REPLY @16 GOTO Talk2e
IF ~~ THEN REPLY @17 GOTO Talk2b
IF ~~ THEN REPLY @18 GOTO RUDE
IF ~~ THEN REPLY @19 DO ~SetGlobal("KGSTO1","GLOBAL",0)~ EXIT
END
