From 5811219420fdedef8941584ef70fec403d012e4e Mon Sep 17 00:00:00 2001 From: George Hazan Date: Sat, 7 Apr 2018 20:23:30 +0300 Subject: Proto_GetAccount() for pascal plugins --- plugins/Watrack/players/pl_mradio.pas | 2 +- plugins/Watrack/proto/proto.pas | 3 +-- plugins/Watrack/status/i_status.inc | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) (limited to 'plugins/Watrack') diff --git a/plugins/Watrack/players/pl_mradio.pas b/plugins/Watrack/players/pl_mradio.pas index d282fc603e..7bd2a14d5c 100644 --- a/plugins/Watrack/players/pl_mradio.pas +++ b/plugins/Watrack/players/pl_mradio.pas @@ -101,7 +101,7 @@ end; function Check(wnd:HWND;flags:integer):HWND;cdecl; begin - if CallProtoService(playername,PS_GETSTATUS,0,0)=ID_STATUS_ONLINE then + if Proto_GetStatus(playername)=ID_STATUS_ONLINE then begin result:=InitmRadio end diff --git a/plugins/Watrack/proto/proto.pas b/plugins/Watrack/proto/proto.pas index d5a35157b1..33098c7f42 100644 --- a/plugins/Watrack/proto/proto.pas +++ b/plugins/Watrack/proto/proto.pas @@ -113,9 +113,8 @@ begin begin StrCopy(PAnsiChar(buf),Proto_GetProtoName(ccs^.hContact)); i:=DBReadWord(ccs^.hContact,PAnsiChar(buf),'ApparentMode'); - StrCat(PAnsiChar(buf),PS_GETSTATUS); if (i=ID_STATUS_OFFLINE) or - ((i=0) and (CallService(PAnsiChar(buf),0,0)=ID_STATUS_INVISIBLE)) then + ((i=0) and (Proto_GetStatus(PAnsiChar(buf))=ID_STATUS_INVISIBLE)) then begin result:=Proto_ChainRecv(wParam,ccs); end diff --git a/plugins/Watrack/status/i_status.inc b/plugins/Watrack/status/i_status.inc index bbd8f2e1fa..934e69810b 100644 --- a/plugins/Watrack/status/i_status.inc +++ b/plugins/Watrack/status/i_status.inc @@ -82,7 +82,7 @@ begin if (UseStatus<>BST_UNCHECKED) or (UseExtStatus<>BST_UNCHECKED) then begin - status:=CallProtoService(proto,PS_GETSTATUS,0,0); + status:=Proto_GetStatus(proto); todo :=(SimpleMode<>BST_UNCHECKED) or IsOurStatus(mask,status); end else -- cgit v1.2.3