BEGIN BEBARE25

// Aeri

CHAIN
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Aerie",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenAerieToB1","GLOBAL",0)~ THEN BAERIE25 BEArenAerieToB1
@0
DO ~SetGlobal("BEArenAerieToB1","GLOBAL",1)~
== BEBARE25 @1
== BAERIE25 @2
== BEBARE25 @3
== BAERIE25 @4
== BEBARE25 @5
== BAERIE25 @6
EXIT

// Anomen, but only if LAWFUL_GOOD

CHAIN
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Anomen",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Alignment("Anomen",LAWFUL_GOOD)
Global("BEArenAnomenToB1","GLOBAL",0)~ THEN BANOME25 BEArenAnomenToB1
@7
DO ~SetGlobal("BEArenAnomenToB1","GLOBAL",1)~
== BEBARE25 @8
== BANOME25 @9
== BEBARE25 @10
== BANOME25 @11
== BEBARE25 @12
== BANOME25 @13
== BEBARE25 @14
== BANOME25 @15
== BEBARE25 @16
EXIT

// Cern

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Cernd",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenCerndToB1","GLOBAL",0)~ THEN BCERND25 BEArenCerndToB1
@17
DO ~SetGlobal("BEArenCerndToB1","GLOBAL",1)~
== BEBARE25 @18
== BCERND25 @19
== BEBARE25 @20
EXIT

// Edwin

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Edwin",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenEdwinToB1","GLOBAL",0)~ THEN BEDWIN25 BEArenEdwinToB1
@21
DO ~SetGlobal("BEArenEdwinToB1","GLOBAL",1)~
== BEBARE25 @22
== BEDWIN25 @23
== BEBARE25 @24
== BEDWIN25 @25
== BEBARE25 @26
== BEDWIN25 @27
== BEBARE25 @28
== BEDWIN25 @29
== BEBARE25 @30
EXIT

// Haer'Dalis

CHAIN
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("HaerDalis",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenHaerDalisToB1","GLOBAL",0)~ THEN BHAERD25 BEArenHaerDalis1
@31
DO ~SetGlobal("BEArenHaerDalisToB1","GLOBAL",1)~
== BEBARE25 @32
== BHAERD25 @33
== BEBARE25 @34
== BHAERD25 @35
== BHAERD25 @36
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Imoen2",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenImoenToB1","GLOBAL",0)~ THEN BIMOEN25 BEArenImoenToB1
@37
DO ~SetGlobal("BEArenImoenToB1","GLOBAL",1)~
== BEBARE25 @38
== BIMOEN25 @39
== BEBARE25 @40
== BIMOEN25 @41
== BEBARE25 @42
== BIMOEN25 @43
== BEBARE25 @44
== BIMOEN25 @45
== BEBARE25 @46
== BIMOEN25 @47
== BEBARE25 @48
== BIMOEN25 @49
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Imoen2",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenImoenToB2","GLOBAL",0)~ THEN BIMOEN25 BEArenImoenToB2
@50
DO ~SetGlobal("BEArenImoenToB2","GLOBAL",1)~
== BEBARE25 @51
== BIMOEN25 @52
== BEBARE25 @53
== BIMOEN25 @54
== BEBARE25 @55
== BIMOEN25 @56
== BEBARE25 @57
== BIMOEN25 @58
== BEBARE25 @59
== BIMOEN25 @60
EXIT

CHAIN
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Jaheira",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenJaheiraToB1","GLOBAL",0)~ THEN BJAHEI25 BEArenJaheiraToB1
@61
DO ~SetGlobal("BEArenJaheiraToB1","GLOBAL",1)~
== BEBARE25 @62
== BJAHEI25 @63
== BEBARE25 @64
== BJAHEI25 @65
== BEBARE25 @66
== BJAHEI25 @67
== BEBARE25 @68
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Jan",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenJanToB1","GLOBAL",0)~ THEN BJAN25 BEArenJanToB1
@69
DO ~SetGlobal("BEArenJanToB1","GLOBAL",1)~
== BEBARE25 @70
== BJAN25 @71
== BEBARE25 @72
== BJAN25 @73
== BJAN25 @74
== BJAN25 @75
== BEBARE25 @76
== BJAN25 @77
== BEBARE25 @78
== BJAN25 @79
== BEBARE25 @80
== BJAN25 @81
== BEBARE25 @82
EXIT

