VIP Script

/*
=========================================================================================
=========================================================================================
		  VVV           VVV   	III  PPPPPPPP
		   VVV         VVV 		III  PPP	PP
            VVV       VVV 		III  PPP 	PP
			 VVV     VVV 		III  PPPPPPPP
			  VVV   VVV 		III  PPP
			   VVVVVVV 			III  PPP
=========================================================================================
=========================================================================================
Contact: 389 833 234 = ICQ
Contact: granec2000  =Skype
Thanks you for using my VIP script
================================================================================
*/
//============ INCLUDE
#include <a_samp>
#include <dini>
#include <dutils>
#include <dudb>
//============ DEFINE
#define dcmd(%1,%2,%3) if ((strcmp((%3)[1], #%1, true, (%2)) == 0) && ((((%3)[(%2) + 1] == 0) && (dcmd_%1(playerid, "")))||(((%3)[(%2) + 1] == 32) && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1
#define COLOR_MODRA      0x0000BBAA
#define COLOR_MODRA2   0x4682B4AA
#define COLOR_MODRA3   0x4169FFAA
#define COLOR_SVMODRA   0x33CCFFAA
#define COLOR_ZELENA    0x008000AA
#define COLOR_CYAN       0x00FFFFAA
#define COLOR_TMAVACYAN   0x008B8BAA
#define COLOR_BILA       0xFFFFFFAA
#define COLOR_ZLUTA                0xFFFF00AA
#define COLOR_HNEDA                0xA52A2AAA
#define COLOR_HNEDA2    0xBC8F8FAA
#define COLOR_COKOLADA   0xD2691EAA
#define COLOR_CERVENA   0xFF0000AA
#define COLOR_SEDA       0x808080AA
#define COLOR_FIALOVA    0x800080AA
#define COLOR_RUZOVA   0xFFC0CBAA
#define COLOR_CHARTR   0x7FFF00AA
#define COLOR_ORANZCERV      0xFF4500AA
#define COLOR_ORANZOVA   0xFF8C00AA
#define COLOR_CIERNA     0x0B0606AA
#define COLOR_GREY 0xAFAFAFAA
#define COLOR_GREEN 0x33AA33AA
#define COLOR_RED 0xAA3333AA
#define COLOR_YELLOW 0xFFFF00AA
#define COLOR_WHITE 0xFFFFFFFF
#define COLOR_SYSTEM 0xEFEFF7AA
//============ PRAGMA
#pragma tabsize 0
//============ NEWS
new vip[MAX_PLAYERS];
new logged[MAX_PLAYERS];

