Post Reply 
 
Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Stop Cavebot/Killer with Arrow Keys
01-19-2017, 12:32 PM (This post was last modified: 01-19-2017 01:05 PM by Catar.)
Post: #1
Stop Cavebot/Killer with Arrow Keys
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 Tongue

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

StopWithArrows (auto: 190ms)
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()




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()

Give Reputation to this user

Before you PM me, READ THIS [Image: KHCf9l2.png]

[Image: naLmyGH.png]

My Scripts, Macros and Tutorials
Find all posts by this user
Quote this message in a reply
Post Reply 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)