IF
Global("X#XzarDruidsExist","GLOBAL",1)
InParty("Xzar")
THEN
   RESPONSE #100
   MoveToObject("Xzar")
   ActionOverride("storm",MoveToObject("black"))
   ActionOverride("zosya",MoveToObject("black"))
   Dialogue(Player1)
   END

IF
Global("X#XzarDruidsExist","GLOBAL",2)
Global("BlackShootSpell","LOCALS",0)
XPGT(Player1,20000)
THEN
RESPONSE #100
SetGlobal("BlackShootSpell","LOCALS",1)
CreateCreature("BEARCA",[-1.-1],0)
ActionOverride("bearca",MoveToObject("Xzar"))
ActionOverride("bearca",Enemy())
Enemy()
END

IF
Global("X#XzarDruidsExist","GLOBAL",2)
Global("BlackShootSpell","LOCALS",0)
!XPGT(Player1,20000)
THEN
RESPONSE #100
SetGlobal("BlackShootSpell","LOCALS",1)
Enemy()
END
