+- 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: Stop Cavebot/Killer with Arrow Keys (/thread-20499.html)
Stop Cavebot/Killer with Arrow Keys - Catar - 01-19-2017
I had an idea for simple macro that will allow you to stop cavebot with arrows keys if you need to do it suddenly, for example start running by yourself
To avoid accidental turning off, macro will send Cavebot.Stop() command after about 3 seconds of holding any of arrow keys.
In other words:
You need to hold any arrow keys for at least 3 seconds for macro to work
[macro]190 {StopWithArrows} k1:=Tibia.IsKeyDown(37) k2:=Tibia.IsKeyDown(38) k3:=Tibia.IsKeyDown(39) k4:=Tibia.IsKeyDown(40) keys:=!k1! VarAdd(keys, !k2!) VarAdd(keys, !k3!) VarAdd(keys, !k4!) !keydel!<13 [stop] !keys!>=1 [delay] VarAdd(keydel, 1) exit() {delay} keydel:=0 exit() {stop} Cavebot.Stop() keydel:=0 exit() [/macro]
Code:
k1:=Tibia.IsKeyDown(37)
k2:=Tibia.IsKeyDown(38)
k3:=Tibia.IsKeyDown(39)
k4:=Tibia.IsKeyDown(40)
keys:=!k1!
VarAdd(keys, !k2!)
VarAdd(keys, !k3!)
VarAdd(keys, !k4!)
!keydel!<13 [stop]
!keys!>=1 [delay]
VarAdd(keydel, 1)
exit()
{delay}
keydel:=0
exit()
{stop}
Cavebot.Stop()
keydel:=0
exit()If you want stop Killer as well, add Killer.Stop() to macro
Quote:{stop}
Cavebot.Stop()
keydel:=0
Killer.Stop()
exit()