[Offsets_Dec] Base_Address=10229012 ;correct Base_Call_Address=10227308 ;correct Unfreeze_Address=10230148 ;correct Level_Offset=1124 ;correct Culti_Offset=1128 ;? Exp_Offset=1140 ;? Spirit_Offset=1144 ;? it's 1152 same as PWI for PW Indo (vigor) HP_Offset=1132 ;correct MP_Offset=1136 ;correct Chi_Offset=1152 ;? dunno what is Chi, or is it Vigor/Fury ? Max_HP_Offset=1188 ;correct Max_MP_Offset=1192 ;correct Max_Chi_Offset=1316 ;? dunno what is Chi, or is it Vigor/Fury ? Jump_Offset=3060 ;correct Target_Offset=2808 ;correct Char_Class_Offset=1552 ;correct Pet_Offset=4088 ;correct State_Offset=1640 ;? Name_Offset=1544 ;correct Gold_Offset=0 ;incorrect/not working Reputation_Offset=0 ;incorrect/not working Casting-ID_Offset=1732 ;correct Str_Offset=1180 ;correct Dex_Offset=1184 ;correct Vit_Offset=1172 ;correct Mag_Offset=1176 ;correct (pw indo calls it int) Phys._Defense_Offset=1324 ;? Evasion_Offset=1328 ;?
$ProcessID = WinGetProcess(IniRead("SmurfIT.ini", "Settings", "Window Name1",""))
$OpenMemory = _MemoryOpen($ProcessID)
$Stat = _MemoryRead(0x004052D3, $OpenMemory)
If $Stat = "0x4189c1d9" then _MemoryWrite(0x004052D3, $OpenMemory, 0x4189c0d9)
If $Stat = "0x4189c0d9" then _MemoryWrite(0x004052D3, $OpenMemory, 0x4189c1d9)
_MemoryClose($OpenMemory)
$file = FileOpen('elementclient.exe', 16)
$read = FileRead($file, FileGetSize('elementclient.exe'))
FileClose($file)
$offsets = StringRegExp($read, '.*?895D0089BE(.{8}).*?89AE(.{8}).*?8B0D(.{8})898D40F1FFFF6A01.*?33C98986(.{8})8A4F03.*?898E(.{8}).*?8B57148996(.{8})8B4718.*?8B4F04898E(.{8})8B570C.*?8996(.{8}).*?8B471C8986(.{8})8B4F08.*?898E(.{8}).*?8B57108996(.{8})8B4720.*?8986(.{8})8A4702.*?8BC28991(.{8})8B0D.*?8B108996(.{8})8B4004.*?898E(.{8})8BC8898E.*?6A0A8986(.{8}).*?8986(.{8})8B40048BC8.*?A1(.{8})578B482081C1EC.*?8B8E(.{8})3BCB740655.*?8B8E(.{8})8B47503BC8.*?8B96(.{8})8B47543BD0.*?8B86(.{8})8B4F5C3BC1.*?8B8E(.{8})8B47603BC8.*?8B96(.{8})8B47643BD0.*?EB5D8B8E(.{8})B801.*?8B83(.{8})8D4C243C', 1)
If Not IsArray($offsets) Then
MsgBox(16, 'Error', 'Could not find all Offsets')
Exit
EndIf
For $i=0 To UBound($offsets)-1
$offsets[$i] = rev($offsets[$i])
Next
Dim $control[26] = ['PhyDef', 'Evasion', 'FakeBase', 'Level', 'Culti', 'Exp', 'HP', 'MP', 'Chi', 'MaxHp', 'MaxMp', 'MaxChi', 'Target', 'Gold', 'Jump', 'State', 'Casting ID', 'Base', 'Pet', 'Str', 'Dex', 'Vit', 'Mag', 'Reputation', 'Char Class', 'Name']
GUICreate('Offsetlist', 300, 570, -1, -1, 0x100A0000)
For $i=0 To 12
GUICtrlCreateGroup($control[$i], 10, 10 + 40*$i, 130, 40)
GUICtrlCreateInput($offsets[$i], 20, 25 + 40*$i, 110, 20)
GUICtrlCreateGroup($control[25-$i], 150, 10 + 40*$i, 130, 40)
GUICtrlCreateInput($offsets[25-$i], 160, 25 + 40*$i, 110, 20)
Next
While 1
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
Func rev($string)
Local $all
For $i = StringLen($string) + 1 To 1 Step -2
$all = $all & StringMid($string, $i, 2)
Next
While StringLeft($all, 1) = '0'
$all = StringTrimLeft($all, 1)
WEnd
Return '0x'&$all
EndFunc
Are you saying it is still possible to move through objects? I thought that had been patched. Hmm that's interesting. I don't understand why it would be possible though, as when I send packets to move through an object, the server will reject me and have me stop just before (or sometimes in :P) an object.Quote:
thanks for posting this :handsdown:, I tried it with PW Indo and here is the result :
? = not checked / never use it beforeCode:[Offsets_Dec] Base_Address=10229012 ;correct Base_Call_Address=10227308 ;correct Unfreeze_Address=10230148 ;correct Level_Offset=1124 ;correct Culti_Offset=1128 ;? Exp_Offset=1140 ;? Spirit_Offset=1144 ;? it's 1152 same as PWI for PW Indo (vigor) HP_Offset=1132 ;correct MP_Offset=1136 ;correct Chi_Offset=1152 ;? dunno what is Chi, or is it Vigor/Fury ? Max_HP_Offset=1188 ;correct Max_MP_Offset=1192 ;correct Max_Chi_Offset=1316 ;? dunno what is Chi, or is it Vigor/Fury ? Jump_Offset=3060 ;correct Target_Offset=2808 ;correct Char_Class_Offset=1552 ;correct Pet_Offset=4088 ;correct State_Offset=1640 ;? Name_Offset=1544 ;correct Gold_Offset=0 ;incorrect/not working Reputation_Offset=0 ;incorrect/not working Casting-ID_Offset=1732 ;correct Str_Offset=1180 ;correct Dex_Offset=1184 ;correct Vit_Offset=1172 ;correct Mag_Offset=1176 ;correct (pw indo calls it int) Phys._Defense_Offset=1324 ;? Evasion_Offset=1328 ;?
btw could you find the base address for walk thru walls, or remove all walls like in ntKid's RevoBot, the last offset and its value I used for walk thru walls are in this, one is on the other one is off. Not very important though, but with this, botting in environment that has a lot of trees or rocks or even houses will have no problem since the char will just pass through it and never get stucked, also can get to somewhere faster since we can just walk thru without following the road lol :D
Code:$ProcessID = WinGetProcess(IniRead("SmurfIT.ini", "Settings", "Window Name1","")) $OpenMemory = _MemoryOpen($ProcessID) $Stat = _MemoryRead(0x004052D3, $OpenMemory) If $Stat = "0x4189c1d9" then _MemoryWrite(0x004052D3, $OpenMemory, 0x4189c0d9) If $Stat = "0x4189c0d9" then _MemoryWrite(0x004052D3, $OpenMemory, 0x4189c1d9) _MemoryClose($OpenMemory)
what app do you use for making a form/gui for autoit, No0oB ? I usually use Koda Form Designer, maybe you know of something better or similar ?