#include "stdafx.h"

//#define MIRANDA_VER    0x801

/*
 *  Plugin of miranda IM(ICQ) for Communicating with users of the XFire Network. 
 *
 *  Copyright (C) 2010 by
 *          dufte <dufte@justmail.de>
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 *
 *  Based on J. Lawler              - BaseProtocol
 *			 Herbert Poul/Beat Wolf - xfirelib
 *
 *  Miranda ICQ: the free icq client for MS Windows 
 *  Copyright (C) 2000-2008  Richard Hughes, Roland Rabien & Tristan Van de Vreede
 *
 */

//xfire stuff
#include "client.h"
#include "xfirepacket.h"
#include "loginfailedpacket.h"
#include "otherloginpacket.h"
#include "loginsuccesspacket.h"
#include "messagepacket.h"
#include "sendstatusmessagepacket.h"
#include "sendmessagepacket.h"
#include "invitebuddypacket.h"
#include "sendacceptinvitationpacket.h"
#include "senddenyinvitationpacket.h"
#include "sendremovebuddypacket.h"
#include "sendnickchangepacket.h"
#include "sendgamestatuspacket.h"
#include "sendgamestatus2packet.h"
#include "dummyxfiregameresolver.h"
#include "sendgameserverpacket.h"
#include "recvstatusmessagepacket.h"
#include "recvoldversionpacket.h"
#include "packetlistener.h"
#include "inviterequestpacket.h"
#include "buddylistgames2packet.h"
#include "dummyxfiregameresolver.h"
#include "sendtypingpacket.h" 
#include "xfireclanpacket.h"
#include "recvremovebuddypacket.h"
#include "gameinfopacket.h"
#include "claninvitationpacket.h"
#include "xfireprefpacket.h"
#include "searchbuddy.h"
#include "xfirefoundbuddys.h"
#include "getbuddyinfo.h"
#include "buddyinfo.h"
#include "variables.h"
#include "passworddialog.h"
#include "setnickname.h"
#include "all_statusmsg.h"
#include "processbuddyinfo.h"
#include "recvprefspacket.h"
#include "sendsidpacket.h"
#include "friendsoffriendlist.h"
#include "recvbuddychangednick.h"

//miranda stuff
#include "baseProtocol.h"
#include "m_updater.h"
#include "Xfire_gamelist.h"
#include "Xfire_proxy.h"
#include "Xfire_avatar_loader.h"
#include "Xfire_voicechat.h"

#include <stdexcept>

Xfire_gamelist xgamelist;
Xfire_voicechat voicechat;

HANDLE hLogEvent;
int bpStatus = ID_STATUS_OFFLINE;
int previousMode;
int OptInit(WPARAM wParam,LPARAM lParam);
int OnDetailsInit(WPARAM wParam,LPARAM lParam);
HANDLE hFillListEvent = 0;
CONTACT user;
HINSTANCE hinstance;
HANDLE heventXStatusIconChanged;
HANDLE copyipport,gotoclansite,vipport,joingame,startthisgame,removefriend,blockfriend;
int foundgames=0;
Gdiplus::GdiplusStartupInput gdiplusStartupInput;
ULONG_PTR           gdiplusToken;
BOOL miranda8 = FALSE;

//xfire preferences, wichtige variablen
xfire_prefitem xfireconfig[XFIRE_RECVPREFSPACKET_MAXCONFIGS];
extern xfireconfigitem xfireconfigitems[XFIRE_RECVPREFSPACKET_SUPPORTEDONFIGS];

CRITICAL_SECTION modeMsgsMutex;
CRITICAL_SECTION avatarMutex;
CRITICAL_SECTION connectingMutex;

DWORD pid=NULL; //processid des gefunden spiels
DWORD ts2pid=NULL; // processid vom teamspeak/ventrilo

HANDLE	 XFireAvatarFolder = NULL;
HANDLE	 XFireWorkingFolder = NULL;
HANDLE	 XFireIconFolder = NULL;
HANDLE	 hookgamestart = NULL;
char statusmessage[2][1024];
BOOL sendonrecieve=FALSE;
HANDLE hNetlib=NULL;
pGetExtendedUdpTable _GetExtendedUdpTable=NULL;
extern LPtsrGetServerInfo tsrGetServerInfo;

//eventhandles
HANDLE hGameDetection = CreateEvent(NULL,FALSE,FALSE,NULL);
HANDLE hConnectionClose = CreateEvent(NULL,TRUE,FALSE,NULL);

//extraicon handles
HANDLE extraiconGAME=NULL;
HANDLE extraiconVOICE=NULL;

int EXTRA_ICON_ADV1 = 4;
int EXTRA_ICON_ADV2 = 5;

PLUGININFOEX pluginInfo={
		sizeof(PLUGININFOEX),
		"Xfire protocol",
		PLUGIN_MAKE_VERSION(0,1,8,4),
		"Xfire Protocol Plugin by dufte [Built: "__DATE__" "__TIME__"]",
		"dufte",
		"dufte@justmail.de",
		"(c) 2012 Xfirelib by Herbert Poul, Xfire Miranda protocol plugin by dufte",
		"",
		0,
		0,
		// {9B8E1735-970D-4ce0-930C-A561956BDCA2}
		{ 0x9b8e1735, 0x970d, 0x4ce0, { 0x93, 0xc, 0xa5, 0x61, 0x95, 0x6b, 0xdc, 0xa2 } }

};

int FillList(WPARAM wParam, LPARAM lParam);
HANDLE CList_AddContact(XFireContact xfc, bool InList, bool SetOnline,int clan);
HANDLE CList_FindContact (int uid);
void CList_MakeAllOffline();
int RecvMessage(WPARAM wParam, LPARAM lParam);
int SendMessage(WPARAM wParam, LPARAM lParam);
static int UserIsTyping(WPARAM wParam, LPARAM lParam);
HANDLE LoadGameIcon(char* g, int id, HICON* ico,BOOL onyico=FALSE,char * gamename=NULL,int*uu=NULL);
void SetIcon(HANDLE hcontact,HANDLE hicon,int ctype=EXTRA_ICON_ADV1);
BOOL GetAvatar(char* username,XFireAvatar* av);
//void SetAvatar(HANDLE hContact, char* username);
static void SetAvatar(LPVOID lparam);
static int GetIPPort(WPARAM /*wParam*/,LPARAM lParam);
static int GetVIPPort(WPARAM /*wParam*/,LPARAM lParam);
int RebuildContactMenu( WPARAM wParam, LPARAM lParam );
int doneQuery( WPARAM wParam, LPARAM lParam );
static int GotoProfile(WPARAM wParam,LPARAM lParam);
static int GotoProfileAct(WPARAM wParam,LPARAM lParam);
static int GotoXFireClanSite(WPARAM wParam,LPARAM lParam);
static int ReScanMyGames(WPARAM wParam,LPARAM lParam);
static int SetNickDlg(WPARAM wParam,LPARAM lParam);
static int CustomGameSetup(WPARAM wParam,LPARAM lParam);

#ifndef NO_PTHREAD
	void *gamedetectiont(void *ptr);
	void *inigamedetectiont(void *ptr);
	pthread_t gamedetection;
#else
	void inigamedetectiont(LPVOID lParam);
	void gamedetectiont(LPVOID lparam);
#endif

static int GotoProfile2(WPARAM wParam,LPARAM lParam);
HANDLE handlingBuddys(BuddyListEntry *entry, int clan=0,char* group=NULL,BOOL dontscan=FALSE);
int StatusIcon(WPARAM wParam,LPARAM lParam);
int AddtoList( WPARAM wParam, LPARAM lParam );
int BasicSearch(WPARAM wParam,LPARAM lParam);
int GetAvatarInfo(WPARAM wParam, LPARAM lParam); //GAIR_NOAVATAR
static int SearchAddtoList(WPARAM wParam,LPARAM lParam);
void CreateGroup(char*grpn,char*field); //void CreateGroup(char*grp);
int SetAwayMsg(WPARAM wParam, LPARAM lParam);
int GetAwayMsg(WPARAM /*wParam*/, LPARAM lParam);
int ContactDeleted(WPARAM wParam,LPARAM /*lParam*/);
int JoinGame(WPARAM wParam,LPARAM lParam);
extern void Scan4Games( LPVOID lparam  );
int RemoveFriend(WPARAM wParam,LPARAM lParam);
int BlockFriend(WPARAM wParam,LPARAM lParam);
int GetXStatusIcon(WPARAM wParam, LPARAM lParam);
int StartThisGame(WPARAM wParam,LPARAM lParam);
int IconLibChanged(WPARAM wParam, LPARAM lParam);
int SendPrefs(WPARAM wparam, LPARAM lparam);
void SetAvatar2(LPVOID lparam);
int ExtraListRebuild(WPARAM wparam, LPARAM lparam);
int ExtraImageApply(WPARAM wparam, LPARAM lparam);

//XFire Stuff
using namespace xfirelib;

class XFireClient : public PacketListener {

  public:
    Client* client;
	Xfire_avatar_loader* avatarloader;
	BOOL useutf8;

    XFireClient(string username, string password,char protover,int useproxy=0,string proxyip="",int proxyport=0);
    ~XFireClient();
    void run();

    void Status(string s);

    void receivedPacket(XFirePacket *packet);

	void getBuddyList();
	void sendmsg(char*usr,char*msg);
	void setNick(char*nnick);
	void handlingBuddy(HANDLE handle);
	void CheckAvatar(BuddyListEntry* entry);

  private:
    vector<string> explodeString(string s, string e);
    string joinString(vector<string> s, int startindex, int endindex=-1, string delimiter=" ");
    void BuddyList();

    string *lastInviteRequest;

    string username;
    string password;
	string proxyip;
	int useproxy;
	int proxyport;
	BOOL connected;
	unsigned int myuid;
 };

XFireClient* myClient=NULL;

void XFireClient::CheckAvatar(BuddyListEntry* entry) {
	//kein entry, zurück
	if(!entry)
		return;

	//keine avatars?
	if(DBGetContactSettingByte(NULL,protocolname,"noavatars",-1)==0)
	{
		//avatar gelocked?
		if(DBGetContactSettingByte(entry->hcontact, "ContactPhoto", "Locked", -1)!=1)
		{
			//avatar lade auftrag übergeben
			this->avatarloader->loadAvatar(entry->hcontact,(char*)entry->username.c_str(),entry->userid);
		}
	}
}

void XFireClient::handlingBuddy(HANDLE handle){
	vector<BuddyListEntry*> *entries = client->getBuddyList()->getEntries();
	for(uint i = 0 ; i < entries->size() ; i ++) {
		BuddyListEntry *entry = entries->at(i);
		if(entry->hcontact==handle)
		{
			handlingBuddys(entry,0,NULL);
			break;
		}
	}
	//mir_forkthread(
}

void XFireClient::setNick(char*nnick) {
	/*if(strlen(nnick)==0)
		return;*/
	  SendNickChangePacket nick;
	  if(this->useutf8)
		nick.nick = ( char* )nnick;
	  else
		nick.nick = mir_utf8encode(( char* )nnick);
	  client->send( &nick );
}


