Anti Reklaminimas

[Zagnu]

#include

#define SPALVA_GELTONA 0xFFFF00AA

#if defined FILTERSCRIPT

public OnFilterScriptInit()

{

print("\n--------------------------------------");

print(" APSAUGA NUO REKLAMU SERVERYJE");

print("--------------------------------------\n");

return 1;

}

public OnFilterScriptExit()

{

return 1;

}

#else

main()

{

print("\n----------------------------------");

print(" APSAUGA NUO REKLAMU SERVERYJE");

print("----------------------------------\n");

}

#endif

public OnPlayerText(playerid, text[])

{

if(TeksteIP(text)) return IsmestiZaideja(playerid, text);

return 1;

}

public OnPlayerCommandText(playerid, cmdtext[])

{

if(TeksteIP(cmdtext)) return IsmestiZaideja(playerid, cmdtext);

return 0;

}

TeksteIP(StrToChk[])

{

new IpTikrinimas = 0; //pradeda tikrinti ir ieskoti skaiciu tekste

for(new a = 0; a < strlen(StrToChk); a++) {//tikrina po viena simboli

switch(IpTikrinimas)//i use a switch to process each IpLevel

{

case 0:{//Pirmas simbolis, ieskomas tekste, turi buti skaicius

if(IsNum(StrToChk[a])) IpTikrinimas++; //Skaicius rastas, tikrina toliau

//jei nera skaiciu, netikrina toliau, laukia skaiciu

}

case 1, 2:{ //Rado pirma skaiciu, dabar ieskos skaiciaus arba '.'

if(IsNum(StrToChk[a])) IpTikrinimas++; //Skaicius rastas, tikrina toliau

else if(StrToChk[a] == '.') IpTikrinimas = 4;//rastas pirmas '.', persoka i 4 zingsni (case 4:)

else IpTikrinimas = 0; //jei nieko nera, grizta i pirma zingsni

}

case 3:{ //rado tris pirmus skaicius, reikia dabar rasti '.' arba tai ne IP

if(StrToChk[a] == '.') IpTikrinimas++; // rado taska, tikrina toliau

else IpTikrinimas = 0; //tasko nerado, grizta i pirma zingsni

}

case 4:{ //rado pirmus skaicius ir pirma '.', dabar reikia skaiciu, arba tai ne ip

if(IsNum(StrToChk[a])) IpTikrinimas++; //skaicius rado, tikrina toliau

else IpTikrinimas = 0; //skaiciu nerado, grizta i pirma zingsni

}

case 5, 6:{ // 123.1 dabar reikia skaiciu arba '.'

if(IsNum(StrToChk[a])) IpTikrinimas++; //skaiciai rasti, tikrina toliau

else if(StrToChk[a] == '.') IpTikrinimas = 8;//rado antra '.', persoka i 8 zingsni (case 8:)

else IpTikrinimas = 0; //nerado nei skaiciu, nei '.', grizta i pirma zingsni

}

case 7:{ //123.123 reikia '.' arba tai ne IP

if(StrToChk[a] == '.') IpTikrinimas++; //rado '.', tikrina toliau

else IpTikrinimas = 0;//nerado, grizta i pirma zingsni

}

case 8:{ //123.123. reikia skaiciu, arba tai ne IP

if(IsNum(StrToChk[a])) IpTikrinimas++; //rado skaicius, tikrina toliau

else IpTikrinimas = 0; //nerado skaiciu, grizta i pradzia

}

case 9, 10:{ //123.123.1 dabar reikia skaiciu arba '.'

if(IsNum(StrToChk[a])) IpTikrinimas++; //skaiciai rasti, tikrina toliau

else if(StrToChk[a] == '.') IpTikrinimas = 12;//rado '.', persoka i paskutini zingsni (case 12:)

else IpTikrinimas = 0; //nerado nei skaiciu, nei '.', grizta i pradzia

}

case 11:{ // 123.123.123 reikia '.', arba tai ne IP

if(StrToChk[a] == '.') IpTikrinimas++; //rado '.', tikrina toliau

else IpTikrinimas = 0;//nerado, grizta i pradzia

}

case 12:{ //123.123.123. jei sekantis simbolis bus skaicius - zmogus reklamuoja

if(IsNum(StrToChk[a])) return 1;//skaicius rastas, ivykdytas tikrinimas

else IpTikrinimas = 0;//nerado skaiciaus, grizta i pradzia

}

}

}

return 0; //IP nerastas

}

IsNum(simbolis) // trumpa funkcija patikrinti simbolis yra skaicius, ar ne

{

if(simbolis == '0') return 1;

if(simbolis == '1') return 1;

if(simbolis == '2') return 1;

if(simbolis == '3') return 1;

if(simbolis == '4') return 1;

if(simbolis == '5') return 1;

if(simbolis == '6') return 1;

if(simbolis == '7') return 1;

if(simbolis == '8') return 1;

if(simbolis == '9') return 1;

return 0;

}

IsmestiZaideja(playerid, text[])

{

new name[MAX_PLAYER_NAME], IP[24], Tekstas[256];// bus imami reklamuotojo duomenys..

new d[3], l[3]; // data, laikas

getdate(d[0],d[1],d[2]); // gauname datà

gettime(l[0],l[1],l[2]); // gauname laikà

GetPlayerName(playerid,name,sizeof(name)); // gauname reklamuotojo vardà

GetPlayerIp(playerid, IP, sizeof(IP)); //reklamuotojo IP'as

format(Tekstas, sizeof(Tekstas),

"[%i-%i-%i, %i:%i:%i] %s(%i) IP:%s IÐMESTAS UÞ REKLAMÀ",

d[0], d[1], d[2], l[0], l[1], l[2], name, playerid, IP);

//tekstas, kuris bus raðomas á failà

SendClientMessageToAll(SPALVA_GELTONA,Tekstas);// paraso, kad zmogus reklamuoja

Kick(playerid); // ismetamas zaidejas

new File:kickfile;

kickfile = fopen("IsmestiZaidejai.txt", io_append);//atidaromas failas

fwrite(kickfile,"\r\n"); // nauja eilutë áterpiama

fwrite(kickfile,Tekstas); // duomenys reklamuotojo

fwrite(kickfile,"\r\n"); // nauja eilutë

fwrite(kickfile,text); // tekstas, kuriame rastas IP

fclose(kickfile); // uþdaromas failas

return 0; //gràþinamas 0, kad nerodytø teksto.

}

[Skrudzas12]

Gera Pamoka , Naujokams Pravers.

[Skripterissssss]

-R3p Copy paste tema.

[Povilas58]

kur ce det?

[Tautvis !]

O tu supranti ką šis skriptas daro.? Belenkaip viską sudėjai.

[Drowned]

Naujokams Pravers.

P.S Tautve yra tokių kur biški moka susideliot

[frenZy.]

Ačiū, pravers

[Tautvis !]

Naujokams Pravers.

P.S Tautve yra tokių kur biški moka susideliot

Bet žinok tokių yra kur nemoka.

[simaslt11]

Gal fs padaryt butu geriau....