APPEND BHAERD25

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonHaer","GLOBAL",0)~ THEN BEGIN BJHD1
  SAY @0 
  IF ~~ THEN DO ~SetGlobal("LRJonHaer","GLOBAL",1)~ EXTERN BJONEL25 JON_HAER1
END

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonHaer","GLOBAL",2)~ THEN BEGIN BJHD3
  SAY @1 
  IF ~~ THEN DO ~SetGlobal("LRJonHaer","GLOBAL",3)~ EXTERN BJONEL25 JON_HAER3
END

END //APPEND HAER

APPEND BJONEL25

IF ~InParty("HaerDalis")
See("HaerDalis")
!StateCheck("HaerDalis",STATE_SLEEPING)
Global("LRJonHaer","GLOBAL",1)~ THEN BEGIN BJHD2
   SAY @2 
   IF ~~ THEN DO ~SetGlobal("LRJonHaer","GLOBAL",2)~ EXTERN BHAERD25 JON_HAER2
END

END //APPEND JON

CHAIN BJONEL25 JON_HAER1
@3 
==BHAERD25
@4
==BJONEL25
@5
==BHAERD25
@6
==BJONEL25
@7
==BHAERD25
@8
==BJONEL25
@9
==BHAERD25
@10
==BJONEL25
@11
==BHAERD25
@12
==BJONEL25
@13
==BHAERD25
@14
==BJONEL25
@15
EXIT

CHAIN BHAERD25 JON_HAER2
@16 
==BJONEL25
@17
==BHAERD25
@18
==BJONEL25
@19
==BHAERD25
@20
==BJONEL25
@21
==BHAERD25
@22
==BJONEL25
@23
==BHAERD25
@24
==BJONEL25
@25
==BHAERD25
@26
==BJONEL25
@27
==BHAERD25
@28
EXIT

CHAIN3 BJONEL25 JON_HAER3
@29 
==BHAERD25
@30
==BJONEL25
@31
==BHAERD25
@32
==BJONEL25
@33
==BHAERD25
@34
==BJONEL25
@35
==BIMOEN25 IF ~InParty("Imoen2")~ THEN
@36
==BJONEL25 IF ~InParty("Imoen2")~ THEN
@37
==BIMOEN25 IF ~InParty("Imoen2")~ THEN
@38
==BJONEL25 IF ~InParty("Imoen2")~ THEN
@39
==BJONEL25
@40
==BHAERD25
@41
==BJONEL25
@42
==BHAERD25
@43
==BIMOEN25 IF ~InParty("Imoen2")~ THEN
@44
==BHAERD25 IF ~InParty("Imoen2")~ THEN
@45
EXIT



