NEW Lure macro

[Catar]

IM NOT SURE IF IT STILL WORKS ON 82.2+

[spoiler]
If anyone used my OLD lure macro must know,
it based on the command that didn't work properly. (Killer.Stop)
And macro needs to be updated now.

Since beta 81.1, macro command Killer.Stop was fixed, and now clears list/queue of monsters to kill.

The old macro will stop attacking if u kill one of the lured monsters.


I have NEW solution for lure macro.
Change name/s of monster/s of course.

Now there are 3 conditions.

• Number of monsters
  
• Duration of which we see them on screen
  
• Standing Still on one SQM for too long

[table=100]
[tr]
[th]

example for One type of monster

[/th]
[th]

multiple monsters

[/th]
[/tr]
[tr]
[td]
[macro]500 {grimtime} Creatures.ByRangeName(5, Grim Reaper)==1 [ad] VarAdd(grimtime, 1) exit() {ad} grimtime:=0 exit() [/macro]
[macro]500 {Lure} grimy:=Creatures.ByRangeName(8, Grim Reaper) ilem:=Creatures.ByRange(5) !ilem!<=!grimy! [poz] !grimy!>=2 [zabij] Killer.Start() HUD.Print(2, 1, 200, 222, 250, 500, Attack) Exit() {zabij} !grimtime!>=4 [zabij2] Killer.Start() HUD.Print(2, 1, 200, 222, 250, 500, Attack) exit() {zabij2} Killer.Stop() HUD.Print(2, 1, 200, 222, 250, 500, Lure) Exit() {poz} Misc.StandTime()>2 Killer.Start() HUD.Print(2, 1, 200, 222, 250, 500, Attack) Exit() [/macro]
[/td]
[td]
[macro]500 {mobtimer} mon1:=Creatures.ByRangeName(8, Crystal Spider) mon2:=Creatures.ByRangeName(8, Ice Golem) mon3:=Creatures.ByRangeName(8, Ice Witch) mon4:=Creatures.ByRangeName(8, Just Put Another Name Here) mons:=!mon1! VarAdd(mons, !mon2!) VarAdd(mons, !mon3!) VarAdd(mons, !mon4!) !mobbs!>=1 [ad] VarAdd(mobtime, 1) exit() {ad} mobtime:=0 exit()[/macro]

[macro]500 {Lure} ilem:=Creatures.ByRange(5) mob1:=Creatures.ByRangeName(8, Crystal Spider) mob2:=Creatures.ByRangeName(8, Ice Golem) mob3:=Creatures.ByRangeName(8, Ice Witch) mob4:=Creatures.ByRangeName(8, Just Put Another Name Here) mobs:=!mob1! VarAdd(mobs, !mob2!) VarAdd(mobs, !mob3!) VarAdd(mobs, !mob4!) !ilem!<=!mobs! [poz] !mobs!>=2 [zabij] Killer.Start() HUD.Print(2, 1, 200, 222, 250, 500, Attack) Exit() {zabij} !mobtime!>=6 [zabij2] Killer.Start() HUD.Print(2, 1, 200, 222, 250, 500, Attack) exit() {zabij2} Killer.Stop() HUD.Print(2, 1, 200, 222, 250, 500, Lure) Exit() {poz} Misc.StandTime()>2 Killer.Start() HUD.Print(2, 1, 200, 222, 250, 500, Attack) Exit()[/macro]
[/td]
[/tr]
[/table]


ALL Hud.Print commands can be deleted, Ionly use them to see what is happening in real time.


CODE for better visibility

500 {lure}

Code:

ilem:=Creatures.ByRange(5)
mob1:=Creatures.ByRangeName(8, Crystal Spider)
mob2:=Creatures.ByRangeName(8, Ice Golem)
mob3:=Creatures.ByRangeName(8, Ice Witch)
mob4:=Creatures.ByRangeName(8, Just Put Another Name Here)
mobs:=!mob1!
VarAdd(mobs, !mob2!)
VarAdd(mobs, !mob3!)
VarAdd(mobs, !mob4!)
!ilem!<=!mobs! [poz]
!mobs!>=2 [zabij]
Killer.Start()
HUD.Print(2, 1, 200, 222, 250, 500, Attack)
Exit()
{zabij}
!mobtime!>=6 [zabij2]
Killer.Start()
HUD.Print(2, 1, 200, 222, 250, 500, Attack)
exit()
{zabij2}
Killer.Stop()
HUD.Print(2, 1, 200, 222, 250, 500, Lure)
Exit()
{poz}
Misc.StandTime()>2
Killer.Start()
HUD.Print(2, 1, 200, 222, 250, 500, Attack)
Exit()

500 {mobtimer}

Code:

mon1:=Creatures.ByRangeName(8, Crystal Spider)
mon2:=Creatures.ByRangeName(8, Ice Golem)
mon3:=Creatures.ByRangeName(8, Ice Witch)
mon4:=Creatures.ByRangeName(8, Just Put Another Name Here)
mons:=!mon1!
VarAdd(mons, !mon2!)
VarAdd(mons, !mon3!)
VarAdd(mons, !mon4!)
!mobbs!>=1 [ad]
VarAdd(mobtime, 1)
exit()
{ad}
mobtime:=0
exit()

