APPEND BVALYG25

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonVal","GLOBAL",0)~ THEN BEGIN BJV11
   SAY @0 
   IF ~~ THEN DO ~SetGlobal("LRJonVal","GLOBAL",1)~ EXTERN BJONEL25 JON_VAL1
END
END //END APPEND BVALYG25

APPEND BJONEL25

IF ~InParty("Valygar")
See("Valygar")
!StateCheck("Valygar",STATE_SLEEPING)
Global("LRJonVal","GLOBAL",1)~ THEN BEGIN BJV21
   SAY @1 
   IF ~~ THEN DO ~SetGlobal("LRJonVal","GLOBAL",2)~ EXTERN BVALYG25 JON_VAL2
END
END //APPEND JON

CHAIN BJONEL25 JON_VAL1
@2 
== BVALYG25
@3
== BJONEL25
@4
== BVALYG25
@5
== BJONEL25
@6
== BVALYG25
@7
== BJONEL25
@8
== BVALYG25
@9
== BJONEL25
@10
== BVALYG25
@11
== BJONEL25
@12
== BVALYG25
@13
EXIT

CHAIN BVALYG25 JON_VAL2
@14 
== BJONEL25
@15
== BVALYG25
@16
== BJONEL25
@17
== BVALYG25
@18
== BJONEL25
@19
== BVALYG25
@20
== BJONEL25
@21
== BVALYG25
@22
EXIT
