Please help me get this working. Topic is solved

[Guest]

Hi, I managed to get my hands on a script I have been wanting for a long time to help in a game. I wanted at first just a script to lift the mouse extremely slowly but was unable to find one or get one working but this is much better anyway.

Spoiler

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#UseHook

SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.


BarrelTop = 319 ; black line where the yellow and red boundary is suppose to be in
; for a succesful pick attempt

PinX = 0
PinY = 0
PickLocY = 374
PickLocX = 827
color_red = 0xDE6060
color_yellow = 0xDABF5C
color_nearblack = 0x292929
hwnd = 0
hDC = 0
pix = 0

IfNotExist, %A_WorkingDir%\MOLockPick.ini
{
FileAppend,,%A_WorkingDir%\MOLockPick.ini
}


;----------------------------------------
;----------------------------------------
;----------------------------------------
Home::
IfWinActive, MortalGame
{
window := WinExist("A") ;// grab the hwnd of the active window
MouseGetPos, curX, curY
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB slow
While (!CompareRGB(color_red, clr2))
{
MouseMove, -10, -20, 0, R
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB Slow
}
MouseClick, Right,,,,,U

loop, 10000
{
PixelGetColor, clr1, PinX, BarrelTop - 3, RGB slow ; 317
PixelGetColor, clr2, PinX, BarrelTop - 1, RGB slow ; 317
if (CompareRGB(color_yellow, clr1))
{
if (CompareRGB(color_red, clr2))
{
MouseClick, Left
SoundBeep
break
} else {
break
}
}
}
Sleep 200
MouseMove, curX, curY
}
return

End::
IfWinActive, MortalGame
{
MouseGetPos, curX, curY
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
While (!CompareRGB(color_red, clr2))
{
MouseMove, -10, -20, 0, R
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
}
MouseClick, Right,,,,,U

loop, 10000
{
PixelGetColor, clr1, PinX, BarrelTop - 1, RGB ; 317
PixelGetColor, clr2, PinX, BarrelTop, RGB ; 317
if (CompareRGB(color_yellow, clr1))
{
if (CompareRGB(color_red, clr2))
{
MouseClick, Left
SoundBeep
break
} else {
break
}
}
}
Sleep 200
MouseMove, curX, curY
}
return

Insert::
IfWinActive, MortalGame
{
MouseGetPos, curX, curY
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
While (!CompareRGB(color_red, clr2))
{
MouseMove, -10, -20, 0, R
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
}
MouseClick, Right,,,,,U

loop, 10000
{
PixelGetColor, clr1, PinX, BarrelTop, RGB ; 317
PixelGetColor, clr2, PinX, BarrelTop + 1, RGB ; 317
if (CompareRGB(color_yellow, clr1))
{
if (CompareRGB(color_red, clr2))
{
MouseClick, Left
SoundBeep
break
} else {
break
}
}
}
Sleep 200
MouseMove, curX, curY
}
return

Delete::
ReloadScript()
return

ScrollLock::
IfWinActive, MortalGame
{
msgbox start
PickLocY = 374
PickLocX = 827
bottomRedY = 368

xCount = 500
PixelGetColor, cl1, xCount, BottomRedY, RGB
PixelGetColor, cl2, xCount, BottomRedY + 1, RGB

While (!(CompareRGB(color_red, cl1) && CompareRGB(color_nearblack, cl2)) AND %xCount% <= 850)
{
xCount := xCount + 1
PixelGetColor, cl1, xCount, BottomRedY, RGB
PixelGetColor, cl2, xCount, BottomRedY, RGB

}
msgbox %xCount%
MouseMove, xCount, bottomRedY
}
return

PgUp::
IfWinActive, MortalGame
{
MouseGetPos, curX, curY
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
While (!CompareRGB(color_red, clr2))
{
MouseMove, -10, -20, 0, R
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
}
MouseClick, Right,,,,,U

loop, 10000
{
PixelGetColor, clr1, PinX, BarrelTop + 1, RGB ; 317
PixelGetColor, clr2, PinX, BarrelTop + 2, RGB ; 317
if (CompareRGB(color_yellow, clr1))
{
if (CompareRGB(color_red, clr2))
{
MouseClick, Left
SoundBeep
break
} else {
break
}
}
}
Sleep 200
MouseMove, curX, curY
}
return