new autacky[30][MAX_PLAYERS];
new auta[MAX_PLAYERS];
new Menu:Farby;
new pozicia[MAX_PLAYERS];
new heal[MAX_PLAYERS];
new many[MAX_PLAYERS];
new zbrane[MAX_PLAYERS];
new vgoto[MAX_PLAYERS];
new vload[MAX_PLAYERS];
new	Float:xx[MAX_PLAYERS];
new	Float:yy[MAX_PLAYERS];
new	Float:zz[MAX_PLAYERS];
//================== FORWARD
forward vgotoo(playerid);
forward vloadd(playerid);
forward Heal(playerid);
forward Zbrane(playerid);
forward Many(playerid);
//============ STOCK
stock SystemMsg(playerid,msg[]) {
   if ((IsPlayerConnected(playerid))&&(strlen(msg)>0)) {
       SendClientMessage(playerid,COLOR_SYSTEM,msg);
   }
   return 1;
}
stock Jmeno(playerid)
{
   new pName[MAX_PLAYER_NAME];
   if(IsPlayerConnected(playerid))
   {
         GetPlayerName(playerid, pName, sizeof(pName));
   }
   return pName;
}
stock PlayerName(playerid) {
  new name[255];
  GetPlayerName(playerid, name, 255);
  return name;
}
chrfind(n,h[],s=0)
{
	new l=strlen(h);
	while(s<l)
	{
		if(h[s]==n)
		return s;s++;
	}
	return -1;
}
//============================================ PUBLIC ON FILTER SCRIPT INIT
public OnFilterScriptInit()
{
AntiDeAMX();
Farby = CreateMenu("~r~[VIP] ~w~Colors", 1, 50.0, 180.0, 280.0, 200.0);
AddMenuItem(Farby, 0, "Blue    Color");
AddMenuItem(Farby, 0, "Green   Color");
AddMenuItem(Farby, 0, "Orange Color");
AddMenuItem(Farby, 0, "Purple  Color");
AddMenuItem(Farby, 0, "Hneda    Color");
AddMenuItem(Farby, 0, "Red  Color");
AddMenuItem(Farby, 0, "Black   Color");
AddMenuItem(Farby, 0, "Konec");
	return 1;
}
//============================================ PUBLIC ON PLAYER SELECTED MENU ROW
public OnPlayerSelectedMenuRow(playerid, row)
{
new Menu:Current = GetPlayerMenu(playerid);
if (Current == Farby ) {
switch(row) {
case 0:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Blue Aktived !");
       SetPlayerColor(playerid, COLOR_MODRA);
}
case 1:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Green Aktived !");
       SetPlayerColor(playerid, COLOR_ZELENA);
}
case 2:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Orange Aktived !");
       SetPlayerColor(playerid, COLOR_ORANZOVA);
}
case 3:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Purple Aktived !");
       SetPlayerColor(playerid, COLOR_FIALOVA);
}
case 4:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Brown Aktived !");
       SetPlayerColor(playerid, COLOR_HNEDA);
}
case 5:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Red Aktived !");
       SetPlayerColor(playerid, COLOR_CERVENA);
}
case 6:{SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: Color Black Aktived !");
       SetPlayerColor(playerid, COLOR_CIERNA);
}}}
return 1;
}
//============================================ PUBLIC ON FILTER SCRIPT EXIT
public OnFilterScriptExit()
{
	return 1;
}
//============================================ PUBLIC ON PLAYER SPAWN
public OnPlayerSpawn(playerid)
{
 	if(vip[playerid] == 1){
	GivePlayerWeapon(playerid, 30, 700);
	GivePlayerWeapon(playerid, 27, 370);
	GivePlayerWeapon(playerid, 24, 453);
	SetPlayerArmour(playerid,100);
	SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: As a VIP you will receive after player spawn batch of weapons and armor!");
    }
	return 1;
}
//============================================ PUBLIC ON PLAYER DISCONNECT
public OnPlayerDisconnect(playerid, reason)
{
    logged[playerid] = 0;
	return 1;
}
//============================================ PUBLIC ON PLAYER TEXT
public OnPlayerText(playerid, text[]){
  if(text[0] == '@') {
   new string[256];
   new name[24];
   GetPlayerName(playerid, name, 24);
   format(string, sizeof(string), "[VIP CHAT] [%d] %s: %s", playerid, name, text[1]);
   for(new i = 0; i < MAX_PLAYERS; i++) {
   if(IsPlayerConnected(i)) {
   if(vip[i] == vip[playerid])
   SendClientMessage(i, GetPlayerColor(playerid), string);
   }
   }
   return 0;
 }

  return 1;
}
//============================================ PUBLIC ON PLAYER CONNECT
public OnPlayerConnect(playerid)
{
	vgoto[playerid] = 0;
	many[playerid] = 0;
	vload[playerid] = 0;
	vip[playerid] = 0;
	heal[playerid] = 0;
	zbrane[playerid] = 0;
	pozicia[playerid] = 0;
    return 1;
}
public Heal(playerid)
{
heal[playerid] = 0;
SendClientMessage(playerid,COLOR_GREEN, "Command is used again! [/vheal]");
return 1;
}
public Zbrane(playerid)
{
zbrane[playerid] = 0;
SendClientMessage(playerid,COLOR_GREEN, "Command is used again! [/vzbrane]");
return 1;
}
public Many(playerid)
{
many[playerid] = 0;
SendClientMessage(playerid,COLOR_GREEN, "Command is used again! [/vmany]");
return 1;
}
public vgotoo(playerid)
{
vgoto[playerid] = 0;
SendClientMessage(playerid,COLOR_GREEN, "Command is used again! [/vgoto]");
return 1;
}
public vloadd(playerid)
{
vload[playerid] = 0;
SendClientMessage(playerid,COLOR_GREEN, "Command is used again! [/vload]");
return 1;
}
//============================================ PUBLIC ON PLAYER COMMAND TEXT
public OnPlayerCommandText(playerid, cmdtext[])
{
//======================= 1
//======================= 2
//======================= 3
	dcmd(vip,3,cmdtext);
	dcmd(vme,3,cmdtext);
//======================= 4
	dcmd(vcar,4,cmdtext);
//======================= 5
	dcmd(vdcar,5,cmdtext);
	dcmd(vmany,5,cmdtext);
	dcmd(vheal,5,cmdtext);
	dcmd(vsave,5,cmdtext);
	dcmd(vhelp,5,cmdtext);
	dcmd(vload,5,cmdtext);
	dcmd(vgoto,5,cmdtext);
//====================== 6
  dcmd(vlogin,6,cmdtext);
  dcmd(setvip,6,cmdtext);
  dcmd(vcolor,6,cmdtext);
//======================= 7
  	dcmd(vcolors,7,cmdtext);
	dcmd(vzbrane,7,cmdtext);
//======================= 8
//======================= 9
  dcmd(vregister,9,cmdtext);
	return 0;
}
//================================== VREGISTER
dcmd_vregister(playerid, params[])
{
	new file[128];
	new pname[MAX_PLAYER_NAME];
	GetPlayerName(playerid, pname, sizeof(pname));
	format(file,sizeof(file),"VIP/%s.ini",pname);
    if(!strlen(params)) return SendClientMessage(playerid, COLOR_RED, "[VIP]: /register [Heslo]");
  if(dini_Exists(file)) return SendClientMessage(playerid, COLOR_RED, "[VIP]: Have you registered! Log in!");
    dini_Create(file);
    dini_IntSet(file, "hashPW", udb_hash(params));
    dini_Set(file, "password", params);
    dini_Set(file, "VIP", "1");
    new string[256];
    format(string, 256, "[VIP]: Registrations are successful with your nick %s and password %s!", pname, params);
    SendClientMessage(playerid, COLOR_YELLOW, string);
    logged[playerid] = 1;
    SendClientMessage(playerid, COLOR_YELLOW, "[VIP]: You have been automatically logged!");
	return 1;
}
//================================== VLOGN
dcmd_vlogin(playerid, params[])
{
	new file[128],string[256];
	new pname[MAX_PLAYER_NAME];
	GetPlayerName(playerid, pname, sizeof(pname));
	format(file,sizeof(file),"VIP/%s.ini",pname);
    if(!strlen(params)) return SendClientMessage(playerid, COLOR_RED, "[VIP]: /login [Heslo]");
    if(!dini_Exists(file)) return SendClientMessage(playerid, COLOR_RED, "[VIP]: You are not registered! Register!");
    if(logged[playerid]) return SendClientMessage(playerid, COLOR_RED, "[VIP]: Already ste login!");
    new tmp[256];
    tmp = dini_Get(file, "hashPW");
    if(udb_hash(params) != strval(tmp))
    {
        format(string, 256, "[VIP]: You entered an incorrect password for your nick %s!", pname);
        SendClientMessage(playerid, COLOR_RED, string);
    }
    else
    {
        logged[playerid] = 1;
        vip[playerid] = dini_Int(file, "VIP");
        SendClientMessage(playerid, COLOR_YELLOW, "[VIP]: You have successfully logged in.!");
        printf("%s (%i) logged of password %s", pname, playerid, params);
    }
    return 1;
}
//================================== SET VIP
dcmd_setvip(playerid, params[])
{
new string[256];
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid,COLOR_CERVENA ,"You must sign bit as rcon admin!");
new pos,level;
if(!params[0]||!(pos=chrfind(' ',params)+1)) return SendClientMessage(playerid,COLOR_CERVENA ,"Use /setvip ID 0-1");
if(strlen(params) > 23) return SendClientMessage(playerid, COLOR_CERVENA, "VIP: bad LVL");
new ID = strval(params[0]);
level = strval(params[pos]);
if(!IsPlayerConnected(ID)) return SendClientMessage(playerid,COLOR_CERVENA ,"ID is not online");
if(level < 0 || level > 1) return SendClientMessage(playerid, COLOR_CERVENA, "VIP: bad LVL");
format(string, sizeof(string), "Admin %s gave the player %s a VIP LVL %d !", PlayerName(playerid),PlayerName(ID),level);
SendClientMessageToAll(0xFF0000AA, string);
vip[ID] = level;
return true;
}
//================================== VIP

