Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[Shukaro]

How is DFHack not working for you? What exactly is happening when you invoke the DFHack flag?

E: Also, new minor version out. Adds the e flag which returns to the main menu and tweaks ru a bit.

[vonduus]

How is DFHack not working for you? What exactly is happening when you invoke the DFHack flag?

Exactly nothing.

I right-click in DF, go to the DFHack sub-menu, select "Prospect" and click - the menu goes away, and nothing happens in the DFHack console.

I made this line in keys.txt:

^p|a(prospect all)

- this is also not working, ie. nothing happens when I press Ctrl-p. DFHack is working alright when I write the commands directly into the console.

Cursor tracking still works!!!

edit:  Ok, I downloaded the new version, everything works fine, except the DFHack sub-menu.

In my menus.txt I have added the following lines at the top:

Look|Info|g(k)
View|Info|g(v)
View Building|Info|g(t)
Set Prefs|Info|g(q)
Info
|


This puts in an extra menu, with easy access to the look and view functions.

I believe this is where your Mousefort really shines - most building and task commands I know by heart now, but moving the cursor around with the arrow keys to get information has imo always been a major pain. With this addition to the script you just select the info mode and then hover your mouse over what you want info about.

The "q"-function does not really belong here, perhaps it should be its own parent - though I fear that the menu will soon get unwieldy. There is also Activity Zones (i), the Status groups(z) and perhaps the Military(m and s), Unit(u) and Nobles(n) screens.

[vonduus]

If I right click and select "Stockpiles" and then "Remove" I get the remove staircases task. Apparently all menu entries must have different names. Therefore, to get the "remove Stockpile" task, delete the line

Remove|Stockpiles|g(px)

and replace it with

Remove Pile|Stockpiles|g(px)

[vonduus]

Cursor tracking is not working. Here is the Cheat Engine data:

http://www.mediafire.com/download.php?tyfhxiyg9xa86s3

edit: I did the window resizing/moving routine, and after some attempts I got it to work again. I did another Cheat analysis, results are here:

http://www.mediafire.com/download.php?p6y0ahm8nw56b50

Update: Now I have lost it again. I had it, then i minimized DF and used Firefox, when I came back to DF, Mousetracking was gone. Another upload:

http://www.mediafire.com/?bmn2ch8a48om2qa

Another Update: I got it back after quitting Firefox (?!?)

And another: I believe I have solved my DFHack problem: When DFHack is minimized, no commands get through from Mousefort. If DFHack is in a window behind DF, it works alright.

[iTreefish]

Really great utility! (& I love me some Autohotkey as well!)

Looking forward to jittery-cursor tracking fixes!

Thank you so much & great job!

[Shukaro]

Alright, new version out, 1.3.