PgDn::
IfWinActive, MortalGame
{
MouseGetPos, curX, curY
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
While (!CompareRGB(color_red, clr2))
{
MouseMove, -10, -20, 0, R
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB
}
MouseClick, Right,,,,,U

loop, 10000
{
PixelGetColor, clr1, PinX, BarrelTop + 2, RGB ; 317
PixelGetColor, clr2, PinX, BarrelTop + 3, RGB ; 317
if (CompareRGB(color_yellow, clr1))
{
if (CompareRGB(color_red, clr2))
{
MouseClick, Left
SoundBeep
break
} else {
break
}
}
}
Sleep 200
MouseMove, curX, curY
}
return

PrintScreen::
MouseGetPos, MX, MY
PixelGetColor, clr, MX-2, MY, RGB
MsgBox code: %clr%
return


;----------------------------------------
;----------------------------------------
;----------------------------------------

NextPin(){
send {WheelUp 1}
}

PreviousPin(){
send {WheelDown 1}
}

GetPixelColor(){


}

CompareRGB(c1, c2, vary=20) {

r1 := HexToDecimal(SubStr(c1, 3, 2))
g1 := HexToDecimal(SubStr(c1, 5, 2))
b1 := HexToDecimal(SubStr(c1, 7, 2))

r2 := HexToDecimal(SubStr(c2, 3, 2))
g2 := HexToDecimal(SubStr(c2, 5, 2))
b2 := HexToDecimal(SubStr(c2, 7, 2))


rdiff := Abs(r1 - r2)
gdiff := Abs(g1 - g2)
bdiff := Abs(b1 - b2)

return rdiff <= vary && gdiff <= vary && bdiff <= vary
}

hexToDecimal(str){
static _0:=0,_1:=1,_2:=2,_3:=3,_4:=4,_5:=5,_6:=6,_7:=7,_8:=8,_9:=9,_a:=10,_b:=11,_c:=12,_d:=13,_e:=14,_f:=15
str:=ltrim(str,"0x `t`n`r"), len := StrLen(str), ret:=0
Loop,Parse,str
ret += _%A_LoopField%*(16**(len-A_Index))
return ret
}

ReadIniValues(){

BarrelTop = 317
color_red = 0xDE6060
color_yellow = 0xDABF5C

IfEqual, BarrelTop, ERROR
{
IniWrite, % BarrelTop, %A_WorkingDir%\MOLockPick.ini, LOCS, BarrelTop
}
else
{
IniRead, BarrelTop, %A_WorkingDir%\MOLockPick.ini, LOCS, BarrelTop
}

}

ReloadScript(){
Reload
Sleep 1000 ; If successful, the reload will close this instance during the Sleep, so the line below will never be reached.
MsgBox, 4,, The script could not be reloaded. Exiting script!
IfMsgBox, Yes, ExitApp
return
}

FHex( int, pad=0 ) { ; Function by [VxE]. Formats an integer (decimals are truncated) as hex.
; "Pad" may be the minimum number of digits that should appear on the right of the "0x".
Static hx := "0123456789ABCDEF"
If !( 0 < int |= 0 )
Return !int ? "0x0" : "-" FHex( -int, pad )

s := 1 + Floor( Ln( int ) / Ln( 16 ) )
h := SubStr( "0x0000000000000000", 1, pad := pad < s ? s + 2 : pad < 16 ? pad + 2 : 18 )
u := A_IsUnicode = 1

Loop % s
NumPut( *( &hx + ( ( int & 15 ) << u ) ), h, pad - A_Index << u, "UChar" ), int >>= 4

Return h
}


DwmInit(){
hwnd := WinExist("A") ;// grab the hwnd of the active window
hDC := DllCall("user32.dll\GetDCEx", "UInt", hwnd, "UInt", 0, "UInt", 1|2)
msgbox hDC - %hDC%
return %hDC%
}

DwmDelete(){
DllCall("user32.dll\ReleaseDC", "UInt", hwnd, "UInt", hDC)
DllCall("gdi32.dll\DeleteDC", "UInt", hDC)
return
}

