APB Infinite

[FranklinZero]

Whats the best oprions fo AD, Protect the Caravan?

[Insignis86]

As I offered to help the guy behind this and he never responded (well never give a sign he is OK with me helping) with all the mistakes here and there I basically gone back to use this script Discuss Neverwinter Gateway - Professions Robot Mod - Userscripts.org. Not sure if can post the link but did it anyway XD.

That script works really good for 1 character/1 account in its actual form. But I changed it so it will work with multiple-characters (but still 1 account thou) and that script creator got my changes and should implement them soon.

So basically its a multiple characters (up to 50 at least my pastebinned one till author wont merge my changes to his script) working script:
- which relogs for each character change (less issues with page lagging/stopping)
- which takes results of tasks first then adds new tasks
- which tries to fill-up assets slots in a bit stupid way (like put blue/green dudes in deep gather tasks which requires manual workaround or use the option to switch auto-fill off)
- which lacks AD reforging at least now (not a problem for me I can manually do it like once a day)
- which has a nice list of task divided by profession and levels - it tries to do first one in list then skips to next one
- which has an working auto-search for tasks for resource crafting (so you can just put for example dagger +1 on the list, and it will do all other tasks needed to be done to get mats to do that task)
- which switches off the added sound effects
- which part from few minor fixes here and there never stopped working for over few months I was using it (basically the task searching/starting engine never stopped to work)

