CarSpawner (von Vincent Petritz)

#include <a_samp>
#include <ocmd>
#include <sscanf2>

#define VEHICLES_PER_PLAYER     4
// Dialoge
#define VEHICLE_LIST_DIALOG     1231

public OnFilterScriptInit()
{
	print("Vehiclespawner by Vincent Petritz");
	return 1;
}

stock GetPlayerNameEx(playerid)
{
	new name[MAX_PLAYER_NAME];
	GetPlayerName(playerid, name, MAX_PLAYER_NAME);
	return name;
}

main()
{
	print("Vehiclespawner by Vincent Petritz");
}

ocmd:carlist(playerid, params[])
{
	#pragma unused params
	new str1[100],
		str2[70],
		str3[500];
	format(str1, sizeof(str1), "[%d/%d] Vehicles von dir, %s.", GetPVarInt(playerid, "VehiclesOwned"), VEHICLES_PER_PLAYER, GetPlayerNameEx(playerid));
	if(GetPVarInt(playerid, "VehiclesOwned") == 0)
	{
	    format(str2, sizeof(str2), "Fahrzeug mit /createcar hinzufügen");
	    ShowPlayerDialog(playerid, VEHICLE_LIST_DIALOG, DIALOG_STYLE_LIST, str1, str2, "Ok", "");
	}
	else if(GetPVarInt(playerid, "VehiclesOwned") >= 1) {
		format(str3, sizeof(str3), "CarID Farben\n%d   %d & %d\n%d   %d & %d\n%d   %d & %d\n%d   %d & %d\n%d   %d & %d",
									GetPVarInt(playerid, "VehicleID1"),
									GetPVarInt(playerid, "VehicleCOL11"),
									GetPVarInt(playerid, "VehicleCOL21"),
         							GetPVarInt(playerid, "VehicleID2"),
									GetPVarInt(playerid, "VehicleCOL12"),
									GetPVarInt(playerid, "VehicleCOL22"),
         							GetPVarInt(playerid, "VehicleID3"),
									GetPVarInt(playerid, "VehicleCOL13"),
									GetPVarInt(playerid, "VehicleCOL23"),
         							GetPVarInt(playerid, "VehicleID4"),
									GetPVarInt(playerid, "VehicleCOL14"),
									GetPVarInt(playerid, "VehicleCOL24"));
        ShowPlayerDialog(playerid, VEHICLE_LIST_DIALOG, DIALOG_STYLE_LIST, str1, str3, "Ok", "");
	}
	return 1;
}

ocmd:createcar(playerid, params[])
{
	new carID, colID1, colID2, slot;
	if(sscanf(params, "dddd", carID, colID1, colID2, slot))
	    return SendClientMessage(playerid, 0xFF0023FF, "Falsche Eingabe: /createcar [carID] [colID] [colID] [slotID]");
	if(GetPVarInt(playerid, "VehiclesOwned") <= 4)
	{
	    new str[100];
	    format(str, sizeof(str), "VehicleID%d", slot);
	    if(GetPVarInt(playerid, str) == 0 && slot < 5)
	    {
	        new str1[128],
	            Float:x,
	            Float:y,
	            Float:z,
				vehicleForPlayer,
				str5[128],
				str2[50],
				str3[50],
				str4[50];
			GetPlayerPos(playerid, x, y, z);
	        format(str1, sizeof(str1), "[VehicleSpawner] Vehicle auf Slot %d gespawned.", slot);
	        format(str5, sizeof(str5), "[VehicleSpawner] Slot: %d; CarID: %d; Col1: %d; Col2: %d", slot, carID, colID1, colID2);
			vehicleForPlayer = CreateVehicle(carID, x, y, z, 0, colID1, colID2, 60);
			PutPlayerInVehicle(playerid, vehicleForPlayer, 0);
			format(str2, sizeof(str2), "VehicleCOL1%d", slot);
			format(str3, sizeof(str3), "VehicleCOL2%d", slot);
			format(str4, sizeof(str4), "VehicleIDx%d", slot);
			SetPVarInt(playerid, str4, GetPlayerVehicleID(playerid));
			SetPVarInt(playerid, str2, colID1);
			SetPVarInt(playerid, str3, colID2);
			SetPVarInt(playerid, str, carID);
			SetPVarInt(playerid, "VehiclesOwned", GetPVarInt(playerid, "VehiclesOwned") +1);
			SendClientMessage(playerid, 0xFF8C00FF, str1);
	        SendClientMessage(playerid, 0xFF8C00FF, str5);
		}
		else
			return SendClientMessage(playerid, 0xFF0023FF, "Fahrzeug auf Slot vorhanden!");
	}
  	else
    	return SendClientMessage(playerid, 0xFF0023FF, "Maximale Slotanzahl verbraucht!");
   	return 1;
}

ocmd:destroycar(playerid, params[])
{
	new slot;
	if(sscanf(params, "d", slot))
	    return SendClientMessage(playerid, 0xFF0023FF, "Falsche Eingabe: /destroycar [Slot]");
	if(slot > 0 && slot < 5)
	{
	    new str1[100],
			str2[50],
			str3[50],
			str4[50],
			str5[50];
	    format(str1, sizeof(str1), "[VehicleSpawner] Carslot %d ist nun wieder frei!", slot);
	    SendClientMessage(playerid, 0xFF8C00FF, str1);
	    format(str2, sizeof(str2), "VehicleCOL1%d", slot);
		format(str3, sizeof(str3), "VehicleCOL2%d", slot);
		format(str4, sizeof(str4), "VehicleIDx%d", slot);
		format(str5, sizeof(str5), "VehicleID%d", slot);
		DestroyVehicle(GetPVarInt(playerid, str4));
		SetPVarInt(playerid, str2, 0);
		SetPVarInt(playerid, str3, 0);
		SetPVarInt(playerid, str4, 0);
		SetPVarInt(playerid, str5, 0);
	}
	else
	    return SendClientMessage(playerid,0xFF0023FF, "Falsche Slotangabe!");
	return 1;
}