This one fixes cursor tracking completely (If it doesn't work for you still, then the issue is absolutely out of my hands). There are also a few other minor changes.

Enjoy!

[Shishimaru]

There is a bug in the last version for the cursor tracking:

these lines in the mouse.ahk

Code: [Select]

if (A_LoopField = "q")
{
IniRead, cursoron, config.ini, pass, cursoron
if (cursoron = "1")
{
IniWrite, 0, config.ini, pass, cursoron
WinClose, cursor.exe
Traytip,, Tracking Disabled!
}
else
{
IniWrite, 1, config.ini, pass, cursoron
Traytip,, Tracking Enabled!
}
}

should be

Code: [Select]

if (A_LoopField = "q")
{
IniRead, cursoron, config.ini, pass, cursoron
if (cursoron = "1")
{
IniWrite, 0, config.ini, pass, cursoron
WinClose, cursor.exe
Traytip,, Tracking Disabled!
}
else
{
IniWrite, 1, config.ini, pass, cursoron
Run cursor.exe                                        <----- this line reactivate the tracking
Traytip,, Tracking Enabled!
}
}


[Shukaro]

Ah, just forgot to update that part of the behavior, one minute.

E: Alright, fixed version is live now.

[iTreefish]

Great! Works perfectly! Thanks!

[Shishimaru]

I've found a little bug. If you try to define a menu like this:

DigMeasure||g(d),ru(t)

it executes only the g flag

To fix this in the mouse.ahk change these lines:

Spoiler (click to show/hide)

Code: [Select]

flagexec(flags)
{
global base, sidemenutypeoffset, pauseoffset, fullscreen
full := flags
flags := RegExReplace(flags, "\(.+\)", "")
Loop, parse, flags, `,
{
if (A_LoopField = "t")
{
side := ReadMemory(base+sidemenutypeoffset,"Dwarf Fortress")
if (side <> 0)
{
SendInput, %A_ThisHotkey%
Exit
}
}
if (A_LoopField = "m")
Menu, context, show
if (A_LoopField = "pan")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run pan.exe
}
if (A_LoopField = "s")
ExitApp
if (A_LoopField = "l")
Run launch.exe
if (A_LoopField = "p")
{
pause := ReadMemory(base+pauseoffset,"Dwarf Fortress")
throw := RegExMatch(full, "p\(.*?\)", match)
match := RegExReplace(match, "p\(|\)", "")
if (match = "p")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
if (match = "u")
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
if (match = "g")
{
if (pause = "0")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
else
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
}
}
if (A_LoopField = "g")
{
throw := RegExMatch(full, "g\(.*?\)", match)
match := RegExReplace(match, "g\(|\)", "")
gomenu(match)
}
if (A_LoopField = "k")
{
throw := RegExMatch(full, "k\(.*?\)", match)
match := RegExReplace(match, "k\(|\)", "")
SendInput, %match%
}
if (A_LoopField = "a")
{
throw := RegExMatch(full, "a\(.*?\)", match)
match := RegExReplace(match, "a\(|\)", "")
WinRestore, Dwarf Fortress.exe
ControlSend,, %match%{Enter}, Dwarf Fortress.exe
}
if (A_LoopField = "r")
{
throw := RegExMatch(full, "r\(.*?\)", match)
match := RegExReplace(match, "r\(|\)", "")
Run, %match%
}
if (A_LoopField = "q")
{
IniRead, cursoron, config.ini, pass, cursoron
if (cursoron = "1")
{
IniWrite, 0, config.ini, pass, cursoron
WinClose, cursor.exe
Traytip,, Tracking Disabled!
}
else
{
IniWrite, 1, config.ini, pass, cursoron
Run cursor.exe
Traytip,, Tracking Enabled!
}
}
if (A_LoopField = "dc")
{
if not (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 500)
{
Exit
}
}
if (A_LoopField = "d")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run drag.exe
}
if (A_LoopField = "ru")
{
throw := RegExMatch(full, "ru\(.*?\)", match)
match := RegExReplace(match, "ru\(|\)", "")
if (match = "h")
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run rule.exe
}
IniRead, ruleon, config.ini, pass, ruleon
if ((match = "t") and (ruleon = "0"))
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, 1, config.ini, pass, ruleon
Run rule.exe
}
if ((match = "t") and (ruleon = "1"))
{
WinClose, rule.exe
IniWrite, 0, config.ini, pass, ruleon
}
}
if (A_LoopField = "e")
{
Loop 5
{
SendInput {Escape}
Sleep 10
}
SendInput, {Enter}
}
}
}

with these:

Spoiler (click to show/hide)

Code: [Select]

flagexec(flags)
{
global base, sidemenutypeoffset, pauseoffset, fullscreen
Loop, parse, flags, `,
{
full := A_LoopField
flag := RegExReplace(A_LoopField, "\(.+\)", "")
if (flag = "t")
{
side := ReadMemory(base+sidemenutypeoffset,"Dwarf Fortress")
if (side <> 0)
{
SendInput, %A_ThisHotkey%
Exit
}
}
if (flag = "m")
Menu, context, show
if (flag = "pan")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run pan.exe
}
if (flag = "s")
ExitApp
if (flag = "l")
Run launch.exe
if (flag = "p")
{
pause := ReadMemory(base+pauseoffset,"Dwarf Fortress")
throw := RegExMatch(full, "p\(.*?\)", match)
match := RegExReplace(match, "p\(|\)", "")
if (match = "p")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
if (match = "u")
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
if (match = "g")
{
if (pause = "0")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
else
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
}
}
if (flag = "g")
{
throw := RegExMatch(full, "g\(.*?\)", match)
match := RegExReplace(match, "g\(|\)", "")
gomenu(match)
}
if (flag = "k")
{
throw := RegExMatch(full, "k\(.*?\)", match)
match := RegExReplace(match, "k\(|\)", "")
SendInput, %match%
}
if (flag = "a")
{
throw := RegExMatch(full, "a\(.*?\)", match)
match := RegExReplace(match, "a\(|\)", "")
WinRestore, Dwarf Fortress.exe
ControlSend,, %match%{Enter}, Dwarf Fortress.exe
}
if (flag = "r")
{
throw := RegExMatch(full, "r\(.*?\)", match)
match := RegExReplace(match, "r\(|\)", "")
Run, %match%
}
if (flag = "q")
{
IniRead, cursoron, config.ini, pass, cursoron
if (cursoron = "1")
{
IniWrite, 0, config.ini, pass, cursoron
WinClose, cursor.exe
Traytip,, Tracking Disabled!
}
else
{
IniWrite, 1, config.ini, pass, cursoron
Run cursor.exe
Traytip,, Tracking Enabled!
}
}
if (flag = "dc")
{
if not (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 500)
{
Exit
}
}
if (flag = "d")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run drag.exe
}
if (flag = "ru")
{
throw := RegExMatch(full, "ru\(.*?\)", match)
match := RegExReplace(match, "ru\(|\)", "")
if (match = "h")
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run rule.exe
}
IniRead, ruleon, config.ini, pass, ruleon
if ((match = "t") and (ruleon = "0"))
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, 1, config.ini, pass, ruleon
Run rule.exe
}
if ((match = "t") and (ruleon = "1"))
{
WinClose, rule.exe
IniWrite, 0, config.ini, pass, ruleon
}
}
if (flag = "e")
{
Loop 5
{
SendInput {Escape}
Sleep 10
}
SendInput, {Enter}
}
}
}


