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!
Give Reputation to this user

[erleo]

[Party] Exori (auto: 500ms)

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()


Mobs Counter (auto: 50ms)

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)

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

[mostppl]

(11-20-2020 06:49 PM)erleo Wrote:  

[Party] Exori (auto: 500ms)

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()


Mobs Counter (auto: 50ms)

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)

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
Give Reputation to this user

[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)
Give Reputation to this user

[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.
Give Reputation to this user