NEW Lure macro - Printable Version +- BBot - The best bot of the world (https://forums.bmega.net) +-- Forum: Scripts & Macros (https://forums.bmega.net/forum-4.html) +--- Forum: Free Scripts (https://forums.bmega.net/forum-10.html) +--- Thread: NEW Lure macro (/thread-20605.html) |
NEW Lure macro - Catar - 03-08-2017 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.
[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) 500 {mobtimer} Code: mon1:=Creatures.ByRangeName(8, Crystal Spider) Someone please test it and leave feedback, I modified my macros all in Notepad++, had no way of testing it yet[/spoiler] RE: NEW Lure macro - Catar - 05-02-2017 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] Code: Creatures.NPCOnScreen()==0 [m0] RE: NEW Lure macro - Realovsky - 01-31-2018 works perfect, good job bro! RE: NEW Lure macro - brunoalisson - 07-13-2020 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? RE: NEW Lure macro - gerinho - 07-20-2020 (07-13-2020, 10:01 PM)brunoalisson Wrote: Me ensina a utilizar, só colocar os 2 comando no macro ? poderia me ajudar por favor ? SE ME PEGA EU ENSINO |