VIPSYSTEM FOR SAMP V2.0 Not Done YET !!! !!! !!!

#include <a_samp>
#include <dini>
#include <dudb>
#include <zcmd>

#define RED 0xFF0000FF
#define GREEN 0x00FF00FF
#define YELLOW 0xFFFF00FF

#define VIPACC "VIP's/%s.ini"

enum pInfo
{
	vpPass
}
new PlayerInfo[MAX_PLAYERS];

new gPlayerLogged[MAX_PLAYERS];

#if defined FILTERSCRIPT

#endif

public OnPlayerConnect(playerid)
{
	new File[256];
	if(fexist(File))
	{
	   SendClientMessage(playerid, GREEN, "Welcome Back Vip!");
	}
	else
	{
		SendClientMessage(playerid, YELLOW, "Hi Member /VipPurchase!");
	}
	return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	if(dialogid == 3)
	{
	   new File[256];
	   new pName[MAX_PLAYER_NAME];
	   new Mess[128];
	   new Mess2[128];
	   if(!response) return SendClientMessage(playerid, RED, "Registration Aborted!");
	   if(!strlen (inputtext)) return ShowPlayerDialog(playerid, 3, DIALOG_STYLE_INPUT, "{FF0000}Try Again VIP Registration Error!", "{FF00000}Cancel Or Create A Password !", "Register", "Cancel");
	   GetPlayerName(playerid, pName, sizeof(pName));
	   format(File, sizeof(File), VIPACC, pName);
	   dini_Create(File);
	   GivePlayerMoney(playerid, -1500000);
	   dini_IntSet(File, "VipPasswordAccount", udb_hash(inputtext));
	   format(Mess, sizeof(Mess), "Your Vip MemberShip Created Succes Fully ! Name : %s Password : %s", pName, inputtext);
	   SendClientMessage(playerid, YELLOW, Mess);
	   format(Mess2, sizeof(Mess2), "Player Man %s Has Been bought VIP MEMBERSHIP ! /VIPPURCHASE !", pName);
	   SendClientMessageToAll(0x00FFFFFF, Mess2);
	   SendClientMessage(playerid, GREEN, "You Bought VIP MEMBERSHIP ACCOUNT!");
	}
	if(dialogid == 4)
	{
	   new File[256];
	   new pName[MAX_PLAYER_NAME];
	   GetPlayerName(playerid, pName, sizeof(pName));
	   format(File, sizeof(File), VIPACC, pName);
	   if(!response) return Kick(playerid);
	   new tmp;
	   tmp = dini_Int(File, "VipPasswordAccount");
	   if(udb_hash (inputtext) != tmp) {
	   ShowPlayerDialog(playerid, 4, DIALOG_STYLE_PASSWORD, "{FF0000}Wrong Password!", "{FF0000}Wrong Password Try Again Or Not Man Be Cool!", "Login", "Cancel");
	   }
	   else
	   {
	      PlayerPlaySound(playerid, 1057, 0.0, 0.0, 0.0);
	      GivePlayerMoney(playerid, 500000);
	      GameTextForPlayer(playerid, "~y~Vip Sold Succes Fully!", 6000, 3);
	      SendClientMessage(playerid, 0x00FF00FF, "VIP SOLD!");
	      dini_Remove(File);
	}
	}
	return 1;
}

public OnPlayerClickPlayer(playerid, clickedplayerid, source)
{
	return 1;
}

CMD:purchasevip(playerid, params[])
{
	new File[256];
	new pName[MAX_PLAYER_NAME];
	GetPlayerName(playerid, pName, sizeof(pName));
	format(File, sizeof(File), VIPACC, pName);
	if(!dini_Exists(File))
	{
	   if(GetPlayerMoney(playerid) < 1500000) return SendClientMessage(playerid, RED, "You Dont Have Enough Money You Need 1.5M To Buy Vip Membership Thx!");
	   ShowPlayerDialog(playerid, 3, DIALOG_STYLE_INPUT, "{80FFFF}Set Vip Account", "{FFFFFF}Please Register To Your Vip MemberShip!", "Register", "Cancel");
	}
	if(fexist(File))
	{
	   SendClientMessage(playerid, RED, "You Allready Have VIP MEMBERSHIP ACCOUNT!");
	}
	return 1;
}

CMD:sellvip(playerid, params[])
{
	new File[256];
	new pName[MAX_PLAYER_NAME];
	GetPlayerName(playerid, pName, sizeof(pName));
	format(File, sizeof(File), VIPACC, pName);
	if(!dini_Exists(File))
	{
	   SendClientMessage(playerid, 0xFF0000FF, "You Dont Have Vip MemberShip Man Dude Cool!");
	}
	if(fexist(File))
	{
	   ShowPlayerDialog(playerid, 4, DIALOG_STYLE_PASSWORD, "Login First Please", "To Sell Your Vip You Need To Put Your Vip Membership Password Cuz It May Be You'r You Annoying Brother!", "Login", "Cancel");
	}
	return 1;
}

CMD:heal(playerid, params[])
{
    new File[256];
	new pName[MAX_PLAYER_NAME];
	GetPlayerName(playerid, pName, sizeof(pName));
	format(File, sizeof(File), VIPACC, pName);
	if(fexist(File))
	{
	   SendClientMessage(playerid, GREEN, "Now Healing Is Free Cuz You VIP MEMBERSHIPER!!! !!! !!!");
	   SetPlayerHealth(playerid, 100);
	}
	if(!dini_Exists(File))
	{
	   if(GetPlayerMoney(playerid) < 100) return SendClientMessage(playerid, RED, "You Dont Have Enough Money You Need $100 To Heal Your Self!!! !!! !!!");
	   GivePlayerMoney(playerid, -100);
	   SetPlayerHealth(playerid, 100);
	   SendClientMessage(playerid, GREEN, "Health Set Purchase!");
	}
	return 1;
}

#pragma unused ret_memcpy