Bebro Admin sistema. Source code.

#include <a_samp>
#include <YSI\y_commands>
#include <YSI\y_master>
#include <sscanf2>

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

native IsValidVehicle(vehicleid);

static a_level[MAX_PLAYERS][21];
static a_transport[MAX_PLAYERS];

main()
{
    print("\n\nBebro admin sistema pakrauta");
}

public OnFilterScriptInit()
{
    new File:file;
    file=fopen("users.cfg",io_readwrite);
    fwrite(file,"/*\r\nBebro Admin sistema\r\nLeidimai\r\n \
    a - Komanda ismesti\r\n \
    b - Komanda Ban\r\n \
    c - Komandos global/adminu\r\n \
    d - Komandos to/get \
    e - Komanda tr \r\n\r\n \
    Naudojimas: Žaidėjo_vardas_be_tarpų \"Žaidėjo titulas(iki 20simbolių)\" leidimai_be_tarpų\r\n\r\n \
    PVZ:\r\n\r\nBebras \"Dievas\" abcd\r\n \
    Tai leistų vartotojui \"Bebras\"naudoti visas 4 komandas\r\n\r\n\r\n \
    Laukite naujų versijų!*/");
    fclose(file);
    return 1;
}
public OnPlayerConnect(playerid)
{
    new pname[MAX_PLAYER_NAME],File:file=fopen("users.cfg",io_read),string[64];
    GetPlayerName(playerid,pname,sizeof(pname));
    while(fread(file,string))
    {
        new index = strfind(string,pname);
        if(index != -1)
        {
            strdel(string,index,strlen(pname));
            index = strfind(string,"\"");//"
            new index2 = strfind(string,"\"",true,index+1); //"
            if(index != -1 && index2 != -1)
            {
                strmid(a_level[playerid],string,index+1,index2);
                strdel(string,index,index2+1);
            }
            else strins(a_level[playerid],"Administratorius",0);
            if(strfind(string,"a") != -1) Command_SetPlayerNamed("ismesti",playerid,true);
            if(strfind(string,"b") != -1) Command_SetPlayerNamed("ban",playerid,true);
            if(strfind(string,"c") != -1)
            {
                Command_SetPlayerNamed("global",playerid,true);
                Command_SetPlayerNamed("adminu",playerid,true);
            }
            if(strfind(string,"d") != -1)
            {
                Command_SetPlayerNamed("to",playerid,true);
                Command_SetPlayerNamed("get",playerid,true);
            }
            if(strfind(string,"e") != -1) Command_SetPlayerNamed("tr",playerid,true);
            fclose(file);
            return 1;
        }
    }
    Command_SetPlayerNamed("ismesti",playerid,false);
    Command_SetPlayerNamed("ban",playerid,false);
    Command_SetPlayerNamed("global",playerid,false);
    Command_SetPlayerNamed("adminu",playerid,false);
    Command_SetPlayerNamed("to",playerid,false);
    Command_SetPlayerNamed("get",playerid,false);
    Command_SetPlayerNamed("tr",playerid,false);
    fclose(file);
    return 1;
}
public OnPlayerDisconnect(playerid,reason)
{
    if(IsValidVehicle(a_transport[playerid])) DestroyVehicle(a_transport[playerid]);
    return 1;
}
public OnPlayerExitVehicle(playerid,vehicleid)
{
    if(vehicleid == a_transport[playerid]) DestroyVehicle(a_transport[playerid]);
    return 1;
}
YCMD:to(playerid,params[],help)
{
    new id,Float:pos[3];
    if(help) return SendClientMessage(playerid,ORANGE,"Komanda nukelia jus pas nurodytą žaidėją");
    else if(sscanf(params,"u",id)) return SendClientMessage(playerid,ORANGE,"Naudojimas /to [ŽaidėjoID/DalisVardo]");
    else if(!IsPlayerConnected(id)) return SendClientMessage(playerid,RED,"Tokio žaidėjo nėra");
    GetPlayerPos(id,pos[0],pos[1],pos[2]);
    if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),pos[0],pos[1],pos[2]+2);
    else SetPlayerPos(playerid,pos[0],pos[1],pos[2]+2);
    return 1;
}
YCMD:get(playerid,params[],help)
{
    new id,Float:pos[3];
    if(help) return SendClientMessage(playerid,ORANGE,"Komanda atkels žaidėją prie jūsų");
    else if(sscanf(params,"u",id)) return SendClientMessage(playerid,ORANGE,"Naudojimas /get [ŽaidėjoID/DalisVardo]");
    else if(!IsPlayerConnected(id)) return SendClientMessage(playerid,RED,"Tokio žaidėjo nėra");
    GetPlayerPos(playerid,pos[0],pos[1],pos[2]);
    if(GetPlayerState(id)==PLAYER_STATE_DRIVER) SetVehiclePos(GetPlayerVehicleID(id),pos[0],pos[1],pos[2]+2);
    else SetPlayerPos(id,pos[0],pos[1],pos[2]);
    SendClientMessage(id,GREEN,"Jūs buvote nuteleportuotas administratoriaus");
    return 1;
}
YCMD:ban(playerid,params[],help)
{
    new id,reason[80],string[128],name[MAX_PLAYER_NAME];
    if(help) return SendClientMessage(playerid,ORANGE,"Komanda uždraudžia žaidėjui lankytis serveryje su priežastimi");
    else if(sscanf(params,"us[80]",id,reason)) return SendClientMessage(playerid,ORANGE,"Naudojimas  /ban [ŽaidėjoID/DalisVardo] [Priežastis]");
    else if(!IsPlayerConnected(id)) return SendClientMessage(playerid,RED,"Tokio žaidėjo nėra");
    GetPlayerName(playerid,string,sizeof(string));
    GetPlayerName(id,name,sizeof(name));
    format(string,sizeof(string),"{000000}[Serveris]{FF00FF}%s %s užbanino %s, priežastis:%s",a_level,string,name,reason);
    SendClientMessageToAll(GREEN,string);
    print(string);
    SetTimerEx("DelayBan",3000,false,"i",id);
    return 1;
}