void XFireClient::sendmsg(char*usr,char*cmsg) {
		SendMessagePacket msg;
	//	if(strlen(cmsg)>255)
	//		*(cmsg+255)=0;
		msg.init(client, usr, cmsg);
		client->send( &msg );
	}


  XFireClient::XFireClient(string username_,string password_,char protover,int useproxy,string proxyip,int proxyport) 
    : username(username_), password(password_) {
    client = new Client();
    client->setGameResolver( new DummyXFireGameResolver() );
	client->protocolVersion=protover;
	avatarloader = new Xfire_avatar_loader(client);
	this->useproxy=useproxy;
	this->proxyip=proxyip;
	this->proxyport=proxyport;
	useutf8=FALSE;

	avatarloader=new Xfire_avatar_loader(client);

    lastInviteRequest = NULL;
	connected = FALSE;
  }

  XFireClient::~XFireClient() {
	if(client!=NULL) {
		client->disconnect();
		delete client;
	}
	if(avatarloader) {
		delete avatarloader;
		avatarloader=NULL;
	}
    if(lastInviteRequest!=NULL) delete lastInviteRequest;
  }

  void XFireClient::run() {
	client->connect(username,password,useproxy,proxyip,proxyport);
    client->addPacketListener(this);
  }

  void XFireClient::Status(string s) {
	  //da bei xfire statusmsg nur 100bytes länge unterstützt werden, wird gecutted
	  if(!client->gotBudduyList)
		  return;

	  if(s.length()>100)
	  {
		  char* temp=(char*)s.c_str();
		  *(temp+100)=0;
	  }
	  SendStatusMessagePacket *packet = new SendStatusMessagePacket();
	  
	  if(myClient->useutf8)
		  packet->awaymsg = s.c_str();
	  else
		  packet->awaymsg = mir_utf8encode(s.c_str());

	  client->send( packet );
	  delete packet;
  }

  void XFireClient::receivedPacket(XFirePacket *packet) {
	  XFirePacketContent *content = packet->getContent();

	  switch(content->getPacketId())
	  {
		  /*case XFIRE_RECVBUDDYCHANGEDNICK:
		  {
			  RecvBuddyChangedNick *changednick = (RecvBuddyChangedNick*)content;
			  if(changednick) {
				handlingBuddys((BuddyListEntry*)changednick->entry,0,NULL);
			  }
			  break;
		  }*/
		  //Konfigpacket empfangen
		  case XFIRE_RECVPREFSPACKET:
		  {
			  //Konfigarray leeren
			  memset(&xfireconfig,0,sizeof(xfire_prefitem)*XFIRE_RECVPREFSPACKET_MAXCONFIGS);
			  RecvPrefsPacket *config = (RecvPrefsPacket*)content;
			  //konfigs in array speichern
			  if(config!=NULL)
			  {
				  //ins preferenes array sichern
				  for(int i=0;i<XFIRE_RECVPREFSPACKET_MAXCONFIGS;i++)
				  {
					  xfireconfig[i]=config->config[i];
				  }
				  //datenbank einträge durchführen
				  for(int i=0;i<XFIRE_RECVPREFSPACKET_SUPPORTEDONFIGS;i++)
				  {
					  char temp=1;
					  if(xfireconfig[xfireconfigitems[i].xfireconfigid].wasset==1)
					  {
						  temp=0;
					  }
					  DBWriteContactSettingByte(NULL,protocolname,xfireconfigitems[i].dbentry,temp);
				  }
			  }
			  break;
		  }
		  case XFIRE_FOUNDBUDDYS_ID:
		  {
			  PROTOSEARCHRESULT psr;
			  ZeroMemory(&psr, sizeof(psr));
			  psr.cbSize = sizeof(psr);

			  XFireFoundBuddys *fb = (XFireFoundBuddys*)content;
			  for(uint i = 0 ; i < fb->usernames->size() ; i++) {
				  if((char*)fb->usernames->at(i).c_str()!=NULL)
					psr.nick = (char*)fb->usernames->at(i).c_str();
				  if((char*)fb->fname->at(i).c_str()!=NULL)
					  psr.firstName = (char*)fb->fname->at(i).c_str();
				  if((char*)fb->lname->at(i).c_str()!=NULL)
					  psr.lastName = (char*)fb->lname->at(i).c_str();
				  ProtoBroadcastAck(protocolname, NULL, ACKTYPE_SEARCH, ACKRESULT_DATA, (HANDLE) 1, (LPARAM) & psr);
			  }
			
			  ProtoBroadcastAck(protocolname, NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE) 1, 0);
			  break;
		  }
		  case XFIRE_BUDDYINFO:
		  {
			  BuddyInfoPacket *buddyinfo = (BuddyInfoPacket*)content;
			  BuddyListEntry *entry = client->getBuddyList()->getBuddyById( buddyinfo->userid );

			  //wenn die uid die gleiche wie die eigene ist, dann avatar auch selbst zuweisen
			  if(buddyinfo->userid==this->myuid) {
				  ProcessBuddyInfo(buddyinfo,NULL,"myxfireavatar");
			  }

			  if(entry)
				ProcessBuddyInfo(buddyinfo,entry->hcontact,(char*)entry->username.c_str());
			  
			  break;
		  }
		  case XFIRE_CLANINVITATION_ID:
		  {
			  ClanInvitationPacket *claninv = (ClanInvitationPacket*)content;
			  for(int i=0;i<claninv->numberOfInv;i++)
			  {
				  char msg[XFIRE_MAX_STATIC_STRING_LEN];
				  sprintf(msg,Translate("%s (Nickname: %s) has invited you to join the %s clan. Message: %s%sPlease go to the XFireclan-Site to accept the Invitation."),claninv->invitefromusername[i].c_str(),
																								claninv->invitefrom[i].c_str(),
																								claninv->clanname[i].c_str(),
																								claninv->invitemsg[i].c_str(),"\n");
				  MSGBOX(msg);
			  }
			  break;
		  }
		  case XFIRE_GAMEINFO_ID:
		  {
			  GameInfoPacket *gameinfo = (GameInfoPacket*)content;
			  for(uint i = 0 ; i < gameinfo->sids->size() ; i++) {
				  BuddyListEntry *entry = client->getBuddyList()->getBuddyBySid( gameinfo->sids->at(i) );
				  if(entry){
					entry->gameinfo = gameinfo->gameinfo->at(i);
					handlingBuddys(entry,0,NULL);
				  }
			  }
			  break;
		  }	
		  case XFIRE_RECVREMOVEBUDDYPACKET:
		  {
				RecvRemoveBuddyPacket *remove = (RecvRemoveBuddyPacket*)content;
				CallService( MS_DB_CONTACT_DELETE, (WPARAM) remove->handle, 1 );
				break;
		  }
		  case XFIRE_BUDDYS_NAMES_ID:
		  {
				//status nachricht nach der buddylist senden
			    client->gotBudduyList=TRUE;
				if(sendonrecieve)
				{
					if(myClient!=NULL)
					{
						if(myClient->client->connected)
						{
							//					
							if (bpStatus == ID_STATUS_AWAY)
								myClient->Status(statusmessage[1]);
							else
								myClient->Status(statusmessage[0]);
						}
					}
					sendonrecieve=FALSE;
				}
				sendonrecieve=FALSE;

/*			  	GetBuddyInfo buddyinfo;

				vector<BuddyListEntry*> *entries = client->getBuddyList()->getEntries();
				for(uint i = 0 ; i < entries->size() ; i ++) {
					BuddyListEntry *entry = entries->at(i);
					handlingBuddys(entry,0,NULL);
				}*/
				break;
		  }
		 /* case XFIRE_CLAN_BUDDYS_NAMES_ID:
		  {
				vector<BuddyListEntry*> *entries = client->getBuddyList()->getEntriesClan();

				char temp[255];
				char * dummy;
				ClanBuddyListNamesPacket *clan = (ClanBuddyListNamesPacket*)content;	
				sprintf(temp,"Clan_%d",clan->clanid);

				DBVARIANT dbv;
				if(!DBGetContactSetting(NULL,protocolname,temp,&dbv))
				{
					dummy=dbv.pszVal;
				}
				else
					dummy=NULL;

				for(uint i = 0 ; i < entries->size() ; i ++) {
					BuddyListEntry *entry = entries->at(i);
					if(entry->clanid==clan->clanid) {
						handlingBuddys(entry,clan->clanid,dummy);
					}
				}
				break;
		  }*/
		  case XFIRE_FRIENDS_BUDDYS_NAMES_ID:
		  {
				for(uint i = 0 ; i < ((FriendsBuddyListNamesPacket*)content)->userids->size() ; i++) {
					BuddyListEntry *entry = client->getBuddyList()->getBuddyById( ((FriendsBuddyListNamesPacket*)content)->userids->at(i) );
					if(entry) {
						char fofname[128]="Friends of Friends Playing";
						DBVARIANT dbv;
						//gruppennamen überladen
						if(!DBGetContactSetting(NULL,protocolname,"overload_fofgroupname",&dbv))
						{
							strcpy_s(fofname,128,dbv.pszVal);
							DBFreeVariant(&dbv);
						}
						CreateGroup(Translate(fofname),"fofgroup");
						HANDLE hc=handlingBuddys(entry,-1,Translate(fofname));
						if(hc)
						{
							CheckAvatar(entry);
							DBWriteContactSettingByte(hc,protocolname,"friendoffriend",1);
						}
					}
				}
				break;
		  }
		  /*case XFIRE_BUDDYS_ONLINE_ID:
		  {
			    for(uint i = 0 ; i < ((BuddyListOnlinePacket*)content)->userids->size() ; i++) {
					BuddyListEntry *entry = client->getBuddyList()->getBuddyById( ((BuddyListOnlinePacket*)content)->userids->at(i) );
					if(entry){
						handlingBuddys(entry,0,NULL);
					}
				}
				break;
		  }*/
		  /*case XFIRE_RECV_STATUSMESSAGE_PACKET_ID:
		  {
			  for(uint i=0;i<((RecvStatusMessagePacket*)content)->sids->size();i++)
			  {
				  BuddyListEntry *entry = this->client->getBuddyList()->getBuddyBySid( ((RecvStatusMessagePacket*)content)->sids->at(i) );
				  if(entry) //crashbug entfernt
					setBuddyStatusMsg(entry,entry->statusmsg); //auf eine funktion reduziert, verringert cpuauslastung und beseitigt das
															 //das problem der fehlenden statusmsg
				  //handlingBuddys(entry,0,NULL);
			  }
			  break;
		  }*/		  
		  case XFIRE_BUDDYS_GAMES_ID:
		  {
			  vector<char *> *sids=NULL; //dieses array dient zu zwischensicherung von unbekannten sids
			  for(uint i=0;i<((BuddyListGamesPacket*)content)->sids->size();i++)
			  {
				  BuddyListEntry *entry = this->client->getBuddyList()->getBuddyBySid( ((BuddyListGamesPacket*)content)->sids->at(i) );
				  if(entry!=NULL)
				  {
					  //wir haben einen unbekannten user
					  if(entry->username.length()==0)
					  {
						  //sid array ist noch nicht init
						  if(sids==NULL)
						  {
							  sids = new vector<char *>;
						  }
						  //kopie der sid anlegen
						  char *sid = new char[16];
						  memcpy(sid,((BuddyListGamesPacket*)content)->sids->at(i),16);
						  //ab ins array damit
						  sids->push_back(sid);
					  } 
					  else 
					  {
						  if(entry->game==0&&
							 entry->hcontact!=0&&
							 DBGetContactSettingByte(entry->hcontact,protocolname,"friendoffriend",0)==1)
						  {
							  DBWriteContactSettingWord(entry->hcontact,protocolname,"Status",ID_STATUS_OFFLINE);
							  //CallService( MS_DB_CONTACT_DELETE, (WPARAM) entry->hcontact, 0);
						  }
						  else
						  {
							handlingBuddys(entry,0,NULL);
						  }
					  }
				  }
			  }
			  //sid anfragen nur senden, wenn das sids array init wurde
			  if(sids)
			  {
				  SendSidPacket sp;
				  sp.sids=sids;
				  client->send( &sp );
				  delete sids;
			  }
			  break;
		  }
		  case XFIRE_BUDDYS_GAMES2_ID:
		  {
			  for(uint i=0;i<((BuddyListGames2Packet*)content)->sids->size();i++)
			  {
				  BuddyListEntry *entry = this->client->getBuddyList()->getBuddyBySid( ((BuddyListGames2Packet*)content)->sids->at(i) );
				  if(entry!=NULL) handlingBuddys(entry,0,NULL);
			  }
			  break;
		  }
		  case XFIRE_PACKET_INVITE_REQUEST_PACKET: //friend request
		  {
			  InviteRequestPacket *invite = (InviteRequestPacket*)content;

			  //nur nich blockierte buddy's durchlassen
			  if(!DBGetContactSettingByte(NULL,"XFireBlock",(char*)invite->name.c_str(),0))
			  {
				  XFireContact xfire_newc;
				  xfire_newc.username=(char*)invite->name.c_str();
				  xfire_newc.nick=(char*)invite->nick.c_str();
				  xfire_newc.id=0;
				  
				  HANDLE handle=CList_AddContact(xfire_newc,TRUE,TRUE,0);

				  if(handle) {  // invite nachricht mitsenden
	    			  string str;
					  CCSDATA ccs;
					  PROTORECVEVENT pre;

					  str=(char*)invite->msg.c_str();
						
					  time_t t = time(NULL);
					  ccs.szProtoService = PSR_MESSAGE;
					  ccs.hContact = handle;
					  ccs.wParam = 0;
					  ccs.lParam = (LPARAM) & pre;
					  pre.flags = 0;
					  pre.timestamp = t;
					  pre.szMessage = (char*)mir_utf8decode((char*)str.c_str(),NULL);
					  //invite nachricht konnte nicht zugewiesen werden?!?!?!
					  if(!pre.szMessage)
							pre.szMessage=(char*)str.c_str();
					  pre.lParam = 0;
					  CallService(MS_PROTO_CHAINRECV, 0, (LPARAM) &ccs);
				  }
			  }
			  else
			  {
				  	SendDenyInvitationPacket deny;
					deny.name = invite->name;
					client->send( &deny );
			  }
			  break;
		  }
		case XFIRE_CLAN_PACKET:
		{
			char temp[100];
			XFireClanPacket *clan = (XFireClanPacket*)content;	

			for(int i=0;i<clan->count;i++)
			{
				sprintf(temp,"Clan_%d",clan->clanid[i]);
				DBWriteContactSettingTString(NULL, protocolname, temp, (char*)clan->name[i].c_str());

				sprintf(temp,"ClanUrl_%d",clan->clanid[i]);
				DBWriteContactSettingTString(NULL, protocolname, temp, (char*)clan->url[i].c_str());

				if(!DBGetContactSettingByte(NULL,protocolname,"noclangroups",0)) {
					CreateGroup((char*)clan->name[i].c_str(),"mainclangroup");
				}
			}
			break;
		}
		case XFIRE_LOGIN_FAILED_ID:
			MSGBOXE(Translate("Login failed."));
			SetStatus(ID_STATUS_OFFLINE,NULL);
			break;
		case XFIRE_LOGIN_SUCCESS_ID: //login war erfolgreich
		{
			LoginSuccessPacket *login = (LoginSuccessPacket*)content;	
			char * temp = mir_utf8decode((char*)login->nick.c_str(),NULL);
			//nick speichern
			DBWriteContactSettingString(NULL,protocolname,"Nick",temp);
			//uid speichern
			DBWriteContactSettingDword(NULL,protocolname,"myuid",login->myuid);
			this->myuid=login->myuid;
			//avatar auslesen
			GetBuddyInfo* buddyinfo=new GetBuddyInfo();
			buddyinfo->userid=login->myuid;
			mir_forkthread(SetAvatar2,(LPVOID)buddyinfo);
			break;
		}

		case XFIRE_RECV_OLDVERSION_PACKET_ID:
		{
			RecvOldVersionPacket *version = (RecvOldVersionPacket*)content;	
			char temp[255];

			if((unsigned int)client->protocolVersion<(unsigned int)version->newversion)
			{
				DBWriteContactSettingByte(NULL,protocolname,"protover",version->newversion);
				//recprotoverchg
				if(DBGetContactSettingWord(NULL,protocolname,"recprotoverchg",0)==0)
				{
					sprintf_s(temp,255,Translate("The protocol version is too old. Changed current version from %d to %d. You can reconnect now."),client->protocolVersion,version->newversion);
					MSGBOXE(temp);
				}
				else
				{
					SetStatus(ID_STATUS_RECONNECT,NULL);
					return;
				}
			}
			else
			{
				sprintf_s(temp,255,Translate("The protocol version is too old. Cannot detect a new version number."));
				MSGBOXE(temp);
				SetStatus(ID_STATUS_OFFLINE,NULL);
			}
			break;
		}

		case XFIRE_OTHER_LOGIN:
			MSGBOXE(Translate("Someone loged in with your account.disconnect."));
			SetStatus(ID_STATUS_OFFLINE,NULL);
			break;

		//ne nachricht für mich, juhu
		case XFIRE_MESSAGE_ID: {
			string str;
			CCSDATA ccs;
			PROTORECVEVENT pre;

			if( (( MessagePacket*)content)->getMessageType() == 0){
				BuddyListEntry *entry = client->getBuddyList()->getBuddyBySid( ((MessagePacket*)content)->getSid() );
				if(entry!=NULL)
				{
					str=((MessagePacket*)content)->getMessage();
					time_t t = time(NULL);
					ccs.szProtoService = PSR_MESSAGE;
					ccs.hContact = entry->hcontact;
					ccs.wParam = 0;
					ccs.lParam = (LPARAM) & pre;
					pre.flags = 0;
					pre.timestamp = t;
					if(this->useutf8)
					{
						pre.szMessage = (char*)str.c_str();
						pre.flags = PREF_UTF;
					}
					else
						pre.szMessage = (char*)mir_utf8decode((char*)str.c_str(),NULL);
					pre.lParam = 0;

					CallService(MS_PROTO_CONTACTISTYPING,(WPARAM)ccs.hContact,PROTOTYPE_CONTACTTYPING_OFF);
					CallService(MS_PROTO_CHAINRECV, 0, (LPARAM) &ccs);
					
				}
			}
			else if( (( MessagePacket*)content)->getMessageType() == 3) {
				BuddyListEntry *entry = client->getBuddyList()->getBuddyBySid( ((MessagePacket*)content)->getSid() );
				if(entry!=NULL)
				{
					CallService(MS_PROTO_CONTACTISTYPING,(WPARAM)entry->hcontact,5);
				}
			}

			break;
		}

	    //refresh buddy's
	  /*  if(content->getPacketId()==XFIRE_RECV_STATUSMESSAGE_PACKET_ID||
			content->getPacketId()==XFIRE_BUDDYS_GAMES_ID||
			content->getPacketId()==XFIRE_BUDDYS_GAMES2_ID)
        CallService(MS_CLIST_FRAMES_UPDATEFRAME, (WPARAM)-1, (LPARAM)FU_TBREDRAW | FU_FMREDRAW);*/
	  }

	  //
  }

//=====================================================

/*extern "C" __declspec(dllexport) PLUGININFO*  MirandaPluginInfo(DWORD mirandaVersion)
{
	return &pluginInfo;
}*/

extern "C" __declspec(dllexport) PLUGININFOEX* MirandaPluginInfoEx(DWORD mirandaVersion)
{
	if (mirandaVersion < PLUGIN_MAKE_VERSION(0, 8, 0, 0))
	{
		miranda8 = FALSE;
	}
	else
		miranda8 = TRUE;

	return &pluginInfo;
}

static const MUUID interfaces[] = {MIID_PROTOCOL,MIID_LAST};

extern "C" __declspec(dllexport) const MUUID * MirandaPluginInterfaces(void)
{
	return interfaces;
}

//=====================================================
// Unloads plugin
//=====================================================

extern "C" __declspec(dllexport) int  Unload(void)
{
	//urlprefix raushaun
	if(ServiceExists(MS_ASSOCMGR_ADDNEWURLTYPE))
		CallService(MS_ASSOCMGR_REMOVEURLTYPE, 0, (LPARAM)"xfire:");

	//gamedetetion das dead signal geben
	SetEvent(hGameDetection);

#ifndef NO_PTHREAD
	pthread_cancel (gamedetection);
	pthread_win32_process_detach_np ();
#endif

	DeleteCriticalSection(&modeMsgsMutex);
	DeleteCriticalSection(&connectingMutex);
	DeleteCriticalSection(&avatarMutex);

	Gdiplus::GdiplusShutdown(gdiplusToken);

	return 0;
}

void __stdcall XFireLog( const char* fmt, ... )
{
	va_list vararg;
	va_start( vararg, fmt );
	char* str = ( char* )alloca( 32000 );
	mir_vsnprintf( str, 32000, fmt, vararg );
	va_end( vararg );

	CallService( MS_NETLIB_LOG, ( WPARAM )hNetlib, ( LPARAM )str );
}

//=====================================================
// WINAPI DllMain
//=====================================================

BOOL WINAPI DllMain(HINSTANCE hinst,DWORD fdwReason,LPVOID lpvReserved)
{
	hinstance=hinst;
	//AtlAxWinInit();
	return TRUE;
}

//suche nach ini und danach starte gamedetection thread
void StartIniUpdateAndDetection(LPVOID dummy)
{
	EnterCriticalSection(&connectingMutex);

	//ini/ico updater, nur wenn aktiv
	if(DBGetContactSettingByte(NULL,protocolname,"autoiniupdate",0))
		UpdateMyXFireIni(NULL);
	if(DBGetContactSettingByte(NULL,protocolname,"autoicodllupdate",0))
		UpdateMyIcons(NULL);	

#ifndef NO_PTHREAD
	void* (*func)(void*) = &inigamedetectiont;
	pthread_create( &gamedetection, NULL, func , NULL);
#else
	mir_forkthread(inigamedetectiont,NULL);
#endif

	LeaveCriticalSection(&connectingMutex);
}

int UrlCall(WPARAM wparam,LPARAM lparam) {
	//lparam!=0?
	if(lparam) {
		//nach dem doppelpunkt suchen
		char*type=strchr((char*)lparam,':');
		//gefunden, dann anch fragezeichen suchen
		if(type)
		{
			type++;
			char*q=strchr(type,'?');
			//gefunden? dann urltype ausschneiden
			if(q)
			{
				//abschneiden
				*q=0;
				//ein addfriend url request?
				if(strcmp("add_friend",type)==0)
				{
					q++;
					//nach = suchen
					char*g=strchr(q,'=');
					//gefunden? dann abschneiden
					if(g) 
					{
						*g=0;
						g++;
						//user parameter?
						if(strcmp("user",q)==0)
						{
							//tempbuffer für die frage and en user
							char temp[100];

							if(strlen(g)>25) //zugroße abschneiden
								*(g+25)=0;

							sprintf_s(temp,100,Translate("Do you really want to add %s to your friend list?"),g);
							//Nutzer vorher fragen, ob er wirklich user xyz adden möchte
							if(MessageBoxA(NULL,temp,"Miranda XFire Protocol Plugin",MB_YESNO|MB_ICONQUESTION)==IDYES)
							{
								if(myClient!=NULL)
								{
									if(myClient->client->connected)
									{
										InviteBuddyPacket invite;
										invite.addInviteName(g, Translate("Add me to your friends list."));
										myClient->client->send(&invite);
									}
									else
										MSGBOXE(Translate("XFire is not connected."));
								}
								else
									MSGBOXE(Translate("XFire is not connected."));
							}
						}
					}
				}
			}
		}

	}
	return 0;
}