DwmGetPixel2(x, y, hDC){
pix := DllCall("gdi32.dll\GetPixel", "UInt", hDC, "Int", x, "Int", y, "UInt")
if (pix == 0)
pix = 1
pix := FHex(pix, 6)
return pix
}

DwmGetPixel(x, y){
pix := DllCall("gdi32.dll\GetPixel", "UInt", %hDC%, "Int", %x%, "Int", %y%, "UInt")
if (pix == 0)
pix = 1
pix := FHex(%pix%, 6)
return pix
}

f12::
hwnd := WinExist("A") ;// grab the hwnd of the active window
hDC := DllCall("user32.dll\GetDCEx", "UInt", hwnd, "UInt", 0, "UInt", 1|2)
MouseGetPos, MX, MY
color := DwmGetPixel2(MX, MY, hDC)
MsgBox, color is %color%
if (color = "0xEBE8EA")
{
;blah blah
}
DllCall("user32.dll\ReleaseDC", "UInt", hwnd, "UInt", hDC)
DllCall("gdi32.dll\DeleteDC", "UInt", hDC)
return

f11:: ; test hotkey
hwnd := WinExist("A") ;// grab the hwnd of the active window
hDC := DllCall("user32.dll\GetDCEx", "UInt", hwnd, "UInt", 0, "UInt", 1|2)
MouseGetPos, curX, curY
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
clr2 := DwmGetPixel2(PinX, BarrelTop - 8, hDC)
While (!CompareRGB(color_red, clr2))
{
Sleep 1
MouseMove, -5, -6, 0, R
clr2 := DwmGetPixel2(PinX, BarrelTop - 8, hDC)
}
MouseClick, Right,,,,,U

loop, 10000
{
clr1 := DwmGetPixel2(PinX, BarrelTop, hDC)
clr2 := DwmGetPixel2(PinX, BarrelTop + 1, hDC)
if (CompareRGB(color_yellow, clr1))
{
if (CompareRGB(color_red, clr2))
{
MouseClick, Left
break
} else {
break
}
}
}
Sleep 200
MouseMove, curX, curY
DllCall("user32.dll\ReleaseDC", "UInt", hwnd, "UInt", hDC)
DllCall("gdi32.dll\DeleteDC", "UInt", hDC)
return


F10::
MouseGetPos, curX, curY
hwnd := WinExist("A") ;// grab the hwnd of the active window
hDC := DllCall("user32.dll\GetDCEx", "UInt", hwnd, "UInt", 0, "UInt", 1|2)
SoundBeep
loop, 50
{
clr2 := DwmGetPixel2(curX, curY, hDC)
}
SoundBeep
msgbox %clr2%
DllCall("user32.dll\ReleaseDC", "UInt", hwnd, "UInt", hDC)
DllCall("gdi32.dll\DeleteDC", "UInt", hDC)
return


F9::
MouseGetPos, curX, curY
SoundBeep
loop, 50
{
PixelGetColor, clr1, %curX%, %curY%, RGB ; 317
}
SoundBeep
return

I can see the hotkeys and they move the mouse but don't do what I was told the script is suppose to do. From what I can see it is suppose to have a .ini file to work maybe? I how ever did not receive one when I got the file(it did make one but it is empty).

