Func TraderRequest + TraderBuy

[BigBoyEnergy]

Hello everybody,

I have been trying to get the Function TraderRequest work.
But it doesn't work.

While GetGoldCharacter() > 20*1000
		TraderRequest(930)
		TraderBuy()
		Sleep(500 + 3 * GetPing())
	WEnd

The problem is, it goes to the trader, talks to it, but it doesn't buy anything.

Here is the TraderRequest and TraderBuy code.

Func TraderRequest($aModelID, $aExtraID = -1)
	Local $lItemStruct = DllStructCreate('long Id;long AgentId;byte Unknown1[4];ptr Bag;ptr ModStruct;long ModStructSize;ptr Customized;byte unknown2[4];byte Type;byte unknown4;short ExtraId;short Value;byte unknown4[2];short Interaction;long ModelId;ptr ModString;byte unknown5[4];ptr NameString;ptr SingleItemName;byte Unknown4[10];byte IsSalvageable;byte Unknown6;byte Quantity;byte Equiped;byte Profession;byte Type2;byte Slot')

	Local $lOffset[4] = [0, 0x18, 0x40, 0xC0]
	Local $lItemArraySize = MemoryReadPtr($mBasePointer, $lOffset)
	Local $lOffset[5] = [0, 0x18, 0x40, 0xB8, 0]
	Local $lItemPtr, $lItemID
	Local $lFound = False
	Local $lQuoteID = MemoryRead($mTraderQuoteID)

	For $lItemID = 1 To $lItemArraySize[1]
		$lOffset[4] = 0x4 * $lItemID
		$lItemPtr = MemoryReadPtr($mBasePointer, $lOffset)
		If $lItemPtr[1] = 0 Then ContinueLoop

		DllCall($mKernelHandle, 'int', 'ReadProcessMemory', 'int', $mGWProcHandle, 'int', $lItemPtr[1], 'ptr', DllStructGetPtr($lItemStruct), 'int', DllStructGetSize($lItemStruct), 'int', '')
		If DllStructGetData($lItemStruct, 'ModelID') = $aModelID And DllStructGetData($lItemStruct, 'bag') = 0 And DllStructGetData($lItemStruct, 'AgentID') == 0 Then
			If $aExtraID = -1 Or DllStructGetData($lItemStruct, 'ExtraID') = $aExtraID Then
				$lFound = True
				ExitLoop
			EndIf
		EndIf
	Next
	If Not $lFound Then Return False

	DllStructSetData($mRequestQuote, 2, DllStructGetData($lItemStruct, 'ID'))
	Enqueue($mRequestQuotePtr, 8)

	Local $lDeadlock = TimerInit()
	$lFound = False
	Do
		Sleep(20)
		$lFound = MemoryRead($mTraderQuoteID) <> $lQuoteID
	Until $lFound Or TimerDiff($lDeadlock) > GetPing() + 5000
	Return $lFound
EndFunc   ;==>TraderRequest

;~ Description: Buy the requested item.
Func TraderBuy()
	If Not GetTraderCostID() Or Not GetTraderCostValue() Then Return False
	Enqueue($mTraderBuyPtr, 4)
	Return True
EndFunc   ;==>TraderBuy

Does anyone have a working function? Or updated one?

[jrad99]

I am running into this also. Did you ever figure it out?
In my testing it seems GETTRADERCOSTVALUE() is coming back as 0, which I believe is causing TraderRequest() and TraderBuy() to return false, which is why it isn't buying anything.

[BigBoyEnergy]

I managed to get a gwa2 file that contained way more code. I replaced some stuff and that one is working. No idea what is different :')

[SneakyJoe]

Originally Posted by BigBoyEnergy

I managed to get a gwa2 file that contained way more code. I replaced some stuff and that one is working. No idea what is different :')

Can you please share the gwa2 file you found?

[BigBoyEnergy]

Originally Posted by SneakyJoe

Can you please share the gwa2 file you found?

https://github.com/Greg-76/Gwa2_by_Greg76


Here you go

Some things are renamed, but I'm sure you can work with it

[xnx]

hey mates, still having trouble to fix my gwa2 for traderrequest and traderbuy function for material.

can anyone help me get around or offer me a function gwa2 for that?

the greg-76 gwa2 is broken


might be an adressing issue? fix via cheat engine but i cant figure out how to get the right hex adressing

any help is appreciated!

[BigBoyEnergy]

Originally Posted by xnx

hey mates, still having trouble to fix my gwa2 for traderrequest and traderbuy function for material.

can anyone help me get around or offer me a function gwa2 for that?

the greg-76 gwa2 is broken


might be an adressing issue? fix via cheat engine but i cant figure out how to get the right hex adressing

any help is appreciated!

I can send you my GWA2 File, and the code to make it buy ecto's.

Func BUYECTOS()

	Do
        RndSleep(Random(250,500))
		Local $Me = GetAgentByID(-2)
        Local $guy = GetNearestNPCToCoords(DllStructGetData($Me, 'X'), DllStructGetData($Me, 'Y'))
    Until DllStructGetData($guy, 'Id') <> 0
    ChangeTarget($guy)
    RndSleep(Random(250,500))
    GoToNPC($guy)
    RndSleep(Random(250,500))
    Do
        MoveTo(DllStructGetData($guy, 'X'), DllStructGetData($guy, 'Y'), 40)
        RndSleep(Random(500,750))
        GoToNPC($guy)
        RndSleep(Random(250,500))
        Local $Me = GetAgentByID(-2)
    Until ComputeDistance(DllStructGetData($Me, 'X'), DllStructGetData($Me, 'Y'), DllStructGetData($guy, 'X'), DllStructGetData($guy, 'Y')) < 250
    RndSleep(Random(1000,1500))
	;~This section does the buying
    While GetGoldCharacter() > 20 * 1000
	If GetGoldStorage() > 10000 Then
	WithdrawGold(10000)
	CheckGold()
	EndIf
        TraderRequest(930)
        Sleep(500 + 3 * GetPing())
        TraderBuy()
    WEnd
 EndFunc   ;~ Rare Material trader