//wenn alle module geladen sind
static int OnSystemModulesLoaded(WPARAM wParam,LPARAM lParam)
{
	char servicefunction[100];

	/*NETLIB***********************************/
	NETLIBUSER nlu;
	ZeroMemory(&nlu, sizeof(nlu));
    nlu.cbSize = sizeof(nlu);
    nlu.flags = NUF_OUTGOING | NUF_HTTPCONNS;
    nlu.szSettingsModule = protocolname;
    nlu.szDescriptiveName = "XFire server connection";
    hNetlib = (HANDLE) CallService(MS_NETLIB_REGISTERUSER, 0, (LPARAM) & nlu);
	/*NETLIB***********************************/

	HookEvent(ME_USERINFO_INITIALISE, OnDetailsInit);
	HookEvent(ME_DB_CONTACT_DELETED, ContactDeleted);

	//hook das queryplugin
	HookEvent("GameServerQuery/doneQuery" , doneQuery);

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_SETAWAYMSG);
	CreateServiceFunction(servicefunction, SetAwayMsg);

	CallService(MS_UPDATE_REGISTERFL, 3701, (WPARAM)&pluginInfo);

	/*NETLIBUSER nlu;
	ZeroMemory(&nlu, sizeof(nlu));
    nlu.cbSize = sizeof(nlu);
    nlu.flags = NUF_NOHTTPSOPTION;
    nlu.szSettingsModule = protocolname;
    nlu.szDescriptiveName = "XFire Gamedetectionthread";
    hNetlibUser = (HANDLE) CallService(MS_NETLIB_REGISTERUSER, 0, (LPARAM) & nlu);*/


	// Variables support
	if (ServiceExists(MS_VARS_REGISTERTOKEN))
	{
		TOKENREGISTER tr = {0};
		tr.cbSize = sizeof(TOKENREGISTER);
		tr.memType = TR_MEM_MIRANDA;
		tr.flags = TRF_FREEMEM | TRF_PARSEFUNC | TRF_FIELD;

		tr.tszTokenString = _T("xfiregame");
		tr.parseFunction = Varxfiregame;
		tr.szHelpText = "XFire\tCurrent Game";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("myxfiregame");
		tr.parseFunction = Varmyxfiregame;
		tr.szHelpText = "XFire\tMy Current Game";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("xfireserverip");
		tr.parseFunction = Varxfireserverip;
		tr.szHelpText = "XFire\tServerIP";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("myxfireserverip");
		tr.parseFunction = Varmyxfireserverip;
		tr.szHelpText = "XFire\tMy Current ServerIP";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("xfirevoice");
		tr.parseFunction = Varxfirevoice;
		tr.szHelpText = "XFire\tVoice";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("myxfirevoice");
		tr.parseFunction = Varmyxfirevoice;
		tr.szHelpText = "XFire\tMy Current Voice";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("xfirevoiceip");
		tr.parseFunction = Varxfirevoiceip;
		tr.szHelpText = "XFire\tVoice ServerIP";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

		tr.tszTokenString = _T("myxfirevoiceip");
		tr.parseFunction = Varmyxfirevoiceip;
		tr.szHelpText = "XFire\tMy Voice ServerIP";
		CallService(MS_VARS_REGISTERTOKEN, 0, (LPARAM) &tr);

	}

	//File Association Manager support
	if(ServiceExists(MS_ASSOCMGR_ADDNEWURLTYPE))
	{
		AssocMgr_AddNewUrlType("xfire:",Translate("Xfire Link Protocol"),hinstance,IDI_TM,XFIRE_URLCALL,0);
	}

	//sound einfügen
	SkinAddNewSoundEx(Translate("xfirebstartgame"),protocolname,Translate("Buddy start a game"));

	//hook für mbot einfügen, nur wenn mbot option aktiv
	if(DBGetContactSettingByte(NULL,protocolname,"mbotsupport",0))
		HookEvent(XFIRE_INGAMESTATUSHOOK, mBotNotify);

	//init der extraicons wenn service vorhanden
	/*if(ServiceExists(MS_EXTRAICON_REGISTER))
	{
		extraiconGAME=ExtraIcon_Register("Game Icon","Xfire game icons.","XFIRE_main",RebuildIcons,ApplyIcons);
		extraiconGAME=ExtraIcon_Register("Voice Icon","Xfire voice icons.","XFIRE_main");
	}*/

	//initialisiere teamspeak und co detection
	voicechat.initVoicechat();

	mir_forkthread(StartIniUpdateAndDetection,NULL);

	return 0;
}

//=====================================================
// Called when plugin is loaded into Miranda
//=====================================================

/*placebo funktionen*/
/*PROTO_INTERFACE* xfireProtoInit( const char* pszProtoName, const TCHAR* tszUserName )
{
	Xfire_m8 m8=new Xfire_m8();
	return m8;
}
/*placebo funktionen*/
/*static int xfireProtoUninit( void* ppro )
{
	return 0;
}

*/

int ExtraListRebuild(WPARAM wparam, LPARAM lparam)
{
	//für alle gameicons ein neues handle setzen
	return xgamelist.iconmngr.resetIconHandles();
}

int ExtraImageApply(WPARAM wparam, LPARAM lparam) 
{
	HANDLE hContact=(HANDLE)wparam;
	if(ServiceExists(MS_CLIST_EXTRA_SET_ICON))
	{
		char *szProto;
		szProto = ( char* ) CallService( MS_PROTO_GETCONTACTBASEPROTO, (WPARAM) hContact, 0);
		if ( szProto != NULL && !lstrcmpiA( szProto, protocolname ) && DBGetContactSettingWord(hContact, protocolname, "Status", ID_STATUS_OFFLINE)!=ID_STATUS_OFFLINE) {
			int gameid=DBGetContactSettingWord(hContact, protocolname, "GameId", 0);
			int gameid2=DBGetContactSettingWord(hContact, protocolname, "VoiceId", 0);

			if(gameid!=0)
			{
				SetIcon(hContact,xgamelist.iconmngr.getGameIconHandle(gameid));
			}
			if(gameid2!=0)
			{
				SetIcon(hContact,xgamelist.iconmngr.getGameIconHandle(gameid2),EXTRA_ICON_ADV2);
			}
		}
	}
	return 0;
}



extern "C" __declspec(dllexport) int  Load(PLUGINLINK *link)
{
	pluginLink=link;

	InitializeCriticalSection(&modeMsgsMutex);
	InitializeCriticalSection(&connectingMutex);
	InitializeCriticalSection(&avatarMutex);

	Gdiplus::GdiplusStartup(&gdiplusToken, &gdiplusStartupInput, NULL);

	//void* init = GetProcAddress(LoadLibrary("atl"),"AtlAxWinInit"); _asm call init;

	//keine protoversion in der db, dann wohl der erste start von xfire
	if(DBGetContactSettingByte(NULL,protocolname,"protover",0)==0)
	{
		DBWriteContactSettingByte(NULL,protocolname,"protover",0x84);
		DBWriteContactSettingWord(NULL,protocolname,"avatarloadlatency",1000);
		DBWriteContactSettingByte(NULL,protocolname,"gameico",0);
		DBWriteContactSettingByte(NULL,protocolname,"voiceico",1);
		DBWriteContactSettingByte(NULL,protocolname,"specialavatarload",1);
		DBWriteContactSettingByte(NULL,protocolname,"xfiresitegameico",1);
		DBWriteContactSettingByte(NULL,protocolname,"recprotoverchg",1);

		if(MessageBoxA(NULL,Translate("It seems that is the first time you use this plugin. Do you want to automatically download the latest available xfire_games.ini und icons.dll?\r\nWithout the ini xfire cant detect any games on your computer."),"Miranda XFire Protocol Plugin",MB_YESNO|MB_ICONQUESTION)==IDYES)
		{
			DBWriteContactSettingByte(NULL,protocolname,"autoiniupdate",1);
			DBWriteContactSettingByte(NULL,protocolname,"autoicodllupdate",1);
		}
	}


	XDEBUGS("-----------------------------------------------------\n");

	//statusmessages setzen
	strcpy(statusmessage[0],"");
	strcpy(statusmessage[1],"(AFK) Away from Keyboard");

	PROTOCOLDESCRIPTOR pd;
	char servicefunction[100];

	HookEvent(ME_OPT_INITIALISE, OptInit);
	HookEvent(ME_SYSTEM_MODULESLOADED, OnSystemModulesLoaded);

	ZeroMemory(&pd,sizeof(pd));
	pd.cbSize=sizeof(pd);
	pd.szName=protocolname;
	pd.type=PROTOTYPE_PROTOCOL;
	CallService(MS_PROTO_REGISTERMODULE,0,(LPARAM)&pd);
	hLogEvent=CreateHookableEvent("XFireProtocol/Log");

	mir_getMMI( &mmi );
	mir_getUTFI( &utfi );

	CList_MakeAllOffline();

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_GETCAPS);
	CreateServiceFunction(servicefunction, GetCaps);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_GETNAME);
	CreateServiceFunction(servicefunction, GetName);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_LOADICON);
	CreateServiceFunction(servicefunction, TMLoadIcon);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_SETSTATUS);
	CreateServiceFunction(servicefunction, SetStatus);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_GETSTATUS);
	CreateServiceFunction(servicefunction, GetStatus);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PSS_ADDED);
	CreateServiceFunction(servicefunction, AddtoList);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_ADDTOLIST);
	CreateServiceFunction(servicefunction, SearchAddtoList);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_GETAVATARINFO);
	CreateServiceFunction(servicefunction, GetAvatarInfo);
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_GETMYAVATAR);
	CreateServiceFunction(servicefunction, GetMyAvatar);
	
	//nur bei miranda8 den iconrefresh machen
	if(miranda8) {
		HookEvent(ME_CLIST_EXTRA_IMAGE_APPLY, ExtraImageApply);
		HookEvent(ME_CLIST_EXTRA_LIST_REBUILD, ExtraListRebuild);
	}

	//erstell eine hook für andere plugins damit diese nachprüfen können, ab wann jemand ingame ist oer nicht
	hookgamestart = CreateHookableEvent(XFIRE_INGAMESTATUSHOOK);


	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PS_BASICSEARCH);
	CreateServiceFunction(servicefunction, BasicSearch);

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PSS_MESSAGE);
	CreateServiceFunction( servicefunction,	SendMessage );

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PSS_USERISTYPING);
	CreateServiceFunction( servicefunction,	UserIsTyping );

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PSR_MESSAGE);
	CreateServiceFunction( servicefunction,	RecvMessage );
	
	strcpy(servicefunction, XFIRE_URLCALL);
	CreateServiceFunction( servicefunction,	UrlCall );

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, PSS_GETAWAYMSG);
	CreateServiceFunction( servicefunction,	GetAwayMsg );

	strcpy(servicefunction, XFIRE_SET_NICK);
	CreateServiceFunction( servicefunction,	SetNickName );

	strcpy(servicefunction, XFIRE_SEND_PREFS);
	CreateServiceFunction( servicefunction,	SendPrefs );


	//für mtipper, damit man das statusico übertragen kann
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "/GetXStatusIcon");
	CreateServiceFunction( servicefunction,	GetXStatusIcon );

	char AvatarsFolder[MAX_PATH]= "";
	CallService(MS_DB_GETPROFILEPATH, (WPARAM) MAX_PATH, (LPARAM)AvatarsFolder);
	strcat(AvatarsFolder, "\\");
	strcat(AvatarsFolder, "XFire");
	XFireWorkingFolder = FoldersRegisterCustomPath(protocolname, "Working Folder", AvatarsFolder);
	XFireIconFolder = FoldersRegisterCustomPath(protocolname, "Game Icon Folder", AvatarsFolder);
	strcat(AvatarsFolder, "\\Avatars");
	XFireAvatarFolder = FoldersRegisterCustomPath(protocolname, "Avatars", AvatarsFolder);

	//kein folders plugin, verzeichnisse anlegen
	if (!ServiceExists(MS_FOLDERS_REGISTER_PATH)) {
		CreateDirectory("XFire",NULL);
		CreateDirectory("XFire\\Avatars",NULL);
	}

	//erweiterte Kontextmenüpunkte
	CLISTMENUITEM mi = { 0 };
	memset(&mi,0,sizeof(CLISTMENUITEM));
	mi.cbSize = sizeof( mi );
	mi.pszPopupName = protocolname;

	//gotoprofilemenüpunkt
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "GotoProfile");
	CreateServiceFunction(servicefunction,GotoProfile);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.pszContactOwner=protocolname;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszName = LPGEN("&XFire Online Profile");
	CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//gotoxfireclansitemenüpunkt
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "GotoXFireClanSite");
	CreateServiceFunction(servicefunction,GotoXFireClanSite);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.pszContactOwner=protocolname;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszName = LPGEN("XFire &Clan Site");
	gotoclansite=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//kopiermenüpunkt
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "GetIPPort");
	CreateServiceFunction(servicefunction,GetIPPort);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("C&opy Server Address and Port");
	copyipport=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//kopiermenüpunkt
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "VoiceIPPort");
	CreateServiceFunction(servicefunction,GetVIPPort);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("Cop&y Voice Server Address and Port");
	vipport=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//joinmenüpunkt
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "JoinGame");
	CreateServiceFunction(servicefunction,JoinGame);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("Join &Game ...");
	joingame=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//joinmenüpunkt
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "StartThisGame");
	CreateServiceFunction(servicefunction,StartThisGame);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("Play this Game ...");
	startthisgame=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//remove friend
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "RemoveFriend");
	CreateServiceFunction(servicefunction,RemoveFriend);
	mi.pszService = servicefunction;
	mi.position = 2000070000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("Remove F&riend ...");
	removefriend=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//block user 
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "BlockFriend");
	CreateServiceFunction(servicefunction,BlockFriend);
	mi.pszService = servicefunction;
	mi.position = 2000070000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("Block U&ser ...");
	blockfriend=(HANDLE)CallService( MS_CLIST_ADDCONTACTMENUITEM, 0, (LPARAM)&mi );

	//my fire profile
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "GotoProfile2");
	CreateServiceFunction(servicefunction,GotoProfile2);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("&My XFire Online Profile");
	CallService( MS_CLIST_ADDMAINMENUITEM, 0, (LPARAM)&mi );

	//my activity protocol
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "GotoProfileAct");
	CreateServiceFunction(servicefunction,GotoProfileAct);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("&Activity Report");
	CallService( MS_CLIST_ADDMAINMENUITEM, 0, (LPARAM)&mi );

	//rescan my games
	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "ReScanMyGames");
	CreateServiceFunction(servicefunction,ReScanMyGames);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("&Rescan my Games ...");
	CallService( MS_CLIST_ADDMAINMENUITEM, 0, (LPARAM)&mi );

	strcpy(servicefunction, protocolname);
	strcat(servicefunction, "SetNick");
	CreateServiceFunction(servicefunction,SetNickDlg);
	mi.pszService = servicefunction;
	mi.position = 500090000;
	mi.hIcon = LoadIcon(hinstance,MAKEINTRESOURCE(ID_OP));
	mi.pszContactOwner=protocolname;
	mi.pszName = LPGEN("Set &Nickname");
	CallService( MS_CLIST_ADDMAINMENUITEM, 0, (LPARAM)&mi );

	HookEvent( ME_CLIST_PREBUILDCONTACTMENU, RebuildContactMenu );

	EXTRA_ICON_ADV1=icoslot[DBGetContactSettingByte(NULL,protocolname,"gameico",-1)];
	EXTRA_ICON_ADV2=icoslot[DBGetContactSettingByte(NULL,protocolname,"voiceico",-1)];

	//lade GetExtendedUdpTable Funktion
	HMODULE hmod=LoadLibraryA("IpHlpApi.dll");
	_GetExtendedUdpTable=(pGetExtendedUdpTable)GetProcAddress(hmod,"GetExtendedUdpTable");
	if(_GetExtendedUdpTable==NULL&&DBGetContactSettingByte(NULL,protocolname,"ipportdetec",0))
	{
		//MessageBoxA(0,"GetExtendedUdpTable not found. ServerIP/Port detection feature will be disabled.","Miranda XFire Protocol Plugin",MB_OK|MB_ICONINFORMATION);
		DBWriteContactSettingByte(NULL,protocolname,"ipportdetec",0);
		XFireLog("Wasn't able to get GetExtendedUdpTable function");
	}

	if(ServiceExists(MS_SKIN2_GETICON))
	{
		char szFile[MAX_PATH];
		GetModuleFileNameA(hinstance, szFile, MAX_PATH);

		SKINICONDESC sid = {0};
		sid.cbSize = sizeof(SKINICONDESC);
		sid.pszDefaultFile = szFile;
		sid.cx = sid.cy = 16;
		sid.pszSection = (char*)LPGEN( "Protocols/XFire" );
		sid.pszName = "XFIRE_main";
		sid.pszDescription = (char*)Translate("Protocol icon");
		sid.iDefaultIndex = -IDI_TM;
		CallService(MS_SKIN2_ADDICON, 0, (LPARAM)&sid);
	}

	return 0;
}

