Firmy 0.5a by BrUn3S

#include <a_samp>
#include <dini>

#define DIALOG_TUNING 211
#define DIALOG_FIRMA 212
#define DIALOG_DISKVYBER 213
#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

enum TRZBA_TUNING
{
    Trzba,
};
new dTuning[MAX_PLAYERS][TRZBA_TUNING];//toto je potrebné bez toho by vám to nešlo



public OnFilterScriptInit()
{
return 1;
}

public OnFilterScriptExit()
{
return 1;
}

public OnPlayerRequestClass(playerid, classid)
{
return 1;
}

public OnPlayerConnect(playerid)
{
	new file[100];
 	format(file,sizeof(file),"/TuningWeh.txt");//do scriptfiles da vam toto načíta a aj vytvorí
 	if(!dini_Exists(file))//kontroluje či existuje a ked nie tak to vytvorí
 	{
    	dini_Create(file);//create = vytvorí txt subor
    	dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);
 	}
 	else if(dini_Exists(file))//ked existuje tak načíta
 	{
    	dTuning[playerid][Trzba] = dini_Int(file,"Trzba");
    	SendClientMessage(playerid,0xFFFFFFAA,"Tento server obsahuje Firmy 0.5a by BrUn3S.");
 	}
	return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
	new file[100];
	format(file,sizeof(file),"/TuningWeh.txt");//ktorý to je súbor
	dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);//uložiť
	return 1;
}

public OnPlayerSpawn(playerid)
{
	SetPlayerCheckpoint(playerid, -1786.1113,1204.2466,25.0199, 3.0);//súradnice si zmente
	return 1;
}

dcmd_firmy(playerid,params[])
{
    #pragma unused params
    if(!IsPlayerAdmin(playerid))return SendClientMessage(playerid,0xFFFFFFFF,"SERVER: You isn't Rcon Admin.");
	ShowPlayerDialog(playerid,DIALOG_FIRMA,DIALOG_STYLE_LIST,"Admins Firmy","Firma - Disky michael's","Potvrdiť","Zruš");
	return 1;
}

public OnPlayerDeath(playerid, killerid, reason)
{
return 1;
}

public OnVehicleSpawn(vehicleid)
{
return 1;
}

public OnVehicleDeath(vehicleid, killerid)
{
return 1;
}

public OnPlayerText(playerid, text[])
{
return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
dcmd(firmy,5,cmdtext);
return 0;
}

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
return 1;
}

public OnPlayerExitVehicle(playerid, vehicleid)
{
return 1;
}

public OnPlayerStateChange(playerid, newstate, oldstate)
{
return 1;
}

public OnPlayerEnterCheckpoint(playerid)
{
	new string[128];
	if(!IsPlayerInAnyVehicle(playerid))return SendClientMessage(playerid, 0x33AA33AA,"*-SERVER-* Musis byt vo vozidle!");
	if(IsPlayerInAnyVehicle(playerid))
	{
		format(string,sizeof(string),"Tuning Garaž(disky). Tržba: %d",dTuning[playerid][Trzba]);
		ShowPlayerDialog(playerid,DIALOG_TUNING,DIALOG_STYLE_LIST,string,"Switch - 18 000$\nMega - 10 000$\nRimshine - 4 000$\nWires - 8 000$\nTwist - 9 000$\nCutter 5 000$\n","Vybrať","Zrušiť");
	}
	return 1;
}

public OnPlayerLeaveCheckpoint(playerid)
{
return 1;
}

public OnPlayerEnterRaceCheckpoint(playerid)
{
return 1;
}

public OnPlayerLeaveRaceCheckpoint(playerid)
{
return 1;
}

public OnRconCommand(cmd[])
{
return 1;
}

public OnPlayerRequestSpawn(playerid)
{
return 1;
}

public OnObjectMoved(objectid)
{
return 1;
}

public OnPlayerObjectMoved(playerid, objectid)
{
return 1;
}

public OnPlayerPickUpPickup(playerid, pickupid)
{
return 1;
}

public OnVehicleMod(playerid, vehicleid, componentid)
{
return 1;
}

public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
{
return 1;
}

public OnVehicleRespray(playerid, vehicleid, color1, color2)
{
return 1;
}

public OnPlayerSelectedMenuRow(playerid, row)
{
return 1;
}

public OnPlayerExitedMenu(playerid)
{
return 1;
}

public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
{
return 1;
}

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
return 1;
}

public OnRconLoginAttempt(ip[], password[], success)
{
return 1;
}

public OnPlayerUpdate(playerid)
{
return 1;
}

public OnPlayerStreamIn(playerid, forplayerid)
{
return 1;
}

public OnPlayerStreamOut(playerid, forplayerid)
{
return 1;
}

public OnVehicleStreamIn(vehicleid, forplayerid)
{
return 1;
}

