Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

7 files changed, 796 insertions, 0 deletions

diff --git a/plugins/Watrack/proto/i_proto_dlg.inc b/plugins/Watrack/proto/i_proto_dlg.inc
new file mode 100644
index 0000000000..3c467c79ac
--- /dev/null
+++ b/plugins/Watrack/proto/i_proto_dlg.inc
@@ -0,0 +1,144 @@
+{Misc}

+

+procedure SetAllContactStat(hwndList:HWND);

+var

+  hContact,hItem:THANDLE;

+begin

+  hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);

+  while hContact<>0 do

+  begin

+    hItem:=SendMessage(hwndList,CLM_FINDCONTACT,hContact,0);

+    if hItem<>0 then

+    begin

+      SendMessage(hwndList,CLM_SETCHECKMARK,hItem,

+        DBReadByte(hContact,strCList,ShareOptText,0));

+    end;

+    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);

+  end;

+end;

+

+procedure SaveAllContactStat(hwndList:HWND);

+var

+  hContact,hItem:THANDLE;

+begin

+  hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);

+  while hContact<>0 do

+  begin

+    hItem:=SendMessage(hwndList,CLM_FINDCONTACT,hContact,0);

+    if hItem<>0 then

+    begin

+      if SendMessage(hwndList,CLM_GETCHECKMARK,hItem,0)<>0 then

+        DBWriteByte(hContact,strCList,ShareOptText,1)

+      else

+        DBDeleteSetting(hContact,strCList,ShareOptText);

+    end;

+    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);

+  end;

+end;

+

+procedure ResetListOptions(hwndList:HWND);

+var

+  i:integer;

+begin

+  SendMessage(hwndList,CLM_SETBKBITMAP    ,0,0);

+  SendMessage(hwndList,CLM_SETBKCOLOR     ,GetSysColor(COLOR_WINDOW),0);

+  SendMessage(hwndList,CLM_SETGREYOUTFLAGS,0,0);

+  SendMessage(hwndList,CLM_SETLEFTMARGIN  ,2,0);

+  SendMessage(hwndList,CLM_SETINDENT      ,10,0);

+  for i:=0 to FONTID_MAX do

+    SendMessage(hwndList,CLM_SETTEXTCOLOR,i,GetSysColor(COLOR_WINDOWTEXT));

+  SetWindowLongPtr(hwndList,GWL_STYLE,GetWindowLongPtr(hwndList,GWL_STYLE) or CLS_SHOWHIDDEN);

+end;

+

+procedure SetHistMask(Dlg:HWND);

+begin

+  CheckDlgButton(Dlg,IDC_IN_REQUEST ,ORD((HistMask and hmInRequest )<>0));

+  CheckDlgButton(Dlg,IDC_OUT_REQUEST,ORD((HistMask and hmOutRequest)<>0));

+  CheckDlgButton(Dlg,IDC_IN_INFO    ,ORD((HistMask and hmInInfo    )<>0));

+  CheckDlgButton(Dlg,IDC_OUT_INFO   ,ORD((HistMask and hmOutInfo   )<>0));

+  CheckDlgButton(Dlg,IDC_IN_ERROR   ,ORD((HistMask and hmInError   )<>0));

+  CheckDlgButton(Dlg,IDC_OUT_ERROR  ,ORD((HistMask and hmOutError  )<>0));

+  CheckDlgButton(Dlg,IDC_IREQUEST   ,ORD((HistMask and hmIRequest  )<>0));

+  CheckDlgButton(Dlg,IDC_ISEND      ,ORD((HistMask and hmISend     )<>0));

+end;

+

+procedure SaveHistMask(Dlg:HWND);

+begin

+  HistMask:=0;

+  if IsDlgButtonChecked(Dlg,IDC_IN_REQUEST )<>BST_UNCHECKED then HistMask:=HistMask or hmInRequest;

+  if IsDlgButtonChecked(Dlg,IDC_OUT_REQUEST)<>BST_UNCHECKED then HistMask:=HistMask or hmOutRequest;

+  if IsDlgButtonChecked(Dlg,IDC_IN_INFO    )<>BST_UNCHECKED then HistMask:=HistMask or hmInInfo;

+  if IsDlgButtonChecked(Dlg,IDC_OUT_INFO   )<>BST_UNCHECKED then HistMask:=HistMask or hmOutInfo;

+  if IsDlgButtonChecked(Dlg,IDC_IN_ERROR   )<>BST_UNCHECKED then HistMask:=HistMask or hmInError;

+  if IsDlgButtonChecked(Dlg,IDC_OUT_ERROR  )<>BST_UNCHECKED then HistMask:=HistMask or hmOutError;

