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]