IF
Global("CbCeilingCollapses","AR3543",3)
OpenState("Ceiling",TRUE)
THEN
RESPONSE #100
CloseDoor("Ceiling")
Continue()
END
IF
Global("CbCeilingCollapses","AR3543",1)
OpenState("Ceiling",TRUE)
THEN
RESPONSE #100
StartCutSceneMode()
SetGlobal("CbCeilingCollapses","AR3543",2)
ScreenShake([-1.-1],2)
CreateCreature("CB3559WB",[1627.2104],6) // No such index
ActionOverride("CB3559WB",ReallyForceSpell(Player1,DRAGON_WING_BUFFET))
ActionOverride("CB3559WB",ReallyForceSpell(Player2,DRAGON_WING_BUFFET))
ActionOverride("CB3559WB",ReallyForceSpell(Player3,DRAGON_WING_BUFFET))
ActionOverride("CB3559WB",ReallyForceSpell(Player4,DRAGON_WING_BUFFET))
ActionOverride("CB3559WB",ReallyForceSpell(Player5,DRAGON_WING_BUFFET))
ActionOverride("CB3559WB",ReallyForceSpell(Player6,DRAGON_WING_BUFFET))
ActionOverride("CB3559WB",DestroySelf())
Wait(2)
SetGlobal("CbCeilingCollapses","AR3543",3)
CloseDoor("Ceiling")
DisplayStringNoName(Player1,85677) // The structure of this ancient Wizard's Tower has weakened over time and the ceiling collapses, nearly crushing you.
EndCutSceneMode()
Continue()
END
IF
NumInParty(1)
LevelPartyLT(10)
THEN
RESPONSE #100
SetGlobal("CbParty1Cat1","MYAREA",1)
END
IF
NumInParty(1)
LevelPartyLT(20)
// LevelPartyGT(11)
THEN
RESPONSE #100
SetGlobal("CbParty1Cat2","MYAREA",1)
END
IF
NumInParty(1)
LevelPartyLT(30)
// LevelPartyGT(21)
THEN
RESPONSE #100
SetGlobal("CbParty1Cat3","MYAREA",1)
END
IF
NumInParty(1)
// LevelPartyLT(40)
THEN
RESPONSE #100
SetGlobal("CbParty1Cat4","MYAREA",1)
END
IF
NumInParty(2)
LevelPartyLT(10)
THEN
RESPONSE #100
SetGlobal("CbParty2Cat1","MYAREA",1)
END
IF
NumInParty(2)
LevelPartyLT(20)
// LevelPartyGT(11)
THEN
RESPONSE #100
SetGlobal("CbParty2Cat2","MYAREA",1)
END
IF
NumInParty(2)
LevelPartyLT(30)
// LevelPartyGT(21)
THEN
RESPONSE #100
SetGlobal("CbParty2Cat3","MYAREA",1)
END
IF
NumInParty(2)
// LevelPartyGT(31)
THEN
RESPONSE #100
SetGlobal("CbParty2Cat4","MYAREA",1)
END
IF
NumInParty(3)
LevelPartyLT(10)
THEN
RESPONSE #100
SetGlobal("CbParty3Cat1","MYAREA",1)
END
IF
NumInParty(3)
LevelPartyLT(20)
// LevelPartyGT(11)
THEN
RESPONSE #100
SetGlobal("CbParty3Cat2","MYAREA",1)
END
IF
NumInParty(3)
LevelPartyLT(30)
// LevelPartyGT(21)
THEN
RESPONSE #100
SetGlobal("CbParty3Cat3","MYAREA",1)
END
IF
NumInParty(3)
// LevelPartyGT(31)
THEN
RESPONSE #100
SetGlobal("CbParty3Cat4","MYAREA",1)
END
IF
NumInParty(4)
LevelPartyLT(10)
THEN
RESPONSE #100
SetGlobal("CbParty4Cat1","MYAREA",1)
END
IF
NumInParty(4)
LevelPartyLT(20)
// LevelPartyGT(11)
THEN
RESPONSE #100
SetGlobal("CbParty4Cat2","MYAREA",1)
END
IF
NumInParty(4)
LevelPartyLT(30)
// LevelPartyGT(21)
THEN
RESPONSE #100
SetGlobal("CbParty4Cat3","MYAREA",1)
END
IF
NumInParty(4)
// LevelPartyGT(31)
THEN
RESPONSE #100
SetGlobal("CbParty4Cat4","MYAREA",1)
END
IF
NumInParty(5)
LevelPartyLT(10)
THEN
RESPONSE #100
SetGlobal("CbParty5Cat1","MYAREA",1)
END
IF
NumInParty(5)
LevelPartyLT(20)
// LevelPartyGT(11)
THEN
RESPONSE #100
SetGlobal("CbParty5Cat2","MYAREA",1)
END
IF
NumInParty(5)
LevelPartyLT(30)
// LevelPartyGT(21)
THEN
RESPONSE #100
SetGlobal("CbParty5Cat3","MYAREA",1)
END
IF
NumInParty(5)
// LevelPartyGT(31)
THEN
RESPONSE #100
SetGlobal("CbParty5Cat4","MYAREA",1)
END
IF
NumInParty(6)
LevelPartyLT(10)
THEN
RESPONSE #100
SetGlobal("CbParty6Cat1","MYAREA",1)
END
IF
NumInParty(6)
LevelPartyLT(20)
// LevelPartyGT(11)
THEN
RESPONSE #100
SetGlobal("CbParty6Cat2","MYAREA",1)
END
IF
NumInParty(6)
LevelPartyLT(30)
// LevelPartyGT(21)
THEN
RESPONSE #100
SetGlobal("CbParty6Cat3","MYAREA",1)
END
IF
NumInParty(6)
// LevelPartyGT(31)
THEN
RESPONSE #100
SetGlobal("CbParty6Cat4","MYAREA",1)
END