//funktion liefert für xstatusid den passenden ico zurück, für tipper zb notwendig
int GetXStatusIcon(WPARAM wParam, LPARAM lParam) {
	if(lParam == LR_SHARED)
	{
		if(wParam>1)
			return (int)xgamelist.iconmngr.getGameIconFromId(wParam-2); //icocache[(int)wParam-2].hicon;
	}
	else
	{
		if(wParam>1)
			return (int)CopyIcon((HICON)xgamelist.iconmngr.getGameIconFromId(wParam-2)/*icocache[(int)wParam-2].hicon*/);
	}

	return 0;
}

int RecvMessage(WPARAM wParam, LPARAM lParam)
{
	CCSDATA *ccs = ( CCSDATA* )lParam;
    DBDeleteContactSetting(ccs->hContact, "CList", "Hidden");

	char *szProto;
	szProto = ( char* ) CallService( MS_PROTO_GETCONTACTBASEPROTO, (WPARAM) ccs->hContact, 0);
	if ( szProto != NULL && !lstrcmpiA( szProto, protocolname ))
		return CallService( MS_PROTO_RECVMSG, wParam, lParam );

	return 1;
}

static void SetMeAFK( LPVOID param )
{
	if(bpStatus==ID_STATUS_ONLINE)
	{
		SetStatus(ID_STATUS_AWAY,(LPARAM)param);
	}
}

static void SetStatusLate( LPVOID param )
{
	Sleep(1000);
	if(bpStatus==ID_STATUS_OFFLINE)
	{
		SetStatus((WPARAM)param,(LPARAM)NULL);
	}
}

static void SendAck( LPVOID param )
{
	ProtoBroadcastAck(protocolname, param, ACKTYPE_MESSAGE, ACKRESULT_SUCCESS, (HANDLE) 1, 0);
}

static void SendBadAck( LPVOID param )
{
	ProtoBroadcastAck(protocolname, param, ACKTYPE_MESSAGE, ACKRESULT_FAILED, (HANDLE) 0, LPARAM(Translate("XFire does not support offline messaging!")));
}

static int UserIsTyping(WPARAM wParam, LPARAM lParam)
{
	HANDLE hContact = ( HANDLE )wParam;
    DBVARIANT dbv;

	if(lParam==PROTOTYPE_SELFTYPING_ON)
	{
		if(DBGetContactSettingByte(NULL,protocolname,"sendtyping",1)==1)
		{
			if(myClient!=NULL)
				if(myClient->client->connected)
					if(!DBGetContactSettingTString(hContact, protocolname, "Username",&dbv))
					{		
						SendTypingPacket typing;
						typing.init(myClient->client, dbv.pszVal);
						myClient->client->send( &typing ); 
						DBFreeVariant(&dbv);
					}
		}
	}
	else if(lParam==PROTOTYPE_SELFTYPING_OFF)
	{
	}

	return 0;
}

int SendMessage(WPARAM wParam, LPARAM lParam)
{
    CCSDATA *ccs = (CCSDATA *) lParam;
	PROTORECVEVENT* pre = (PROTORECVEVENT*)ccs->lParam;
	ACKDATA * ack = (ACKDATA*) lParam;
    DBVARIANT dbv;
	int sended=0;

	DBGetContactSettingTString(ccs->hContact, protocolname, "Username",&dbv);
	if(myClient!=NULL)
		if(myClient->client->connected&&DBGetContactSettingWord(ccs->hContact, protocolname, "Status", -1)!=ID_STATUS_OFFLINE)
		{
			/*if(myClient->useutf8)
				myClient->sendmsg(dbv.pszVal, ( char* )ccs->lParam);
			else*/
				myClient->sendmsg(dbv.pszVal, mir_utf8encode(( char* )ccs->lParam));

			mir_forkthread(SendAck,ccs->hContact);
			sended=1;
		}
		else
		{
			mir_forkthread(SendBadAck,ccs->hContact);
		}
	DBFreeVariant(&dbv);

    return sended;
}

//=======================================================
//GetCaps
//=======================================================

int GetCaps(WPARAM wParam,LPARAM lParam)
{
	if(wParam==PFLAGNUM_1)
		return PF1_BASICSEARCH|PF1_MODEMSG|PF1_IM;
	else if(wParam==PFLAGNUM_2)
		return PF2_ONLINE|PF2_SHORTAWAY; // add the possible statuses here.
	else if(wParam==PFLAGNUM_3)
		return PF2_ONLINE|(DBGetContactSettingByte(NULL,protocolname,"nocustomaway",0)==1?0:PF2_SHORTAWAY);
	else if(wParam==PFLAGNUM_4)
		return PF4_SUPPORTTYPING|PF4_AVATARS;
	else if(wParam==PFLAG_UNIQUEIDTEXT)
		return (int) Translate("Username");
	else if(wParam==PFLAG_UNIQUEIDSETTING)
		return (int)"Username";
	else if(wParam==PFLAG_MAXLENOFMESSAGE)
		return 3996; //255;
	return 0;
}

//=======================================================
//GetName (tray icon)
//=======================================================
int GetName(WPARAM wParam,LPARAM lParam)
{
	lstrcpyn((char*)lParam,"XFire",wParam);
	return 0;
}

//=======================================================
//TMLoadIcon
//=======================================================
int TMLoadIcon(WPARAM wParam,LPARAM lParam)
{
	if(LOWORD( wParam ) == PLI_PROTOCOL) {
		if(ServiceExists(MS_SKIN2_GETICON))
		{
			if(wParam & PLIF_ICOLIB)
				return CallService( MS_SKIN2_GETICON, 0, (LPARAM)"XFIRE_main" );
			else
				return (int)CopyIcon((HICON)CallService( MS_SKIN2_GETICON, 0, (LPARAM)"XFIRE_main" ));
		}
		else
		{
			return (int)LoadImage(hinstance, MAKEINTRESOURCE(IDI_TM), IMAGE_ICON, GetSystemMetrics(wParam&PLIF_SMALL?SM_CXSMICON:SM_CXICON), GetSystemMetrics(wParam&PLIF_SMALL?SM_CYSMICON:SM_CYICON), 0);
		}
	}
	return NULL;
}


static void ConnectingThread(LPVOID params)
{
	WPARAM wParam=(WPARAM)params;

	EnterCriticalSection(&connectingMutex);

	if(myClient!=NULL&&myClient->client!=NULL)
		myClient->run();
	else
	{
		EnterCriticalSection(&connectingMutex);
		return;
	}

	if(myClient->client->connected)
	{
		sendonrecieve=TRUE;
	}
	else
	{
		if(DBGetContactSettingWord(NULL,protocolname,"noconnectfailedbox",0)==0) MSGBOXE(Translate("Unable to connect to XFire."));
		wParam =ID_STATUS_OFFLINE;
	}

	int oldStatus;
	oldStatus = bpStatus;
	bpStatus = wParam;

	ProtoBroadcastAck(protocolname,NULL,ACKTYPE_STATUS,ACKRESULT_SUCCESS,(HANDLE)oldStatus,wParam);	

	LeaveCriticalSection(&connectingMutex);
}

//=======================================================
//SetStatus
//=======================================================
int SetStatus(WPARAM wParam,LPARAM lParam)
{
	int oldStatus;

	oldStatus = bpStatus;

	if(bpStatus==ID_STATUS_CONNECTING)
		return 0;

	if(wParam!=ID_STATUS_ONLINE&&wParam!=ID_STATUS_OFFLINE&&wParam!=ID_STATUS_AWAY&&wParam!=ID_STATUS_RECONNECT)
		if(DBGetContactSettingByte(NULL,protocolname,"oninsteadafk",0)==0)
			wParam=ID_STATUS_AWAY; //protokoll auf away schalten
		else
			wParam=ID_STATUS_ONLINE; //protokoll auf online schalten

	if (
		(wParam == ID_STATUS_ONLINE && bpStatus!=ID_STATUS_ONLINE) || // offline --> online
		(wParam == ID_STATUS_AWAY && bpStatus==ID_STATUS_OFFLINE) // offline --> away
		)
	{
		if(bpStatus == ID_STATUS_AWAY) // away --> online
		{
			myClient->Status(statusmessage[0]);
		}
		else
		{
			// the status has been changed to online (maybe run some more code)
			DBVARIANT dbv;
			DBVARIANT dbv2;

			if(DBGetContactSetting(NULL,protocolname,"login",&dbv))
			{
				MSGBOXE(Translate("No Loginname is set!"));
				wParam=ID_STATUS_OFFLINE;
			}
			else if(DBGetContactSetting(NULL,protocolname,"password",&dbv2))
			{
				MSGBOXE(Translate("No Password is set!"));
				wParam=ID_STATUS_OFFLINE;
			}
			else
			{
				CallService(MS_DB_CRYPT_DECODESTRING,strlen(dbv2.pszVal)+1,(LPARAM)dbv2.pszVal);
				
				if(myClient!=NULL)
					delete myClient;

				//alter proxycode, entfernt da über netlib die proxysache geregelt wird
				/* if(DBGetContactSettingByte(NULL, protocolname, "useproxy" ,0))
				{
					//verbindung über proxy
					DBVARIANT dbv3;
					DBVARIANT dbv4;
					if(!DBGetContactSetting(NULL,protocolname,"proxyip",&dbv3))
					{
						if(!DBGetContactSetting(NULL,protocolname,"proxyport",&dbv4))
						{
							myClient = new XFireClient(dbv.pszVal,dbv2.pszVal,DBGetContactSettingByte(NULL,protocolname,"protover",0),1,dbv3.pszVal,atoi(dbv4.pszVal));
							DBFreeVariant(&dbv4);
						}
						DBFreeVariant(&dbv3);
					}
				}
				else */
					myClient = new XFireClient(dbv.pszVal,dbv2.pszVal,DBGetContactSettingByte(NULL,protocolname,"protover",0));

				//prüfe ob utf8 option aktiv, dann schlater auf true
				if(DBGetContactSettingByte(NULL,protocolname,"useutf8",0))
				{
					myClient->useutf8=TRUE;
				}


				//verbindung als thread
				bpStatus = ID_STATUS_CONNECTING;
				ProtoBroadcastAck(protocolname,NULL,ACKTYPE_STATUS,ACKRESULT_SUCCESS,(HANDLE)oldStatus,ID_STATUS_CONNECTING);

				mir_forkthread(ConnectingThread,(LPVOID)wParam);
				//alte verb
				/*
				myClient->run();

				if(myClient->client->connected)
				{
					sendonrecieve=TRUE;
				}
				else
				{
					MSGBOXE(Translate("Unable to connect to XFire."));
					wParam =ID_STATUS_OFFLINE;
				}
				*/
				//für die vars
				DBDeleteContactSetting(NULL,protocolname,"currentgamename");
				DBDeleteContactSetting(NULL,protocolname,"currentvoicename");
				DBDeleteContactSetting(NULL,protocolname,"VServerIP");
				DBDeleteContactSetting(NULL,protocolname,"ServerIP");

				DBFreeVariant(&dbv);
				DBFreeVariant(&dbv2);
				return 0;
			}
		}
	}
	else if (wParam == ID_STATUS_AWAY && bpStatus!=ID_STATUS_AWAY)
	{
		if(bpStatus == ID_STATUS_OFFLINE) // nix
		{
		} 
		else if(myClient!=NULL&&myClient->client->connected) // online --> afk
		{
			//setze bei aktivem nocustomaway die alte awaystatusmsg zurück, bugfix
			if(DBGetContactSettingByte(NULL,protocolname,"nocustomaway",0))
				strcpy_s(statusmessage[1],1024,"(AFK) Away from Keyboard");

			myClient->Status(statusmessage[1]);
		}
	}
	else if ((wParam == ID_STATUS_OFFLINE || wParam == ID_STATUS_RECONNECT) && bpStatus!=ID_STATUS_OFFLINE) // * --> offline
	{
		SetEvent(hConnectionClose);

		// the status has been changed to offline (maybe run some more code)
		if(myClient!=NULL)
			if(myClient->client->connected)
				myClient->client->disconnect();
		CList_MakeAllOffline();

		//teamspeak/ventrilo pid sowie gamepid auf NULL setzen, damit bei einem reconnect die neuerkannt werden
		pid=NULL;
		ts2pid=NULL; 
		DBWriteContactSettingWord(NULL,protocolname,"currentgame",0);
		DBWriteContactSettingWord(NULL,protocolname,"currentvoice",0);
		DBDeleteContactSetting(NULL,protocolname, "VServerIP");
		DBDeleteContactSetting(NULL,protocolname, "ServerIP");

		if(wParam == ID_STATUS_RECONNECT)
		{
			mir_forkthread(SetStatusLate,(LPVOID)oldStatus);
			wParam = ID_STATUS_OFFLINE;
		}
	}
	else
	{
		// the status has been changed to unknown  (maybe run some more code)
	}
	//broadcast the message
	bpStatus = wParam;
	ProtoBroadcastAck(protocolname,NULL,ACKTYPE_STATUS,ACKRESULT_SUCCESS,(HANDLE)oldStatus,wParam);

	
	return 0;
}

//=======================================================
//GetStatus
//=======================================================
int GetStatus(WPARAM wParam,LPARAM lParam)
{
	if (bpStatus == ID_STATUS_ONLINE)
		return ID_STATUS_ONLINE;
	else if (bpStatus == ID_STATUS_AWAY)
		return ID_STATUS_AWAY;
	else if (bpStatus == ID_STATUS_CONNECTING)
		return ID_STATUS_CONNECTING;
	else
		return ID_STATUS_OFFLINE;
}

HANDLE CList_AddContact(XFireContact xfc, bool InList, bool SetOnline,int clan)
{
	HANDLE hContact; 

	if (xfc.username == NULL)
		return 0;
	
	// here we create a new one since no one is to be found
	hContact = (HANDLE) CallService( MS_DB_CONTACT_ADD, 0, 0);
	if ( hContact ) {
		CallService( MS_PROTO_ADDTOCONTACT, (WPARAM) hContact, (LPARAM)protocolname );

		if ( InList )
			DBDeleteContactSetting(hContact, "CList", "NotOnList");
		else
			DBWriteContactSettingByte(hContact, "CList", "NotOnList", 1);
		DBDeleteContactSetting(hContact, "CList", "Hidden");

		if(strlen(xfc.nick)>0)
		{
			if(myClient->useutf8)
				DBWriteContactSettingUTF8String(hContact, protocolname, "Nick", xfc.nick);
			else
				DBWriteContactSettingTString(hContact, protocolname, "Nick", mir_utf8decode(( char* )xfc.nick,NULL));
		}
		else if(strlen(xfc.username)>0)
			DBWriteContactSettingTString(hContact, protocolname, "Nick", xfc.username);

		DBWriteContactSettingTString(hContact, protocolname, "Username", xfc.username);
		
		//DBWriteContactSettingTString(hContact, protocolname, "Screenname", xfc.nick);
		DBWriteContactSettingDword(hContact, protocolname, "UserId", xfc.id);

		if(clan>0)
			DBWriteContactSettingDword(hContact, protocolname, "Clan", clan);
		
		DBWriteContactSettingWord(hContact, protocolname, "Status", SetOnline ? ID_STATUS_ONLINE:ID_STATUS_OFFLINE);

		if(DBGetContactSettingByte(NULL,protocolname,"noavatars",-1)==0)
		{
			if(!DBGetContactSettingByte(NULL,protocolname,"specialavatarload",0))
			{
				XFire_SetAvatar* xsa=new XFire_SetAvatar;
				xsa->hContact=hContact;
				xsa->username=new char[strlen(xfc.username)+1];
				strcpy(xsa->username,xfc.username);
				mir_forkthread(SetAvatar,(LPVOID)xsa);
			}
			else
			{
				/* 
				   scheinbar unterpricht xfire bei zu agressiven nachfragen der buddyinfos die verbindung , deshalb erstmal auskommentiert 
				   getestet mit clanbuddy's >270 members

				   mit hilfe der buddyinfos kann man den avatar laden und screenshot infos etc bekommt man auch
				*/
				GetBuddyInfo* buddyinfo=new GetBuddyInfo();
				buddyinfo->userid=xfc.id;
				mir_forkthread(SetAvatar2,(LPVOID)buddyinfo);
			}


		}

		if (xfc.id==0) {
			DBWriteContactSettingByte( hContact, "CList", "NotOnList", 1 );
			DBWriteContactSettingByte( hContact, "CList", "Hidden", 1 );
		}	

		return hContact;
	}
	return false;
}

BOOL IsXFireContact(HANDLE hContact)
{
	char *szProto;
	szProto = ( char* ) CallService( MS_PROTO_GETCONTACTBASEPROTO, (WPARAM) hContact, 0);
	if ( szProto != NULL && !lstrcmpiA( szProto, protocolname )) {
		return TRUE;
	}
	else
		return FALSE;
}

