[Release] Autoit binds workaround

so I've been pretty much been lurking since I got here but I guess its about time to make some contributions.

this script pretty much just uses Hell's console to input commands but it allows use of all your hotkeys again, it has a tiny delay and might miss a key here or there but it should be much better than copy and paste.

you can configure the code yourself (put in your own commands, or add new condition for more keys)...just look at source code, the concept is pretty trivial.

run the script after you login and change channels, cuz the script picks up those keys and messes up whatever you're typing

list of key values for autoit:
keys

that virus scan:
TirusTotal

and have fun, I hope this is at least somewhat useful! this is because I couldn't get that bind fix working T_T

need to mention @Nicdel , anyways sounds cool

Mentions are currently off and most likely will be back during our vb4 update.
Can we get some screen shots of this.
And so tell me why this is better than Pie's binds :P

Originally Posted by Morior

Mentions are currently off and most likely will be back during our vb4 update.
Can we get some screen shots of this.
And so tell me why this is better than Pie's binds :P

i dont think he was able to get them to work.thats what this is for i think. oh what is the vb4 update?

Wild guess, using HotKeySet to ControlSend the commands directly in the console? Pretty much like having the script type the commands everytime you press a hotkey.

Well he put a release tag on it so im guessing he's releasing...
If not:
http://www.mpgh.net/forum/267-vindic...hack-read.html
And in vb4 were getting a new theme, hopefully more memory, some tags taken away, an vb4 itself has some features so yeh.

a yea here's the source code:

#include <Misc.au3>
Dim $console = "Pub Console by Hell_Demon & Nicdel[US Version]"

Func sendCommand($command)
winactivate($console)
send($command)
send("{ENTER}")
winactivate("Vindictus")
endfunc

while True
if _IsPressed("30") Then;0
sendCommand("changemap_to_current_random_sector")
elseif _IsPressed("31") Then;1
sendCommand("")
elseif _IsPressed("32") Then;2
sendCommand("")
elseif _IsPressed("33") Then;3
sendCommand("")
elseif _IsPressed("34") Then;4
sendCommand("")
elseif _IsPressed("35") Then;5
sendCommand("")
elseif _IsPressed("36") Then;6
sendCommand("")
elseif _IsPressed("37") Then;7
sendCommand("cc_set_sub_weapon javelin_lvl2 999")
elseif _IsPressed("38") Then;8
sendCommand("cc_set_sub_weapon mining_bomb 999")
elseif _IsPressed("39") Then;9
sendCommand("")
elseif _IsPressed("70") Then;F1
sendCommand("")
elseif _IsPressed("71") Then;F2
sendCommand("")
elseif _IsPressed("72") Then;F3
sendCommand("sk_plr_fiona_stamina_fast_restoration _time_condition -1")
elseif _IsPressed("73") Then;F4
sendCommand("")
elseif _IsPressed("74") Then;F5
sendCommand("campfire_repair")
elseif _IsPressed("75") Then;F6
sendCommand("")
elseif _IsPressed("76") Then;F7
sendCommand("cc_change_figure_height 0.1")
elseif _IsPressed("77") Then;F8
sendCommand("cc_change_figure_height 0.9")
elseif _IsPressed("78") Then;F9
sendCommand("host_timescale 10")
elseif _IsPressed("79") Then;F10
sendCommand("")
elseif _IsPressed("7A") Then;F11
sendCommand("dye_craft_time_sec 0.1")
elseif _IsPressed("7B") Then;F12
sendCommand("host_timescale 1")
elseif _IsPressed("60") Then;Numpad 0
sendCommand("")
elseif _IsPressed("61") Then;Numpad 1
sendCommand("")
elseif _IsPressed("62") Then;Numpad 2
sendCommand("")
elseif _IsPressed("63") Then;Numpad 3
sendCommand("current_combat_difficulty 1")
elseif _IsPressed("64") Then;Numpad 4
sendCommand("blacksmith_craft_time_sec 0.1")
elseif _IsPressed("65") Then;Numpad 5
sendCommand("")
elseif _IsPressed("66") Then;Numpad 6
sendCommand("cc_set_sub_weapon handbomb_lvl2 999")
elseif _IsPressed("67") Then;Numpad 7
sendCommand("cc_set_sub_weapon sticky_bomb_lvl1 999")
elseif _IsPressed("68") Then;Numpad 8
sendCommand("host_timescale 0.1")
elseif _IsPressed("69") Then;Numpad 9
sendCommand("host_timescale 1.5")
elseif _IsPressed("6A") Then;Numpad multiply
sendCommand("")
elseif _IsPressed("6B") Then;Numpad add
sendCommand("")
elseif _IsPressed("6C") Then;Numpad seperator
sendCommand("")
elseif _IsPressed("6D") Then;Numpad subtract
sendCommand("cc_set_sub_weapon javelin_piercing_catacomb 999")
elseif _IsPressed("6E") Then;Numpad decimal point
sendCommand("")
elseif _IsPressed("6F") Then;Numpad divide
sendCommand("")
elseif _IsPressed("21") Then;Page up
sendCommand("cc_enter_rochest_from_colhen")
elseif _IsPressed("22") Then;Page down
sendCommand("")
elseif _IsPressed("23") Then;End
sendCommand("")
elseif _IsPressed("24") Then;Home
sendCommand("cc_enter_colhen_from_rochest")
endif
sleep(100)
WEnd