dcmd_vip(playerid, params[]){
#pragma unused params
new string[128];
SendClientMessage(playerid,COLOR_CERVENA ,"[VIP] Online VIP Players");
for(new i=0;i<=500;i++)
{
if(IsPlayerConnected(i))
{
if(vip[i] == 1 && !IsPlayerAdmin(i))
{
format(string, 60, "[ VIP ] %s |  [ %d ]",PlayerName(i),vip[i]);
SendClientMessage(playerid,COLOR_CERVENA,string);
}
}
}
return 1;
}

//================================= VIP CAR/

dcmd_vcar(playerid, params[])
{
		if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
        new ID = strval(params);
		SendClientMessage(playerid, COLOR_BILA,"Perr.404,Ranch.489,Regina.479,Romero.442,Virgo.491,Greenw.492,Buff.402,Phoen.603");
		SendClientMessage(playerid, COLOR_BILA,"Sult.560,Limo.409,Admiral.445,Blista.496,Turism.451,Jester.559,Elegy.562,Strat.561");
		SendClientMessage(playerid, COLOR_BILA,"Vzdusne: PolMav.497,Raind.563,NewMav.488,Mave.487,SeaSpar.447,Rust.476,Stunt.563,Hydra.520");
		SendClientMessage(playerid, COLOR_BILA,"Vodni:  CoastGur.472,Dingy.473,Speeder.452,Squallo.446,Tropic.454,JetMax.493,Marquis.484,Tor.451");
		SendClientMessage(playerid, COLOR_BILA,"Vlada: Enf.427,Ambulance.416,FBI.490,Tank.432,STank.601,Autobus.437/431,Taxi.438/420,Inf.411");
		SendClientMessage(playerid, COLOR_BILA,"Kola: Bmx.481,NRG.522,Sanch.468,Fagg.462,Freew.463,PCJ.461,Mountain.510,BF400.581,Patr.470");
		if(!strlen(params)) return SendClientMessage(playerid, COLOR_CERVENA, "Použi /car id auta");
        if( ID < 400 || ID > 611 ) return SendClientMessage(playerid, COLOR_CERVENA, "Rozmedzie Aut 400 - 611 !");
		if(auta[playerid] == 20) return SendClientMessage(playerid, COLOR_RED, "Na servery je moc aut (20)! musíš jejich nejprve vymazat (/dcar)");
        new Float:X,Float:Y,Float:Z,Float:SVK;
		GetPlayerPos(playerid, X,Y,Z);
		SendClientMessage(playerid,COLOR_BILA,"Car created !!!");
        autacky[auta[playerid]][playerid] = CreateVehicle(ID,X,Y,Z,SVK,-1,-1,6000);
        auta[playerid] ++;

    return 1;
}
dcmd_vdcar(playerid, params[])
{
if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
new string[128];
#pragma unused params
#pragma unused playerid
format(string, sizeof(string), "VIP Player %s destroyed all VIP cars! !",PlayerName(playerid));
SendClientMessageToAll(COLOR_RED, string);
for(new i = 0; i < 20; i++)
{
if(autacky[i][playerid])
{
DestroyVehicle(autacky[i][playerid]);
auta[playerid] = 0;
}
}
return 1;
}
//================================ VIP COLOR
dcmd_vcolor(playerid, params[])
{

	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
	new farba = strval(params),pos = chrfind(' ', params);
	if(pos == -1) return SendClientMessage(playerid, COLOR_CERVENA, " VIP: /vcolor barba barba2.");
	if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid, COLOR_BILA, "VIP: You not in car");
	new farba2 = strval(params[pos]);
	if(farba > 128 || farba < 0) return SendClientMessage(playerid, COLOR_CERVENA, "VIP: bad color ! 1-127");
	if(farba2 > 128 || farba2 < 0) return SendClientMessage(playerid, COLOR_CERVENA, "VIP: bad color! 1-127");
	ChangeVehicleColor(GetPlayerVehicleID(playerid), farba, farba2);
	SendClientMessage(playerid, COLOR_CERVENA, "[ VIP ]Color Changed");
	return 1;
}
//================================ VIP SAY
dcmd_vme(playerid, params[]){
if(IsPlayerConnected(playerid))
{
if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
if(!strlen(params)) return SendClientMessage(playerid, COLOR_CERVENA, "[ VIP ] /vme TEXT");
new string[256],jmeno[24];
GetPlayerName(playerid, jmeno, 24);
format(string, 255, "VIP %s: %s",PlayerName(playerid) , params);
SendClientMessageToAll(0x00F1FF,string);
}
return true;
}
//================================ FARBY
dcmd_vcolors(playerid, params[])
{
#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
		ShowMenuForPlayer(Farby,playerid);
	return 1;
}
//================================== VHELP
dcmd_vhelp(playerid, params[])
{
#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"[VIP = 0]: /vregister heslo /vlogin heslo /vip , VIP Script by KiLlMaN = [NFH]Faren");
	SendClientMessage(playerid, COLOR_CERVENA, "[VIP = 0]: /vregister heslo /vlogin heslo /vip");
	SendClientMessage(playerid, COLOR_CERVENA, "[VIP = 1]: /vme /vcar /vdcar /vmany /vheal");
	SendClientMessage(playerid, COLOR_CERVENA, "[VIP = 1]: /vsave /vload /vgoto /vchat /vzbrane");
	SendClientMessage(playerid, COLOR_CERVENA, "[VIP = 1]: /vcolor /vcolors VIP Script by KiLlMaN = [NFH]Faren");
	if(IsPlayerAdmin(playerid)) SendClientMessage(playerid,COLOR_CERVENA ,"[VIP Rcon Admin]: /setvip playerid 0-1 !");

	return 1;
}

