Script error bangsat

/*==========================Ulric Vehicle System================================
===============================by ~Xaviour212~==================================
=======================Please dont remove the credits=========================*/

#include <a_samp>
#include <dini>

#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 Blue 0x0259EAAA
#define Red 0xFF0000AA
#define Green 0x16EB43FF

new file[256];
new VCount;
new VehNames[212][] =
{
        "Landstalker","Bravura","Buffalo","Linerunner","Pereniel","Sentinel","Dumper","Firetruck","Trashmaster",
        "Stretch","Manana","Infernus","Voodoo","Pony","Mule","Cheetah","Ambulance","Leviathan","Moonbeam","Esperanto",
        "Taxi","Washington","Bobcat","Mr Whoopee","BF Injection","Hunter","Premier","Enforcer","Securicar","Banshee",
        "Predator","Bus","Rhino","Barracks","Hotknife","Trailer","Previon","Coach","Cabbie","Stallion","Rumpo",
        "RC Bandit","Romero","Packer","Monster","Admiral","Squalo","Seasparrow","Pizzaboy","Tram","Trailer",
        "Turismo","Speeder","Reefer","Tropic","Flatbed","Yankee","Caddy","Solair","Berkley's RC Van","Skimmer",
        "Pcj - 600","Faggio","Freeway","RC Baron","RC Raider","Glendale","Oceanic","Sanchez","Sparrow","Patriot",
        "Quad","Coastguard","Dinghy","Hermes","Sabre","Rustler","Zr3 50","Walton","Regina","Comet","Bmx",
        "Burrito","Camper","Marquis","Baggage","Dozer","Maverick","News Chopper","Rancher","FBI Rancher","Virgo",
        "Greenwood","Jetmax","Hotring","Sandking","Blista Compact","Police Maverick","Boxville","Benson","Mesa",
        "RC Goblin","Hotring Racer A","Hotring Racer B","Bloodring Banger","Rancher","Super GT","Elegant",
        "Journey","Bike","Mountain Bike","Beagle","Cropdust","Stunt","Tanker","RoadTrain","Nebula","Majestic",
        "Buccaneer","Shamal","Hydra","Fcr - 900","Nrg - 500","Hpv - 1000","Cement Truck","Tow Truck","Fortune","Cadrona",
        "FBI Truck","Willard","Forklift","Tractor","Combine","Feltzer","Remington","Slamvan","Blade","Freight",
        "Streak","Vortex","Vincent","Bullet","Clover","Sadler","Firetruck","Hustler","Intruder","Primo","Cargobob",
        "Tampa","Sunrise","Merit","Utility","Nevada","Yosemite","Windsor","Monster A","Monster B","Uranus",
        "Jester","Sultan","Stratum","Elegy","Raindance","RC Tiger","Flash","Tahoma","Savanna","Bandito","Freight",
        "Trailer","Kart","Mower","Duneride","Sweeper","Broadway","Tornado","AT-400","DFT-30","Huntley","Stafford",
        "BF-400","Newsvan","Tug","Trailer A","Emperor","Wayfarer","Euros","Hotdog","Club","Trailer B","Trailer C",
        "Andromada","Dodo","RC Cam","Launch","Police Car (LSPD)","Police Car (SFPD)","Police Car (LVPD)","Police Ranger",
        "Picador","S.W.A.T. Van","Alpha","Phoenix","Glendale","Sadler","Luggage Trailer A","Luggage Trailer B",
        "Stair Trailer","Boxville","Farm Plow","Utility Trailer"
};

public OnFilterScriptInit()
{
    print("\n--------------------------------------");
    print(" Ulric Vehicle System by Xaviour212");
    print("--------------------------------------\n");
    return 1;
}

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
    new string[100];
    VCount = CreateVehicle(411,0,0,0,0,0,0,-1);
    DestroyVehicle(VCount);
    for(new v=1; v < VCount; v++)
    {
        if(dini_Int(VFile(v),"UnBuyable") == 0 && dini_Int(VFile(v),"Owned") == 1)
        {
            format(string, sizeof(string), "~b~This %s has belogs to %s. And this car is not available for purchase", VehNames[GetVehicleModel(v)-400],dini_Get(VFile(v),"Owner"));
            GameTextForPlayer(playerid, string, 3000, 4);
        }
        else if(dini_Int(VFile(v),"UnBuyable") == 1)
        {
            format(string, sizeof(string), "~r~This %s in Unbuyable", VehNames[GetVehicleModel(v)-400]);
            GameTextForPlayer(playerid, string, 3000, 4);
        }
        else if(dini_Int(VFile(v),"UnBuyable") == 0 && dini_Int(VFile(v),"Owned") == 0)
        {
            format(string, sizeof(string), "~g~This %s in Buyable. \nThe cost is $200000", VehNames[GetVehicleModel(v)-400]);
            GameTextForPlayer(playerid, string, 3000, 4);
        }
    }
    return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
    dcmd(vbuy,4,cmdtext);
    return 0;
}

dcmd_vbuy(playerid, params[])
{
    #pragma unused params
    new vehicleid, string[50];
    if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid,Red,"[ERROR]You must in Vehicle to use this command");
    if(dini_Int(VFile(vehicleid),"Owned")== 1) return SendClientMessage(playerid,Red,"[ERROR]This car is already owned");
    if(dini_Int(VFile(vehicleid),"UnBuyable")== 0) return SendClientMessage(playerid,Red,"[ERROR]This car in unbuyable");
    if(dini_Int(PFile(playerid),"HaveCar")== 1) return SendClientMessage(playerid,Red,"[ERROR]You already have a Car");
    if(GetPlayerMoney(playerid < 80000)) return SendClientMessage(playerid,Red,"[ERROR]You dont have a $200000");
    if(!dini_Exist(PFile(playerid)))
    {
        dini_Create(PFile(playerid));
        dini_IntSet(PFile(playerid,"HaveCar",1);
        dini_IntSet(PFile(playerid,"CarID",1);
    }
    else if(dini_Exist(PFile(playerid)))
    {
        dini_IntSet(PFile(playerid,"HaveCar",1);
        dini_IntSet(PFile(playerid,"CarID",1);
    }
    if(!dini_Exist(VFile(vehicleid)))
    {
        dini_Create(VFile(playerid));
        dini_IntSet(VFile(vehicleid),"Owned",1);
        dini_IntSet(VFile(vehicleid),"Owner",Gn(playerid));
    }
    else if(dini_Exist(VFile(vehicleid)))
    {
        dini_IntSet(VFile(vehicleid),"Owned",1);
        dini_IntSet(VFile(vehicleid),"Owner",Gn(playerid));
    }
    format(string, sizeof(string), "You has buy a %s", VehNames[GetVehicleModel(vehicleid)-400]);
    SendClientMessage(playerid, Green, string);
    SendClientMessage(playerid, Blue, "To call your vehicle, type /vcall");
    GivePlayerMoney(playerid, -80000);
    return 1;
}

stock Gn(playerid)
{
    new pname[24];
    GetPlayerName(playerid,pname,MAX_PLAYER_NAME);
    return pname;
}

stock PFile(playerid)
{
    format(file,64,"Cars/Users/%s.ini",Gn(playerid));
    return file;
}

stock VFile(vehicleid)
{
    new Car[64];
    format(Car,64,"Cars/%d.ini",vehicleid);
    return Car;
}

stock Pc(playerid) return dini_Int(PFile(playerid),"CarId");