Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*
- www.projetosbrunopereira.com.br
- www.projetosbrunopereira.com.br
- Filter Script criado totalmente por Bruno Pereira! Contato: brunopereiraa-@hotmail.com Skype: grt.figa
- Não retire os créditos, isso é muito feio :(
- Crie a pasta ContasBanidas e IPsBanidos no seu ScriptFiles
- Filter Script criado totalmente por Bruno Pereira!
- */
- // ============= INCLUDES ============ //
- #include <a_samp>// Include do samp
- #include <SII>// DataBase
- #include <zcmd>// Processador de comandos
- #include <sscanf2>// Sei la como posso descrever isso '-'.
- // ============ CORES ============== //
- #define CINZA 0xB4B5B7FF
- #define VERMELHOCLARO 0xFF6347AA
- #define AZUL 0x33CCFFAA
- #define AMARELO "{FFFF33}"
- #define BRANCO2 "{FFFFFF}"
- #define VERMELHO "{FF0000}"
- #define DBanido 666
- static String[256], iddele;
- public OnFilterScriptInit()
- {
- print(" Carregando sistema de ban...");
- print(" Sistema de Ban carregado com sucesso!");
- print(" Sistema de Ban criado por Bruno Pereira");
- return 1;
- }
- public OnPlayerConnect(playerid)
- {
- SendClientMessage(playerid, -1, "Sistema de Ban criado por Bruno Pereira, não retire os créditos");
- new Adm[21],
- MotivoBan[100],
- DataBan[20],
- HoraBan[22];
- format(String, 60, "ContasBanidas/%s.ini", pNome(playerid));// Formata a pasta!
- if(fexist(String))// Verifica se a conta do Player está na pasta!
- {
- INI_Open(String);// Abre o arquivo!
- INI_ReadString(Adm, "Admin", 21);// Le oque ta escrito em admin e armazena na variavel Adm.
- INI_ReadString(MotivoBan, "Motivo", 100);
- INI_ReadString(DataBan, "Data", 20);
- INI_ReadString(HoraBan, "Hora", 22);
- format(String, sizeof(String), "Olá %s, você está banido\n\n\t"AMARELO"Admin: "BRANCO2"%s\n\t"AMARELO"Motivo: "BRANCO2"%s\n\t"AMARELO"Data: "BRANCO2"%s\n\t"AMARELO"Hora: "BRANCO2"%s", pNome(playerid), Adm, MotivoBan, DataBan, HoraBan);
- ShowPlayerDialog(playerid, DBanido, DIALOG_STYLE_MSGBOX, "BANIDO", String, "Fechar","");
- INI_Close();// Fecha o arquivo!
- SetPlayerPos(playerid, 1518.3723,-1675.2997,20.9211);
- SetPlayerFacingAngle(playerid, 271.9657);
- Kick(playerid);// Kick :)
- }
- new ip[16];
- GetPlayerIp(playerid, ip, sizeof ip);
- format(String, 60, "IPsBanidos/%s.ini", ip);
- if(fexist(String))
- {
- INI_Open(String);
- INI_ReadString(Adm, "Admin", 26);
- INI_ReadString(MotivoBan, "Motivo", 100);
- INI_ReadString(DataBan, "Data", 20);
- INI_ReadString(HoraBan, "Hora", 22);
- format(String, sizeof(String), "Olá %s, você está banido\n\n\t"AMARELO"Admin: "BRANCO2"%s\n\t"AMARELO"Motivo: "BRANCO2"%s\n\t"AMARELO"Data: "BRANCO2"%s\n\t"AMARELO"Hora: "BRANCO2"%s", pNome(playerid), Adm, MotivoBan, DataBan, HoraBan);
- ShowPlayerDialog(playerid, DBanido, DIALOG_STYLE_MSGBOX, "BANIDO", String, "Fechar","");
- INI_Close();
- SetPlayerPos(playerid, 1518.3723,-1675.2997,20.9211);
- SetPlayerFacingAngle(playerid, 271.9657);
- Kick(playerid);
- }
- return 1;
- }
- stock pNome(playerid)
- {
- //Essa função irá returnar o nome do jogador, sendo assim não precisa toda vez usar new nome[MAX_PLAYER_NAME]; GetPlayerName e bla bla bla. By MiTToS
- new nome[MAX_PLAYER_NAME];
- GetPlayerName(playerid, nome, sizeof(nome));
- return nome;
- }
- CMD:ban(playerid, params[])
- {
- new
- Dia,
- Mes,
- Ano,
- Hora,
- Minuto,
- Segundo,
- sStr[22],
- sStr3[22],
- sStr2[128];
- new ip[16];
- if(!IsPlayerAdmin(playerid))
- return SendClientMessage(playerid, CINZA, "Você não tem permissão para usar esse comando!");
- if(sscanf(params, "us[128]", iddele, sStr2))
- return SendClientMessage(playerid, CINZA, "Use: /ban [id] [motivo]");
- if(!IsPlayerConnected(iddele))
- return SendClientMessage(playerid, CINZA, "Jogador não conectado");
- getdate(Ano, Mes, Dia);
- gettime(Hora, Minuto, Segundo);
- GetPlayerIp(iddele, ip, sizeof ip);
- format(String, 128, "O %s foi banido pelo admin %s, Motivo: %s", pNome(iddele), pNome(playerid), sStr2);
- SendClientMessageToAll(VERMELHOCLARO,String);
- format(sStr3, 14, "%d/%d/%d", Dia, Mes, Ano);
- format(sStr, 22, "%d:%d:%d", Hora, Minuto, Segundo);
- format(String, 40, "ContasBanidas/%s.ini", pNome(iddele));
- if(INI_Open(String))
- {
- INI_WriteString("Admin", pNome(playerid));
- INI_WriteString("Data", sStr3);
- INI_WriteString("Hora", sStr);
- INI_WriteString("Motivo",sStr2);
- INI_Save();
- INI_Close();
- }
- format(String, 50, "IPsBanidos/%s.ini", ip);
- if(INI_Open(String))
- {
- INI_WriteString("Admin", pNome(playerid));
- INI_WriteString("Data", sStr3);
- INI_WriteString("Hora", sStr);
- INI_WriteString("Motivo",sStr2);
- INI_Save();
- INI_Close();
- }
- Kick(iddele);
- return 1;
- }
- CMD:desbanconta(playerid, params[])
- {
- new conta[25];
- if(!IsPlayerAdmin(playerid))
- return SendClientMessage(playerid, CINZA, "Você não tem permissão para usar esse comando!");
- if(sscanf(params, "s[25]", conta))
- return SendClientMessage(playerid, CINZA, "Use: /desbanconta [Nome_Conta]");
- format(String, 40, "ContasBanidas/%s.ini", conta);
- if(fexist(String))
- {
- INI_Remove(String);
- return SendClientMessage(playerid, AZUL, "Conta desbanida com sucesso, se você ainda não desbaniu o IP dele use /desbanip");
- }
- else
- {
- SendClientMessage(playerid, CINZA, "Essa conta não existe ou não esta banida! ");
- }
- return 1;
- }
- CMD:desbanip(playerid, params[])
- {
- new IPBan[16];
- if(!IsPlayerAdmin(playerid))
- return SendClientMessage(playerid, CINZA, "Você não tem permissão para usar esse comando!");
- if(sscanf(params, "s[16]", IPBan))
- return SendClientMessage(playerid, CINZA, "Use: /desbanirip [IP]");
- format(String, 40, "IPsBanidos/%s.ini", IPBan);
- if(fexist(String))
- {
- INI_Remove(String);
- return SendClientMessage(playerid, AZUL, "IP Desbanido com sucesso, se ainda não desbaniu a conta dele use /desbanconta");
- }
- else
- {
- SendClientMessage(playerid, CINZA, "Esse IP não existe ou não esta banido! ");
- }
- return 1;
- }
- /* Filter Script criado totalmente por Bruno Pereira!
- Contato: brunopereiraa-@hotmail.com
- Skype: grt.figa
- Não retire os créditos, isso é muito feio :(
- Crie a pasta ContasBanidas e IPsBanidos no seu ScriptFiles
- Filter Script criado totalmente por Bruno Pereira!
- */
- www.projetosbrunopereira.com.br
- www.projetosbrunopereira.com.br
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement