APPEND ACBRE25J
IF WEIGHT #5 ~Global("ACCOMPON01","LOCALS",1)~ THEN BEGIN COMPON01
SAY @0
IF ~~ THEN DO ~SetGlobal("ACCOMPON01","LOCALS",2)~ EXIT
END

IF WEIGHT #5 ~Global("ACCOMPON08","LOCALS",1)~ THEN BEGIN COMPON08
SAY @1
++ @2 DO ~SetGlobal("ACCOMPON08","LOCALS",2)~ + COMPON08.1
++ @3 DO ~SetGlobal("ACCOMPON08","LOCALS",2)~ + COMPON08.2
++ @4 DO ~SetGlobal("ACCOMPON08","LOCALS",2)~ + COMPON08.3
END

IF ~~ THEN BEGIN COMPON08.1
SAY @5
IF ~~ THEN DO ~CreateItem("ACCOMPON",0,0,0)~ EXIT
END

IF ~~ THEN BEGIN COMPON08.2
SAY @6
++ @7 + COMPON08.1
++ @4 + COMPON08.3
END

IF ~~ THEN BEGIN COMPON08.3
SAY @8
IF ~~ THEN EXIT
END

IF WEIGHT #5 ~Global("ACCOMPON19","LOCALS",1)~ THEN BEGIN ACCOMPON19
SAY @9
IF ~~ THEN DO ~SetGlobal("ACCOMPON19","LOCALS",2)~ EXIT
END
END
////////////////////////////////////////////////

CHAIN
IF WEIGHT #5 ~Global("ACCOMPON09","LOCALS",1)~ THEN ACBRE25J COMPON09
@10 DO ~SetGlobal("ACCOMPON09","LOCALS",2)~
==ACBREJ IF ~PartyHasItem("HAMM10")~ THEN @11 = @12
==ACBREJ IF ~!PartyHasItem("HAMM10")~ THEN @11 = @13
EXIT

CHAIN
IF WEIGHT #5 ~Global("ACHGHEART","LOCALS",1)~ THEN ACBRE25J HGHEART
@14 DO ~SetGlobal("ACHGHEART","LOCALS",2)~
==BJAN25 IF ~InParty("JAN")See("JAN")!StateCheck("JAN",CD_STATE_NOTVALID)~ THEN @15
==BAERIE25 IF ~InParty("JAN")See("JAN")!StateCheck("JAN",CD_STATE_NOTVALID)InParty("AERIE")See("AERIE")!StateCheck("AERIE",CD_STATE_NOTVALID)~ THEN @16
==ACBRE25J IF ~InParty("JAN")See("JAN")!StateCheck("JAN",CD_STATE_NOTVALID)OR(3)!InParty("AERIE")!See("AERIE")StateCheck("AERIE",CD_STATE_NOTVALID)~ THEN @17
==BJAN25 IF ~InParty("JAN")See("JAN")!StateCheck("JAN",CD_STATE_NOTVALID)~ THEN @18
EXIT