Rus. server

.text:0045AF03                 mov     eax, dword_976B1C ; eax=9771A0
.text:0045AF11                 mov     ecx, [eax+1Ch]  ; ecx=9771BC
.text:0045AF15                 mov     edx, [ecx+8]    ; edx=[[9771BC]+8]

    PW_GeneralAttack_Call = $005D0110;    //address for base attack injection

procedure AttackCall(aPParams:PParams); stdcall;
var
  Address: pointer;
begin
  Address := Pointer(PW_GeneralAttack_Call);
  asm
    pushad
      call Address
    popad
  end;
end;

procedure TaPWT.Attack;
begin
  InjectFunc(aProcessID, @AttackCall, nil, 0);
end;

procedure NPCTalkCall(aPParams:PParams); Stdcall;
var
  NPCIDParam: DWORD;
  Address1: pointer;
begin
  Address1 := pointer(PW_Talk_Call);
  NPCIDParam := aPParams^.Param1;
  asm
    pushad
      mov edx,dword ptr [PW_Base_Call]
      push NPCIDParam
      mov ecx,dword ptr [edx+$20]
      add ecx,$EC
      call Address1
    popad
  end;
end;

procedure TaPWT.TalkToNPC(NPCID: Cardinal);
var
  aParams : TParams;
begin
  aParams.Param1 := NPCID;
  InjectFunc(aProcessID, @NPCTalkCall, @aParams, SizeOf(aParams));
end;