BEGIN ~7Xshar~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN shar0
	SAY @0
=
@1
=
@2
IF ~~ THEN REPLY @3 GOTO SHART1
IF ~~ THEN REPLY @4 GOTO NEW2
IF ~~ THEN REPLY @5 GOTO SHART1
END

IF ~~ THEN BEGIN NEW2
SAY @6
=
@7
 =
@8 
=
@9
=
@10
=
@11
IF ~~ THEN REPLY @12 GOTO SHAR1
IF ~~ THEN REPLY @13 GOTO SHART2
IF ~~ THEN REPLY @14 GOTO SHAR2
IF ~~ THEN REPLY @15 GOTO dream1
END


IF ~~ THEN BEGIN SHART1
SAY @16
=
@9
=
@10
=
@17
IF ~~ THEN REPLY @18 GOTO SHART2
IF ~~ THEN REPLY @19 GOTO dream1
IF ~~ THEN REPLY @14 GOTO SHAR2
IF ~~ THEN REPLY @20 GOTO SHAR1
END



IF ~~ THEN BEGIN SHART2
SAY @21 
IF ~~ THEN GOTO SHAR1
END

IF ~~ THEN BEGIN SHAR1
SAY @22
=
@23
=
@24
IF ~~ THEN REPLY @25 GOTO SHAR2-1
END

IF ~~ THEN BEGIN dream1
SAY @26
=
@23
=
@24
IF ~~ THEN REPLY @25 GOTO SHAR2-1
END

IF ~~ THEN BEGIN dream1-1
SAY @26
=
@23
=
@24
IF ~~ THEN REPLY @27 GOTO NEXT-1-1
END

IF ~~ THEN BEGIN NEXT-1-1
SAY @28
IF ~~ THEN REPLY @29 GOTO FIGHT1
IF ~~ THEN REPLY @30 GOTO NEXT1
IF ~~ THEN REPLY @31 GOTO NEXT1
END

IF ~~ THEN BEGIN SHAR2
SAY @32
=
@33
=
@34
=
@35
=
@36
=
@28
IF ~~ THEN REPLY @37 GOTO dream1-1
END

IF ~~ THEN BEGIN SHAR2-1
SAY @32
=
@33
=
@34
=
@38
=
@36
=
@28
IF ~~ THEN REPLY @29 GOTO FIGHT1
IF ~~ THEN REPLY @30 GOTO NEXT1
IF ~~ THEN REPLY @39 GOTO NEXT1
IF ~~ THEN REPLY @40 GOTO OUT1
IF ~~ THEN REPLY @31 GOTO NEXT1a
END

IF ~~ THEN BEGIN FIGHT1
SAY @41
=
@42
IF ~~ THEN DO ~Enemy()Attack(Player1)~ EXIT
END

IF ~~ THEN BEGIN NEXT1a
SAY @43
IF ~~ THEN DO ~SetGlobal("ARENAFIGHT","GLOBAL",0)JoinParty()SetGlobal("SHARTInParty","LOCALS",0)~ EXIT
END

IF ~~ THEN BEGIN NEXT1
SAY @44
=
@45
IF ~~ THEN REPLY @46  GOTO OUT1
IF ~~ THEN REPLY @47 DO ~SetGlobal("ARENAFIGHT","GLOBAL",0)JoinParty()SetGlobal("SHARTInParty","LOCALS",0)~ EXIT
END


IF ~~ THEN BEGIN OUT1
SAY @48
IF ~~ THEN DO ~SetGlobal("ARENAFIGHT","GLOBAL",0)~ EXIT 
END

IF ~NumTimesTalkedToGT(0)~ THEN BEGIN shar-teel2
SAY @49
=
@50
IF ~~ THEN REPLY @51 DO ~JoinParty()SetGlobal("SHARTInParty","LOCALS",0)~ EXIT
IF ~~ THEN REPLY @46  GOTO OUT1
END

BEGIN ~7XsharP~

IF ~Global("SHARTInParty","LOCALS",0)~ THEN BEGIN KickOutSHART
SAY @52
IF ~~ THEN REPLY @53 GOTO OUT3
IF ~~ THEN REPLY @46  GOTO OUT2
IF ~~ THEN REPLY @54 GOTO WORTH1
END

IF ~~ THEN BEGIN WORTH1 
SAY @55
IF ~~ THEN DO ~JoinParty()~ EXIT
END
IF ~~ THEN BEGIN OUT3
SAY @56 
IF ~~ THEN DO ~SetGlobal("SHARTInParty","LOCALS",1)EscapeAreaMove("AR0406",1934,1408,10)~
EXIT
END


IF ~~ THEN BEGIN OUT2
SAY @57 
IF ~~ THEN DO ~SetGlobal("SHARTInParty","LOCALS",1)EscapeAreaMove("AR0406",1934,1408,10)~
EXIT
END

IF ~Global("SHARTInParty","LOCALS",1)~ THEN BEGIN RejoinSHART
SAY @58
=
@59
IF ~~ THEN REPLY @60 DO ~SetGlobal("SHARTInParty","LOCALS",0)~ GOTO WORTH1
IF ~~ THEN REPLY @61 GOTO COWARD1
END


IF ~~ THEN BEGIN COWARD1
SAY @62 
IF ~~ THEN
EXIT
END