HANDLE CList_FindContact (int uid)
{
	char *szProto;

	HANDLE hContact = (HANDLE) CallService( MS_DB_CONTACT_FINDFIRST, 0, 0);
	while (hContact) {
		szProto = ( char* ) CallService( MS_PROTO_GETCONTACTBASEPROTO, (WPARAM) hContact, 0);
		if ( szProto != NULL && !lstrcmpiA( szProto, protocolname )) {
				if ( DBGetContactSettingDword(hContact, protocolname, "UserId",-1)==uid)
				{
					return (HANDLE)hContact;
				}
		}		
		hContact = (HANDLE) CallService( MS_DB_CONTACT_FINDNEXT, (WPARAM) hContact, 0);
	}
	return 0;
}

void CList_MakeAllOffline()
{
	vector<HANDLE> fhandles;
	char *szProto;
	HANDLE hContact = (HANDLE) CallService( MS_DB_CONTACT_FINDFIRST, 0, 0);
	while (hContact) {
		szProto = ( char* ) CallService( MS_PROTO_GETCONTACTBASEPROTO, (WPARAM) hContact, 0);
		if ( szProto != NULL && !lstrcmpiA( szProto, protocolname )) {
			//freunde von freunden in eine seperate liste setzen
			//nur wenn das nicht abgestellt wurde
			if(DBGetContactSettingByte(hContact,protocolname,"friendoffriend",0)==1&&
				DBGetContactSettingByte(NULL,protocolname,"fofdbremove",0)==1)
			{
				fhandles.push_back(hContact);
			}

			//DBDeleteContactSetting(hContact, protocolname, "XStatusMsg");
			//DBDeleteContactSetting(hContact, protocolname, "XStatusId");
			//DBDeleteContactSetting(hContact, protocolname, "XStatusName");
			//DBDeleteContactSetting(hContact, "CList", "StatusMsg");
			DBDeleteContactSetting(hContact, protocolname, "ServerIP");
			DBDeleteContactSetting(hContact, protocolname, "Port");
			DBDeleteContactSetting(hContact, protocolname, "ServerName");
			DBDeleteContactSetting(hContact, protocolname, "GameType");
			DBDeleteContactSetting(hContact, protocolname, "Map");
			DBDeleteContactSetting(hContact, protocolname, "Players");
			DBDeleteContactSetting(hContact, protocolname, "Passworded");

			DBWriteContactSettingTString(hContact, "CList", "StatusMsg", "");
			DBDeleteContactSetting(hContact, protocolname, "XStatusMsg");
			DBDeleteContactSetting(hContact, protocolname, "XStatusId");
			DBDeleteContactSetting(hContact, protocolname, "XStatusName");

			if(DBGetContactSettingByte(NULL,protocolname,"noavatars",-1)==1)
			{
				DBDeleteContactSetting(hContact, "ContactPhoto", "File");
				DBDeleteContactSetting(hContact, "ContactPhoto", "RFile");
				DBDeleteContactSetting(hContact, "ContactPhoto", "Backup");
				DBDeleteContactSetting(hContact, "ContactPhoto", "Format");
				DBDeleteContactSetting(hContact, "ContactPhoto", "ImageHash");
				DBDeleteContactSetting(hContact, "ContactPhoto", "XFireAvatarId");
				DBDeleteContactSetting(hContact, "ContactPhoto", "XFireAvatarMode");
			}
			else
			{
				//prüf ob der avatar noch existiert
				DBVARIANT dbv;
				if(!DBGetContactSettingTString(hContact, "ContactPhoto", "File",&dbv))
				{
					FILE*f=fopen(dbv.pszVal,"r");
					if(f==NULL)
					{
						DBDeleteContactSetting(hContact, "ContactPhoto", "File");
						DBDeleteContactSetting(hContact, "ContactPhoto", "RFile");
						DBDeleteContactSetting(hContact, "ContactPhoto", "Backup");
						DBDeleteContactSetting(hContact, "ContactPhoto", "Format");
						DBDeleteContactSetting(hContact, "ContactPhoto", "ImageHash");
						DBDeleteContactSetting(hContact, "ContactPhoto", "XFireAvatarId");
						DBDeleteContactSetting(hContact, "ContactPhoto", "XFireAvatarMode");
					}
					else
					{
						fclose(f);
					}
					DBFreeVariant(&dbv);
				}
			}
			DBWriteContactSettingWord(hContact,protocolname,"Status",ID_STATUS_OFFLINE);
		}		
		hContact = (HANDLE) CallService( MS_DB_CONTACT_FINDNEXT, (WPARAM) hContact, 0);
	}
	//alle gefundenen handles lsöchen
	for(uint i=0;i<fhandles.size();i++)
	{
		CallService( MS_DB_CONTACT_DELETE, (WPARAM) fhandles.at(i), 0);
	}
}

void SetIcon(HANDLE hcontact,HANDLE hicon,int ctype)
{
	IconExtraColumn iec;
	iec.cbSize = sizeof(iec);
	iec.hImage = hicon;
	iec.ColumnType = ctype;
	CallService(MS_CLIST_EXTRA_SET_ICON, (WPARAM)hcontact, (LPARAM)&iec);
}

void SetAvatar2(LPVOID lparam) {
	static int lasttime=0;
	int sleep=DBGetContactSettingWord(NULL,protocolname,"avatarloadlatency",1000);
	lasttime+=sleep;

	if(mySleep(lasttime,hConnectionClose))
	{
		delete lparam;
		lasttime-=sleep;
		return;
	}

	GetBuddyInfo* buddyinfo=(GetBuddyInfo*)lparam;
	if(myClient!=NULL)
		if(myClient->client->connected)
				myClient->client->send( buddyinfo ); 

	delete lparam;
	lasttime-=sleep;
}

void SetAvatar(LPVOID lparam)
//void SetAvatar(HANDLE hContact, char* username)
{
	//EnterCriticalSection(&avatarMutex);
	//WaitForSingleObject(hMutex, INFINITE);
	static int lasttime=0;
	int sleep=DBGetContactSettingWord(NULL,protocolname,"avatarloadlatency",250);

	if(bpStatus==ID_STATUS_OFFLINE)
		return;

	lasttime+=sleep;
	//Sleep(lasttime);
	if(mySleep(lasttime,hConnectionClose))
	{
		delete lparam;
		lasttime-=sleep;
		return;
	}

	if(bpStatus==ID_STATUS_OFFLINE)
		return;

	XFireAvatar av;

	XFire_SetAvatar* xsa=(XFire_SetAvatar*)lparam;

	if(xsa->hContact==NULL)
		return;

		if(GetAvatar(xsa->username,&av))
		{
			PROTO_AVATAR_INFORMATION AI;
			AI.cbSize = sizeof(AI);
			AI.format = av.type;
			AI.hContact = xsa->hContact;
			lstrcpy(AI.filename,av.file);
			ProtoBroadcastAck(protocolname, xsa->hContact, ACKTYPE_AVATAR, ACKRESULT_SUCCESS,(HANDLE) &AI, 0);
		}

	delete(xsa);
	//ReleaseMutex(hMutex);

	lasttime-=sleep;
}

BOOL GetAvatar(char* username,XFireAvatar* av)
{	
	BOOL status=FALSE;

	if(av==NULL||username==NULL)
		return FALSE;

	char address[256]="http://www.xfire.com/profile/";
	strcat_s(address,256,username);
	strcat_s(address,256,"/");

	//netlib request
	NETLIBHTTPREQUEST nlhr={0},*nlhrReply;
	nlhr.cbSize		= sizeof(nlhr);
	nlhr.requestType= REQUEST_GET;
	nlhr.flags		= NLHRF_NODUMP|NLHRF_GENERATEHOST|NLHRF_SMARTAUTHHEADER;
	nlhr.szUrl		= address;

	nlhrReply=(NETLIBHTTPREQUEST*)CallService(MS_NETLIB_HTTPTRANSACTION,(WPARAM)hNetlib,(LPARAM)&nlhr);
	
	if(nlhrReply) {
		//nicht auf dem server
		if (nlhrReply->resultCode != 200) {
			CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT,0,(LPARAM)nlhrReply);
			return FALSE;
		}
		//keine daten für mich
		else if (nlhrReply->dataLength < 1 || nlhrReply->pData == NULL)
		{
			CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT,0,(LPARAM)nlhrReply);
			return FALSE;
		}
		else
		{
			//fwrite(nlhrReply->pData,nlhrReply->dataLength,1,f);
			
			//id wo angefangen wird, die adresse "rauszuschneiden"
			char avatarid[]="m_user_avatar_img_wrapper";
			char* pointer_av=avatarid;
			//ende des datenbuffers
			char* deathend=nlhrReply->pData+nlhrReply->dataLength;
			char* pointer=nlhrReply->pData;
			//status ob gefunden oder nich
			BOOL found=FALSE;

			while(pointer<deathend&&*pointer_av!=0)
			{
				if(*pointer_av==*pointer)
				{
					pointer_av++;	
					if(pointer_av-avatarid>4)
						found=TRUE;
				}
				else
					pointer_av=avatarid;

				pointer++;
			}
			//was gefunden, nun das bild raustrennen
			if(*pointer_av==0)
			{
				char * pos = NULL;
				pos=strchr(pointer,'/');
				pos-=5;
				pointer=pos;

				pos=strchr(pointer,' ');
				if(pos)
				{
					pos--;
					*pos=0;

					//analysieren, welchent typ das bild hat
					pos=strrchr(pointer,'.');
					if(pos)
					{
						char filename[512];
						FoldersGetCustomPath( XFireAvatarFolder, filename, 1024, 'A' );
						strcat(filename,"\\");
						strcat(filename,username);

						pos++;
						//gif?!?!
						if(*pos=='g'&&
							*(pos+1)=='i'&&
							*(pos+2)=='f')
						{
							av->type=PA_FORMAT_GIF;
							strcat(filename,".gif");
						}
						else//dann kanns nur jpg sein
						{
							av->type=PA_FORMAT_JPEG;
							strcat(filename,".jpg");
						}

						//verusch das bild runterladen
						if(GetWWWContent2(pointer,filename,FALSE))
						{
							strcpy_s(av->file,256,filename); //setzte dateinamen
							status=TRUE; //avatarladen hat geklappt, cool :)
						}
					}
				}
			}
		}
		CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT,0,(LPARAM)nlhrReply);
	}

	return status;
}

static int GetIPPort(WPARAM wParam,LPARAM lParam)
{
	char temp[XFIRE_MAX_STATIC_STRING_LEN];
    HGLOBAL clipbuffer;
	char* buffer;

	if(DBGetContactSettingWord((HANDLE)wParam, protocolname, "Port", -1)==0)
		return 0;

	DBVARIANT dbv;
	if(DBGetContactSettingTString((HANDLE)wParam, protocolname, "ServerIP",&dbv))
		return 0;

	sprintf(temp,"%s:%d",dbv.pszVal,DBGetContactSettingWord((HANDLE)wParam, protocolname, "Port", -1));

	DBFreeVariant(&dbv);

	if(OpenClipboard(NULL))
	{
		EmptyClipboard();

		clipbuffer = GlobalAlloc(GMEM_DDESHARE, strlen(temp)+1);
		buffer = (char*)GlobalLock(clipbuffer);
		strcpy(buffer, LPCSTR(temp));
		GlobalUnlock(clipbuffer);

		SetClipboardData(CF_TEXT, clipbuffer);
		CloseClipboard();
	}

	return 0;
}

static int GetVIPPort(WPARAM wParam,LPARAM lParam)
{
	char temp[XFIRE_MAX_STATIC_STRING_LEN];
    HGLOBAL clipbuffer;
	char* buffer;

	if(DBGetContactSettingWord((HANDLE)wParam, protocolname, "VPort", -1)==0)
		return 0;

	DBVARIANT dbv;
	if(DBGetContactSettingTString((HANDLE)wParam, protocolname, "VServerIP",&dbv))
		return 0;

	sprintf(temp,"%s:%d",dbv.pszVal,DBGetContactSettingWord((HANDLE)wParam, protocolname, "VPort", -1));

	DBFreeVariant(&dbv);

	if(OpenClipboard(NULL))
	{
		EmptyClipboard();

		clipbuffer = GlobalAlloc(GMEM_DDESHARE, strlen(temp)+1);
		buffer = (char*)GlobalLock(clipbuffer);
		strcpy(buffer, LPCSTR(temp));
		GlobalUnlock(clipbuffer);

		SetClipboardData(CF_TEXT, clipbuffer);
		CloseClipboard();
	}

	return 0;
}

static int GotoProfile(WPARAM wParam,LPARAM lParam)
{
	DBVARIANT dbv;
	char temp[64]="";

	if(DBGetContactSettingTString((HANDLE)wParam, protocolname, "Username",&dbv))
		return 0;

	strcpy(temp,"http://xfire.com/profile/");
	strcat_s(temp,64,dbv.pszVal);
	DBFreeVariant(&dbv);

	CallService( MS_UTILS_OPENURL, 1, (LPARAM)temp );

	return 0;
}

static int GotoXFireClanSite(WPARAM wParam,LPARAM lParam) {
	DBVARIANT dbv;
	char temp[64]="";

	int clanid=DBGetContactSettingDword((HANDLE)wParam, protocolname, "Clan",-1);
	sprintf(temp,"ClanUrl_%d",clanid);

	if(DBGetContactSettingTString(NULL, protocolname, temp,&dbv))
		return 0;

	strcpy(temp,"http://xfire.com/clans/");
	strcat_s(temp,64,dbv.pszVal);
	DBFreeVariant(&dbv);

	CallService( MS_UTILS_OPENURL, 1, (LPARAM)temp );

	return 0;
}

static int GotoProfile2(WPARAM wParam,LPARAM lParam)
{
	DBVARIANT dbv;
	char temp[64]="";

	if(DBGetContactSettingTString(NULL, protocolname, "login",&dbv))
		return 0;

	strcpy(temp,"http://xfire.com/profile/");
	strcat_s(temp,64,dbv.pszVal);
	DBFreeVariant(&dbv);

	CallService( MS_UTILS_OPENURL, 1, (LPARAM)temp );

						//prefrences pakcet senden
					//XFirePrefPacket *packet2 = new XFirePrefPacket();
					//myClient->client->send( packet2 );
					//delete(packet2);

	return 0;
}

static int GotoProfileAct(WPARAM wParam,LPARAM lParam)
{
	DBVARIANT dbv;
	char temp[64]="";

	if(DBGetContactSettingTString(NULL, protocolname, "login",&dbv))
		return 0;

	strcpy(temp,"http://www.xfire.com/?username=");
	strcat_s(temp,64,dbv.pszVal);
	DBFreeVariant(&dbv);

	CallService( MS_UTILS_OPENURL, 1, (LPARAM)temp );

						//prefrences pakcet senden
					//XFirePrefPacket *packet2 = new XFirePrefPacket();
					//myClient->client->send( packet2 );
					//delete(packet2);

	return 0;
}

int RebuildContactMenu( WPARAM wParam, LPARAM lParam )
{
	CLISTMENUITEM clmi = { 0 };
	clmi.cbSize = sizeof( clmi );
	CLISTMENUITEM clmi2 = { 0 };
	clmi2.cbSize = sizeof( clmi2 );
	CLISTMENUITEM clmi3 = { 0 };
	clmi3.cbSize = sizeof( clmi3 );
	CLISTMENUITEM clmi4 = { 0 };
	clmi4.cbSize = sizeof( clmi4 );
	CLISTMENUITEM clmi5 = { 0 };
	clmi5.cbSize = sizeof( clmi5 );
	CLISTMENUITEM clmi6 = { 0 };
	clmi6.cbSize = sizeof( clmi6 );
	CLISTMENUITEM clmi7 = { 0 };
	clmi7.cbSize = sizeof( clmi7 );
	CLISTMENUITEM clmi8 = { 0 };
	clmi8.cbSize = sizeof( clmi8 );

	//kopieren von port und ip nur erlauben, wenn verfügbar
	clmi.flags = CMIM_FLAGS;
	clmi2.flags = CMIM_FLAGS;
	clmi3.flags = CMIM_FLAGS;
	clmi4.flags = CMIM_FLAGS;
	clmi5.flags = CMIM_FLAGS;
	clmi6.flags = CMIM_FLAGS;
	clmi7.flags = CMIM_FLAGS;
	clmi8.flags = CMIM_FLAGS;

	DBVARIANT dbv;
	if(DBGetContactSettingTString((HANDLE)wParam, protocolname, "ServerIP",&dbv))
		clmi.flags|= CMIF_HIDDEN;
	else
		DBFreeVariant(&dbv);

	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )copyipport, ( LPARAM )&clmi );

	//kopieren von voice port und ip nur erlauben, wenn verfügbar
	DBVARIANT dbv2;
	if(DBGetContactSettingTString((HANDLE)wParam, protocolname, "VServerIP",&dbv2))
	{
		clmi2.flags|= CMIF_HIDDEN;
	}
	else
		DBFreeVariant(&dbv2);

	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )vipport, ( LPARAM )&clmi2 ); 

	//clansite nur bei clanmembern anbieten
	if(DBGetContactSettingDword((HANDLE)wParam, protocolname, "Clan",0)==0)
		clmi3.flags|= CMIF_HIDDEN;

	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )gotoclansite, ( LPARAM )&clmi3 );

	//NotOnList
	if(DBGetContactSettingDword((HANDLE)wParam, "CList", "NotOnList",0)==0)
		clmi5.flags|= CMIF_HIDDEN;

	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )blockfriend, ( LPARAM )&clmi5 );

	//speichere gameid ab
	int gameid=DBGetContactSettingWord((HANDLE)wParam, protocolname, "GameId",0);
	//spiel in xfirespieliste?
	if(!xgamelist.Gameinlist(gameid))
	{
		//nein, dann start und join auf unsichbar schalten
		clmi7.flags|= CMIF_HIDDEN;
		clmi4.flags|= CMIF_HIDDEN;
	}
	else
	{
		//gameobject holen
		Xfire_game* game=xgamelist.getGamebyGameid(gameid);
		//hat das spiel netzwerkparameter?
		if(game) 
		{
			if(game->networkparams)
			{
				//is beim buddy ein port hinterlegt, also spielt er im internet?
				if(!DBGetContactSettingDword((HANDLE)wParam, protocolname, "Port",0))
				{
					//nein, dann join button auch ausblenden
					clmi4.flags|= CMIF_HIDDEN;
				}
			}
			else
				clmi4.flags|= CMIF_HIDDEN;
		}
		else
			clmi4.flags|= CMIF_HIDDEN;
	}

	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )joingame, ( LPARAM )&clmi4 );
	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )startthisgame, ( LPARAM )&clmi7 );


	//remove freind nur bei noramlen buddies
	if(DBGetContactSettingByte((HANDLE)wParam, protocolname, "friendoffriend",0)==1)
		clmi8.flags|= CMIF_HIDDEN;

	CallService( MS_CLIST_MODIFYMENUITEM, ( WPARAM )removefriend, ( LPARAM )&clmi8 );

	return 0;
}

