BBot - The Best Bot of the World - Forums

Full Version: Exori / Gran WITH PARTY MEMBER ON SCREEN
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
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!
[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.
(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
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)
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.
Reference URL's