APPEND ACBREJ
IF ~Global("ACM#ARE01","LOCALS",1)~ THEN BEGIN M#ARE01
SAY @0
IF ~~ THEN DO ~SetGlobal("ACM#ARE01","LOCALS",2)~ EXIT
END
END

INTERJECT_COPY_TRANS M#AMBER 5 ACM#AMBER5
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@1
== M#AMBER IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@2
END

INTERJECT_COPY_TRANS M#AMBER 9 ACM#AMBER9
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@3
== M#AMBER IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@4
END

INTERJECT_COPY_TRANS M#AMBERJ 29 ACM#AMBERJ29
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@5
== M#AMBERJ IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@6
END

INTERJECT_COPY_TRANS2 M#AMBERJ 163 ACM#AMBERJ163
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@7
END

INTERJECT M#CORIN 0 ACM#CORIN0
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@8
== M#CORIN IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@9
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@10
END
IF ~~ THEN EXTERN M#CORIN 2

INTERJECT_COPY_TRANS M#EDTG 0 ACM#EDTG
== ACBREB IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@11
== M#EDTG IF ~InParty("ACBRE")See("ACBRE")!StateCheck("ACBRE",CD_STATE_NOTVALID)~ THEN 
@12
END

CHAIN
IF ~Global("ACBREM#A","GLOBAL",0)
%BGT_VAR2%
InParty("ACBRE")
InParty("M#AMBER")
See("M#AMBER")
!StateCheck("ACBRE",CD_STATE_NOTVALID)
!StateCheck("M#AMBER",CD_STATE_NOTVALID)~ THEN ACBREB BreM#a1
@13 = @14 = @15 DO ~SetGlobal("ACBREM#A","GLOBAL",1)~
==M#AMBERN @16
==ACBREB @17
==M#AMBERN @18
==ACBREB @19
==M#AMBERN @20
==ACBREB @21 = @22
==M#AMBERN @23
==ACBREB @24
EXIT