//wird beim miranda start ausgeführt, lädt spiele und startet gamedetection
#ifndef NO_PTHREAD
void *inigamedetectiont(void *ptr)
#else
void inigamedetectiont(LPVOID lParam)
#endif
{
	Scan4Games(NULL);
#ifndef NO_PTHREAD
	return gamedetectiont(ptr);
#else
	gamedetectiont(NULL);
#endif

}

void SetXFireGameStatusMsg(Xfire_game* game)
{
	char inipath[XFIRE_MAX_STATIC_STRING_LEN]="";
	static char statusmsg[100]="";
	
	//kein gameobject, dann abbrechen
	if(!game) return;

	if(!game->statusmsg)
	{
		xgamelist.getIniValue(game->id,"XUSERStatusMsg",statusmsg,100);
	}
	else
	{
		strcpy_s(statusmsg,100,game->statusmsg);
	}

	if(statusmsg[0]!=0)
		if(myClient!=NULL)
			if(myClient->client->connected)
				myClient->Status(statusmsg);

}

#ifndef NO_PTHREAD
void *gamedetectiont(void *ptr)
#else
void gamedetectiont(LPVOID lparam)
#endif
{
	DWORD ec; //exitcode der processid
	int ts2port=0;
	int vid=0;
	char ts2ip[4]={0,0,0,0};
	char temp[200];
	Xfire_game* currentgame=NULL;
	BOOL disabledsound=FALSE;
	BOOL disabledpopups=FALSE;

	//vaiable zum spielzeit messen
	time_t t1;


	if(DBGetContactSettingByte(NULL,protocolname,"nogamedetect",0))
#ifndef NO_PTHREAD
		return ptr;
#else
		return;
#endif

	DWORD lowpids=DBGetContactSettingByte(NULL,protocolname,"skiplowpid",100);

	//XFireLog("XFire Gamedetectionthread started ...","");

	while(1)
	{
		//Sleep(12000);
		//XFireLog("12 Sek warten ...","");
		if(mySleep(12000,hGameDetection))
		{
#ifndef NO_PTHREAD
			return ptr;
#else
			return;
#endif
		}

#ifndef NO_PTHREAD
		pthread_testcancel();
#else
		if(Miranda_Terminated())
			return;
#endif

		if(myClient!=NULL)
			if(!myClient->client->connected)
			{
				//XFireLog("PID und TSPID resett ...","");
				ts2pid=pid=0;
				//voicechat internen status zurücksetzen
				voicechat.resetCurrentvoicestatus();
			}
			/*
			else*/
			{
				//erstmal nach TS2 suchen
				//XFireLog("Teamspeak detection ...","");
				if(DBGetContactSettingByte(NULL,protocolname,"ts2detection",0))
				{
					SendGameStatus2Packet *packet = new SendGameStatus2Packet();
					if(voicechat.checkVoicechat(packet)) {
						if(myClient!=NULL)
						{
							XFireLog("Send voicechat infos ...");
							myClient->client->send( packet );
						}
					}
					delete packet;

					//nach ts3 mapfile suchen
					//HANDLE hMapObject = OpenFileMappingA(FILE_MAP_READ, FALSE, "$ts3info4xfire$");
					//if (hMapObject) {
					//}
					//wenn remote feature aktiviert, darüber ip erkennen
					/*if(DBGetContactSettingByte(NULL,protocolname,"ts2useremote",0))
					{
						//ipholen
						SendGameStatus2Packet *packet = new SendGameStatus2Packet();
						if(TSSetupPacket(packet,&ts2pid,&ts2port))
						{
							DBWriteContactSettingWord(NULL,protocolname,"currentvoice",packet->gameid);

							if(packet->ip[3]!=0)
							{
								sprintf(temp,"%d.%d.%d.%d:%d",(unsigned char)packet->ip[3],(unsigned char)packet->ip[2],(unsigned char)packet->ip[1],(unsigned char)packet->ip[0],packet->port);
								DBWriteContactSettingTString(NULL, protocolname, "VServerIP", temp);
								DBWriteContactSettingTString(NULL, protocolname, "currentvoicename", "Teamspeak");
							}
							else
							{
								DBDeleteContactSetting(NULL,protocolname, "VServerIP");
								DBDeleteContactSetting(NULL,protocolname, "currentvoicename");
							}

							if(myClient!=NULL)
								myClient->client->send( packet );
						}
						delete packet; 

					}
					else
					{
						if(!ts2pid)
						{
							if(FindTeamSpeak(&ts2pid,&vid))
							{
								//gefunden, serverdaten scannen
								SendGameStatus2Packet *packet = new SendGameStatus2Packet();
								if(myClient!=NULL)
									if(GetServerIPPort2(ts2pid,myClient->client->localaddr,myClient->client->llocaladdr,&packet->ip[3],&packet->ip[2],&packet->ip[1],&packet->ip[0],&packet->port))
									{
										if(packet->port!=0)
										{
											packet->gameid=vid;

											if(vid==32)
												DBWriteContactSettingTString(NULL, protocolname, "currentvoicename", "Teamspeak");
											else if(vid==33)
												DBWriteContactSettingTString(NULL, protocolname, "currentvoicename", "Ventrilo");
											else if(vid==34)
												DBWriteContactSettingTString(NULL, protocolname, "currentvoicename", "Mumble");

											DBWriteContactSettingWord(NULL,protocolname,"currentvoice",vid);
											
											sprintf(temp,"%d.%d.%d.%d:%d",(unsigned char)packet->ip[3],(unsigned char)packet->ip[2],(unsigned char)packet->ip[1],(unsigned char)packet->ip[0],packet->port);
											DBWriteContactSettingTString(NULL, protocolname, "VServerIP", temp);
											
											if(myClient!=NULL)
												myClient->client->send( packet );
										}
									}
								delete packet; 
							}
						}
						else
						{
							//HANDLE op=OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, ts2pid);
							//if(op!=NULL) GetExitCodeProcess(op,&ec);

							//if(ec!=STILL_ACTIVE) //nicht mehr offen
							if (GetProcessVersion(ts2pid) == 0)
							{
								SendGameStatus2Packet *packet = new SendGameStatus2Packet();
								packet->gameid=0;
								DBWriteContactSettingWord(NULL,protocolname,"currentvoice",0);
								DBDeleteContactSetting(NULL,protocolname, "VServerIP");
								DBDeleteContactSetting(NULL,protocolname, "currentvoicename");

								if(myClient!=NULL)
									myClient->client->send( packet );
								ts2pid=0;
								delete packet; 
							}
							else
							{
								SendGameStatus2Packet *packet = new SendGameStatus2Packet();
								if(myClient!=NULL)
									if(GetServerIPPort2(ts2pid,myClient->client->localaddr,myClient->client->llocaladdr,&packet->ip[3],&packet->ip[2],&packet->ip[1],&packet->ip[0],&packet->port))
									{
										if(packet->port!=0)
										{
											packet->gameid=vid;
											DBWriteContactSettingWord(NULL,protocolname,"currentvoice",vid);

											sprintf(temp,"%d.%d.%d.%d:%d",(unsigned char)packet->ip[3],(unsigned char)packet->ip[2],(unsigned char)packet->ip[1],(unsigned char)packet->ip[0],packet->port);
											DBWriteContactSettingTString(NULL, protocolname, "VServerIP", temp);

											if(myClient!=NULL)
												myClient->client->send( packet );
										}
									}
								delete packet; 
							}
							//if(op!=NULL) CloseHandle(op);
						}
					}*/
				}

				if(currentgame!=NULL)
				{

					//XFireLog("XFire Gamedetection - Game still running ...","");

					//prüf ob das spiel noch offen
					ec=0;
					//HANDLE op=OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, pid);
					//if(op!=NULL) GetExitCodeProcess(op,&ec);

					//if(GetLastError()==5) //anwendung ist noch offen und der zugriff wird noch darauf blockiert
					//{
						//
					//}
					//else if(ec!=STILL_ACTIVE) //nicht mehr offen

					if (!xgamelist.isValidPid(pid))
					{
						//XFireLog("XFire Gamedetection - Game was closed ID: %i",currentgame);
						SendGameStatusPacket *packet = new SendGameStatusPacket();
						packet->gameid=0;
						if(DBGetContactSettingByte(NULL,protocolname,"sendgamestatus",1))
							if(myClient!=NULL)
								myClient->client->send( packet );
						
						//spielzeit messen
						time_t t2=time(NULL);
						time_t t3=t2-t1;
						tm * mytm=gmtime(&t3);

						//statusmsg von xfire zurücksetzen
						if(currentgame->setstatusmsg)
						{
							if(myClient!=NULL)
								if(myClient->client->connected)
									if(bpStatus==ID_STATUS_ONLINE)
										myClient->Status(statusmessage[0]);
									else if(bpStatus==ID_STATUS_AWAY)
										myClient->Status(statusmessage[1]);
						}

						sprintf(temp,Translate("Last game: %s playtime: %.2d:%.2d:%.2d"),currentgame->name,mytm->tm_hour,mytm->tm_min,mytm->tm_sec);
						DBWriteContactSettingTString(NULL, protocolname, "LastGame", temp);
					
						if(currentgame->noicqstatus!=TRUE&&DBGetContactSettingByte(NULL,protocolname,"autosetstatusmsg",0))
							SetOldStatusMsg();

						DBWriteContactSettingWord(NULL,protocolname,"currentgame",0);
						DBDeleteContactSetting(NULL,protocolname,"currentgamename");

						//popup wieder aktivieren, menuservice funk aufrufen, nur wenn popups vorher abgestellt wurden
						if(disabledpopups)
							if(DBGetContactSettingByte(NULL,protocolname,"nopopups",0))
							{
								if(ServiceExists("PopUp/EnableDisableMenuCommand"))
								{
									CallService("PopUp/EnableDisableMenuCommand",NULL,NULL);	
								}
								else if(ServiceExists("PopUp/ToggleEnabled"))
								{
									CallService("PopUp/ToggleEnabled",NULL,NULL);
								}
								disabledpopups=FALSE;
							}
						//sound wieder aktivieren, nur wenn es vorher abgestellt wurde
						if(disabledsound)
							if(DBGetContactSettingByte(NULL,protocolname,"nosoundev",0))
							{
								DBWriteContactSettingByte(NULL,"Skin","UseSound",1);
								disabledsound=FALSE;
							}

						//bug beseitigt, wenn spiel beendet, alte ip entfernen
						DBDeleteContactSetting(NULL,protocolname, "ServerIP");
						
						pid=NULL;
						currentgame=NULL;
						xgamelist.SetGameStatus(FALSE);

						NotifyEventHooks(hookgamestart,0,0);

						delete packet; 
					}
					else //noch offen
					{
						//XFireLog("Spiel noch offen ...","");
						//nur nwspiele nach ip/port scannen
						if(DBGetContactSettingByte(NULL,protocolname,"ipportdetec",0))
							if(currentgame->networkparams!=NULL&&currentgame->send_gameid>0)
							{
								SendGameStatusPacket *packet = new SendGameStatusPacket();
								//verscueh serverip und port zu scannen

								//XFireLog("IPPort detection ...","");
								if(GetServerIPPort(pid,myClient->client->localaddr,myClient->client->llocaladdr,&packet->ip[3],&packet->ip[2],&packet->ip[1],&packet->ip[0],&packet->port))
								{
									
									if(packet->ip[3]!=0)
									{
										sprintf(temp,"%d.%d.%d.%d:%d",(unsigned char)packet->ip[3],(unsigned char)packet->ip[2],(unsigned char)packet->ip[1],(unsigned char)packet->ip[0],packet->port);
										DBWriteContactSettingTString(NULL, protocolname, "ServerIP", temp);
									}
									else
										DBDeleteContactSetting(NULL,protocolname, "ServerIP");

									packet->gameid=currentgame->send_gameid;
									if(DBGetContactSettingByte(NULL,protocolname,"sendgamestatus",1))
										if(myClient!=NULL)
											myClient->client->send( packet );

									if(currentgame->noicqstatus!=TRUE&&DBGetContactSettingByte(NULL,protocolname,"autosetstatusmsg",0))
										SetGameStatusMsg();
								}
								delete packet; 
							}
						//XFireLog("fertig ...","");
						//packet->=xf[currentgame].gameid2;
					}

					//if(op!=NULL) CloseHandle(op);
				}
				else
				{
					//XFireLog("nach spiel suchen ...","");
					//hardcoded game detection
					HANDLE hSnapShot = CreateToolhelp32Snapshot ( TH32CS_SNAPALL, 0);
					PROCESSENTRY32* processInfo = new PROCESSENTRY32;
					processInfo->dwSize = sizeof ( PROCESSENTRY32);

					XFireLog("XFire Gamedetection - Suche laufende Spiele ...");
		
					//gamelist blocken
					xgamelist.Block(TRUE);


					while ( Process32Next ( hSnapShot,processInfo ) != FALSE && currentgame==NULL)
					{
						//überspringe niedrige pids
						if(processInfo->th32ProcessID<lowpids)
							continue;

						Xfire_game* nextgame;
						while(xgamelist.getnextGame(&nextgame))
						{
							if(nextgame->checkpath(processInfo))
							{
								SendGameStatusPacket *packet = new SendGameStatusPacket() ;
								
								XFireLog("XFire Gamedetection - Spiel gefunden: %i",nextgame->id);

								if(myClient!=NULL)
									if(myClient->client->connected)
									{
										currentgame=nextgame;
										pid=processInfo->th32ProcessID;
										DBWriteContactSettingWord(NULL,protocolname,"currentgame",currentgame->id);
										DBWriteContactSettingString(NULL,protocolname,"currentgamename",currentgame->name);
										packet->gameid=currentgame->send_gameid;
										t1=time(NULL);
	
										if(DBGetContactSettingByte(NULL,protocolname,"sendgamestatus",1))
										{
											XFireLog("XFire Gamedetection - Sendgame-ID: %i",currentgame->send_gameid);
											if(currentgame->send_gameid>0)
											{
												XFireLog("XFire Gamedetection - Setzte Status für XFire");
												myClient->client->send( packet );
											}
										}

										xgamelist.SetGameStatus(TRUE);

										//eventhook triggern
										NotifyEventHooks(hookgamestart,1,0);

										//statusmsg für xfire setzen
										if(currentgame->setstatusmsg)
										{
											SetXFireGameStatusMsg(currentgame);
										}

										if(currentgame->noicqstatus!=TRUE&&DBGetContactSettingByte(NULL,protocolname,"autosetstatusmsg",0))
										{
											BackupStatusMsg();
											SetGameStatusMsg();
										}
										//popup abschalten, menuservice funk aufrufen
										if(DBGetContactSettingByte(NULL,protocolname,"nopopups",0))
										{
											if(ServiceExists("PopUp/EnableDisableMenuCommand")&&DBGetContactSettingByte(NULL,"PopUp","ModuleIsEnabled",0)==1&&DBGetContactSettingByte(NULL,"PopUp","DisableWhenFullscreen",0)==0) /**/
											{
												disabledpopups=TRUE;
												CallService("PopUp/EnableDisableMenuCommand",NULL,NULL);	
											}
											else if(ServiceExists("PopUp/ToggleEnabled")&&DBGetContactSettingByte(NULL,"YAPP","Enabled",0)==1)
											{
												disabledpopups=TRUE;
												CallService("PopUp/ToggleEnabled",NULL,NULL);
											}
										}
										//sound abschalten
										if(DBGetContactSettingByte(NULL,protocolname,"nosoundev",0)&&DBGetContactSettingByte(NULL,"Skin","UseSound",0)==1)
										{
											DBWriteContactSettingByte(NULL,"Skin","UseSound",0);
											disabledsound=TRUE;
										}
									}

								delete packet;

								break;
							}
						}
					}
					CloseHandle ( hSnapShot);	

					//gamelist unblocken
					xgamelist.Block(FALSE);
				}
			}
	}
}