yup it is basically a little gremlin switching windows and typing in your commands ultra fast then switching back, uh I guess a good thing is you can bind the commands to whichever buttons you want?

anyways this is kind of for use while the binds get fixed

ControlSend works too, like this:

Code:

Func sendCommand( $command )
	ControlSend("[TITLE:Pub Console by Hell_Demon & Nicdel[US Version]]", _ 
	"","",$command & "{ENTER}")
EndFunc

AFAIK it doesn't even need to switch the active window to send the command.

Also, it helps to set the key delay to 0 by doing Opt ( "SendKeyDelay" , 0 ) so that the commands are sent fast.

ah didn't know of those functions, I'll modify the script then, thx^^

not able to download?
why may i ask D:

nvm lol didn't read right

can someone post an example script that's already been made..
I'm kinda new to the scripting

A Minion (Mod) needs to approve the files before it can get public.
So Nicdel might approve.

Originally Posted by OniKon

not able to download?
why may i ask D:

nvm lol didn't read right

can someone post an example script that's already been made..
I'm kinda new to the scripting

The one that he posted should be working already, when you have:

Code:

elseif _IsPressed("37") Then;7
sendCommand("cc_set_sub_weapon javelin_lvl2 999")

The ;7 is a comment he made indicating to which key corresponds the "37" so if you want to use it simply replace the commands you want or add them, so for example if you want to hotkey F1 go to the line:

Code:

elseif _IsPressed("70") Then;F1
sendCommand("")

and write your command within the ""

I too did something like this when binds weren't working but droped it since they fixed the binds the very same day, gonna leave the code here if it may give OP some ideas:

The binds.ini file is where you actually bind the keys like key=command, for example:

Code:

[Binds]
{F1}=plr_play_overlay_sequence paladin_2_skill_tentacle
{F2}=plr_play_overlay_sequence paladin_transformation_begin_1
{Numpad6}=plr_turning_movement_speed_rate_min 10
{Numpad7}=plr_turning_movement_speed_rate_min 1

The script will read binds.ini, there's no need to modify the script to add or change the binds:

Code:

HotKeySet("{END}", "Close")
Opt("SendKeyDelay", 0)
$binds = IniReadSection("binds.ini", "Binds")
If @error Then 
  MsgBox(4096, "", "Couldn't locate ini file or wrong format.")
Else
  For $i = 1 To $binds[0][0]
    HotKeySet($binds[$i][0], "Use")
Next
EndIf
While 1
WEnd   
Func Use()
  For $i = 1 To $binds[0][0]
    If @HotKeyPressed == $binds[$i][0] then
      ControlSend("Pub Console", "", "", $binds[$i][1] & "{Enter}")
    EndIf
  Next
EndFunc
Func Close()                                                              
  Exit                                                             
EndFunc

There must be a function to locate an element on an array rather than looping through all but this is where the binds got fixed and I stopped looking

I realize some binds are still working, but not all of the binds have been fixed have they?

Originally Posted by ray0sunshine

I realize some binds are still working, but not all of the binds have been fixed have they?

You know, I was using nic's dll + HD's console and all binds I use were working, but now I tried HD's console alone and some binds aren't working for me.

hmmm weird, I tried using both also but most of my commands don't bind...though they still work

[Release] Autoit binds workaround

Post a Reply

Similar Threads

Tags for this Thread