[Shukaro]

I've found a little bug. If you try to define a menu like this:

DigMeasure||g(d),ru(t)

it executes only the g flag

To fix this in the mouse.ahk change these lines:

Spoiler (click to show/hide)

Code: [Select]

flagexec(flags)
{
global base, sidemenutypeoffset, pauseoffset, fullscreen
full := flags
flags := RegExReplace(flags, "\(.+\)", "")
Loop, parse, flags, `,
{
if (A_LoopField = "t")
{
side := ReadMemory(base+sidemenutypeoffset,"Dwarf Fortress")
if (side <> 0)
{
SendInput, %A_ThisHotkey%
Exit
}
}
if (A_LoopField = "m")
Menu, context, show
if (A_LoopField = "pan")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run pan.exe
}
if (A_LoopField = "s")
ExitApp
if (A_LoopField = "l")
Run launch.exe
if (A_LoopField = "p")
{
pause := ReadMemory(base+pauseoffset,"Dwarf Fortress")
throw := RegExMatch(full, "p\(.*?\)", match)
match := RegExReplace(match, "p\(|\)", "")
if (match = "p")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
if (match = "u")
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
if (match = "g")
{
if (pause = "0")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
else
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
}
}
if (A_LoopField = "g")
{
throw := RegExMatch(full, "g\(.*?\)", match)
match := RegExReplace(match, "g\(|\)", "")
gomenu(match)
}
if (A_LoopField = "k")
{
throw := RegExMatch(full, "k\(.*?\)", match)
match := RegExReplace(match, "k\(|\)", "")
SendInput, %match%
}
if (A_LoopField = "a")
{
throw := RegExMatch(full, "a\(.*?\)", match)
match := RegExReplace(match, "a\(|\)", "")
WinRestore, Dwarf Fortress.exe
ControlSend,, %match%{Enter}, Dwarf Fortress.exe
}
if (A_LoopField = "r")
{
throw := RegExMatch(full, "r\(.*?\)", match)
match := RegExReplace(match, "r\(|\)", "")
Run, %match%
}
if (A_LoopField = "q")
{
IniRead, cursoron, config.ini, pass, cursoron
if (cursoron = "1")
{
IniWrite, 0, config.ini, pass, cursoron
WinClose, cursor.exe
Traytip,, Tracking Disabled!
}
else
{
IniWrite, 1, config.ini, pass, cursoron
Run cursor.exe
Traytip,, Tracking Enabled!
}
}
if (A_LoopField = "dc")
{
if not (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 500)
{
Exit
}
}
if (A_LoopField = "d")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run drag.exe
}
if (A_LoopField = "ru")
{
throw := RegExMatch(full, "ru\(.*?\)", match)
match := RegExReplace(match, "ru\(|\)", "")
if (match = "h")
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run rule.exe
}
IniRead, ruleon, config.ini, pass, ruleon
if ((match = "t") and (ruleon = "0"))
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, 1, config.ini, pass, ruleon
Run rule.exe
}
if ((match = "t") and (ruleon = "1"))
{
WinClose, rule.exe
IniWrite, 0, config.ini, pass, ruleon
}
}
if (A_LoopField = "e")
{
Loop 5
{
SendInput {Escape}
Sleep 10
}
SendInput, {Enter}
}
}
}

with these:

Spoiler (click to show/hide)

Code: [Select]

flagexec(flags)
{
global base, sidemenutypeoffset, pauseoffset, fullscreen
Loop, parse, flags, `,
{
full := A_LoopField
flag := RegExReplace(A_LoopField, "\(.+\)", "")
if (flag = "t")
{
side := ReadMemory(base+sidemenutypeoffset,"Dwarf Fortress")
if (side <> 0)
{
SendInput, %A_ThisHotkey%
Exit
}
}
if (flag = "m")
Menu, context, show
if (flag = "pan")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run pan.exe
}
if (flag = "s")
ExitApp
if (flag = "l")
Run launch.exe
if (flag = "p")
{
pause := ReadMemory(base+pauseoffset,"Dwarf Fortress")
throw := RegExMatch(full, "p\(.*?\)", match)
match := RegExReplace(match, "p\(|\)", "")
if (match = "p")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
if (match = "u")
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
if (match = "g")
{
if (pause = "0")
WriteMemory(65536,base+pauseoffset,"Dwarf Fortress")
else
WriteMemory(0,base+pauseoffset,"Dwarf Fortress")
}
}
if (flag = "g")
{
throw := RegExMatch(full, "g\(.*?\)", match)
match := RegExReplace(match, "g\(|\)", "")
gomenu(match)
}
if (flag = "k")
{
throw := RegExMatch(full, "k\(.*?\)", match)
match := RegExReplace(match, "k\(|\)", "")
SendInput, %match%
}
if (flag = "a")
{
throw := RegExMatch(full, "a\(.*?\)", match)
match := RegExReplace(match, "a\(|\)", "")
WinRestore, Dwarf Fortress.exe
ControlSend,, %match%{Enter}, Dwarf Fortress.exe
}
if (flag = "r")
{
throw := RegExMatch(full, "r\(.*?\)", match)
match := RegExReplace(match, "r\(|\)", "")
Run, %match%
}
if (flag = "q")
{
IniRead, cursoron, config.ini, pass, cursoron
if (cursoron = "1")
{
IniWrite, 0, config.ini, pass, cursoron
WinClose, cursor.exe
Traytip,, Tracking Disabled!
}
else
{
IniWrite, 1, config.ini, pass, cursoron
Run cursor.exe
Traytip,, Tracking Enabled!
}
}
if (flag = "dc")
{
if not (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 500)
{
Exit
}
}
if (flag = "d")
{
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run drag.exe
}
if (flag = "ru")
{
throw := RegExMatch(full, "ru\(.*?\)", match)
match := RegExReplace(match, "ru\(|\)", "")
if (match = "h")
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, %A_ThisHotkey%, config.ini, pass, dragkey
Run rule.exe
}
IniRead, ruleon, config.ini, pass, ruleon
if ((match = "t") and (ruleon = "0"))
{
IniWrite, %match%, config.ini, pass, flagvar
IniWrite, 1, config.ini, pass, ruleon
Run rule.exe
}
if ((match = "t") and (ruleon = "1"))
{
WinClose, rule.exe
IniWrite, 0, config.ini, pass, ruleon
}
}
if (flag = "e")
{
Loop 5
{
SendInput {Escape}
Sleep 10
}
SendInput, {Enter}
}
}
}


