APB Infinite

[eugvitor]

I just use something simple as this

1Leadership_Tier2_12_Taxes(x20:Hero:Hero


and said Job Failed on Slot 1
what i did wrong?

[RottenMind]

I just use something simple as this

1Leadership_Tier2_12_Taxes(x20:Hero:Hero


and said Job Failed on Slot 1
what i did wrong?

For that task you can use only one 1x extra workers so dont try use 2x hero there.

I dont know if there is problem with "purple" assets because I use only "green" and "blue". Maybe I buy some "purples" after I get all enchants up LVL10, upgrading from 9 to 10 is really slow.... need 10 more accounts, .

ps. Also nobody knows that , how many slots you have, is there enough workers for all tasks you try start, is there 3x "collect taxes" running (or slot is not collected), sometimes APBI cant find workers but that bug goes away with "Move Next task" setting...

[BaseN]

Ok here we go:
http://www.ownedcore.com/forums/mmo/...-ultimate.html (APB Ultimate)

Edit: I almost forgot. I will not be watching this thread much from now on as I'm only working on the new bot now and everything regarding that should be in that thread.

[Darxide23]

This piece of shit bot just spent all of my gold. I have a 5g limit setup to buy coal plus I only have it setup to buy 100 coal in my script and when I woke up this morning it had spent all 95 of my gold in some kind of loop (the log shows that it just kept trying to buy coal for 3 hours) and now I have something like 3k coal.

BaseN, I hope yours isn't as poorly written. It sounds great, especially all the testing you did. I'll be sure to test and review it for you.

[electropica]

I'll give it a try.

[RottenMind]

This piece of shit bot just spent all of my gold. I have a 5g limit setup to buy coal plus I only have it setup to buy 100 coal in my script and when I woke up this morning it had spent all 95 of my gold in some kind of loop (the log shows that it just kept trying to buy coal for 3 hours) and now I have something like 3k coal.

BaseN, I hope yours isn't as poorly written. It sounds great, especially all the testing you did. I'll be sure to test and review it for you.

I did same thing with "porridge" and have now food for all world needs.

Learned that if you use wrong settings or work order it can cause infinite "Buy loop", so I put buy things after jobs what need some extra stuff to buy(First workable).

If you use "Top to Bottom" then all depends how long APBI runs without restart... I use "Top to Bottom" only on one slot, where is "Refine AD"

Im interested if you can send profile here. There must be just mistake in Profile because I encountered same kind problem and fixed it in Profile.

If anyone have working profile for "Alchemy" from LVL 1 - (20), please send it here. I cant understand how that Professions works.

[packetlossb]

Just switch to the new ultimate bot. At this point it's much faster and cleaner.

[RottenMind]

Just switch to the new ultimate bot. At this point it's much faster and cleaner.

Cant switch new one before it can run 24/7 without "babysitting". (curent APBI works pretty well for me, just need script what do start/restart)

I hope new Bot can handel Alchemy automation, but I think it will be too complicated for full automation what can be done easily with other Profession... and also hopefully it will not suffer same fate when author retires.

[BaseN]

I'm not planning on retiring. And it can run 24/7 as it is without babysitting. I have 2 instances running 4 days straight now (and not the latest version obviously).. The only reason someone would want to use APBI at this point is optional assets.

[electropica]

wrong topic.

[RottenMind]

I'm not planning on retiring. And it can run 24/7 as it is without babysitting. I have 2 instances running 4 days straight now (and not the latest version obviously).. The only reason someone would want to use APBI at this point is optional assets.

Nice, maybe some one would want use even WindowsXP because he can bypass all errors and are familiar its failures, . (and some people dont have shiny i5 with 4GB)

Well, running 10x APBx means lots upgrading or must make script what make "CopyPaste" with one click...

...but it is good to know that APBU will be better, but still waiting that Craptic messing up with gateway so I cant use old software and Im forced to upgrade, ^0^ .

[LastSlot]

How i can restart APB Infinite if i got 5 diffrent accounts with 2 characters on each? It works very good and stabile on my WinXP, but sometimes got stuck after 1-2 hours of work. Can someone help me with some restarter please? Or give me advice how i can do it... Thanks very much to anyone who can or try to help me

[RottenMind]

How i can restart APB Infinite if i got 5 diffrent accounts with 2 characters on each? It works very good and stabile on my WinXP, but sometimes got stuck after 1-2 hours of work. Can someone help me with some restarter please? Or give me advice how i can do it... Thanks very much to anyone who can or try to help me

Here is script. It is done with Autoit. It will not take away startup errors, timeouts or other misbehavior, but it start and stop APBI automatically with hour period. Sometimes APBI generates lots startup errors, sometimes it not.... if you leveling with 5 - 30 min. jobs script is not efficient. All depends "How clean APBI starts itself"

Follow (APB Ultimate)APBU thread, when it grows better then there is no reason to try use older stuff, .

How to use, most you must figure out yourself...

Copy .ini and compiled script to bots root folder. Make bot load recent Profile.

Change directory names to APBI_1 , APBI_2 etc., edit prayer.ini "accounts, counter", (when you change directories APBI might not start properly so first run must be done by hand)

Make sure you allways run only "one script". You can put script in "Start up" -folder so it start when windows start, I use that on remote PC what reboots itself(some hardware failure). Script has 30sec. delay when it start to avoid some problems after reboot...

I dont know how XP runs this combination and Im not giving support for Autoit use. I send you post and link to my Dropbox, if you find stuff behind link usefull feel free share it anyone.



here is .ini sample, must locate script directory, must named as "prayer.ini", praying is useless in NW so I removed it for 1month pray jobs 20char... just few coalwards, useless.

[usernames]

[passwords]

[accounts]
counter=5
[wait]
time=35

Here is autoit code, you need download Autoit and compile it, must locate bots Root folder.

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Windows\Microsoft.NET\Framework64\v4.0.30319\SetupCache\Extended\Graphics\stop.ico
#AutoIt3Wrapper_Outfile=Profession_RUN_x86.exe
#AutoIt3Wrapper_Outfile_x64=Y:\Profession_RUN.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Compile_Both=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

	Need:

	Included:
	.Au3 -source

	Tested:
	CyrealKiller APB1 v. 0.4.2, partial tested.

	Problems:
	Windows "popup" can cause nerve breakdown!!!

	Script Function:

	Extend APBInfinity to EXTRA infinity .

	Keeps APBi running forever.

	HOTKEYS,

	Alt+LShift+P, 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
	- Add scan so it can be launch multiple ABPi from Root folder and check that all is running

	Alert -windows names,

	- "Alert", basic gateway not found
#ce


#include-once
#include <array.au3>
Global $Paused, $APBi, $NW, $gameclient, $accounts, $error1, $error2, $error3, $error4
$APBi = "APBInfinite.exe"
$NW = "Neverwinter.exe"
$gameclient = "gameclient.exe"
$NWwin = "Neverwinter"
$APBiWIN = "APB Infinite v0.4.5.0 - by: Cyrealkiller"
$error1 = "Alert"
$error2 = "Microsoft .NET Framework"
$error3 = "nsAppShell:EventWindow"
$error4 = "exception has occurred in your application" ; If you click Continue, the application will ignore this error and attempt to continue. If you click Quit, the application will close immediately. Object reference not set to an instance of an object."

$accounts = IniRead("prayer.ini", "accounts", "counter", "NotFound") ; get account/how many APBPI runs from prayer.ini
HotKeySet("+!p", "TogglePause") ; shift-alt-p, pause key
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

Sleep(30000)

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
	Local $waittime
	$waittime = IniRead("prayer.ini", "wait", "time", "NotFound") ; sleeptime is random(1000(, 2000(, 1))) x 60 x $waittime
	_kill_APBi()
	For $counter = 1 To $accounts
		Local $path = @ScriptDir & "\APBi_" & $counter & "\" ; .exe location, path
		Local $cache = "xulrunner\GeckoFX\Cache\" ; cache location, path
		DirRemove($path & $cache, 1) ; delete cache
		Sleep(1000)

		_RunAPBi()

	Next

	Sleep(5000)
	If WinExists($error3) Then
		$waittime = 20
	Else
		Sleep(500)
	EndIf
	WinClose($NWwin)
	_sleeptime()
	Sleep(2000)

WEnd

Func _RunAPBi() ; this must clean up and maybe it need all windows defined by Handel, is Done._

	Local $iPID, $hWnd
	$iPID = Run($path & $APBi, $path) ; Start AutoProfessionBot, get Program ID from started program
	Sleep(20000)
	$hWnd = _GetHwndFromPID($iPID) ; Get Windows information from ProgramID
	ControlClick($hWnd, "", "[NAME:btnStartBot]", "left", "1") ; Send mouse click to specific window button to start APBi run
	Sleep(30000)
	If StringInStr(WinGetText($APBiWIN, ""), $error4) Then
		ControlClick($hWnd, "", "[CLASS:WindowsForms10.BUTTON.app.0.378734a; INSTANCE:2]", "left", "1") ; Send mouse click to specific window button
		Sleep(500)
		ControlClick($hWnd, "", "[NAME:btnStopBot]", "left", "1") ; Send mouse click to specific window button to start APBi run
		Sleep(5000)
		ControlClick($hWnd, "", "[NAME:btnStartBot]", "left", "1") ; Send mouse click to specific window button to start APBi run
		Sleep(5000)
	EndIf
	If WinExists($error2) Then
		ControlClick($error2, "", "[CLASS:WindowsForms10.BUTTON.app.0.378734a; INSTANCE:2]", "left", "1") ; Send mouse click to specific window button
		Sleep(500)
		ControlClick($hWnd, "", "[NAME:btnStopBot]", "left", "1") ; Send mouse click to specific window button to start APBi run
		Sleep(5000)
		ControlClick($hWnd, "", "[NAME:btnStartBot]", "left", "1") ; Send mouse click to specific window button to start APBi run
		Sleep(5000)
	EndIf
	WinSetState($hWnd, "", @SW_MINIMIZE) ; Obivius, is it?

EndFunc   ;==>_RunAPBi

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 _clickthebox()
	Sleep(30000)
	Local $var = WinList($APBiWIN) ;this makes list for active windows by name
	WinClose($error3)
	For $i = 1 To $var[0][0] ; we run until list is end
		; Only display visble windows that have a title
		If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
			$handle = ($var[$i][1])
			$title = ($var[$i][0])
			WinActivate(HWnd($handle)) ; windows to activate
			$iButton = "left" ; Button The Mouse Will Click I.E. "Left Or Right"
			$iClicks = "1" ; The Number Of Times To Click
			ControlClick($title, "", "[$handle; NAME:btnStopBot]", $iButton, $iClicks) ; Clicking The Window While Its Minmized, controlclick not working, WHY?
			Sleep(1000)
			ControlClick($title, "", "[$handle; NAME:btnStartBot]", $iButton, $iClicks) ; Clicking The Window While Its Minmized,
			Sleep(1000)
		EndIf
	Next
EndFunc   ;==>_clickthebox

Func IsVisible($handle)
	If BitAND(WinGetState($handle), 2) Then
		Return 1
	Else
		Return 0
	EndIf

EndFunc   ;==>IsVisible

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()
	Local $randomsleep, $iTimer
	$randomsleep = Random(1500, 2000, 1)
	$iTimer = TimerInit()
	While 1
		If TimerDiff($iTimer) >= $waittime * 60 * $randomsleep 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

[LastSlot]

Thank you VERY much for posting this! I will try to understand how it work and try to make this to work for me! I will post my results after i got it! (I am not so familiar with AutoIT, but i wish to learn!

[peteypang]

could anyone give me a quick run down on how to get this to work aint sure what to do tbh go to profession primary task tailor 1 weave wool cloth , Optional assets i click 1 weaver add to slot 1
and then click run ? it starts its all says starting job then it says job failed

11:58:14 : Bot Started
11:58:14 : Auto Login running
11:58:14 : Waiting for Profession Menu
11:58:15 : Profession Menu Found
11:58:16 : Character: 1
11:58:16 : Slot: 1
11:58:16 : Task: Tailoring_Tier0_Intro
11:58:16 : Total Assets : 1
11:58:16 : Cycles: 1/1
11:58:58 : Required slot(s): 0
11:58:58 : Optional slot(s): 0
11:58:58 : No Optional Asset Slots
11:58:58 : Starting job...
11:59:01 : Job Failed on Slot 1
11:59:01 : Character: 1
11:59:01 : Slot: 1
11:59:01 : Task: Tailoring_Tier0_Intro
11:59:01 : Total Assets : 1
11:59:01 : Cycles: 1/1

not to sure what else i need todo so any help would be wounderful Thank you i have lvl lvl 3 tailor and 4 task spots if thats any help