Someone please test it and leave feedback,
I modified my macros all in Notepad++, had no way of testing it yet[/spoiler]

[Catar]

Bbot 82.4+ LURE MACRO

Okay, since we already can use new command Cooldown.....
And killer is a bit changed, behaves differently,
I created for myself new 'LURE' macro setup I use at the moment on EK and would like to share with you (it won't work well on ranged Vocations without changing few things)).

It will start killer when sees 3 monsters on screen and stop when finishes.

Also, it will start killer when seeing ONE creature on screen for longer than 6 seconds or TWO creatures for longer than 4 seconds (adjustable in MobTimer macro)


This NEW lure is made of two macros working together, and also has ON/OFF switch in variables.

Variables (1 for ON, anything else for OFF)

Code:

CaveKiller=1

[table=90]
[tr]
[td][macro]100 {KillerCaveADV} !CaveKiller!==1 [cdon] Creatures.NPCOnScreen()>=3 [mbt] {atk} Self.Attacking()==0 [sa] Killer.Start() {sa} Cooldown.Create(CaveKillOn, 4000) Cooldown.Blocked(KillHudOn)==0 HUD.Print(2, 1, 200, 50, 50, 1200, KILLER ON) Cooldown.Create(KillHudOn, 1199) exit() {trzy} Cooldown.Blocked(CaveKillOn)==1 [cdon] Creatures.ByRange(2)>1 [cdon2] {cON} Cooldown.Create(CaveKillOn, 4000) Cooldown.Blocked(KillExtend)==0 HUD.Print(2, 1, 20, 250, 50, 1200, KILLER EXTENDED) Cooldown.Create(KillExtend, 1199) exit() {cdon2} Self.Attacking()==0 [cON] {cdon} Cooldown.Blocked(CaveKillOn)==0 !KilMouse!==0 Killer.Stop() Cooldown.Blocked(KillHudOff)==0 !CaveKiller!==1 [skipoff] HUD.Print(2, 1, 50, 150, 250, 1200, KILLER OFF) {skipoff} Cooldown.Create(KillHudOff, 1199) exit() {mbt} !mbt!<1 [atk] Label(trzy)[/macro][/td]
[td][macro]100 {MobTimer} Creatures.NPCOnScreen()==0 [m0] Cooldown.Create(mobTimer1, 6000) Cooldown.Create(mobTimer2, 4000) Label(next) {m0} Creatures.NPCOnScreen()==1 [m1] Cooldown.Create(mobTimer2, 4000) Label(next) {m1} Creatures.NPCOnScreen()==2 Label(next) {next} mbt1:=Cooldown.UnBlocked(mobTimer1) mbt2:=Cooldown.UnBlocked(mobTimer2) mbt:=Add(!mbt1, !mbt2)[/macro][/td]
[/tr]
[/table]

codes
[spoiler]

Code:

!CaveKiller!==1 [cdon]
Creatures.NPCOnScreen()>=3 [mbt]
{atk}
Self.Attacking()==0 [sa]
Killer.Start()
{sa}
Cooldown.Create(CaveKillOn, 4000)
Cooldown.Blocked(KillHudOn)==0
HUD.Print(2, 1, 200, 50, 50, 1200, KILLER ON)
Cooldown.Create(KillHudOn, 1199)
exit()
{trzy}
Cooldown.Blocked(CaveKillOn)==1 [cdon]
Creatures.ByRange(2)>1 [cdon2]
{cON}
Cooldown.Create(CaveKillOn, 4000)
Cooldown.Blocked(KillExtend)==0
HUD.Print(2, 1, 20, 250, 50, 1200, KILLER EXTENDED)
Cooldown.Create(KillExtend, 1199)
exit()
{cdon2}
Self.Attacking()==0 [cON]
{cdon}
Cooldown.Blocked(CaveKillOn)==0
!KilMouse!==0
Killer.Stop()
Cooldown.Blocked(KillHudOff)==0
!CaveKiller!==1 [skipoff]
HUD.Print(2, 1, 50, 150, 250, 1200, KILLER OFF)
{skipoff}
Cooldown.Create(KillHudOff, 1199)
exit()
{mbt}
!mbt!<1 [atk]
Label(trzy)

Code:

Creatures.NPCOnScreen()==0 [m0]
Cooldown.Create(mobTimer1, 6000)
Cooldown.Create(mobTimer2, 4000)
Label(next)
{m0}
Creatures.NPCOnScreen()==1 [m1]
Cooldown.Create(mobTimer2, 4000)
Label(next)
{m1}
Creatures.NPCOnScreen()==2
Label(next)
{next}
mbt1:=Cooldown.UnBlocked(mobTimer1)
mbt2:=Cooldown.UnBlocked(mobTimer2)
mbt:=Add(!mbt1, !mbt2)

[/spoiler]

[Realovsky]

works perfect, good job bro!

[brunoalisson]

Me ensina a utilizar, só colocar os 2 comando no macro ? poderia me ajudar por favor ?

---

Teach me how to use, so just put 2 commands in the macro? Could you help me, please?

[gerinho]

Me ensina a utilizar, só colocar os 2 comando no macro ? poderia me ajudar por favor ?

---

Teach me how to use, so just put 2 commands in the macro? Could you help me, please?

SE ME PEGA EU ENSINO