PWI Eclipse changes

~~denzjh~~ · 07/09/2015, 09:26

Hope this helps...

Code:

#Region ;**** Dire#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>

Opt("GUICloseOnESC", 0)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)

GUICreate("PWI Essential Addresses", 400, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$OUTPUT_ADDRESS = GUICtrlCreateEdit("", 10, 10, 380, 330, BitAND($ES_AUTOHSCROLL, $ES_AUTOVSCROLL, $ES_MULTILINE))

GUICtrlCreateLabel("Game Client: ", 5, 350)
$DEFAULT_FOLDER = @ProgramFilesDir & "\Arc\PWI_En\element\"
$DEFAULT_CLIENT = "elementclient.exe"
$INPUT_GAME = GUICtrlCreateInput($DEFAULT_FOLDER & $DEFAULT_CLIENT, 100, 350, 290, 18)
GUICtrlCreateButton("Browse", 100, 370, 50, 25)
GUICtrlSetOnEvent(-1, "GetClientExe")
GUICtrlCreateButton("Retrieve", 160, 370, 50, 25)
GUICtrlSetOnEvent(-1, "RetrieveAddress")
GUISetState()
While 1
	Sleep(100)
WEnd

Func GetClientExe()
	$EXE = FileOpenDialog("Perfect World Client", $DEFAULT_FOLDER, "Executable (*.exe)", 1, $DEFAULT_CLIENT)
	GUICtrlSetData($INPUT_GAME, $EXE)
EndFunc

Func RetrieveAddress()
	$EXE = GUICtrlRead($INPUT_GAME)
	If @error Then Return
	$FILE = FileOpen($EXE, 16)
	$DATA = FileRead($FILE, FileGetSize($EXE))
	FileClose($FILE)
	$OPCODEBASE = 'A1(.{8})5332DB8B48.{2}'
	$BASE = StringRegExp($DATA, $OPCODEBASE, 1)
	$OPCODEPACKET = '6AFF68.{8}64A100000000506489250000000083EC185356578BF96A07'
	$PACKET = StringRegExp($DATA, $OPCODEPACKET, 1)
	$OPCODEAUTOPATH = '6AFF68.{8}64A100000000506489250000000083EC2053568BF18D4C2408E8'
	$AUTOPATH = StringRegExp($DATA, $OPCODEAUTOPATH, 1)
	$OPCODE_ACTIONSTART = '64A1.{8}6AFF68.{8}508B442410648925.{8}5683F8138BF1'
	$ACTIONSTART = StringRegExp($DATA, $OPCODE_ACTIONSTART, 1)
	$OPCODE_MOVE = '83EC2453558B6C243056578B7C243C8BF133DB896E2C8B07894620'
	$MOVE = StringRegExp($DATA, $OPCODE_MOVE, 1)
	$OPCODE_ACTIONSTOP = '5355568B74241485F6578BD975095F5E5D32C05BC20C00'
	$ACTIONSTOP = StringRegExp($DATA, $OPCODE_ACTIONSTOP, 1)
	$OPCODE_GATHER = '5355578BF98B87.{8}C1E807A8010F85.{8}E8.{8}84C00F85.{8}8B6C2410'
	$GATHER = StringRegExp($DATA, $OPCODE_GATHER, 1)
	$OPCODE_CAST = '535556578BF16A04E8.{8}8B8E.{8}83C40485C974076A02'
	$CAST = StringRegExp($DATA, $OPCODE_CAST, 1)
	$OPCODE_REGATTACK = '53558B6C240C56578BF985ED0F84.{8}3BAF.{8}0F84.{8}A1.{8}'
	$REGATTACK = StringRegExp($DATA, $OPCODE_REGATTACK, 1)
	$OPCODE_FOLLOW = '8B442404894120C20400'
	$FOLLOW = StringRegExp($DATA, $OPCODE_FOLLOW, 1)
	If @error Then
		MsgBox(0, "Issues Attaching For Offsets", "There may be another bot attached to this process. Please close that bot and try again")
		Return
	EndIf
	$ADDRESS_BASE = '0x' & Rev($BASE[0])
	$ADDRESS_SENDPACKET = '0x' & Hex(StringInStr($DATA, $PACKET[0])/2 + 0x400000 - 1)
	$ADDRESS_AUTOPATH = '0x' & Hex(StringInStr($DATA, $AUTOPATH[0])/2 + 0x400000 - 1)
	$ADDRESS_ACTIONSTART = '0x' & Hex(StringInStr($DATA, $ACTIONSTART[0])/2 + 0x400000 - 1) ;Known as Action1
	$ADDRESS_MOVE = '0x' & Hex(StringInStr($DATA, $MOVE[0])/2 + 0x400000 - 1)
	$ADDRESS_ACTIONSTOP = '0x' & Hex(StringInStr($DATA, $ACTIONSTOP[0])/2 + 0x400000 - 1) ;Known as Action3
	$ADDRESS_GATHER = '0x' & Hex(StringInStr($DATA, $GATHER[0])/2 + 0x400000 - 1)
	$ADDRESS_CAST = '0x' & Hex(StringInStr($DATA, $CAST[0])/2 + 0x400000 - 1)
	$ADDRESS_REGATTACK = '0x' & Hex(StringInStr($DATA, $REGATTACK[0])/2 + 0x400000 - 1)
	$ADDRESS_FOLLOW = '0x' & Hex(StringInStr($DATA, $FOLLOW[0])/2 + 0x400000 - 1)

	$OUTPUT = ""
	$OUTPUT &= "Global $ADDRESS_BASE="
	$OUTPUT &= $ADDRESS_BASE
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_SENDPACKET="
	$OUTPUT &= $ADDRESS_SENDPACKET
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_AUTOPATH="
	$OUTPUT &= $ADDRESS_AUTOPATH
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_ACTIONSTART="
	$OUTPUT &= $ADDRESS_ACTIONSTART & " ;Previous as Action1"
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_MOVE="
	$OUTPUT &= $ADDRESS_MOVE & " ;Previous as Action2"
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_ACTIONSTOP="
	$OUTPUT &= $ADDRESS_ACTIONSTOP & " ;Previous as Action3"
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_GATHER="
	$OUTPUT &= $ADDRESS_GATHER
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_CAST="
	$OUTPUT &= $ADDRESS_CAST
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_REGATTACK="
	$OUTPUT &= $ADDRESS_REGATTACK
	$OUTPUT &= @CRLF
	$OUTPUT &= "Global $ADDRESS_FOLLOW="
	$OUTPUT &= $ADDRESS_FOLLOW
	$OUTPUT &= @CRLF
	GUICtrlSetData($OUTPUT_ADDRESS, $OUTPUT)
EndFunc

Func Rev($string)
	Local $all
	For $i = StringLen($string) + 1 To 1 Step -2
		$all = $all & StringMid($string, $i, 2)
	Next
	Return $all
EndFunc

Func _Exit()
	Exit
EndFunc

Kruger2001 · 07/13/2015, 23:27

I'm working on trade packet, I need it for trade of BH rewards. but I do not know where to find the consecutive numbers of the packets.
I have already searched with CE during the trades after the number in Hex, RevHex and Dec, but without success.

Send Trade:
XXXXXXXX 009907C9 XXXXXXXX
sendchar packet char2

Accept Trade:
00000 B9A 00000000 ;try 1 ->2970
00000 B9B 00000000 ;try 2 ->2971
00000 B9D 00000000 ;try 3 ->2973
00000 B9F 00000000 ;try 4 ->2974
???
where to get this consecutive number?

swap in:
0000 1FD0 XXXXXXXX FF560B8 00003C65 000002F 00001D8B
packet ???? revchar packet subs3C65 itempos amount
+
00000000000000000000000000000000000000000000000000 00000000 ; subs
packet

Comfirm & Trade:
0000 1FB9 XXXXXXXX 0FF560B8 ->8121
0000 1FC5 XXXXXXXX 0FF560B8 ->8133
0000 1FD0 XXXXXXXX 0FF560B8 ->8144
packet ???? charid packet
and this consecutive number?

Does anyone know how it works?

Smurfin · 07/22/2015, 09:59

Does anyone know about changing safe zone and pk zone ? I think it's located in maps directory and the file is region.clt or precinct.clt I forgot.

sasukezero · 07/26/2015, 16:19

Does anyone know how to send a "@" via controlsend in autoit ?
I've tried using the ASCII code 64 and combinations like "^!" but it isn't reliable.
Sometimes i get "@" but then again just a letter...

Is there maybe another way I'm missing ?

jasty · 07/26/2015, 20:06

Quote:

Originally Posted by sasukezero

Does anyone know how to send a "@" via controlsend in autoit ?
I've tried using the ASCII code 64 and combinations like "^!" but it isn't reliable.
Sometimes i get "@" but then again just a letter...

Is there maybe another way I'm missing ?

Do this:

Code:

{SHIFTDOWN}2{SHIFTUP}

sasukezero · 07/26/2015, 23:56

Quote:
Originally Posted by jasty
Do this:
Code:
{SHIFTDOWN}2{SHIFTUP}

Awesome

this doesn't work perfect, but is waaaaay more reliable ^^
Like instead of every 2nd wrong, its only every idk 20th oO or even less.

Gonna see how it works, but thx

jasty · 07/27/2015, 00:15

Quote:

Originally Posted by sasukezero

Awesome this doesn't work perfect, but is waaaaay more reliable ^^
Like instead of every 2nd wrong, its only every idk 20th oO or even less.

Gonna see how it works, but thx

Slow down your input rate.
I do AutoItSetOption("SendKeyDelay", 50) and it works perfectly, I could probably go faster though.

sasukezero · 07/27/2015, 15:49

I set it down to 10 now, which seems to work

didnt know about the sendkeydelay tho.

I was thinking about it, that slower inputs would maybe fix it, but didnt know it would have such a good effect.

CorruptCore · 07/30/2015, 22:07

Alright, thanks to all of what you guys have provided, I've gotten really far over the last few days of making my own little private bot. I'm still lost on one particular part though. Can I have some help in locating the offset (chain) to the Find Quest tab in the quests dialog? Specifically, I'm working on a World Quest bot and to continue, I need to be able to determine what is the next quest in the sequence, which only appears in that list. Any help would be appreciated, thanks!

synsroadmin · 07/31/2015, 03:49

Do you mean how others play on mutliple clients and select the one they want? Or do u mean how we log accounts?

Kruger2001 · 07/31/2015, 21:20

that's my login routine, to log all accounts and chars on an account for DailySignIn, it does not always work 100 percent, I have problems with the DCs, I need something which I notice easily and quickly if a Client Disconnected.

you can read the error messages from the memory as DCs, anyone know a way?

maybe it will help you to come in the right direction for your Login, for improvement suggestions I am grateful

Example in AHK:

Code:

SetKeyDelay, 200, 200 ;under 120 massive errors at login
SetMouseDelay 100, 100
SetWinDelay, 200

IniRead, AccsValue, accounts.ini, Accounts, AccsValue
Loop %AccsValue%
{
IniRead, Login_%a_Index%, accounts.ini, Accounts, Unit%A_Index%-1
IniRead, PW_%a_Index%, accounts.ini, Accounts, Unit%A_Index%-2
IniRead, Count_%a_Index%, accounts.ini, Accounts, Unit%A_Index%-3
IniRead, BH_Char_%a_Index%, accounts.ini, Accounts, Unit%A_Index%-4
}

/* ;account.ini
[Accounts]
AccsValue=1
Unit1-1=testaccs 	;login
Unit1-2=letmein		;pw
Unit1-3=8 		;Chars on Accs from 1-8
Unit1-3=0,5 		;BH 100 Chars from 0-7 
*/

AccsCount:=0

CharCount1:=0
LoginCount1:=0
CharCount2:=0
LoginCount2:=0
CharCount3:=0
LoginCount3:=0
CharCount4:=0
LoginCount4:=0
CharCount5:=0
LoginCount5:=0
CharCount6:=0
LoginCount6:=0


/*
Uhr: ;time switch for start Autologin at 03:00:00
StartStunde:=03
StartMinute:=00
StartSekunde:=00
FormatTime,stunden,,HH
FormatTime,minuten,,mm
FormatTime,sekunden,,ss
Loop
{
	GuiControl,, Zeit, Zeit: %stunden%:%minuten%:%sekunden% Start: %StartStunde%:%StartMinute%:%StartSekunde%
	if (minuten = StartMinute) and (stunden = StartStunde)
		break
	Sleep, 1000
}
*/

Loop
{
	if (CharCount1 < 10)
	Log(1)
	if (CharCount2 < 10)
	Log(2)
	if (CharCount3 < 10)
	Log(3)
	if (CharCount4 < 10)
	Log(4)
	/*
	if (CharCount5 < 10)
	Log(5)
	if (CharCount6 < 10)
	Log(6)
	*/
	if (CharCount1 = 88) and (CharCount2 = 88) and (CharCount3 = 88) and (CharCount4 = 88) ;and (CharCount5 = 88) and (CharCount6 = 88)
	Break
}



Sleep, 5000
;Reload

Exit:
ExitApp

BOTGuiclose:
ExitApp

;--------------func.------------------------------------------------------------------------------------------------------------

Log(ClientNumber)
{
Global
if (LoginCount%ClientNumber% = 0) ;Distribute Accs at the first start
	{
	AccsCount++
	LoginCount%ClientNumber% = %AccsCount%
	}
LC:=LoginCount%ClientNumber%
tmpLogin:=Login_%LC%
tmpCount:=Count_%LC%
if (CharCount%ClientNumber% = 88) and (AccsCount >= AccsValue) ;Return if all chars exhausted
Return
tmpCharCount:=CharCount%ClientNumber%
tmpCharCount++
GuiControl,, LAcc%ClientNumber%, Client: %ClientNumber% of 4, Login: %tmpLogin%
GuiControl,, Acc%ClientNumber%, CharCount: %tmpCharCount% of %tmpCount%, LoginCount: %LC% of %AccsValue%
Loop 3
{
	if (Login(ClientNumber, CharCount%ClientNumber%, PW_%LC%, Login_%LC%, 1) = 0)
		Break
	ControlSend,, {ESC}, % "ahk_id" AHK_ID_%Client_Number% ;for DC
	if (a_index = 3) ;3xfail 
	{
	SoundBeep
	Sleep, 200
	SoundBeep
	Sleep, 200
	SoundBeep
	Sleep, 200
	IniWrite, %AccsCount%, fail.ini, Status, Count: %tmpCount% Login: %tmpLogin%
	}
}
CharCount%ClientNumber%++
if (CharCount%ClientNumber% = Count_%LC%)
	{
	if (AccsCount >= AccsValue)
		{
		CharCount%ClientNumber% := 88
		logOut(0, PID_%ClientNumber%)
		LoginCount%ClientNumber% = "Done"
		Return
		}    
	AccsCount++
	LoginCount%ClientNumber% = %AccsCount%
	CharCount%ClientNumber% = 0
	}
}

Login(Client_Number, PlayerChoose, Password, Nickname, forcelog=0)
{
     Global
     GuiControl,, Info, Active Client : %Client_Number%
     tempAHK_ID := AHK_ID_%Client_Number%
     WinActivate, ahk_id %tempAHK_ID%
     gui submit, nohide
     Fail := 0
     if (tempAHK_ID > 0)
     {
     IfWinExist, ahk_id %tempAHK_ID%
     {
     createMemoryPointers(Pid_%Client_Number%)
     getPlayerInfo(Pid_%Client_Number%)
     InGamePing := readOffsetChain(Pid_%Client_Number%,"0x1C|0x174")
     LoginPing :=  readOffsetChain(Pid_%Client_Number%,"0x1C|0x10|0x8|0xC4|0xDC|0x24C|0x168|0xB0")


     if (InGamePing > 0) and (PlayerName > 0) ;If Player logget in -> log to character select 
            {
			ControlSend,, {ESC}, % "ahk_id" AHK_ID_%Client_Number% ;if disconnected
            logOut(1, Pid_%Client_Number%)
			Loop
		    {
		      
		            ChoosenCharacter := readOffsetChain(Pid_%Client_Number%,"0x1C|0x10|0x8|0xC4|0x8|0x34|0xA44")
		            if (ChoosenCharacter < 8)
		                break
					if (A_index > 15)
			            {
			            Fail := 1
				        break
			            }
					Sleep, 1000
            }

	        sleep, 12000 
	    }
     }

     if (LastNickname%Client_Number% = Nickname)
            {
		    Loop
		        {
		            ChoosenCharacter := readOffsetChain(Pid_%Client_Number%,"0x1C|0x10|0x8|0xC4|0x8|0x34|0xA44")
		            if (ChoosenCharacter < 8)
		                break
		            if (A_index > 15)
			            {
			            Fail := 1
				    break
			            }

			        sleep, 1000
  		        }
        
		    ;~ select char to use
		    writeOffsetChain(Pid_%Client_Number%,PlayerChoose,"0x1C|0x10|0x8|0xC4|0x8|0x34|0xA44")
			Sleep, 1000
		   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
		    Sleep, 2000
		   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
		    Sleep, 500
		   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
 		   Sleep, 2000

 		   Loop
		         {
		             InGamePing := readOffsetChain(Pid_%Client_Number%,"0x1C|0x174")
			         if (InGamePing > 0)
			             Return 0

		             if (A_index > 20)
			            {
			            Fail := 1
				        break
			            }

				Sleep, 1000
 		         }
 
			LastNickname%Client_Number% = %Nickname%
			    }

			if (Fail = 1) 
            {
				ControlSend,, {ESC}, % "ahk_id" AHK_ID_%Client_Number% ;Close Error Infobox
				Fail := 0
			}
	 }


	 ControlSend,, {ESC}, % "ahk_id" AHK_ID_%Client_Number% ;back to Login 

     IfWinNotExist, ahk_id %tempAHK_ID%
     {
        Run, elementclient.exe startbypatcher, C:\Program Files (x86)\Perfect World International\PWI_en\element\ , min, thisPID ;<-get PID
        sleep, 3000
	    WinActivate
	    WinGet, id, list,Perfect World International: Eclipse,, Program Manager
	    Loop, %id%
			{
				this_id := id%A_Index%
				WinGet, tempPID, PID, ahk_id %this_id%
				WinGet, thisID, ID, ahk_id %this_id%
				tempID:=thisID
				if (thisPID = tempPID)
				break
			}

		PID_%Client_Number% = %tempPID%
        	AHK_ID_%Client_Number% = %tempID%
	   	WinActivate, ahk_id %tempID%
		WinMove, ahk_id %tempID%,, 0, 0
		WinMove, ahk_id %tempID%,,,, 1600, 900
		WinSetTitle, Perfect World International, ,Client %Client_Number%



        loop ;wait for LoginPing
            {
                ServerPing := readOffsetChain(Pid_%Client_Number%,"0x1C|0x10|0x8|0xC4|0xDC|0x24C|0x168|0xB0")
                if ((ServerPing > 50) AND (ServerPing < 3000))
                    break
                if (A_index > 20)
	               {
	                Fail := 1
			return Fail
	               }

                sleep, 1000
            }

	     Sleep, 2000
	     ControlSend,, {ESC}, % "ahk_id" AHK_ID_%Client_Number% ;close server choose
         sleep, 2000
      }

   if (forcelog = 1)
		{
		if (readOffsetChain(Pid_%Client_Number%,"0x1C|0x10|0x8|0xC4|0x14|0xE8|0x121") <> 1)
			{
			tmp:=AHK_ID_%Client_Number%
			ControlClick, x1147 y565,ahk_id %tmp%,,left,1,NA
			Sleep, 500
			ControlClick, x900 y530,ahk_id %tmp%,,left,1,NA
			Sleep, 500
			}
;   	writeOffsetChain(Pid_%Client_Number%,1,"0x1C|0x10|0x8|0xC4|0x14|0xE8|0x121") ;dont work
		}

   Sleep, 1000
   ControlSend,, %Nickname%, % "ahk_id" AHK_ID_%Client_Number%
   ControlSend,, {Tab}, % "ahk_id" AHK_ID_%Client_Number%
   ControlSend,, %Password%, % "ahk_id" AHK_ID_%Client_Number%
   sleep, 1000 
   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
   ; wait till value of current char is lower 8 (without being loged in its a very high number)
   Sleep, 5000  
   Loop
        {
            ChoosenCharacter := readOffsetChain(Pid_%Client_Number%,"0x1C|0x10|0x8|0xC4|0x8|0x34|0xA44")
            if (ChoosenCharacter < 8)
                break
            if (A_index > 15)
	            {
	            Fail := 1
		    return Fail
	            }

            sleep, 1000
        }
        
    ;~ select char to use
	Sleep, 2000
    writeOffsetChain(Pid_%Client_Number%,PlayerChoose,"0x1C|0x10|0x8|0xC4|0x8|0x34|0xA44")

   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
    Sleep, 2000
   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
    Sleep, 500
   ControlSend,, {ENTER}, % "ahk_id" AHK_ID_%Client_Number%
    Sleep, 2000
	PlayerName:=
    Loop
         {
		createMemoryPointers(Pid_%Client_Number%)
		getPlayerInfo(Pid_%Client_Number%)
	         if (strlen(PlayerName) > 0)
	             break

             	if (A_index > 20)
	            {
	            Fail := 1
		return Fail
	            }

			 Sleep, 1000
          }
	Player_ID_%Client_Number% = %PlayerID%
	Player_Name_%Client_Number% = %PlayerName%
 	LastNickname%Client_Number% = %Nickname%	
	Sleep, 1500
	 if (strlen(PlayerName) > 0)
	 { 
		DailySignIn(Pid_%Client_Number%)
		sleep, 4000
;  	        RollCall(Pid_%Client_Number%)
;		Sleep, 2500
    	 }
return Fail
}

the problem with the disconnect is solved:

Code:

CheckDisconnect(p)
{ ;1 = Connect, 0 = Disconnect
Check := ReadMemory(0x00D4F1D0, p)
return Check
}

sasukezero · 08/06/2015, 13:22

I have to include the DC check lol...happening too often for me lately.

Having a While 1 function in the code as idle, will be called in Function sleeps right ? oO
Should be right, correct me if i'm wrong.

That way its easy and will be checked almost constantly.

jasty · 08/10/2015, 07:05

Quick quesiton: Does anyone have the length of the unsorted item list for items on the ground/mines? The value I'm using is 768 but I think thats an old value that's too small since I sometimes leave **** on the ground.

Sᴡoosh · 08/10/2015, 15:18

It's still 768 afaik. The size is a few ints from the list offset also in ram. It's a CECArrayList, they use that class everywhere.

jasty · 08/10/2015, 15:55

I could have sworn I saw a bigger value in some thread but will look for bugs thanks.