на случай, если я не один такой ламер в уколах, вот домучал-таки за 3дня, хотя хоть-убей не понимаю КАК? )
1. дело оказалось не в кирке, хотя и это вопрос: кто придумал называть значение [%inventoryItem%, $8] ID'ом, хотя аналогичные данные в других структурах называют SN (я называю TI - tableIndex, потому как, когда-то обнаружил соответствие этой циферки с индексами на pwdatabase.com ))
2. обратный случай с SN шахты, хотя юзается именно ID
3. не уверен, но возникло дикое подозрение, что 0 - это не $0 )
итого:
procedure DigCall(aPParams: PParams); stdcall;
var
PW_Call : Pointer;
itemID : DWORD;
puPos: dword;
puSN: DWORD;
begin
PW_Call := ptr($005DADD0);
ItemID := aPParams^.Param1; // ID ресурса
puSN := $c01; // SN кирки
puPos := aPParams^.Param2; // номер Ячейки с киркой
asm
pushad
push $0
push puSN
push puPos
push $0
push itemID
call PW_Call
add esp, 14h
popad
end;
end;
p.s. кто-нить подскажет хотя-бы как выглядит тэг "код" здесь, а то похоже у мя скрипты отключены) ?