Exori / Gran WITH PARTY MEMBER ON SCREEN

[mostppl]

I NEED A MACRO FOR GIVE EXORI / GRAN WITH PARTY MEMBER ON SCREEN BUT IF COME A PLAYER WITHOUT PARTY STOP EXORI

IS POSSIBLE?

THANK!

[erleo]

[macro]500 {[Party] Exori} Wait:=1 VarMult(Wait, 6) Creatures.ByRangeName(3, Omar)==0 [EXORI] Creatures.PlayersOnRange(3)>=2 [EXORI] Time:=0 Self.Attacking()==1 Creature.DistanceToSelf(:TargetID)<=3 Self.Mana()>=80 Self.Say(exori ico) Self.Say(exori hur) Exit() Exit() {EXORI} VarAdd(Time, 1) Status.InPZ()==0 Creatures.ByRangeName(3, Omar)==1 [EXORI 2] Creatures.PlayersOnRange(3)<=2 [SPELLS RANGE] !Mobs>=2 [SPELLS RANGE] !Time!>=!Wait! Self.Mana()>=115 Self.Say(exori) Self.Mana()>=340 Self.Say(exori gran) Exit() {EXORI 2} VarAdd(Time, 1) Status.InPZ()==0 Creatures.ByRangeName(3, Omar)==0 Creatures.PlayersOnRange(3)==1 !Mobs>=2 [SPELLS RANGE] !Time!>=!Wait! Self.Mana()>=115 Self.Say(exori) Self.Mana()>=340 Self.Say(exori gran) Exit() {SPELLS RANGE} Self.Attacking()==1 Creature.DistanceToSelf(:TargetID)<=3 Self.Mana()>=80 Self.Say(exori ico) Self.Say(exori hur) Exit()
[/macro]

[macro]50 {Mobs Counter} Mob1:=Creatures.ByRangeName(7, Renegade Knight) Mob2:=Creatures.ByRangeName(7, Vile Grandmaster) Mob3:=Creatures.ByRangeName(7, Vicious Squire) Mob4:=Creatures.ByRangeName(7, Blood Priest) Mob5:=Creatures.ByRangeName(7, Undead Gladiator) Mob6:=Creatures.ByRangeName(7, Lich) Mob7:=Creatures.ByRangeName(7, Hero) Mobs:=!Mob1 VarAdd(Mobs, !Mob2) VarAdd(Mobs, !Mob3) VarAdd(Mobs, !Mob4) VarAdd(Mobs, !Mob5) VarAdd(Mobs, !Mob6) VarAdd(Mobs, !Mob7)[/macro]

Just edit the name "OMAR" for your second character or party member and change the monster names from mobs counter macro.

[mostppl]

[macro]500 {[Party] Exori} Wait:=1 VarMult(Wait, 6) Creatures.ByRangeName(3, Omar)==0 [EXORI] Creatures.PlayersOnRange(3)>=2 [EXORI] Time:=0 Self.Attacking()==1 Creature.DistanceToSelf(:TargetID)<=3 Self.Mana()>=80 Self.Say(exori ico) Self.Say(exori hur) Exit() Exit() {EXORI} VarAdd(Time, 1) Status.InPZ()==0 Creatures.ByRangeName(3, Omar)==1 [EXORI 2] Creatures.PlayersOnRange(3)<=2 [SPELLS RANGE] !Mobs>=2 [SPELLS RANGE] !Time!>=!Wait! Self.Mana()>=115 Self.Say(exori) Self.Mana()>=340 Self.Say(exori gran) Exit() {EXORI 2} VarAdd(Time, 1) Status.InPZ()==0 Creatures.ByRangeName(3, Omar)==0 Creatures.PlayersOnRange(3)==1 !Mobs>=2 [SPELLS RANGE] !Time!>=!Wait! Self.Mana()>=115 Self.Say(exori) Self.Mana()>=340 Self.Say(exori gran) Exit() {SPELLS RANGE} Self.Attacking()==1 Creature.DistanceToSelf(:TargetID)<=3 Self.Mana()>=80 Self.Say(exori ico) Self.Say(exori hur) Exit()
[/macro]

