// IMOEN VS JON BANTERS
APPEND BIMOEN25

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonImmy","LOCALS",2)~ THEN BEGIN BJIM1
  SAY @0 
  IF ~~ THEN GOTO JON_IM11
END

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonImmy","LOCALS",4)~ THEN BEGIN BJIM1
  SAY @1 
  IF ~~ THEN EXTERN BJONEL25 JON_IM11A
END

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonImmy","LOCALS",6)~ THEN BEGIN BJIM2
  SAY @2 
  IF ~~ THEN GOTO JON_IM21
END

IF ~InParty("lrirenic")
See("lrirenic")
!StateCheck("lrirenic",STATE_SLEEPING)
Global("LRJonImmy","LOCALS",8) Global("JonUndecided","GLOBAL",2)~ THEN BEGIN BJIM3
  SAY @3 
  IF ~~ THEN DO ~SetGlobal("LRJonImmy","LOCALS",9)~ EXTERN BJONEL25 JON_IM31
END

IF ~~ THEN BEGIN JON_IM_SOUL1
  SAY @4
  IF ~~ THEN REPLY @5 GOTO JON_IM_SOUL2
  IF ~~ THEN REPLY @6 GOTO JON_IM_SOUL3
  IF ~~ THEN REPLY @7 GOTO JON_IM_SOUL3
END

IF ~~ THEN BEGIN JON_IM_SOUL2
  SAY @8
  IF~~ THEN EXTERN BJONEL25 JON_IM12
END

IF ~~ THEN BEGIN JON_IM_SOUL3
  SAY @9
  IF~~ THEN EXTERN BJONEL25 JON_IM12
END

IF ~~ THEN BEGIN JON_IM_BODHI1
  SAY @10
  IF ~~ THEN REPLY @11 DO ~IncrementGlobal("JonRedemptionCounter", "GLOBAL",-10)~ EXTERN BJONEL25 JON_IM22
  IF ~~ THEN REPLY @12 EXTERN BJONEL25 JON_IM22
  IF ~~ THEN REPLY @13 EXTERN BJONEL25 JON_IM22
END
END //END APPEND BIMOEN25

// ~~~~~~~~~~~~~~~~~~~~~~~~~~ALL CHAINS GO THERE~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

CHAIN BIMOEN25 JON_IM11
@14
=
@15
== BJONEL25
@16 
== BIMOEN25
@17
== BJONEL25
@18
=
@19
== BIMOEN25
@20
== BJONEL25
@21
=
@22
== BIMOEN25
@23
=
@24
EXIT

CHAIN BJONEL25 JON_IM11A
@25
== BIMOEN25
@26
== BJONEL25
@27
=
@28
== BIMOEN25
@29
== BJONEL25
@30
== BIMOEN25
@31
== BJONEL25
@32
== BIMOEN25
@33
END BIMOEN25 JON_IM_SOUL1

CHAIN BJONEL25 JON_IM12
@34
== BIMOEN25
@35
=
@36
=
@37
EXIT

CHAIN BIMOEN25 JON_IM21
@38
== BJONEL25
@39 
== BIMOEN25
@40
== BJONEL25
@41
== BIMOEN25
@42
END BIMOEN25 JON_IM_BODHI1

CHAIN BJONEL25 JON_IM22
@43
== BIMOEN25
@44
== BJONEL25
@45
== BIMOEN25
@46
== BJONEL25
@47
=
@48
== BIMOEN25
@49
== BJONEL25
@50
EXIT

CHAIN BJONEL25 JON_IM31
@51 
== BIMOEN25
@52
== BJONEL25
@53
== BIMOEN25
@54
== BJONEL25
@55
== BIMOEN25
@56
== BJONEL25
@57
== BIMOEN25
@58
== BJONEL25
@59
== BIMOEN25
@60
== BJONEL25
@61
=
@62
== BIMOEN25
@63
=
@64
=
@65
EXIT
