Zaloguj się by uzyskać pełen dostęp. Nie masz jeszcze konta? Założ je już teraz w kilka sekund.

Wysłany: 2013-10-13, 13:47


compak







Wiek: 28
Na forum: 4646 dni
Posty: 6



Respekt: 50

Witam.
Szukam jakiego? programu anty bot na 0.3x.
Za pomoc daje piwo ka?demu.
Z g?ry dzi?kuje.
Pozdrawiam.

ADMINISTRACJO ;wiem ze nie ten dzia? ale nie wiedzia?em gdzie to na pisa? i pro?i? bym o przeniesienia tematu do innego dzia?u.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2013-10-13, 14:47


PvF.GreeN







Wiek: 28
Na forum: 4672 dni
Posty: 209
Nick w MP: NexuS

Piwa: 2875

Respekt: 128
Respekt: 128

Ostrzeżeń: 60%
Trzymaj Compaq.

Kod:

// Bots Security Script v1.0B by Amit_B
#include "a_samp.inc"
new var[MAX_PLAYERS] = {-1,...}, warns[MAX_PLAYERS] = {0,...}, bool:npc[MAX_PLAYERS] = {false,...}, MAX_PLAYERS_ = MAX_PLAYERS;
public OnFilterScriptInit()
{
SendRconCommand("reloadbans");
print("Bots Security Script v1.0B loaded");
return 1;
}
public OnPlayerConnect(playerid)
{
if(CountIP(GetIP(playerid)) >= 6) return BanAll(playerid), 0;
MAX_PLAYERS_ = playerid > MAX_PLAYERS_ ? playerid : GetHighestID(),
npc[playerid] = bool:IsPlayerNPC(playerid),
var[playerid] = SetTimerEx("BSS",2500,false,"i",playerid),
warns[playerid] = 0;
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
MAX_PLAYERS_ = GetHighestID(playerid);
if(npc[playerid]) npc[playerid] = false;
if(var[playerid] != -1)
{
KillTimer(var[playerid]);
var[playerid] = -1;
}
warns[playerid] = 0;
return 1;
}
stock CountIP(ip[])
{
new c = 0;
for(new i = 0; i < MAX_PLAYERS; i++) if(IsPlayerConnected(i) && !strcmp(GetIP(i),ip)) c++;
return c;
}
forward BSS(playerid);
public BSS(playerid)
{
new i = GetPlayerPing(playerid);
if(i <= 0 || i >= 50000)
{
if(warns[playerid] >= 1) BanAll(playerid);
else warns[playerid]++, var[playerid] = SetTimerEx("BSS",1500,false,"i",playerid);
}
return 0;
}
stock GetIP(playerid)
{
new ip[16];
GetPlayerIp(playerid,ip,sizeof(ip));
return ip;
}
stock BanAll(playerid)
{
new ip[32];
GetPlayerIp(playerid,ip,sizeof(ip));
for(new i = 0, p = 0; i < MAX_PLAYERS; i++) if(IsPlayerConnected(i) && !npc[i])
{
p = GetPlayerPing(i);
if(i == playerid || !strcmp(ip,GetIP(i)) || p <= 0 || p >= 50000)
{
BanEx(i,"Bot");
if(var[i] != -1)
{
KillTimer(var[i]);
var[i] = -1;
}
}
}
format(ip,sizeof(ip),"banip %s",ip);
return SendRconCommand(ip);
}
stock GetHighestID(exceptof = INVALID_PLAYER_ID)
{
new h = 0;
for(new i = 0; i < MAX_PLAYERS; i++) if(IsPlayerConnected(i) && i != exceptof && i > h) h = i;
return h;
}


Postaw piwo autorowi tego posta
 

 
Tagi: szukam :: antybot :: 0.3x
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » PAWN Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Dodaj temat do Ulubionych
Wersja do druku