+  if IsDlgButtonChecked(Dlg,IDC_IREQUEST   )<>BST_UNCHECKED then HistMask:=HistMask or hmIRequest;

+  if IsDlgButtonChecked(Dlg,IDC_ISEND      )<>BST_UNCHECKED then HistMask:=HistMask or hmISend;

+end;

+

+function DlgProcOptions(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

+const

+  Changed:integer=0;

+//  hItemAll:THANDLE=0;

+var

+//  cii:TCLCINFOITEM;

+  hList:HWND;

+begin

+  result:=0;

+  case hMessage of

+    WM_INITDIALOG: begin

+      TranslateDialogDefault(Dialog);

+      Changed:=DLGED_INIT;

+

+      hList:=GetDlgItem(Dialog,IDC_SHARE);

+      ResetListOptions(hList);

+      SendMessage(hList,CLM_SETUSEGROUPS      ,1,0);

+      SendMessage(hList,CLM_SETHIDEEMPTYGROUPS,1,0);

+

+//      SendMessage(hList,CLM_SETEXTRACOLUMNS,2,0);

+{

+      FillChar(cii,SizeOf(cii),0);

+      cii.cbSize   :=SizeOf(cii);

+      cii.flags    :=CLCIIF_GROUPFONT or CLCIIF_CHECKBOX;

+      cii.pszText.w:=TranslateW('** All contacts **');

+      hItemAll:=SendMessage(hList,CLM_ADDINFOITEM,0,dword(@cii));

+}

+      SetAllContactStat(hList);

+      SetHistMask(Dialog);

+

+      SetDlgItemTextW(Dialog,IDC_PROTO_TEXT,ProtoText);

+

+      Changed:=0;

+    end;

+

+    WM_COMMAND: begin

+      if Changed<>DLGED_INIT then

+      begin

+        case wParam shr 16 of

+          BN_CLICKED,EN_CHANGE: SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

+        end;

+      end;

+    end;

+

+    WM_NOTIFY: begin

+      if Changed<>DLGED_INIT then

+      begin

+        if PNMHDR(lParam)^.idFrom=IDC_SHARE then

+          if integer(PNMHdr(lParam)^.code)=CLN_CHECKCHANGED then

+            SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

+

+        if integer(PNMHdr(lParam)^.code)=PSN_APPLY then

+        begin

+          mFreeMem(ProtoText);

+          ProtoText:=GetDlgText(Dialog,IDC_PROTO_TEXT);

+

+          SaveAllContactStat(GetDlgItem(Dialog,IDC_SHARE));

+          SaveHistMask(Dialog);

+

+          WriteOptions;

+        end;

+      end;

+    end;

+  else

+    {result:=}DefWindowProc(Dialog,hMessage,wParam,lParam);

+  end;

+end;

diff --git a/plugins/Watrack/proto/i_proto_opt.inc b/plugins/Watrack/proto/i_proto_opt.inc
new file mode 100644
index 0000000000..c1e2cbf36d
--- /dev/null
+++ b/plugins/Watrack/proto/i_proto_opt.inc
@@ -0,0 +1,35 @@
+{}

+const

+  defProtoText = '%artist% - %title%';

+const

+  opt_ModStatus:PAnsiChar = 'module/protocol';

+

+  opt_histmask :PAnsiChar = 'historymask';

+  opt_prototext:PAnsiChar = 'prototext';

+

+function GetModStatus:integer;

+begin

+  result:=DBReadByte(0,PluginShort,opt_ModStatus,1);

+end;

+

+procedure SetModStatus(stat:integer);

+begin

+  DBWriteByte(0,PluginShort,opt_ModStatus,stat);

+end;

+

+procedure ReadOptions;

+begin

+  HistMask :=DBReadWord   (0,PluginShort,opt_histmask,0);

+  ProtoText:=DBReadUnicode(0,PluginShort,opt_prototext,defProtoText);

+end;

+

+procedure WriteOptions;

+begin

+  DBWriteWord   (0,PluginShort,opt_histmask ,HistMask);

+  DBWriteUnicode(0,PluginShort,opt_prototext,ProtoText);

+end;

+

+procedure FreeOptions;

+begin

+  mFreeMem(ProtoText);

+end;

diff --git a/plugins/Watrack/proto/i_proto_rc.inc b/plugins/Watrack/proto/i_proto_rc.inc
new file mode 100644
index 0000000000..f2d56ad329
--- /dev/null
+++ b/plugins/Watrack/proto/i_proto_rc.inc
@@ -0,0 +1,17 @@
+const

+  IDC_EXPORT      = 1031;

+  IDC_SHARE       = 1033;

+  IDC_IN_REQUEST  = 1034;

+  IDC_OUT_REQUEST = 1035;

+  IDC_IN_INFO     = 1036;

+  IDC_OUT_INFO    = 1037;

+  IDC_IN_ERROR    = 1038;

+  IDC_OUT_ERROR   = 1039;

+  IDC_IREQUEST    = 1040;

+  IDC_ISEND       = 1041;

+  IDC_STAT_EXPORT = 1042;

+  IDC_STAT_TEXP   = 1043;

+  IDC_STAT_LINE   = 1044;

+  IDC_PROTO_TEXT  = 1045;

+

+BTN_CONTEXT = 130;

diff --git a/plugins/Watrack/proto/proto.pas b/plugins/Watrack/proto/proto.pas
new file mode 100644
index 0000000000..254a02bac6
--- /dev/null
+++ b/plugins/Watrack/proto/proto.pas
@@ -0,0 +1,564 @@
+{Statistic}

+unit proto;

+{$include compilers.inc}

+interface

+{$Resource proto.res}

+implementation

+

+uses

+  windows,messages,commctrl,

+  common,m_api,mirutils,dbsettings,wrapper,

+  global,wat_api;

+

+{$include i_proto_rc.inc}

+

+const

+  ShareOptText = 'ShareMusic';

+const

+  IcoBtnContext:PAnsiChar='WATrack_Context';

+const

+  MenuUserInfoPos = 500050000;

+

+const

+  wpRequest = 'WAT###0_';

+  wpAnswer  = 'WAT###1_';

+  wpError   = 'WAT###2_';

+  wpMessage = 'WAT###3_';

+  wpRequestNew = 'ASKWAT';

+

+const

+  SendRequestText:PAnsiChar =

+    'WATrack internal info - sorry!';

+{

+    'If you see this message, probably you have no "WATrack" plugin installed or uses old '+

+    'version. See http://miranda-im.org/download/details.php?action=viewfile&id=2345 or '+

+    'http://awkward.miranda.im/ (beta versions) for more information and download.';

+}

+const

+  hmInRequest  = $0001;

+  hmOutRequest = $0002;

+  hmInInfo     = $0004;

+  hmOutInfo    = $0008;

+  hmInError    = $0010;

+  hmOutError   = $0020;

+  hmIRequest   = $0040;

+  hmISend      = $0080;

+

+var

+  hSRM,

+  hGCI,

+  icchangedhook,

+  hAddUserHook,

+  hContactMenuItem,

+  contexthook:THANDLE;

+  ProtoText:pWideChar;

+  HistMask:cardinal;

+

+{$include i_proto_opt.inc}

+{$include i_proto_dlg.inc}

+

+procedure AddEvent(hContact:THANDLE;atype,flag:integer;data:pointer;size:integer;time:dword=0);

+var

+  dbeo:TDBEVENTINFO;

+begin

+  FillChar(dbeo,SizeOf(dbeo),0);

+  with dbeo do

+  begin

+    cbSize   :=SizeOf(dbeo);

+    eventType:=atype;

+    szModule :=PluginShort;

+    if data=nil then

+    begin

+      PAnsiChar(data):='';

+      size:=1;

+    end;

+    pBlob    :=data;

+    cbBlob   :=size;

+    flags    :=flag;

+    if time<>0 then

+      Timestamp:=time

+    else

+      Timestamp:=GetCurrentTime;

+  end;

+  CallService(MS_DB_EVENT_ADD,hContact,lparam(@dbeo));

+end;

+

+{SEND-time text translation}

+(*

+const

+  BufSize = 16384;

+

+function FormatToBBW(src:PWideChar):PWideChar;

+var

+  buf:array [0..32] of WideChar;

+  p:PWideChar;

+  i,j:integer;

+begin

+  result:=src;

+  StrReplaceW(src,'{b}'  ,'[b]');

+  StrReplaceW(src,'{/b}' ,'[/b]');

+  StrReplaceW(src,'{u}'  ,'[u]');

+  StrReplaceW(src,'{/u}' ,'[/u]');

+  StrReplaceW(src,'{i}'  ,'[i]');

+  StrReplaceW(src,'{/i}' ,'[/i]');

+  StrReplaceW(src,'{/cf}','[/color]');

+  StrReplaceW(src,'{/bg}','');

+  StrCopyW(buf,'[color=');

+  repeat

+    i:=StrPosW(src,'{cf');

+    if i=0 then break;

+    j:=i;

+    dec(i);

+    while (src[j]<>#0) and (src[j]<>'}') do inc(j);

+    if src[j]='}' then inc(j);

+    case StrToInt(src+i+3) of

+      4,10:  p:='green]';

+      5,6:   p:='red]';

+      7,14:  p:='magenta]';

+      3,11,

+      12,13: p:='blue]';

+      8,9:   p:='yellow]';

+      2,15:  p:='black]';

+    else

+      {1,16:}  p:='white]';

+    end;

+    StrCopyW(buf+7,p);

+    StrCopyW(src+i,src+j);

+    StrInsertW(buf,src,i);

+  until false;

+  repeat

+    i:=StrIndex(src,'{bg');

+    if i=0 then break;

+    j:=i;

+    dec(i);

+    while (src[j]<>#0) and (src[j]<>'}') do inc(j);

+    if src[j]='}' then inc(j);

+    StrCopyW(src+i,src+j);

+  until false;

+end;

+

+function SendMessageProcW(wParam:WPARAM; lParam:LPARAM):integer; cdecl;

+var

+  ccs:PCCSDATA;

+  uns,s,ss:pWideChar;

+  p:PAnsiChar;

+  present:boolean;

+  i:integer;

+begin

+  if DisablePlugin<>dsPermanent then

+  begin

+    ccs:=PCCSDATA(lParam);

+    if ccs^.wParam=0 then

+      present:=StrPos('%music%',PAnsiChar(ccs^.lParam))<>nil

+    else // not needed?

+    begin

+      uns:=PWideChar(ccs^.lParam+StrLen(PAnsiChar(ccs^.lParam))+1);

+      present:=StrPos(uns,'%music%')<>nil;

+    end;

+

+    if present then

+    begin

+      if CallService(MS_WAT_GETMUSICINFO,0,0)=WAT_PLS_NOTFOUND then

+        s:=nil

+      else

+      begin

+        if SimpleMode<>BST_UNCHECKED then

+          i:=0

+        else

+          i:=CallService(MS_PROTO_GETCONTACTBASEPROTO,ccs^.hContact,0);

+        s:=GetMacros(TM_MESSAGE,i);

+      end;

+  //    if s<>nil then // for empty strings

+      begin

+        mGetMem(ss,BufSize*SizeOf(pWideChar));

+        FillChar(ss^,BufSize*SizeOf(pWideChar),0);

+        if ccs^.wParam=0 then

+          AnsiToWide(PAnsiChar(ccs^.lParam),uns,UserCP);

+        StrCopyW(ss,uns);

+        if ccs^.wParam=0 then

+          mFreeMem(uns);

+        StrReplaceW(ss,'%music%',s);

+        mFreeMem(s);

+        if StrPos(ss,'{')<>nil then

+          FormatToBBW(ss);

+        s:=PWideChar(ccs^.lParam);

+        WideToAnsi(ss,p,UserCP);

+        if ccs^.wParam=0 then

+        begin

+          ccs^.lParam:=dword(p);

+        end

+        else

+        begin

+          move(PAnsiChar(ss)^,(PAnsiChar(ss)+StrLen(p)+1)^,

+            (StrLenW(ss)+1)*SizeOf(WideChar));

+          StrCopy(PAnsiChar(ss),p);

+          ccs^.lParam:=dword(ss);

+        end;

+        result:=CallService(MS_PROTO_CHAINSEND,wParam,lParam);

+        mFreeMem(p);

+        ccs^.lParam:=dword(s);

+        mFreeMem(ss);

+        exit;

+      end;

+    end;

+  end;

+  result:=CallService(MS_PROTO_CHAINSEND,wParam,lParam);

+end;

+*)

+

+function ReceiveMessageProcW(wParam:WPARAM; lParam:LPARAM):integer; cdecl;

+const

+  bufsize = 4096*SizeOf(WideChar);

+var

+  ccs:PCCSDATA;

+  s:pWideChar;

+  buf:PWideChar;

+  base64:TNETLIBBASE64;

+//  pos_artist,pos_title,pos_album:PwideChar;

+  pos_template:pWideChar;

+  curpos:pWideChar;

+  encbuf:pWideChar;

+  i:integer;

+  textpos:PWideChar;

+  pc:PAnsiChar;

+  isNewRequest:bool;

+  si:pSongInfo;

+begin

+  ccs:=PCCSDATA(lParam);

+  result:=0;

+  mGetMem(buf,bufsize);

+

+  isNewRequest:=StrCmp(PPROTORECVEVENT(ccs^.lParam)^.szMessage.a,

+     wpRequestNew,Length(wpRequestNew))=0;

+

+  if isNewRequest or 

+     (StrCmp(PPROTORECVEVENT(ccs^.lParam)^.szMessage.a,

+             wpRequest,Length(wpRequest))=0) then

+  begin

+    StrCopy(PAnsiChar(buf),PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,ccs^.hContact,0)));

+    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

+    begin

+      result:=CallService(MS_PROTO_CHAINRECV,wParam,lParam);

+    end

+    else if DBReadByte(ccs^.hContact,strCList,ShareOptText,0)<>0 then

+// or (NotListedAllow and (DBReadByte(ccs^.hContact,strCList,'NotOnList',0))

+    begin

+      if (HistMask and hmInRequest)<>0 then

+        AddEvent(ccs^.hContact,EVENTTYPE_WAT_REQUEST,DBEF_READ,nil,0,

+                PPROTORECVEVENT(ccs^.lParam)^.Timestamp);

+      if GetContactStatus(ccs^.hContact)<>ID_STATUS_OFFLINE then

+      begin

+//!! Request Answer

+        curpos:=nil;

+        if DisablePlugin<>dsPermanent then

+        begin

+          if CallService(MS_WAT_GETMUSICINFO,0,0)=WAT_PLS_NOTFOUND then

+          begin

+            s:=#0#0#0'No player found at this time';

+            textpos:=s+3;

+          end

+          else

+          begin

+            if not isNewRequest then

+            begin

+              FillChar(buf^,bufsize,0);

+              si:=pSongInfo(CallService(MS_WAT_RETURNGLOBAL,0,0));

+              StrCopyW(buf   ,si^.artist); curpos:=StrEndW(buf)+1;

+              StrCopyW(curpos,si^.title);  curpos:=StrEndW(curpos)+1;

+              StrCopyW(curpos,si^.album);  curpos:=StrEndW(curpos)+1;

+            end

+            else

+              curpos:=buf;

+//!! check to DisableTemporary

+

+            s:=PWideChar(CallService(MS_WAT_REPLACETEXT,0,tlparam(ProtoText)));

+            textpos:=StrCopyW(curpos,s);

+            mFreeMem(s);

+            curpos:=StrEndW(curpos)+1;

+          end;

+        end

+        else

+        begin

+          s:=#0#0#0'Sorry, but i don''t use WATrack right now!';

+          textpos:=s+3;

+        end;

+// encode

+        if not isNewRequest then

+        begin

+          if curpos<>nil then

+          begin

+            base64.pbDecoded:=PByte(buf);

+            base64.cbDecoded:=PAnsiChar(curpos)-PAnsiChar(buf);

+          end

+          else

+          begin

+            base64.pbDecoded:=PByte(s);

+            base64.cbDecoded:=(StrLenW(textpos)+3+1)*SizeOf(PWideChar);

+          end;

+          base64.cchEncoded:=Netlib_GetBase64EncodedBufferSize(base64.cbDecoded);

+          mGetMem(encbuf,base64.cchEncoded+1+Length(wpAnswer));

+          base64.pszEncoded:=PAnsiChar(encbuf)+Length(wpAnswer);

+          StrCopy(PAnsiChar(encbuf),wpAnswer);

+          CallService(MS_NETLIB_BASE64ENCODE,0,tlparam(@base64));

+          if (HistMask and hmOutInfo)<>0 then

+            AddEvent(ccs^.hContact,EVENTTYPE_WAT_ANSWER,DBEF_SENT,

+                     base64.pbDecoded,base64.cbDecoded);

+          CallContactService(ccs^.hContact,PSS_MESSAGE,0,tlparam(encbuf));

+        end

+        else

+        begin

+          i:=WideToCombo(textpos,encbuf,UserCP);

+          if (HistMask and hmOutInfo)<>0 then

+            AddEvent(ccs^.hContact,EVENTTYPE_WAT_MESSAGE,DBEF_SENT,encbuf,i);

+//          if CallContactService(ccs^.hContact,PSS_MESSAGEW,PREF_UNICODE,dword(encbuf))=

+//             ACKRESULT_FAILED then

+            CallContactService(ccs^.hContact,PSS_MESSAGE,PREF_UNICODE,tlparam(encbuf));

+        end;

+        mFreeMem(encbuf);

+      end;

+    end

+    else

+    begin

+      if (HistMask and hmIRequest)<>0 then

+        AddEvent(ccs^.hContact,EVENTTYPE_WAT_REQUEST,DBEF_READ,nil,0,

+                 PPROTORECVEVENT(ccs^.lParam)^.Timestamp);

+      if (HistMask and hmISend)<>0 then

+      begin

+//!! Request Error Answer

+        if isNewRequest then

+          pc:=PAnsiChar(buf)

+        else

+        begin

+          StrCopy(PAnsiChar(buf),wpError);

+          pc:=PAnsiChar(buf)+Length(wpError);

+        end;

+        StrCopy(pc,'Sorry, but you have no permission to obtain this info!');

+        CallContactService(ccs^.hContact,PSS_MESSAGE,0,tlparam(buf));

+        if (HistMask and hmOutError)<>0 then

+        begin

+          AddEvent(ccs^.hContact,EVENTTYPE_WAT_ERROR,DBEF_SENT,nil,0,

+                   PPROTORECVEVENT(ccs^.lParam)^.Timestamp);

+        end;

+      end;

+    end;

+  end

+  else if StrCmp(PPROTORECVEVENT(ccs^.lParam)^.szMessage.a,wpAnswer,Length(wpAnswer))=0 then

+  begin

+// decode

+    base64.pszEncoded:=PPROTORECVEVENT(ccs^.lParam)^.szMessage.a+Length(wpAnswer);

+    base64.cchEncoded:=StrLen(base64.pszEncoded);

+    base64.cbDecoded :=Netlib_GetBase64DecodedBufferSize(base64.cchEncoded);

+    mGetMem(base64.pbDecoded,base64.cbDecoded);

+

+    CallService(MS_NETLIB_BASE64DECODE,0,tlparam(@base64));

+

+    curpos:=pWideChar(base64.pbDecoded);           // pos_artist:=curpos;

+    while curpos^<>#0 do inc(curpos); inc(curpos); // pos_title :=curpos;

+    while curpos^<>#0 do inc(curpos); inc(curpos); // pos_album :=curpos;

+    while curpos^<>#0 do inc(curpos); inc(curpos);

+    pos_template:=curpos;

+

+    if (HistMask and hmInInfo)<>0 then

+      AddEvent(ccs^.hContact,EVENTTYPE_WAT_ANSWER,DBEF_READ,

+          base64.pbDecoded,base64.cbDecoded,

+          PPROTORECVEVENT(ccs^.lParam)^.Timestamp);

+//  Action

+

+    StrCopyW(buf,TranslateW('Music Info from '));

+    StrCatW (buf,PWideChar(CallService(MS_CLIST_GETCONTACTDISPLAYNAME,ccs^.hContact,GCDNF_UNICODE)));

+

+    MessageBoxW(0,TranslateW(pos_template),buf,MB_ICONINFORMATION);

+

+    mFreeMem(base64.pbDecoded);

+  end

+  else if StrCmp(PPROTORECVEVENT(ccs^.lParam)^.szMessage.a,wpError,Length(wpError))=0 then

+  begin

+    if (HistMask and hmInError)<>0 then

+      AddEvent(ccs^.hContact,EVENTTYPE_WAT_ERROR,DBEF_READ,nil,0,

+               PPROTORECVEVENT(ccs^.lParam)^.Timestamp);

+{

+    AnsiToWide(PAnsiChar(CallService(MS_CLIST_GETCONTACTDISPLAYNAME,ccs^.hContact,0)),s);

+    StrCopyW(buf,s);

+    StrCatW (buf,TranslateW(' answer you'));

+    mFreeMem(s);

+}

+    MessageBoxA(0,Translate(PPROTORECVEVENT(ccs^.lParam)^.szMessage.a+Length(wpError)),

+               Translate('You Get Error'),MB_ICONERROR);

+  end

+  else

+    result:=CallService(MS_PROTO_CHAINRECV,wParam,lParam);

+  mFreeMem(buf);

+end;

+

+function SendRequest(hContact:WPARAM;lParam:LPARAM):integer; cdecl;

+var

+  buf:array [0..2047] of AnsiChar;

+begin

+  result:=0;

+  StrCopy(buf,wpRequest);

+  StrCopy(buf+Length(wpRequest),SendRequestText);

+  CallContactService(hContact,PSS_MESSAGE,0,tlparam(@buf));

+  if (HistMask and hmOutRequest)<>0 then

+    AddEvent(hContact,EVENTTYPE_WAT_REQUEST,DBEF_SENT,nil,0);

+end;

+

+procedure RegisterContacts;

+var

+  hContact:integer;

+begin

+  hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);