Ah, I'm surprised I haven't caught that before, I'll upload a fixed version ASAP. Also, thanks for the bug reporting, it's quite helpful.

[vonduus]

I found out what was wrong on my system: If I refrain from minimizing background applications (like Firefox, DFHack, DwarfTherapist etc), cursor tracking works like a dream, and commands get sent to DFHack, all the time. Just mentioning it if someone else has had the same problem - the solution is to NOT minimize anything. If cursor tracking stops working it is just a question of reloading the script.  I'm sorry it took me so long to pin-point what was wrong, Shukaro, I hope you did not spend too much time tryinf to fix my imaginary problems.

Thanks again, this is a great utility!

[Shishimaru]

When the cursor tracking is on, but there is no cursor the cursor.exe process eats all the available cpu cycles.

To fix this change these lines:

Spoiler (click to show/hide)

Code: [Select]

if ((cursorx > 4000000000) or ((sidemenutype = "15") and (constructioncursor > 4000000000)) or (fullmenu = "0") or (sidemenutype = "0"))
Continue


with these:

Spoiler (click to show/hide)

Code: [Select]

if ((cursorx > 4000000000) or ((sidemenutype = "15") and (constructioncursor > 4000000000)) or (fullmenu = "0") or (sidemenutype = "0")){
Sleep 15
Continue
}


