APPEND BSAREV25

IF WEIGHT #-1 ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonSarry","LOCALS",0)~ THEN BEGIN LRJS1
SAY @0
IF ~~ THEN DO ~SetGlobal("LRJonSarry","LOCALS",1)~ EXTERN BJONEL25 JON_SAREVOK1
END

IF ~~ THEN BEGIN CLAWED
  SAY @1
   IF ~Global("SarevokOath", "GLOBAL",1)~ THEN GOTO CLAWED1
   IF ~!Global("SarevokOath", "GLOBAL",1)~ THEN GOTO CLAWED2
END

IF ~~ THEN BEGIN CLAWED1  
  SAY @2
  IF ~~ THEN EXTERN BJONEL25 JON_SAREVOK2
END

IF ~~ THEN BEGIN CLAWED2
  SAY @3
  IF ~~ THEN EXTERN BJONEL25 JON_SAREVOK2
END
END

CHAIN BJONEL25 JON_SAREVOK1
@4
==BSAREV25
@5
==BJONEL25
@6
==BJONEL25
@7
==BSAREV25
@8
END BSAREV25 CLAWED

CHAIN BJONEL25 JON_SAREVOK2
@9
==BSAREV25
@10
==BSAREV25
@11
==BJONEL25
@12
=
@13
=
@14
=
@15
==BSAREV25
@16
==BJONEL25
@17
EXIT


