anyone wana try it with me in RT server ? :)
procedure GathercallFunc(aParams: PParams); stdcall;
var
PID,PType,CA,BA,CST: DWORD;
begin
PID := aParams^.Param1;
PType := aParams^.Param6;
CA := aParams^.FarmCall;
BA := aParams^.BaseAddress;
CST := aParams^.CharStruct;
asm
pushad
push Pa6
push Pa1
mov ecx, [BA]
mov ecx, dword ptr [ecx]
mov ecx, dword ptr [ecx+$1C]
mov edx, [CST]
mov ecx, dword ptr [ecx+edx]
mov eax, [CA]
call eax
popad
end;
end;