The way lock picking in this game works is there are usually between 4-7 "pins" on the chest UI. the pins have physics in that the "spring" affects the way you lift it, for example the longer/slower you continue lifting a pin the more you have to move the mouse to keep the same "pressure" on the pin to keep it at the same height. the pin has 2 general colours of red and yellow (slight shading on each side of the pin) with a clear cut between the 2 colours (horizontal separation). the way to separate the pin is to get the exact point where the 2 colours touch to the small area on the lock UI where you then click which will separate them and allow you to drop the red colour (that is on the bottom) and move onto the next pin. all pins have to be separated to unlock the chest. the area which i am referring to where you click is a extremely thin unique coloured line which is always in the exact same spot (How ever the pins do change size and height randomly, how ever there is a unique pattern to a pin which will always be seen again (same height and length) eventually.
so basically this is meant to scan the pin and lift it the required amount and click at the right time at which point it will "sleep' then move onto the next pin and repeat till all the pins are seperated.
I how ever am unable to figure this out on my own as I do not know enough.
I was told that this is what this script was designed for and suppose to do.

The point at which they split is that thin light "cream?" coloured line directly below the black area in the middle of the "Lock"
https://i.ytimg.com/vi/Y2-2ANstSm4/maxresdefault.jpg



any and all help is very much appreciated, thank you.

[evilC]

Use code tags to post code, not spoiler tags.

Code: Select all

BarrelTop = 319 ; black line where the yellow and red boundary is suppose to be in 
; for a succesful pick attempt

It looks like this line needs to be configured according to the resolution that you play the game in. Take a screenshot of the game while the lockpick GUI is open and find out the y coordinate of the black line at the top of the barrel.

It looks like the INI file is created for you, it does not look like the script should come with one.

[Jilly]

sorry how would I go about finding the y coordinate?
and once I change that to the correct number will I just press scroll lock to start the script? or how do i start it?

also do I have to change any of these parts?

Code: Select all

BarrelTop = 319 ; black line where the yellow and red boundary is suppose to be in 
; for a succesful pick attempt

PinX = 0
PinY = 0
PickLocY = 374
PickLocX = 827
color_red = 0xDE6060
color_yellow = 0xDABF5C
color_nearblack = 0x292929
hwnd = 0
hDC = 0
pix = 0

thank you by the way.

[evilC]

I am guessing just the barreltop.

Screenshot the game window, then open the file in MS Paint. The coordinates of the cursor are in the bottom left of the paint window. Find the Y coord for the "boundary" line and replace 319 with the new coordinate

[Jilly]

thank you very much I will give it a try soon

[Jilly]

I tried changing it to the correct pixel but was unable to get it working. It doesn't do anything when i press scroll lock. it just brings up the window that says start. i click ok and then nothing happens.
i tried changing the color parts in the above section of the code but no success.

[Jilly]

shameless bump

[Jilly]

shameless bump

[Jilly]

shameless bump

[Jilly]

shameless bump again. please help someone

[Jilly]

shameless bump

[evilC]

The line in the code:

Code: Select all

Home::
IfWinActive, MortalGame

is where the code starts when you hit HOME.

Download DebugView (google it), then add in OutputDebug lines like this into the code:

Code: Select all

Home::
OutputDebug HOME pressed
IfWinActive, MortalGame
{
OutputDebug MO is Active
window := WinExist("A") ;// grab the hwnd of the active window
MouseGetPos, curX, curY 
PinX = %curX%
MouseMove, 200, 200, 0, R
Sleep 200
MouseClick, Right,,,,,D
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB slow
While (!CompareRGB(color_red, clr2))
{
OutputDebug In While loop that appears to be looking for red pixels
MouseMove, -10, -20, 0, R
PixelGetColor, clr2, PinX, BarrelTop - 8, RGB Slow
}

The text should appear in the DebugView window so you can see where the code got to.

Also, there are a number of hotkeys in the script (HOME, PGUP, PGDOWN, INSERT, DELETE, F9, F10, F11, F12...), do you know what they all are supposed to do? ScrollLock does NOT appear the be the hotkey that activates the main part of the macro, that looks to be HOME, or maybe END.
It looks like some of them are maybe to debug various aspects of the script or to find out variables needed for configuration.

[Jilly]

Im sorry i dont know what each hotkey is suppose to do. I will do a little more testing trying to use the home key.
thank you

[Jilly]

shameless bump. still need help please!

[Jilly]

Bump. still seeking help if anyone can.

[Jilly]

bump. cud still use some help

[Jilly]

Bump still cant get this working

[HinkerLoden]

maybe you should give us a progress on your side. Seems you not put any energy in it and you want a ready solution. So no one will help you out. Mods . Do your job

[Jilly]

ive tried everything i can think of. I've already explained I can't learn a whole language because I have a lot of other things I am doing. If you don't want to help then don't, no need to bash me for asking.

[Capn Odin]

I have looked at the script and come to the conclusion that it will be easier to rewrite it. There are lots of strange repetitions in the code and it's surprisingly long for its limited use.
I may look in to it, but I would like if you could inform me of the following first.
Is the game free, if so then how large is the download and how far into the game before one encounter lockpicking ?