YCMD:global(playerid,params[],help)
{
    if(help) return SendClientMessage(playerid,ORANGE,"Komanda nusiunčia žinutę visiems žaidėjams");
    else if(isnull(params)) return SendClientMessage(playerid,ORANGE,"Naudojimas /global [Žinutė]");
    new string[128];
    GetPlayerName(playerid,string,sizeof(string));
    format(string,sizeof(string),"![%s]%s:%s",a_level[playerid],string,params);
    SendClientMessageToAll(GREEN,string);
    return 1;
}

YCMD:tr(playerid,params[],help)
{
    new vehid,Float:pos[4];
    if(help) return SendClientMessage(playerid,ORANGE,"Komanda išspawnins transporto priemonę pagal ID");
    else if(sscanf(params,"d",vehid)) return SendClientMessage(playerid,ORANGE,"Naudojimas /tr [TransportoPriemonėsID]");
    else if(vehid > 611 || vehid < 400) return SendClientMessage(playerid,ORANGE,"Galimi transporto priemonių ID: 400-611");
    else if(IsValidVehicle(a_transport[playerid])) DestroyVehicle(a_transport[playerid]);
    GetPlayerPos(playerid,pos[0],pos[1],pos[2]);
    if(IsPlayerInAnyVehicle(playerid)) GetVehicleZAngle(GetPlayerVehicleID(playerid),pos[3]);
    else GetPlayerFacingAngle(playerid,pos[3]);
    PutPlayerInVehicle(playerid,a_transport[playerid],0);
    a_transport[playerid] = CreateVehicle(vehid,pos[0],pos[1],pos[2],pos[3],random(255),random(255),-1);
    return 1;
}
YCMD:adminu(playerid,params[],help)
{
    if(help) return SendClientMessage(playerid,ORANGE,"Komanda nusiunčia žinutę kitiems administratoriams");
    else if(isnull(params)) return SendClientMessage(playerid,ORANGE,"Naudojimas /adminu [Žinutė]");
    new string[128];
    GetPlayerName(playerid,string,sizeof(string));
    format(string,sizeof(string),"[Administracija]%s sako:%s",string,params);
    for(new i; i<MAX_PLAYERS; i++)
    {
        if(IsPlayerConnected(i) && !isnull(a_level[playerid])) SendClientMessage(i,GREEN,string);
    }
    return 1;
}

YCMD:ismesti(playerid,params[],help)
{
    new id,reason[100];
    if(help) return SendClientMessage(playerid,ORANGE,"Išmeta žaidėja iš serverio");
    else if(sscanf(params,"us[100]",id,reason)) return SendClientMessage(playerid,ORANGE,"Naudojimas: /ismesti [ŽaidėjoID/DalisVardo] [Priežastis]");
    else if(!IsPlayerConnected(id)) return SendClientMessage(playerid,RED,"Tokio žaidėjo nėra");
    new string[128],name[MAX_PLAYER_NAME];
    GetPlayerName(playerid,string,sizeof(string));
    GetPlayerName(id,name,sizeof(name));
    format(string,sizeof(string),"{000000}[Serveris]{FF00FF}%s %s išmetė %s, priežastis:%s",a_level[playerid],string,name,reason);
    SendClientMessageToAll(GREEN,string);
    return 1;
}
forward BanDelay(playerid);
public BanDelay(playerid)
{
    Ban(playerid);
    return 1;
}