public OnVehicleStreamOut(vehicleid, forplayerid)
{
return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	if(dialogid == DIALOG_TUNING && response == 1)
 	{
  		new vehicle;
       	vehicle = GetPlayerVehicleID(playerid);
       	if(listitem == 0)//Switch
       	{
        	if(GetPlayerMoney(playerid) < 18000)//kontroluje ši ma 18000
            return SendClientMessage(playerid,0xB90000FF,"Nemas dostatok penazi,treba ti 18 000$!");// ak nie napiše SCM
            GivePlayerMoney(playerid,-18000);//ak ma tam mu ich zebere
            AddVehicleComponent(vehicle, 1080);//do jeho auta da elektrony switch
            dTuning[playerid][Trzba] += 18000;//prida do txt suboru +18k
            new file[100];
            format(file,sizeof(file),"/TuningWeh.txt");//otvori
            dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);//uloží
            SendClientMessage(playerid,0xFFFFFFFF,"Kúpil si si elektrony Switch.");//napiše
		}
  		if(listitem == 1)//Mega
    	{
     		if(GetPlayerMoney(playerid) < 10000)
            return SendClientMessage(playerid,0xB90000FF,"Nemas dostatok penazi,treba ti 10 000$!");
            GivePlayerMoney(playerid,-10000);
            AddVehicleComponent(vehicle, 1074);
            dTuning[playerid][Trzba] += 10000;
            new file[100];
            format(file,sizeof(file),"/TuningWeh.txt");
            dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);
            SendClientMessage(playerid,0xFFFFFFFF,"Kúpil si si elektrony Mega.");
		}
  		if(listitem == 2)//Rimshine
    	{
            if(GetPlayerMoney(playerid) < 4000)
            return SendClientMessage(playerid,0xB90000FF,"Nemas dostatok penazi,treba ti 4 000$!");
            GivePlayerMoney(playerid,-4000);
            AddVehicleComponent(vehicle, 1075);
            dTuning[playerid][Trzba] += 4000;
            new file[100];
            format(file,sizeof(file),"/TuningWeh.txt");
            dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);
            SendClientMessage(playerid,0xFFFFFFFF,"Kúpil si si elektrony Rimshine.");
     	}
      	if(listitem == 3)//Wires
       	{
            if(GetPlayerMoney(playerid) < 8000)
            return SendClientMessage(playerid,0xB90000FF,"Nemas dostatok penazi,treba ti 8 000$!");
            GivePlayerMoney(playerid,-8000);
            AddVehicleComponent(vehicle, 1076);
            dTuning[playerid][Trzba] += 8000;
            new file[100];
            format(file,sizeof(file),"/TuningWeh.txt");
            dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);
            SendClientMessage(playerid,0xFFFFFFFF,"Kúpil si si elektrony Wires.");
		}
		if(listitem == 4)//Twist
		{
			if(GetPlayerMoney(playerid) < 9000)return SendClientMessage(playerid,0xB90000FF,"Nemas dostatok penazi,treba ti 9 000$!");
			GivePlayerMoney(playerid,-9000);
			AddVehicleComponent(vehicle, 1078);
			dTuning[playerid][Trzba] += 9000;
			new file[100];
			format(file,sizeof(file),"/TuningWeh.txt");
			dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);
			SendClientMessage(playerid,0xFFFFFFFF,"Kúpil si si elektrony Twister.");
		}
		if(listitem == 5)//Currect
		{
			if(GetPlayerMoney(playerid) < 5000)return SendClientMessage(playerid,0xB90000FF,"Nemas dostatok penazi,treba ti 5 000$!");
			GivePlayerMoney(playerid,-5000);
			AddVehicleComponent(vehicle, 1079);
			dTuning[playerid][Trzba] += 5000;
			new file[100];
			format(file,sizeof(file),"/TuningWeh.txt");
			dini_IntSet(file,"Trzba",dTuning[playerid][Trzba]);
			SendClientMessage(playerid,0xFFFFFFFF,"Kúpil si si elektrony Currect.");
		}
	}
	if(dialogid == DIALOG_FIRMA && response == 1)
 	{
 	    new string[150];
		if(listitem == 0)
		{
			format(string,sizeof(string),"Zadaj čiastku ktorú chcete vybrať z Firmi - Disky michael's\nVo firme je : %d$",dTuning[playerid][Trzba]);
     		ShowPlayerDialog(playerid,DIALOG_DISKVYBER,DIALOG_STYLE_INPUT,"Vyber Penez",string,"Vybrať","Zrušiť");
		}
		return 1;
	}
	if(dialogid == DIALOG_DISKVYBER && response == 1)
 	{
		if(strval(inputtext) > dTuning[playerid][Trzba]) return SendClientMessage(playerid,0xAA3333AA,"Vo firme nieje tak vela penazi!");
     	else if(!IsNumeric(inputtext))
     	{
       		SendClientMessage(playerid,0xAA3333AA,"Zadaj číslo");
		}
		else
		{
			GivePlayerMoney(playerid,strval(inputtext));
			dTuning[playerid][Trzba] -= strval(inputtext);
			new fileffff[100];
			new Name[MAX_PLAYER_NAME];
			GetPlayerName(playerid,Name,sizeof(Name));
			format(fileffff,sizeof(fileffff),"/TuningWeh.txt");//ktorý to je súbor
			dini_IntSet(fileffff,"Trzba",dTuning[playerid][Trzba]);//uložiť
			new string[128];
			format(string,sizeof(string),"Admin %s si vybral z Firmy - disky michael's %d$",Name,strval(inputtext));
			SendClientMessage(playerid,0xFFFF00AA,string);
		}
		return 1;
	}
	return 1;
}
stock IsNumeric(string[])
{
	for (new i = 0, j = strlen(string); i < j; i++)
	{
		if (string[i] > '9' || string[i] < '0') return 0;
	}
	return 1;
}