//================================ HEAL
dcmd_vheal(playerid, params[])
{
#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
	if(heal[playerid] == 1)return SendClientMessage(playerid, COLOR_RED, "[VIP]: This command can be used once every 5 minutes!");
	SetTimerEx("Heal",300000,false,"i",playerid);
	heal[playerid] = 1;
	SetPlayerHealth(playerid,100);
		GameTextForPlayer(playerid,"~r~[VIP] ~w~FULL HEAL !",3000,5);
	return 1;
}
//================================ MANY
dcmd_vmany(playerid, params[])
{
#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
		if(many[playerid] == 1)return SendClientMessage(playerid, COLOR_RED, "[VIP]: This command can be used once every 5 minutes!");
	SetTimerEx("Many",300000,false,"i",playerid);
	many[playerid] = 1;//300000
	GivePlayerMoney(playerid, 50000);
	GameTextForPlayer(playerid,"~r~[VIP] ~w~ 50 000 €!",3000,5);
	return 1;
}
//================================ ZBRANE
dcmd_vzbrane(playerid, params[])
{
#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
	if(zbrane[playerid] == 1)return SendClientMessage(playerid, COLOR_RED, "[VIP]: This command can be used once every 3 minutes!");
	SetTimerEx("Zbrane",150000,false,"i",playerid);
	zbrane[playerid] = 1;
	GivePlayerWeapon(playerid, 30, 1500);
	GivePlayerWeapon(playerid, 25, 370);
	GivePlayerWeapon(playerid, 24, 700);
	GameTextForPlayer(playerid,"~r~[VIP] ~w~DOSTAL SI SADU ZBRANÍ!",3000,5);
	return 1;
}
//================================ SAVE
dcmd_vsave(playerid, params[])
{
	#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
	pozicia[playerid] = 1;
	GetPlayerPos(playerid, xx[playerid], yy[playerid], zz[playerid]);
	SendClientMessage(playerid, COLOR_BILA, "[VIP]: Pos saved!");
	return 1;
}
//================================ LOAD
dcmd_vload(playerid, params[])
{
	#pragma unused params
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
	if(pozicia[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA, "[VIP]: You have saved position!");
	if(vload[playerid] == 1)return SendClientMessage(playerid, COLOR_RED, "[VIP]: This command can be used once every 1 minut!");
	if(IsPlayerInAnyVehicle(playerid)){
		new auto = GetPlayerVehicleID(playerid);
        SetVehiclePos(auto, xx[playerid], yy[playerid], zz[playerid]);
	    }else{
		SetPlayerPos(playerid, xx[playerid], yy[playerid], zz[playerid]);
	}
	SendClientMessage(playerid, COLOR_BILA, "[VIP]: Pos loaded!");
	SetTimerEx("vloadd",60000,false,"i",playerid);
	vload[playerid] = 1;
	return 1;
}
//================================ GOTO
dcmd_vgoto(playerid, params[])
{
	if(vip[playerid] == 0) return SendClientMessage(playerid, COLOR_CERVENA,"You not VIP Player !!");
	if(!strlen(params)) return SendClientMessage(playerid, COLOR_RED, "[VIP]: /vgoto [ID].");
	new play = strval(params);
	if(!IsPlayerConnected(play)) return SendClientMessage(playerid, COLOR_RED, "[VIP]: Player is not online!");
	new string2[256],Float:x,Float:y,Float:z,inter,auto = GetPlayerVehicleID(playerid);
	inter = GetPlayerInterior(play);
	GetPlayerPos(play, x, y, z);
	if(IsPlayerInAnyVehicle(playerid)){
 		SetVehiclePos(auto, x, y, z+1);
		}else{
		SetPlayerPos(playerid, x, y, z+1);
		SetPlayerInterior(playerid, inter);
	}
	format(string2, sizeof(string2), "[VIP]: %s Player to you teleported!",PlayerName(playerid));
	SendClientMessage(play, COLOR_BILA, string2);
 	vgoto[playerid] = 1;
	if(vload[playerid] == 1)return SendClientMessage(playerid, COLOR_RED, "[VIP]: This command can be used once every 1 minut!");
	SetTimerEx("vgotoo",60000,false,"i",playerid);
	return 1;
}
//================================ CHAT

AntiDeAMX()
{
   new a[][] =
   {
      "Unarmed (Fist)",
      "Brass K"
   };
   #pragma unused a
}