+- BBot - The best bot of the world (https://forums.bmega.net)
+-- Forum: Scripts & Macros (https://forums.bmega.net/forum-4.html)
+--- Forum: Requests (https://forums.bmega.net/forum-17.html)
+--- Thread: Exori / Gran WITH PARTY MEMBER ON SCREEN (/thread-21231.html)
Exori / Gran WITH PARTY MEMBER ON SCREEN - mostppl - 11-20-2020
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!
RE: Exori / Gran WITH PARTY MEMBER ON SCREEN - erleo - 11-20-2020
[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.
RE: Exori / Gran WITH PARTY MEMBER ON SCREEN - mostppl - 11-22-2020
(11-20-2020, 06:49 PM)erleo Wrote: [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
RE: Exori / Gran WITH PARTY MEMBER ON SCREEN - Scorpion Danger - 11-28-2020
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)
RE: Exori / Gran WITH PARTY MEMBER ON SCREEN - doxmey - 12-01-2020
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.