static int ReScanMyGames(WPARAM wParam,LPARAM lParam)
{
	DBDeleteContactSetting(NULL, protocolname, "foundgames");

	mir_forkthread(Scan4Games,NULL);

	return 0;
}

static int CustomGameSetup(WPARAM wParam,LPARAM lParam)
{
	//DialogBox(hinstance,MAKEINTRESOURCE(IDD_GAMELIST),NULL,DlgAddGameProc);
	return 0;
}

void setBuddyStatusMsg(BuddyListEntry *entry,string statusmsg)
{
	char status[300];
	int mystatus=ID_STATUS_ONLINE;

	if(entry==NULL)
		return;

	if(IsContactMySelf(entry->username))
		return;

	if(strlen(entry->statusmsg.c_str())>5)
	{
		char* away=(char*)entry->statusmsg.c_str();
		if(
			(*(away)=='('
			&& *(away+1)=='A'
			&& *(away+2)=='F'
			&& *(away+3)=='K'
			&& *(away+4)==')')
			|| 
			(*(away)=='('
			&&*(away+1)=='A'
			&& *(away+2)=='B'
			&& *(away+3)=='S'
			&& *(away+4)==')')
			)
		{
			mystatus=ID_STATUS_AWAY;
		}
	}

	//statusmsg umwandeln
	char * temp = mir_utf8decode((char*)entry->statusmsg.c_str(),NULL);
	if(temp==NULL) temp=(char*)entry->statusmsg.c_str();

	//DBDeleteContactSetting(hContact, "CList", "StatusMsg");
	DBWriteContactSettingWord(entry->hcontact, protocolname, "Status", mystatus);

	if(entry->game!=0)
	{
		char temp2[255];
		temp2[0]=0;

		DBVARIANT dbv;
		if(!DBGetContactSettingTString(entry->hcontact,protocolname, "RGame",&dbv))
		{
			strcat(temp2,dbv.pszVal);
			strcat(temp2," ");
			DBFreeVariant(&dbv);
		}
		
		if(DBGetContactSettingByte(NULL,protocolname,"noipportinstatus",0)==0)
		{
			if(!DBGetContactSettingTString(entry->hcontact,protocolname, "ServerName",&dbv))
			{
				strcat(temp2,dbv.pszVal);
				DBFreeVariant(&dbv);
			}
			else
			{
				if(!DBGetContactSettingTString(entry->hcontact,protocolname, "ServerIP",&dbv))
				{
					strcat(temp2,"(");
					strcat(temp2,dbv.pszVal);
					sprintf(status,":%d)",DBGetContactSettingWord(entry->hcontact, protocolname, "Port", 0));
					strcat(temp2,status);
					DBFreeVariant(&dbv);
				}
			}
		}
		
		strncpy(status,temp2,97);

		if(strlen(entry->statusmsg.c_str())>0)
		{
			strcat(status," - ");
			strcat(status,temp);
		}
		DBWriteContactSettingTString(entry->hcontact, "CList", "StatusMsg", status );
		DBWriteContactSettingTString(entry->hcontact, protocolname, "XStatusMsg", status );
	}
	else
	{
		DBWriteContactSettingTString(entry->hcontact, "CList", "StatusMsg", temp );
		DBWriteContactSettingTString(entry->hcontact, protocolname, "XStatusMsg", temp );
		DBWriteContactSettingByte(entry->hcontact, protocolname, "XStatusId", 1);
		DBWriteContactSettingTString(entry->hcontact, protocolname, "XStatusName", "");
	}
}

/*void CheckAvatar(void *ventry)
{
	BuddyListEntry* entry=(BuddyListEntry*)ventry;
	DBVARIANT dbv;
	if(entry==NULL)
		return;
	if(DBGetContactSettingByte(NULL,protocolname,"noavatars",-1)==0)
	{
		if(DBGetContactSettingByte(entry->hcontact, "ContactPhoto", "Locked", -1)!=1)
		{
			if(!DBGetContactSettingByte(NULL,protocolname,"specialavatarload",0))
			{
				if(DBGetContactSetting(entry->hcontact,"ContactPhoto", "File",&dbv))
				{
					XFire_SetAvatar* xsa=new XFire_SetAvatar;
					xsa->hContact=entry->hcontact;
					xsa->username=new char[strlen(entry->username.c_str())+1];
					strcpy(xsa->username,entry->username.c_str());

					mir_forkthread(SetAvatar,(LPVOID)xsa);
				}
			}
			else
			{
				/* 
				   scheinbar unterpricht xfire bei zu agressiven nachfragen der buddyinfos die verbindung , deshalb erstmal auskommentiert 
				   getestet mit clanbuddy's >270 members

				   mit hilfe der buddyinfos kann man den avatar laden und screenshot infos etc bekommt man auch
				*/
/*				GetBuddyInfo* buddyinfo=new GetBuddyInfo();
				buddyinfo->userid=entry->userid;
				mir_forkthread(SetAvatar2,(LPVOID)buddyinfo);
			}
		}
	}
}*/

HANDLE handlingBuddys(BuddyListEntry *entry, int clan,char*group,BOOL dontscan)
{
	  HANDLE hContact;
	  string game;

	  if(entry==NULL)
		  return NULL;

	  //wenn der buddy ich selbst ist, dann ignorieren
	  if(IsContactMySelf(entry->username))
		return NULL;

		if(entry->hcontact==NULL)
		{
			entry->hcontact=CList_FindContact(entry->userid);
			if(entry->hcontact&&clan==-1)
			{
				DBWriteContactSettingWord(entry->hcontact, protocolname, "Status", ID_STATUS_ONLINE);
				DBWriteContactSettingString(entry->hcontact, protocolname, "MirVer", "xfire");
			}
		}

		if(entry->hcontact==NULL)
		{
			XFireContact xfire_newc;
			xfire_newc.username=(char*)entry->username.c_str();
			xfire_newc.nick=(char*)entry->nick.c_str();
			xfire_newc.id=entry->userid;

			entry->hcontact=CList_AddContact(xfire_newc,TRUE,entry->isOnline()?TRUE:FALSE,clan);
		}


		hContact=entry->hcontact;

		if(hContact!=0)
		{
			if(strlen(entry->nick.c_str())>0&&DBGetContactSettingByte(NULL,protocolname,"shownicks",1))
			{
				char*nick=NULL;
				
				if(myClient->useutf8)
					nick=( char* )entry->nick.c_str();
				else
					nick=mir_utf8decode(( char* )entry->nick.c_str(),NULL);
				
				if(nick)
				{
					if(myClient->useutf8)
						DBWriteContactSettingUTF8String(hContact, protocolname, "Nick", nick);
					else
						DBWriteContactSettingTString(hContact, protocolname, "Nick", nick);
				}
				else
					DBWriteContactSettingString(hContact, protocolname, "Nick", entry->username.c_str());

				//DBWriteContactSettingStringUtf(hContact, protocolname, "Nick", entry->nick.c_str());
				//DBWriteContactSettingUTF8String(hContact, protocolname, "Nick", ( char* )entry->nick.c_str());
			}
			else
				DBWriteContactSettingString(hContact, protocolname, "Nick", entry->username.c_str());

			if(!entry->isOnline())
			{
				DBWriteContactSettingWord(hContact, protocolname, "Status", ID_STATUS_OFFLINE);
				DBDeleteContactSetting(hContact, protocolname, "XStatusMsg");
				DBDeleteContactSetting(hContact, protocolname, "XStatusId");
				DBDeleteContactSetting(hContact, protocolname, "XStatusName");
				DBDeleteContactSetting(hContact, "CList", "StatusMsg");
				DBWriteContactSettingTString(hContact, protocolname, "XStatusName", "");
				DBDeleteContactSetting(hContact, protocolname, "ServerIP");
				DBDeleteContactSetting(hContact, protocolname, "Port");
				DBDeleteContactSetting(hContact, protocolname, "VServerIP");
				DBDeleteContactSetting(hContact, protocolname, "VPort");
				DBDeleteContactSetting(hContact, protocolname, "RVoice");
				DBDeleteContactSetting(hContact, protocolname, "RGame");
				DBDeleteContactSetting(hContact, protocolname, "GameId");
				DBDeleteContactSetting(hContact, protocolname, "VoiceId");
				DBDeleteContactSetting(hContact, protocolname, "GameInfo");
			}
			else if(entry->game>0||entry->game2>0)
			{
				char temp[XFIRE_MAX_STATIC_STRING_LEN]="";
				char gname[255]="";

				DummyXFireGame *gameob;

				if(strlen(entry->gameinfo.c_str())>0)
					DBWriteContactSettingTString(hContact, protocolname, "GameInfo", entry->gameinfo.c_str());

				//beim voicechat foglendes machn
				if(entry->game2>0) 
				{
					gameob=(DummyXFireGame*)entry->game2Obj; //obj wo ip und port sind auslesen

					xgamelist.getGamename(entry->game2,gname,255);

					DBWriteContactSettingTString(hContact, protocolname, "RVoice", gname);

					if(gameob)
					{
						if((unsigned char)gameob->ip[3]!=0) // wenn ip, dann speichern
						{
							sprintf(temp,"%d.%d.%d.%d",(unsigned char)gameob->ip[3],(unsigned char)gameob->ip[2],(unsigned char)gameob->ip[1],(unsigned char)gameob->ip[0]);
							DBWriteContactSettingTString(hContact, protocolname, "VServerIP", temp);
							DBWriteContactSettingWord(hContact, protocolname, "VPort", (unsigned long)gameob->port);
						}
						else
						{
							DBDeleteContactSetting(hContact, protocolname, "VServerIP");
							DBDeleteContactSetting(hContact, protocolname, "VPort");
						}
					}
					
					DBWriteContactSettingWord(hContact, protocolname, "VoiceId", entry->game2);

					SetIcon(hContact,xgamelist.iconmngr.getGameIconHandle(entry->game2),EXTRA_ICON_ADV2);	//icon seperat setzen
				}
				else
				{
					DBDeleteContactSetting(hContact, protocolname, "VServerIP");
					DBDeleteContactSetting(hContact, protocolname, "VPort");
					DBDeleteContactSetting(hContact, protocolname, "RVoice");
					DBDeleteContactSetting(hContact, protocolname, "VoiceId");
					SetIcon(hContact,(HANDLE)-1,EXTRA_ICON_ADV2);
				}
				
				//beim game folgendes machen
				if(entry->game>0)
				{
					HICON hicongame=xgamelist.iconmngr.getGameIcon(entry->game);

					xgamelist.getGamename(entry->game,gname,255);

					DBWriteContactSettingTString(hContact, protocolname, "RGame", gname);

					//beinhaltet ip und port
					gameob=(DummyXFireGame*)entry->gameObj;

					//popup, wenn jemand was spielt
					if(DBGetContactSettingByte(NULL,protocolname,"gamepopup",0)==1) {
						char temp[256]="";

						sprintf(temp,Translate("%s playing %s."),
							//ist ein nick gesetzt?
							(entry->nick.length()==0?
								//nein dann username
								entry->username.c_str():
								//klar, dann nick nehmen
								entry->nick.c_str())
							,gname);

						if(gameob)
						{
							if((unsigned char)gameob->ip[3]!=0)
							{
								sprintf(temp,Translate("%s playing %s on server %d.%d.%d.%d:%d."),
									//ist ein nick gesetzt?
								(entry->nick.length()==0?
									//nein dann username
									entry->username.c_str():
									//klar, dann nick nehmen
									entry->nick.c_str())									
									,gname,(unsigned char)gameob->ip[3],(unsigned char)gameob->ip[2],(unsigned char)gameob->ip[1],(unsigned char)gameob->ip[0],(unsigned long)gameob->port);
							}
						}

						/*
							POPUP-Filter
							Nur Popups anzeigen die noch nicht angezeigt wurden
						*/
						if(entry->lastpopup==NULL)
						{
							//größe des popupstrings
							int size=strlen(temp)+1;
							//popup darstellen
							displayPopup(NULL,temp,"Miranda XFire Protocol Plugin",0,hicongame);
							//letzten popup definieren
							entry->lastpopup=new char[size];
							//string kopieren
							strcpy_s(entry->lastpopup,size,temp);
						}
						else
						{
							if(strcmp(entry->lastpopup,temp)!=0)
							{
								delete[] entry->lastpopup;
								entry->lastpopup=NULL;

								//größe des popupstrings
								int size=strlen(temp)+1;
								//popup darstellen
								displayPopup(NULL,temp,"Miranda XFire Protocol Plugin",0,hicongame);
								//letzten popup definieren
								entry->lastpopup=new char[size];
								//string kopieren
								strcpy_s(entry->lastpopup,size,temp);
							}
						}
					}
					
					if(gameob)
					{
						if((unsigned char)gameob->ip[3]!=0)
						{
							//ip und port in kontakt speichern
							sprintf(temp,"%d.%d.%d.%d",(unsigned char)gameob->ip[3],(unsigned char)gameob->ip[2],(unsigned char)gameob->ip[1],(unsigned char)gameob->ip[0]);
							DBWriteContactSettingTString(hContact, protocolname, "ServerIP", temp);
							DBWriteContactSettingWord(hContact, protocolname, "Port", (unsigned long)gameob->port);

							//lass das query arbeiten
							if(dontscan==FALSE)
								if(ServiceExists("GameServerQuery/Query")&&DBGetContactSettingByte(NULL,protocolname,"gsqsupport",0))
								{
									GameServerQuery_query gsqq={0};
									gsqq.port=gameob->port;
									gsqq.xfiregameid=entry->game;
									strcpy(gsqq.ip,temp);
									CallService("GameServerQuery/Query" , (WPARAM) entry, (LPARAM)&gsqq);
								}
						}
						else
						{
							DBDeleteContactSetting(hContact, protocolname, "ServerName");
							DBDeleteContactSetting(hContact, protocolname, "ServerIP");
							DBDeleteContactSetting(hContact, protocolname, "Port");
						}
					}

					SetIcon(hContact,xgamelist.iconmngr.getGameIconHandle(entry->game));

					//DBDeleteContactSetting(hContact, "CList", "StatusMsg");
					DBWriteContactSettingWord(hContact, protocolname, "Status", ID_STATUS_ONLINE);
					DBWriteContactSettingTString(hContact, protocolname, "XStatusName", Translate("Playing"));
					setBuddyStatusMsg(entry,entry->statusmsg);
					DBWriteContactSettingByte(hContact, protocolname, "XStatusId", xgamelist.iconmngr.getGameIconId(entry->game)+2);

					//buddy vorher ein spielgestartet, wenn nicht sound spielen?
					if(!DBGetContactSettingWord(hContact, protocolname, "GameId",0))
						SkinPlaySound( Translate( "xfirebstartgame" ) );

					DBWriteContactSettingWord(hContact, protocolname, "GameId", entry->game);
				}
				else
				{
					SetIcon(hContact,(HANDLE)-1);
					DBDeleteContactSetting(hContact, protocolname, "ServerIP");
					DBDeleteContactSetting(hContact, protocolname, "Port");
					if(strlen(entry->statusmsg.c_str())==0)
					{
						DBDeleteContactSetting(hContact, protocolname, "XStatusMsg");
						DBDeleteContactSetting(hContact, protocolname, "XStatusId");
						DBDeleteContactSetting(hContact, protocolname, "XStatusName");
					}
					DBDeleteContactSetting(hContact, protocolname, "RGame");
					DBDeleteContactSetting(hContact, protocolname, "GameId");
					setBuddyStatusMsg(entry,entry->statusmsg);
				}
			}
			else if(strlen(entry->statusmsg.c_str())>0)
			{
				setBuddyStatusMsg(entry,entry->statusmsg);

				SetIcon(hContact,(HANDLE)-1);
				SetIcon(hContact,(HANDLE)-1,EXTRA_ICON_ADV2);
				DBDeleteContactSetting(hContact, protocolname, "ServerIP");
				DBDeleteContactSetting(hContact, protocolname, "Port");
				DBDeleteContactSetting(hContact, protocolname, "VServerIP");
				DBDeleteContactSetting(hContact, protocolname, "VPort");
				DBDeleteContactSetting(hContact, protocolname, "RVoice");
				DBDeleteContactSetting(hContact, protocolname, "RGame");
				DBDeleteContactSetting(hContact, protocolname, "GameId");
				DBDeleteContactSetting(hContact, protocolname, "VoiceId");
			}
			else
			{
				if(DBGetContactSettingWord(entry->hcontact, protocolname, "Status", -1)==ID_STATUS_OFFLINE)
				{
					if(DBGetContactSettingByte(NULL, protocolname, "noclanavatars", 0)==1&&clan>0)
						;
					else
						if(myClient) myClient->CheckAvatar(entry);
				}

				SetIcon(hContact,(HANDLE)-1);
				SetIcon(hContact,(HANDLE)-1,EXTRA_ICON_ADV2);
				DBWriteContactSettingWord(hContact, protocolname, "Status", ID_STATUS_ONLINE);
				DBWriteContactSettingString(entry->hcontact, protocolname, "MirVer", "xfire");
				if(clan>0) DBWriteContactSettingDword(hContact, protocolname, "Clan", clan);
				DBWriteContactSettingTString(hContact, "CList", "StatusMsg", "");
				DBDeleteContactSetting(hContact, protocolname, "XStatusMsg");
				DBDeleteContactSetting(hContact, protocolname, "XStatusId");
				DBDeleteContactSetting(hContact, protocolname, "XStatusName");
				//DBDeleteContactSetting(hContact, "CList", "StatusMsg");
				DBDeleteContactSetting(hContact, protocolname, "ServerIP");
				DBDeleteContactSetting(hContact, protocolname, "Port");
				DBDeleteContactSetting(hContact, protocolname, "VServerIP");
				DBDeleteContactSetting(hContact, protocolname, "VPort");
				DBDeleteContactSetting(hContact, protocolname, "RVoice");
				DBDeleteContactSetting(hContact, protocolname, "RGame");
				DBDeleteContactSetting(hContact, protocolname, "GameId");
				DBDeleteContactSetting(hContact, protocolname, "VoiceId");
			}
		}
		if(group!=NULL)
		{
			if(!DBGetContactSettingByte(NULL,protocolname,"noclangroups",0))
			{
				if(clan>0)
				{
					int val=DBGetContactSettingByte(NULL,protocolname,"mainclangroup",0);
					
					if(	DBGetContactSettingByte(NULL,protocolname,"skipfriendsgroups",0)==0 ||
						(DBGetContactSettingByte(NULL,protocolname,"skipfriendsgroups",0)==1&&
					     DBGetContactSettingByte(entry->hcontact, protocolname, "isfriend", 0)==0)
						 )
					{
						if(val==0)
						{
							DBWriteContactSettingTString(entry->hcontact, "CList", "Group", group);
						}
						else
						{
							char temp[256];
							DBVARIANT dbv;
							sprintf_s(temp,256,"%d",val-1);
							DBGetContactSettingString(NULL,"CListGroups",temp,&dbv);
							if(dbv.pszVal!=NULL)
							{
								sprintf_s(temp,256,"%s\\%s",&dbv.pszVal[1],group);
								DBWriteContactSettingTString(entry->hcontact, "CList", "Group", temp);
								DBFreeVariant(&dbv);
							}
						}
					}
				}
				else if(clan==-1)//hauptgruppe für fof
				{
					int val=DBGetContactSettingByte(NULL,protocolname,"fofgroup",0);
					
					if(val==0)
					{
						DBWriteContactSettingTString(entry->hcontact, "CList", "Group", group);
					}
					else
					{
						char temp[256];
						DBVARIANT dbv;
						sprintf_s(temp,256,"%d",val-1);
						DBGetContactSettingString(NULL,"CListGroups",temp,&dbv);
						if(dbv.pszVal!=NULL)
						{
							sprintf_s(temp,256,"%s\\%s",&dbv.pszVal[1],group);
							DBWriteContactSettingTString(entry->hcontact, "CList", "Group", temp);
							DBFreeVariant(&dbv);
						}
					}
				}
			}
		}
		else
		{
			DBWriteContactSettingByte(entry->hcontact, protocolname, "isfriend", 1);
		}

	return hContact;
}