+  while hContact<>0 do

+  begin

+    if not IsChat(hContact) then

+      CallService(MS_PROTO_ADDTOCONTACT,hContact,lparam(PluginShort));

+    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);

+  end;

+end;

+

+function HookAddUser(hContact:WPARAM;lParam:LPARAM):integer; cdecl;

+begin

+  result:=0;

+  if not IsChat(hContact) then

+    CallService(MS_PROTO_ADDTOCONTACT,hContact,tlparam(PluginShort));

+end;

+

+function OnContactMenu(hContact:WPARAM;lParam:LPARAM):int;cdecl;

+var

+  mi:TCListMenuItem;

+begin

+  FillChar(mi,SizeOf(mi),0);

+  mi.cbSize:=sizeof(mi);

+  if IsMirandaUser(hContact)<=0 then

+    mi.flags:=CMIF_NOTOFFLINE or CMIF_NOTOFFLIST or CMIM_FLAGS or CMIF_HIDDEN

+  else

+    mi.flags:=CMIF_NOTOFFLINE or CMIF_NOTOFFLIST or CMIM_FLAGS;

+  CallService(MS_CLIST_MODIFYMENUITEM,hContactMenuItem,tlparam(@mi));

+  result:=0;

+end;

+

+procedure SetProtocol;