Some more skilled people could probably run that script on few browsers on each account or just mod the script to work on multiple characters/accounts (shouldn't be that hard, thou in easy way version could get a bit messy on the settings window side (easiest way is to add account/pass setting for each characters and mod the code responsible for logging into account).

Posting this just for sake of people who have issues with APB, as I stopped using APB and because of how slow it was repaired/upgraded I will stick to that script and probably wont check this topic any more.

[electropica]

The script doesn't work for me.
Gateway isn't in english and i don't know how change this.

[FranklinZero]

Isnt working on PT-BR gateaway.

Works amazing in english gateaway, for all who dont have english gateaway, can use on tor.

[evilsky]

gateway.nw.ru.perfectworld.eu

[timki]

Hello
I am a new user
Could someone advise how to set up the bot
I tried but the bot does not work
stops at
"waiting for Profession Menu"

edit
sorry - it's work ;-)

[coreuser]

Has anyone found a good way around the "Destroy Enemy Camp" and "Fight Off Spellplagued" not being available just after a job completes? It seems to work in the AutoProfessionBot, but I can't get that to run reliable with more than 3 characters.

[RottenMind]

It might be good idea start own thread for this and for APBI addons.

This is what I use. It do praying for 2xchars and start/close APBInfinite with ~ 1 hour interwall. Anyone who like use it must do own edit for it, because screen size can be different, directories might not match, machine speed needs add more time to wait etc.

Each APBI must locate own directory, has own process, but all Profession -profiles can be in same location, I have several APBI running and all use same profiles.

If use APBI -part only then just need create proper directory tree and set account counter. APBI make sometimes errors and Pray -part also, but it do what it must because 1 hour interwal will fix problems.

Script also clear gecko-cache folder, what was causing some problems (was in this thread).

This comes for use and edit, no support. Almost all script parts was collected from websites and then tested, modified... make it work, cant explain all and Autoit will NOT support Bot -writers, .

here is .ini sample, must locate script directory, must named as "prayer.ini", if used only autoit part, no passwd or user needed.

[usernames]
user1=myuser@name
user2=myuser@name
user3=myuser@name
user4=myuser@name
user5=myuser@name
user6=myuser@name
user7=myuser@name
user8=myuser@name
user9=myuser@name
[passwords]
user1=my_PASSwd
user2=my_PASSwd
user3=my_PASSwd
user4=my_PASSwd
user5=my_PASSwd
user6=my_PASSwd
user7=my_PASSwd
user8=my_PASSwd
[accounts]
counter=8

Copy paste this to autoit, name it as you wish, check directory info.

#cs
	AutoIt Version: 3.0
	Language:       English
	Platform:       Win xx
	Author:         RottenMind
	Ver. 			3.0

	Need:

	Included:
	.Au3 -source

	Tested:
	CyrealKiller APB1 v. 0.4.5, tested 2 weeks.

	Problems:
	Windows "popup" can cause nerve breakdown!!! Use when U are not on PC.

	Script Function:

	Extend APBInfinity to EXTRA infinity .

	Keeps APBi running forever.

	HOTKEYS,

	PAUSE/Break, pause

	Alt+LShift+T, Terminata script

	Alt+LShift+D, shows just pop up.

	ToDo,(parts exist but need implement properly)

	- Add Timer`s instead Sleeep(added)
	- Add scan so it can be launch multiple ABPi from Root folder and check that all is running(can be done needed parts found)
#ce


#include-once
#include <array.au3>
Global $Paused, $APBi, $NW, $gameclient
$APBi = "APBInfinite.exe"
$NW = "Neverwinter.exe"
$gameclient = "gameclient.exe"
$NWwin = "Neverwinter"
$accounts = IniRead("prayer.ini", "accounts", "counter", "NotFound") ; get account/how many APBI runs from prayer.ini
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("+!t", "Terminate") ; shift alt t, terminate
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d vvv
Opt("WinTitleMatchMode", "2") ; Windows extra info
Opt("SendKeyDelay", "50") ; Delays for keys
;;;; Body of program would go here ;;;;

While 1 ; Run Main script, need add Timer to controll and show time to left reStart, need make some error detection from APBi and or Gateway(timer OK, error control NO)

	_kill_APBi() ; kills all APBI process
	_kill_NWlauncher() ; kills NW game launcher process
	_kill_NWclient() ; kills NW gameclient process
	For $counter = 1 To $accounts
		Local $path = @ScriptDir & "\APBi_" & $counter & "\" ; tels where apbinfinite.exe locate , @SriptDir gives path to script dir
		Local $cache = "xulrunner\GeckoFX\Cache\" ; path to Gecko cache
		DirRemove($path & $cache, 1) ; clears  Gecko cache
		Sleep(2000)
		_RunAPBi()
	Next

	Sleep(5000)

	For $counter = 1 To $accounts
		Local $user = IniRead("prayer.ini", "usernames", "user" & $counter, "NotFound") ; get username from prayer.ini
		Local $passwd = IniRead("prayer.ini", "passwords", "user" & $counter, "NotFound") ; get passwd from prayer.ini
		Local $path = "\Neverwinter\"
		_RunPrayer()
	Next
	Sleep(5000)
	WinClose($NWwin)
	Sleep(5000)
	_sleeptime()
	Sleep(2000)
WEnd

Func _pauseBox()

	#region --- CodeWizard generated code Start ---
	;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=None, Timeout=5000 ss
	If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
	$iMsgBoxAnswer = MsgBox(0, "mytimeout", "hello we did it cirrictly", 5)
	Select
		Case $iMsgBoxAnswer = -1 ;Timeout

		Case Else ;OK

	EndSelect
	#endregion --- CodeWizard generated code Start ---
EndFunc   ;==>_pauseBox

Func _RunAPBi() ; this must clean up and maybe it need all windows defined by Handel, is Done._
	Local $iPID, $hWnd
	;If Not ProcessExists($APBi) Then
	$iPID = Run($path & $APBi, $path) ; Start AutoProfessionBot, get Program ID from started program
	Sleep(15000)
	;EndIf
	$hWnd = _GetHwndFromPID($iPID) ; Get Windows information from ProgramID
	WinActivate($hWnd) ; Activate windows
	ControlClick($hWnd, "", "[NAME:btnStartBot]", "left", "1") ; Send mouse click to specific window button to start APBi run
	Sleep(45000)
	WinSetState($hWnd, "", @SW_MINIMIZE) ; Obivius, is it?
EndFunc   ;==>_RunAPBi

Func _RunPrayer()
	Local $iPID, $hWnd
	$prayring = " 965 146 963" ; pray ring
	$mailbox = " 1062 148 1060" ; mailbox
	$midllepost = " 1061 146 946" ; midlepost
	$near_mailbox = " 1062 148 1060" ; near_maibox
	$nav = "/navtoposition"
	If Not WinExists($NWwin) Then
		Run(@ScriptDir & $path & $NW)
		Sleep(20000)
	EndIf


	;WinClose(HWnd($sHWnd))
	Select
		Case $counter = 1
			$iPID = _Process_getPID($NW)
			$hWnd = _GetHwndFromPID($iPID) ; Get Windows information from ProgramID
			WinActivate($hWnd) ; Activate windows
			ControlSend($hWnd, "", "", "+{TAB}")
			Sleep(2000)
			ControlSend($hWnd, "", "", "{BS 30}")
			Sleep(3000)
			ControlSend($hWnd, "", "", $user)
			Sleep(3000)
			ControlSend($hWnd, "", "", "{TAB}") ;Send("{ENTER}")
			Sleep(3000)
			ControlSend($hWnd, "", "", $passwd)
			Sleep(3000)
			ControlSend($hWnd, "", "", "{ENTER}")
			Sleep(60000)
			MouseClick("LEFT", 278, 130, 2) ;click character Box
			Sleep(20000)
			Send("u")
			Sleep(500)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost "/navtoposition 1061 146 946"
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $prayring) ;prayring
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/invoke")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $near_mailbox) ;mailbox
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			; _pauseBox()
			WinActivate($NWwin) ; Activate windows
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/gotoCharacterSelect")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(30000)
			MouseClick("LEFT", 285, 202, 2) ;click character box
			Sleep(20000)
			Send("u")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $prayring) ;prayring
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/invoke")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $near_mailbox) ;mailbox
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			; _pauseBox()
			WinActivate($NWwin) ; Activate windows
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/logout")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(30000)
		Case $counter = 9
			Send("{BS 30}")
			Sleep(3000)
			Send($user)
			Sleep(3000)
			Send("{TAB}") ;Send("{ENTER}")
			Sleep(3000)
			Send($passwd)
			Sleep(3000)
			Send("{ENTER}")
			Sleep(45000)
			MouseClick("LEFT", 285, 202, 2)
			Sleep(20000)
			Send("u")
			Sleep(500)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost "/navtoposition 1061 146 946"
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $prayring) ;prayring
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/invoke")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $near_mailbox) ;mailbox
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			; _pauseBox()
			WinActivate($NWwin) ; Activate windows
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/logout")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(30000)
		Case Else
			Send("{BS 30}")
			Sleep(3000)
			Send($user)
			Sleep(3000)
			Send("{TAB}") ;Send("{ENTER}")
			Sleep(3000)
			Send($passwd)
			Sleep(3000)
			Send("{ENTER}")
			Sleep(50000)
			MouseClick("LEFT", 278, 130, 2)
			Sleep(20000)
			Send("u")
			Sleep(500)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost "/navtoposition 1061 146 946"
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $prayring) ;prayring
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/invoke")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $near_mailbox) ;mailbox
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			; _pauseBox()
			WinActivate($NWwin) ; Activate windows
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/gotoCharacterSelect")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(3000)
			MouseClick("LEFT", 285, 202, 2)
			Sleep(15000)
			Send("u")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(20000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $prayring) ;prayring
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/invoke")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $midllepost) ;midpost
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			Send("{ENTER}")
			Sleep(2000)
			Send($nav & $near_mailbox) ;mailbox
			Sleep(2000)
			Send("{ENTER}")
			Sleep(15000)
			; _pauseBox()
			WinActivate($NWwin) ; Activate windows
			Sleep(2000)
			Send("{ENTER}")
			Sleep(2000)
			Send("/logout")
			Sleep(2000)
			Send("{ENTER}")
			Sleep(30000)
	EndSelect

EndFunc   ;==>_RunPrayer

Func _Process_getPID($iPID)
	$aProcesslist = ProcessList()
	For $i = 1 To $aProcesslist[0][0]
		If $aProcesslist[$i][0] = $iPID Then Return $aProcesslist[$i][1]
	Next
EndFunc   ;==>_Process_getPID

Func _kill_APBi()
	While 1 = 1
		If ProcessExists($APBi) Then
			ProcessClose($APBi)
			Sleep(5000)
		Else
			ExitLoop
		EndIf
	WEnd
EndFunc   ;==>_kill_APBi

Func _kill_NWclient()
	While 1 = 1
		If ProcessExists($gameclient) Then
			ProcessClose($gameclient)
			Sleep(5000)
		Else
			ExitLoop
		EndIf
	WEnd
EndFunc   ;==>_kill_NWclient

Func _kill_NWlauncher()
	While 1 = 1
		If ProcessExists($NW) Then
			ProcessClose($NW)
			Sleep(5000)
		Else
			ExitLoop
		EndIf
	WEnd
EndFunc   ;==>_kill_NWlauncher

Func _sleeptime()
	$iTimer = TimerInit()
	While 1
		If TimerDiff($iTimer) >= 75 * 60 * 1000 Then
			While 1 = 1
				If ProcessExists($APBi) Then
					ProcessClose($APBi)
					Sleep(5000)
				Else
					ExitLoop (2)
				EndIf
			WEnd

		EndIf
		Sleep(1000)
	WEnd
EndFunc   ;==>_sleeptime

Func _GetHwndFromPID($PID)
	$hWnd = 0
	$winlist = WinList()
	Do
		For $i = 1 To $winlist[0][0]
			If $winlist[$i][0] <> "" Then
				$iPID2 = WinGetProcess($winlist[$i][1])
				If $iPID2 = $PID Then
					$hWnd = $winlist[$i][1]
					ExitLoop
				EndIf
			EndIf
		Next
	Until $hWnd <> 0
	Return $hWnd
EndFunc   ;==>_GetHwndFromPID


;;;;;;;;

Func TogglePause()
	$Paused = Not $Paused
	While $Paused
		Sleep(100)
		ToolTip('Script is "Paused"', 0, 0)
	WEnd
	ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
	#region --- CodeWizard generated code Start ---
	;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Critical, Timeout=5 ss, Miscellaneous=Top-most attribute
	If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
	$iMsgBoxAnswer = MsgBox(262160, "Note", "Script is about to Shutdooown.", 5)
	Select
		Case $iMsgBoxAnswer = -1 ;Timeout

		Case Else ;OK

	EndSelect
	#endregion --- CodeWizard generated code Start ---

	Exit 0
EndFunc   ;==>Terminate

Func ShowMessage()
	MsgBox(4096, "", "Hello Kitty.")
EndFunc   ;==>ShowMessage

[Consolidator]

Anyone else having trouble with the item selling function? Whatever I try, the gateway just returns "You cannot sell." whenever APB attempts it.

[electropica]

Could people share their routes for best AD farming ?

What do you think of this with first workable option :

Leadership_Tier2_12_Taxes
Leadership_Tier2_9_Chart
Leadership_Tier1_5_Explore

[coondog27]

Has anyone found a good way around the "Destroy Enemy Camp" and "Fight Off Spellplagued" not being available just after a job completes? It seems to work in the AutoProfessionBot, but I can't get that to run reliable with more than 3 characters.

I've worked around this two ways. First making the bot first collect all of the slots before trying to start any gets rid of the issue. Another way to fix it is simply to add a longer delay after the call to GetRewards in mainControl. It is set at 1 sec stock which is sometimes too fast, I bumped it up to 5 and do not have the problem with tasks trying to be started before the gateway thinks they should be available.

[electropica]

Is there a way to turn off sounds ?

[coondog27]

Could people share their routes for best AD farming ?

What do you think of this with first workable option :

Leadership_Tier2_12_Taxes
Leadership_Tier2_9_Chart
Leadership_Tier1_5_Explore

I do

Destroy enemy camp (at 20)
Fight off Spellplagued
Protect Diamond Shipment (when it is available)
Collect Taxes (When I have the maps from destroy and fight boxes/barrels)
Battle Undead (fallback from previous two)

[coondog27]

Right click sound icon in Windows 7/8 (can't help with earlier Win versions) then click "Open Volume Mixer". Click mute for each application you want to mute.

[Llewellyn]

Is there a way to turn off sounds ?

On the APBi, on the right of the LOGO Neverwinter, you can see a little Speaker to turn on/off.