Event cleanup and some area names, trigger error on shuttle bay door

!TheEsc/m2_txt

@@ -14,6 +14,12 @@ AddEvent(8,"CB2-DOORCLOSE",1,-1,-1)
 
 AddEvent(9,"Brief",0,-1,-1)
 
+AddEvent(10,"SB-AREA",0,-1,-1)
+AddEvent(11,"CB-AREA",0,-1,-1)
+AddEvent(12,"ARB-AREA",0,-1,-1)
+AddEvent(13,"COR-AREA",0,-1,-1)
+AddEvent(14,"SBBR-AREA",0,-1,-1)
+
 Event("PlayerStart")
  AreaName(1)
  Schedule("Brief",200)
@@ -29,6 +35,9 @@ Event("SBBR-DOORCLOSE")
  SetOverlayTile(713,29)
  Sound(8,5)
  ReArm("SBBR-DOOROPEN")
+Event("SBBR-AREA")
+ AreaName(2)
+ ReArm("SBBR-AREA")
  
 Event("SB-DOOROPEN")
  SetOverlayTile(1213,68)
@@ -40,6 +49,9 @@ Event("SB-DOORCLOSE")
  SetOverlayTile(1313,44)
  Sound(8,5)
  ReArm("SB-DOOROPEN")
+Event("SB-AREA")
+ AreaName(1)
+ ReArm("SB-AREA")
  
 Event("CB1-DOOROPEN")
  SetOverlayTile(2213,68)
@@ -51,6 +63,9 @@ Event("CB1-DOORCLOSE")
  SetOverlayTile(2313,44)
  Sound(8,5)
  ReArm("CB1-DOOROPEN")
+Event("CB-AREA")
+ AreaName(3)
+ ReArm("CB-AREA")
  
 Event("CB2-DOOROPEN")
  SetOverlayTile(3213,68)
@@ -62,3 +77,11 @@ Event("CB2-DOORCLOSE")
  SetOverlayTile(3313,44)
  Sound(8,5)
  ReArm("CB2-DOOROPEN")
+
+Event("ARB-AREA")
+ AreaName(4)
+ ReArm("ARB-AREA")
+ 
+ Event("COR-AREA")
+ AreaName(0)
+ ReArm("COR-AREA")