+var

+  desc:TPROTOCOLDESCRIPTOR;

+begin

+  desc.cbSize:=PROTOCOLDESCRIPTOR_V3_SIZE;//SizeOf(desc);

+  desc.szName:=PluginShort;

+  desc._type :=PROTOTYPE_TRANSLATION;

+

+  CallService(MS_PROTO_REGISTERMODULE,0,lparam(@desc));

+//  CreateProtoServiceFunction(PluginShort,PSS_MESSAGE ,@SendMessageProcW);

+//  CreateProtoServiceFunction(PluginShort,PSS_MESSAGEW,@SendMessageProcW);

+  hSRM:=CreateProtoServiceFunction(PluginShort,PSR_MESSAGE ,@ReceiveMessageProcW);

+//  CreateProtoServiceFunction(PluginShort,PSR_MESSAGEW,@ReceiveMessageProcW);

+end;

+

+function IconChanged(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+var

+  mi:TCListMenuItem;

+begin

+  result:=0;

+  FillChar(mi,SizeOf(mi),0);

+  mi.cbSize:=sizeof(mi);

+  mi.flags :=CMIM_ICON;

+

+  mi.hIcon:=CallService(MS_SKIN2_GETICON,0,tlparam(IcoBtnContext));

+  CallService(MS_CLIST_MODIFYMENUITEM,hContactMenuItem,tlparam(@mi));

+end;

+

+procedure RegisterIcons;

+var

+  sid:TSKINICONDESC;

+begin

+  FillChar(sid,SizeOf(TSKINICONDESC),0);

+  sid.cbSize:=SizeOf(TSKINICONDESC);

+  sid.cx:=16;

+  sid.cy:=16;

+  sid.szSection.a:=PluginShort;

+

+  sid.hDefaultIcon   :=LoadImage(hInstance,MAKEINTRESOURCE(BTN_CONTEXT),IMAGE_ICON,16,16,0);

+  sid.pszName        :=IcoBtnContext;

+  sid.szDescription.a:='Context Menu';

+  Skin_AddIcon(@sid);

+  DestroyIcon(sid.hDefaultIcon);

+//!!

+  icchangedhook:=HookEvent(ME_SKIN2_ICONSCHANGED,@IconChanged);

+end;

+

+// ------------ base interface functions -------------

+

+function InitProc(aGetStatus:boolean=false):integer;

+var

+  mi:TCListMenuItem;

+begin

+  if aGetStatus then

+  begin

+    if GetModStatus=0 then

+    begin

+      result:=0;

+      exit;

+    end;

+  end

+  else

+    SetModStatus(1);

+  result:=1;

+

+  ReadOptions;

+  RegisterIcons;

+

+  FillChar(mi, sizeof(mi), 0);

+  mi.cbSize       :=sizeof(mi);

+  mi.szPopupName.a:=PluginShort;

+  mi.flags        :=CMIF_NOTOFFLINE or CMIF_NOTOFFLIST;

+//  mi.popupPosition:=MenuUserInfoPos;

+  mi.hIcon        :=CallService(MS_SKIN2_GETICON,0,lparam(IcoBtnContext));

+  mi.szName.a     :='Get user''s Music Info';

+  mi.pszService   :=MS_WAT_GETCONTACTINFO;

+  hContactMenuItem:=Menu_AddContactMenuItem(@mi);

+

+  SetProtocol;

+  RegisterContacts;

+  hGCI:=CreateServiceFunction(MS_WAT_GETCONTACTINFO,@SendRequest);

+  contexthook :=HookEvent(ME_CLIST_PREBUILDCONTACTMENU,@OnContactMenu);

+  hAddUserHook:=HookEvent(ME_DB_CONTACT_ADDED         ,@HookAddUser);

+end;

+

+procedure DeInitProc(aSetDisable:boolean);

+begin

+  if aSetDisable then

+    SetModStatus(0);

+

+  UnhookEvent(hAddUserHook);

+  UnhookEvent(contexthook);

+  UnhookEvent(icchangedhook);

+

+  DestroyServiceFunction(hSRM);

+  DestroyServiceFunction(hGCI);

+  mFreeMem(ProtoText);

+end;

+

+function AddOptionsPage(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;

+begin

+  tmpl:='MISC';

+  proc:=@DlgProcOptions;

+  name:='Misc';

+  result:=0;

+end;

+

+var

+  vproto:twModule;

+

+procedure Init;

+begin

+  vproto.Next      :=ModuleLink;

+  vproto.Init      :=@InitProc;

+  vproto.DeInit    :=@DeInitProc;

+  vproto.AddOption :=@AddOptionsPage;

+  vproto.ModuleName:='Protocol';

+  ModuleLink       :=@vproto;

+end;

+

+begin

+  Init;

+end.

diff --git a/plugins/Watrack/proto/proto.rc b/plugins/Watrack/proto/proto.rc
new file mode 100644
index 0000000000..dcf5be2faa
--- /dev/null
+++ b/plugins/Watrack/proto/proto.rc
@@ -0,0 +1,36 @@
+#include "i_proto_rc.inc"

+

+LANGUAGE 0,0

+

+MISC DIALOGEX 0, 0, 304, 226, 0

+STYLE DS_SETFONT | DS_FIXEDSYS | WS_CHILD | WS_VISIBLE

+EXSTYLE WS_EX_CONTROLPARENT

+FONT 8, "MS Shell Dlg", 0, 0

+{

+ CONTROL "",IDC_SHARE, "CListControl", WS_TABSTOP | 0x3CA, 4, 4, 144, 180, WS_EX_CLIENTEDGE

+

+ CTEXT        "Save events in database",-1, 154,  4, 144, 12, SS_CENTERIMAGE

+ LTEXT        "Input"                  ,-1, 154, 16,  70, 12, SS_CENTERIMAGE

+ RTEXT        "Output"                 ,-1, 226, 16,  70, 12, SS_CENTERIMAGE

+

+ CTEXT        "Music Info Request",-1, 170, 30, 112, 14, SS_CENTERIMAGE

+ AUTOCHECKBOX "", IDC_IN_REQUEST     , 154, 30,  14, 14, BS_VCENTER | BS_NOTIFY

+ AUTOCHECKBOX "", IDC_OUT_REQUEST    , 284, 30,  14, 14, BS_VCENTER | BS_NOTIFY | BS_RIGHT | BS_LEFTTEXT

+

+ CTEXT        "Music Info"        ,-1, 170, 44, 112, 14, SS_CENTERIMAGE

+ AUTOCHECKBOX "", IDC_IN_INFO        , 154, 44,  14, 14, BS_VCENTER | BS_NOTIFY

+ AUTOCHECKBOX "", IDC_OUT_INFO       , 284, 44,  14, 14, BS_VCENTER | BS_NOTIFY | BS_RIGHT | BS_LEFTTEXT

+

+ CTEXT        "Request Error"     ,-1, 170, 58, 112, 14, SS_CENTERIMAGE

+ AUTOCHECKBOX "", IDC_IN_ERROR       , 154, 58,  14, 14, BS_VCENTER | BS_NOTIFY

+ AUTOCHECKBOX "", IDC_OUT_ERROR      , 284, 58,  14, 14, BS_VCENTER | BS_NOTIFY | BS_RIGHT | BS_LEFTTEXT

+

+ AUTOCHECKBOX "Save ignored requests"     , IDC_IREQUEST, 154, 76, 144, 14, BS_VCENTER | BS_MULTILINE | BS_NOTIFY

+ AUTOCHECKBOX "Answer to ignored requests", IDC_ISEND   , 154, 90, 144, 14, BS_VCENTER | BS_MULTILINE | BS_NOTIFY

+

+ RTEXT        "User music info text", -1, 154, 154, 142, 10

+ RTEXT        "(%artist%, %title%, %album% and %year% macros can be used only)", -1, 154, 164, 142, 22

+ EDITTEXT     IDC_PROTO_TEXT, 4, 186, 296, 36, ES_MULTILINE | ES_AUTOVSCROLL | ES_AUTOHSCROLL | ES_WANTRETURN

+}

+

+BTN_CONTEXT ICON "wat_context.ico"

diff --git a/plugins/Watrack/proto/proto.res b/plugins/Watrack/proto/proto.res
new file mode 100644
index 0000000000..7899ef50cc
--- /dev/null
+++ b/plugins/Watrack/proto/proto.res
diff --git a/plugins/Watrack/proto/wat_context.ico b/plugins/Watrack/proto/wat_context.ico
new file mode 100644
index 0000000000..37d8413c66
--- /dev/null
+++ b/plugins/Watrack/proto/wat_context.ico