CHAIN
IF ~InParty("Keldorn")
See("Keldorn")
!StateCheck("Keldorn",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenKeldornToB1","GLOBAL",0)~ THEN BEBARE25 BEArenKeldornToB1
@83
DO ~SetGlobal("BEArenKeldornToB1","GLOBAL",1)~
== BKELDO25 @84
== BEBARE25 @85
== BKELDO25 @86
== BEBARE25 @87
== BKELDO25 @88
== BEBARE25 @89
== BKELDO25 @90
== BEBARE25 @91
== BKELDO25 @92
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenKorganToB1","GLOBAL",0)~ THEN BKORGA25 BEArenKorganToB1
@93
DO ~SetGlobal("BEArenKorganToB1","GLOBAL",1)~
== BEBARE25 @94
== BKORGA25 @95
== BEBARE25 @96
== BKORGA25 @97
== BEBARE25 @98
EXIT

CHAIN
IF ~InParty("Mazzy")
See("Mazzy")
!StateCheck("Mazzy",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenMazzyToB1","GLOBAL",0)~ THEN BEBARE25 BEArenMazzyToB1
@99
DO ~SetGlobal("BEArenMazzyToB1","GLOBAL",1)~
== BMAZZY25 @100
== BEBARE25 @101
== BMAZZY25 @102
== BEBARE25 @103
== BMAZZY25 @104
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Minsc",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenMinscToB1","GLOBAL",0)~ THEN BMINSC25 BEArenMinscToB1
@105
DO ~SetGlobal("BEArenMinscToB1","GLOBAL",1)~
== BEBARE25 @106
== BMINSC25 @107
== BEBARE25 @108
== BMINSC25 @109
== BMINSC25 @110
== BMINSC25 @111
== BEBARE25 @112
== BMINSC25 @113
== BEBARE25 @114
EXIT

CHAIN
IF ~InParty("Nalia")
See("Nalia")
!StateCheck("Nalia",CD_STATE_NOTVALID)
Global("BEArenNaliaToB1","GLOBAL",0)~ THEN BEBARE25 BEArenNaliaToB1
@115
DO ~SetGlobal("BEArenNaliaToB1","GLOBAL",1)~
== BNALIA25 @116
== BEBARE25 @117
== BNALIA25 @118
== BEBARE25 @119
== BNALIA25 @120
== BEBARE25 @121
== BNALIA25 @122
== BEBARE25 @123
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("Sarevok",CD_STATE_NOTVALID)
!StateCheck("BEAren",CD_STATE_NOTVALID)
Global("BEArenSarevokToB2","GLOBAL",0)~ THEN BSAREV25 BEArenSarevokToB2
@124
DO ~SetGlobal("BEArenSarevokToB2","GLOBAL",1)~
== BEBARE25 @125
== BSAREV25 @126
== BEBARE25 @127
== BSAREV25 @128
== BEBARE25 @129
== BSAREV25 @130
== BEBARE25 @131
== BSAREV25 @132
== BEBARE25 @133
== BSAREV25 @134
== BEBARE25 @135
EXIT

CHAIN 
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("BEAren",CD_STATE_NOTVALID)
!StateCheck("Valygar",CD_STATE_NOTVALID)
Global("BEArenValygarToB2","GLOBAL",0)~ THEN BVALYG25 BEArenValygarToB2
@136
DO ~SetGlobal("BEArenValygarToB2","GLOBAL",1)~
== BEBARE25 @137
== BVALYG25 @138
== BEBARE25 @139
== BVALYG25 @140
== BEBARE25 @141
== BVALYG25 @142
EXIT

CHAIN
IF ~InParty("BEAren")
See("BEAren")
!StateCheck("BEAren",CD_STATE_NOTVALID)
!StateCheck("Viconia",CD_STATE_NOTVALID)
Global("BEArenViconiaToB1","GLOBAL",0)~ THEN BVICON25 BEArenViconiaToB1
@143
DO ~SetGlobal("BEArenViconiaToB1","GLOBAL",1)~
== BEBARE25 @144
== BVICON25 @145
== BEBARE25 @146
== BVICON25 @147
== BEBARE25 @148
== BVICON25 @149
EXIT