Also it still happens sometimes that the cursor tracking doesn't work at all. It happened to me when I had Firefox opened with a grouped tab called "Dwarf fortress". Changing these lines

Spoiler (click to show/hide)

Code: [Select]

ReadMemory(MADDRESS,PROGRAM)
{
winget, pid, PID, %PROGRAM%
VarSetCapacity(MVALUE,4,0)
ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt")
DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0)
Loop 4
result += *(&MVALUE + A_Index-1) << 8*(A_Index-1)
return, result
}

with these:

Spoiler (click to show/hide)

Code: [Select]

ReadMemory(MADDRESS,PROGRAM)
{
WinGetTitle, Title, A
if (Title = PROGRAM){
winget, pid, PID, A
VarSetCapacity(MVALUE,4,0)
ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt")
DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0)
Loop 4
result += *(&MVALUE + A_Index-1) << 8*(A_Index-1)
} else {
result := 4294967295
}
return, result
}

should fix this error

Another thing that can stop the cursor tracking from working is a bug of DF: changing the zoom level doesn't change the mousex and mousey limits so if you find that the cursor tracking works only in the top left corner of the map window, try to zoom in.

[Shukaro]

I'll have a new version for 34.08 out today with a bunch of bug fixes, so if there's anything else you'd like to see or any other critical bugs I missed feel free to leave a comment.

[kendo]

My Mouse tracking goes completely screwy when I have a siege, I think its probably related to low fps? Is this a known problem?