[macro]50 {Mobs Counter} Mob1:=Creatures.ByRangeName(7, Renegade Knight) Mob2:=Creatures.ByRangeName(7, Vile Grandmaster) Mob3:=Creatures.ByRangeName(7, Vicious Squire) Mob4:=Creatures.ByRangeName(7, Blood Priest) Mob5:=Creatures.ByRangeName(7, Undead Gladiator) Mob6:=Creatures.ByRangeName(7, Lich) Mob7:=Creatures.ByRangeName(7, Hero) Mobs:=!Mob1 VarAdd(Mobs, !Mob2) VarAdd(Mobs, !Mob3) VarAdd(Mobs, !Mob4) VarAdd(Mobs, !Mob5) VarAdd(Mobs, !Mob6) VarAdd(Mobs, !Mob7)[/macro]

Just edit the name "OMAR" for your second character or party member and change the monster names from mobs counter macro.

Thank BRO.. I Give Reputation

[Scorpion Danger]

Bros, is there any way to cast exori/exori gran with Any amount of members on the screen? I tried to do the following
500 {[Party] Exori} Wait:=1 VarMult(Wait, 6) Creatures.ByRangeName(3, Scorpala)==0 Creatures.ByRangeName(3, Scorpion Danger)==0 [EXORI] Creatures.PlayersOnRange(3)>=2 [EXORI] Time:=0 Self.Attacking()==1 Creature.DistanceToSelf(:TargetID)<=3 Self.Mana()>=80 Self.Say(exori ico) Self.Say(exori hur) Exit() Exit() {EXORI} VarAdd(Time, 1) Status.InPZ()==0 Creatures.ByRangeName(3, Omar)==1 Creatures.ByRangeName(3, Scorpion Danger)==1 [EXORI 2] Creatures.PlayersOnRange(3)<=2 [SPELLS RANGE] !Mobs>=2 [SPELLS RANGE] !Time!>=!Wait! Self.Mana()>=115 Self.Say(exori) Self.Mana()>=340 Self.Say(exori gran) Exit() {EXORI 2} VarAdd(Time, 1) Status.InPZ()==0 Creatures.ByRangeName(3, Omar)==0 Creatures.ByRangeName(3, Scorpion Danger)==0 Creatures.PlayersOnRange(3)==1 !Mobs>=2 [SPELLS RANGE] !Time!>=!Wait! Self.Mana()>=115 Self.Say(exori) Self.Mana()>=340 Self.Say(exori gran) Exit() {SPELLS RANGE} Self.Attacking()==1 Creature.DistanceToSelf(:TargetID)<=3 Self.Mana()>=80 Self.Say(exori ico) Self.Say(exori hur) Exit()


Adding the following ('cause I wanted to do if there is any monster, not the written ones)

50

{Mobs Counter}
Mob1:=Creatures.Beside()>=2
Mob2:=Creatures.Beside()>=2
Mob3:=Creatures.Beside()>=2
Mob4:=Creatures.Beside()>=2
Mob5:=Creatures.Beside()>=2
Mob6:=Creatures.Beside()>=2
Mob7:=Creatures.Beside()>=2
Mobs:=!Mob1
VarAdd(Mobs, !Mob2)
VarAdd(Mobs, !Mob3)
VarAdd(Mobs, !Mob4)
VarAdd(Mobs, !Mob5)
VarAdd(Mobs, !Mob6)
VarAdd(Mobs, !Mob7)

[doxmey]

Code:

100 {Safe Area PT EK} safe:=0 Creatures.PlayersOnRange(!range)==1 [else] safe:=1 Exit()  {else} pt:=Creatures.PlayersOnRange(!range) Creatures.ByRangeParty(!range)==!pt safe:=1 Exit()

On the killer>actions you check fullcheck for your area spells and put !safe==1

Also add range=3 to your variables. Range is if a player outside of party is within 3 sqm from you it wont cast area spell. So adjust accordingly.