int AddtoList( WPARAM wParam, LPARAM lParam ) {
    CCSDATA* ccs = (CCSDATA*)lParam;

    if (ccs->hContact)
    {
		DBVARIANT dbv2;	
		if(!DBGetContactSetting(ccs->hContact,protocolname,"Username",&dbv2)) {

			if(myClient!=NULL)
				if(myClient->client->connected)
				{
					SendAcceptInvitationPacket accept;
					accept.name = dbv2.pszVal;
					myClient->client->send(&accept );
				}
			
			//temporären buddy entfernen, da eh ein neues packet kommt
			DBWriteContactSettingByte(ccs->hContact, protocolname, "DontSendDenyPacket", 1);
			CallService(MS_DB_CONTACT_DELETE, (WPARAM) ccs->hContact, 0);
		}
	}
	return 0;
}


static void __cdecl AckBasicSearch(void * pszNick)
{
	if(pszNick!=NULL)
	{
		if(myClient!=NULL)
			if(myClient->client->connected)
			{
				SearchBuddy search;
				search.searchfor(( char* )pszNick);
				myClient->client->send(&search );
			}
	}
}

int BasicSearch(WPARAM wParam,LPARAM lParam) {
	static char buf[50];
	if ( lParam ) {
		if(myClient!=NULL)
			if(myClient->client->connected)
			{
				lstrcpynA(buf, (const char *)lParam, 50);
				mir_forkthread(AckBasicSearch, &buf );
				return 1;
			}
	}

	return 0;
}



static int SearchAddtoList(WPARAM wParam,LPARAM lParam)
{
	PROTOSEARCHRESULT *psr = ( PROTOSEARCHRESULT* ) lParam;

	if ( psr->cbSize != sizeof( PROTOSEARCHRESULT ))
		return 0;

	if((int)wParam==0)
		if(myClient!=NULL)
			if(myClient->client->connected)
			{
				InviteBuddyPacket invite;
				invite.addInviteName( psr->nick, Translate("Add me to your friends list."));
				myClient->client->send(&invite );
			}

	return -1;
}


void CreateGroup(char*grpn,char*field) {
    DBVARIANT dbv;
	char* grp[255];

	int val=DBGetContactSettingByte(NULL,protocolname,field,0);

	if(val==0)
	{
		strcpy_s((char*)grp,255,grpn);//((char*)clan->name[i].c_str());
	}
	else
	{
		char temp[255];
		DBVARIANT dbv;
		sprintf_s(temp,255,"%d",val-1);
		DBGetContactSettingString(NULL,"CListGroups",temp,&dbv);
		if(dbv.pszVal!=NULL)
		{
			sprintf_s((char*)grp,255,"%s\\%s",&dbv.pszVal[1],(char*)grpn);
			DBFreeVariant(&dbv);
		}
		else //gruppe existiert nciht mehr, auf root alles legen
		{
			strcpy_s((char*)grp,255,grpn);
			DBWriteContactSettingByte(NULL,protocolname,field,0);
		}
	}
	
	
	char group[255]="";
	char temp[10];
	int i=0;
	for (i = 0;; i++)
	{
		sprintf(temp,"%d",i);
		if (DBGetContactSettingString(NULL, "CListGroups", temp, &dbv))
		{
			i--;
			break;
		}
		if (dbv.pszVal[0] != '\0' && !lstrcmp(dbv.pszVal + 1, (char*)grp))	{
			DBFreeVariant(&dbv);
			return;
		}
		DBFreeVariant(&dbv);
	}
	strcpy_s(group,255,"D");
	strcat_s(group,255,(char*)grp);
	group[0]= 1 | GROUPF_EXPANDED;
	sprintf(temp,"%d",i+1);
	DBWriteContactSettingString(NULL, "CListGroups", temp, group);
	CallServiceSync(MS_CLUI_GROUPADDED, i + 1, 0);
}


int SetAwayMsg(WPARAM wParam, LPARAM lParam) {
	EnterCriticalSection(&modeMsgsMutex);
	if(( char* )lParam==NULL)
	{
		if(wParam==ID_STATUS_ONLINE)
		{
			strcpy(statusmessage[0],"");
		}
		else if((wParam!=ID_STATUS_ONLINE&&wParam!=ID_STATUS_OFFLINE)&&DBGetContactSettingByte(NULL,protocolname,"nocustomaway",0)==0)
		{
			strcpy(statusmessage[1],"(AFK) Away from Keyboard");
		}
	}
	else
	{
		if(wParam==ID_STATUS_ONLINE)
		{
			strcpy(statusmessage[0],( char* )lParam);
		}
		else if((wParam!=ID_STATUS_ONLINE&&wParam!=ID_STATUS_OFFLINE)&&DBGetContactSettingByte(NULL,protocolname,"nocustomaway",0)==0&&strlen(( char* )lParam)>0)
		{
			strcpy(statusmessage[1],( char* )lParam);
		}
		else if(wParam!=ID_STATUS_ONLINE&&wParam!=ID_STATUS_OFFLINE)
		{
			strcpy(statusmessage[1],"(AFK) Away from Keyboard");
		}
	}

	if(myClient!=NULL)
	{
		if(myClient->client->connected)
		{
			if(bpStatus==ID_STATUS_ONLINE)
				myClient->Status(statusmessage[0]);
			else if(wParam!=ID_STATUS_ONLINE&&wParam!=ID_STATUS_OFFLINE)
				myClient->Status(statusmessage[1]);
		}
	}
	LeaveCriticalSection(&modeMsgsMutex);
	return 0;
}

static void SendAMAck( LPVOID param )
{
	DBVARIANT dbv;
	
	if(!DBGetContactSettingTString((HANDLE)param, protocolname, "XStatusMsg",&dbv))
	{
		ProtoBroadcastAck(protocolname, (HANDLE)param, ACKTYPE_AWAYMSG, ACKRESULT_SUCCESS, (HANDLE) 1, LPARAM(dbv.pszVal));
	}
	else
		ProtoBroadcastAck(protocolname, (HANDLE)param, ACKTYPE_AWAYMSG, ACKRESULT_SUCCESS, (HANDLE) 1, LPARAM(""));
}

int SetNickName(WPARAM wparam, LPARAM newnick)
{
	if(newnick==NULL)
	{
		return FALSE;
	}

	if(myClient!=NULL)
		if(myClient->client->connected)
		{
			myClient->setNick((char*)newnick);
			DBWriteContactSettingString(NULL,protocolname,"Nick",(char*)newnick);
			return TRUE;
		}
	return FALSE;
}

//sendet neue preferencen zu xfire
int SendPrefs(WPARAM wparam, LPARAM lparam)
{
	if(myClient!=NULL)
		if(myClient->client->connected)
		{
			PrefsPacket prefs;
			for(int i=0;i<XFIRE_RECVPREFSPACKET_MAXCONFIGS;i++)
			{
				prefs.config[i]=xfireconfig[i];
			}
			myClient->client->send( &prefs );
			return TRUE;
		}
	return FALSE;
}


int GetAwayMsg(WPARAM /*wParam*/, LPARAM lParam)
{
	CCSDATA* ccs = (CCSDATA*)lParam;

	mir_forkthread(SendAMAck,ccs->hContact);
	return 1;
}

int ContactDeleted(WPARAM wParam,LPARAM lParam) {
		if(!DBGetContactSettingByte((HANDLE)wParam, protocolname, "DontSendDenyPacket", 0))
			if(DBGetContactSettingByte((HANDLE)wParam,"CList","NotOnList",0))
				{
					if(myClient!=NULL)
						if(myClient->client->connected)
						{
							DBVARIANT dbv2;
							if(!DBGetContactSetting((HANDLE)wParam,protocolname,"Username",&dbv2)) {
								SendDenyInvitationPacket deny;
								deny.name = dbv2.pszVal;
								myClient->client->send( &deny );
							}
						}
			}
	return 0;
}

int StartGame(WPARAM wParam,LPARAM lParam,LPARAM fParam) {
	//gamelist blocken
	xgamelist.Block(TRUE);

	Xfire_game*game=xgamelist.getGamebyGameid(fParam);
	
	//starte das spiel
	if(game)
		game->start_game();

	//gamelist blocken
	xgamelist.Block(FALSE);


	return 0;
}

int RemoveFriend(WPARAM wParam,LPARAM lParam) {
	char temp[256];
	DBVARIANT dbv;

	if(!DBGetContactSettingTString((HANDLE)wParam, protocolname, "Username",&dbv))
	{
		sprintf(temp,Translate("Do you really want delete your friend %s?"),dbv.pszVal);
		if(MessageBoxA(NULL,temp,Translate("Confirm Delete"),MB_YESNO|MB_ICONQUESTION)==IDYES)
		{
			if(myClient!=NULL)
					{
						if(myClient->client->connected)
						{
							SendRemoveBuddyPacket removeBuddy;

							removeBuddy.userid=DBGetContactSettingDword((HANDLE)wParam,protocolname,"UserId",0);

							if(removeBuddy.userid!=0)
							{
								myClient->client->send(&removeBuddy);
							}
					}
			}
		}
		DBFreeVariant(&dbv);
	}
	return 0;
}

int BlockFriend(WPARAM wParam,LPARAM lParam) {
	DBVARIANT dbv;

	if(!DBGetContactSettingTString((HANDLE)wParam, protocolname, "Username",&dbv))
	{
		if(MessageBoxA(NULL,Translate("Block this user from ever contacting you again?"),Translate("Block Confirmation"),MB_YESNO|MB_ICONQUESTION)==IDYES)
		{
			if(myClient!=NULL)
					{
						if(myClient->client->connected)
						{
							DBWriteContactSettingByte(NULL,"XFireBlock",dbv.pszVal,1);

							SendDenyInvitationPacket deny;
							deny.name = dbv.pszVal;
							myClient->client->send( &deny );
						}
					}
		}
		CallService( MS_DB_CONTACT_DELETE, (WPARAM) wParam, 1 );
		DBFreeVariant(&dbv);
	}
	return 0;
}

int StartThisGame(WPARAM wParam,LPARAM lParam) {
	//gamelist blocken
	xgamelist.Block(TRUE);

	//hole die gameid des spiels
	int id=DBGetContactSettingWord((HANDLE)wParam, protocolname, "GameId",0);

	//hole passendes spielobjekt
	Xfire_game*game=xgamelist.getGamebyGameid(id);
	
	//starte das spiel
	if(game)
		game->start_game();

	//gamelist blocken
	xgamelist.Block(FALSE);

	return 0;
}

int JoinGame(WPARAM wParam,LPARAM lParam) {
	//gamelist blocken
	xgamelist.Block(TRUE);

	//hole die gameid des spiels
	int id=DBGetContactSettingWord((HANDLE)wParam, protocolname, "GameId",0);

	//hole passendes spielobjekt
	Xfire_game*game=xgamelist.getGamebyGameid(id);
	
	//starte das spiel
	if(game)
	{
		DBVARIANT dbv; //dbv.pszVal
		int port=DBGetContactSettingWord((HANDLE)wParam, protocolname, "Port",0);
		if(!DBGetContactSettingTString((HANDLE)wParam, protocolname, "ServerIP",&dbv))
		{
			//starte spiel mit netzwerk parametern
			game->start_game(dbv.pszVal,port);
			DBFreeVariant(&dbv);
		}
	}

	//gamelist unblocken
	xgamelist.Block(FALSE);


	return 0;
}


int doneQuery( WPARAM wParam, LPARAM lParam ) {
	char temp[256];
	BuddyListEntry* bud=(BuddyListEntry*)wParam;
	gServerstats* gameinfo = (gServerstats*)lParam;
	DBWriteContactSettingTString(bud->hcontact, protocolname, "ServerName", gameinfo->name);
	DBWriteContactSettingTString(bud->hcontact, protocolname, "GameType", gameinfo->gametype);
	DBWriteContactSettingTString(bud->hcontact, protocolname, "Map", gameinfo->map);
	sprintf(temp,"(%d/%d)",gameinfo->players,gameinfo->maxplayers);
	DBWriteContactSettingTString(bud->hcontact, protocolname, "Players", temp);
	DBWriteContactSettingByte(bud->hcontact, protocolname, "Passworded", gameinfo->password);
	
	if(myClient!=NULL)
		handlingBuddys(bud,0,NULL,TRUE);

	return 0;
}

static int SetNickDlg(WPARAM wParam,LPARAM lParam) {
	return ShowSetNick();
}


int IconLibChanged(WPARAM wParam, LPARAM lParam) {
	/*int x=0;
	char temp[255];
	for(int i=0;i<1024;i++)
	{
		if(icocache[i].hicon>0)
		{
			//ImageList_ReplaceIcon(hAdvancedStatusIcon,(int)icocache[i].handle,icocache[i].hicon);
			HANDLE before=icocache[i].handle;
			icocache[i].handle=(HANDLE)CallService(MS_CLIST_EXTRA_ADD_ICON, (WPARAM)icocache[i].hicon, 0);
			sprintf(temp,"before: %d after: %d",before,icocache[i].handle);
			MessageBoxA(NULL,temp,temp,0);
			DrawIcon(GetDC(NULL),x,0,(HICON)CallService(MS_SKIN2_GETICONBYHANDLE,0,(LPARAM)icocache[i].handle));
			x+=32;
		}
	}*/
	return 0;
}


int GetAvatarInfo(WPARAM wParam, LPARAM lParam) {
	PROTO_AVATAR_INFORMATION* pai = (PROTO_AVATAR_INFORMATION*)lParam;

	if(DBGetContactSettingByte(NULL,protocolname,"noavatars",-1)!=0)
		return GAIR_NOAVATAR;

	pai->format=DBGetContactSettingWord(pai->hContact,"ContactPhoto","Format",0);
	if(pai->format==0)
		return GAIR_NOAVATAR;

	DBVARIANT dbv;
	if(!DBGetContactSetting(pai->hContact,"ContactPhoto","File",&dbv))
	{
		strcpy(pai->filename,dbv.pszVal);
		DBFreeVariant(&dbv);
	}
	else
		return GAIR_NOAVATAR;

	return GAIR_SUCCESS;
}