Kullanışlı Kodlar

[Akın Boşnak]

Araç içi konuşma

OnPlayerCommandText' e

Pawn: [Seç]

if(strcmp(cmd, "/ar", true) == 0 )
{
new isim[MAX_PLAYER_NAME], soyisim[MAX_PLAYER_NAME];
RPName(PlayerName(playerid),isim,soyisim)
new length = strlen(cmdtext);
while ((idx < length) && (cmdtext[idx] <= ' '))
{
idx++;
}
new offset = idx;
new result[64];
while ((idx < length) && ((idx - offset) < (sizeof(result) - 1)))
{
result[idx - offset] = cmdtext[idx];
idx++;
}
result[idx - offset] = EOS;
if(!strlen(result))
{
SendClientMessage(playerid, COLOR_GREY, "..:KULLANIM: /ar [Mesaj]");
return 1;
}
if(IsPlayerInAnyVehicle(playerid))
{
format(string, sizeof(string), "Arac Konusmasi (%s %s): %s", isim, soyisim, result);
printf(string);
for(new i = 0; i < MAX_PLAYERS; i ++)
{
if(IsPlayerConnected(i))
{
if(IsPlayerInVehicle(i, GetPlayerVehicleID(playerid)))
{
SendClientMessage(i,COLOR_WHITE, string);
}
}
}
return 1;
}
else {
SendClientMessage(playerid, COLOR_GREY, "Aracin icinde olmalisiniz!");
return 1;
}
}

[CoppeR.]

Araç içi konuşma

OnPlayerCommandText' e

Pawn: [Seç]

if(strcmp(cmd, "/ar", true) == 0 )
{
new isim[MAX_PLAYER_NAME], soyisim[MAX_PLAYER_NAME];
RPName(PlayerName(playerid),isim,soyisim)
new length = strlen(cmdtext);
while ((idx < length) && (cmdtext[idx] <= ' '))
{
idx++;
}
new offset = idx;
new result[64];
while ((idx < length) && ((idx - offset) < (sizeof(result) - 1)))
{
result[idx - offset] = cmdtext[idx];
idx++;
}
result[idx - offset] = EOS;
if(!strlen(result))
{
SendClientMessage(playerid, COLOR_GREY, "..:KULLANIM: /ar [Mesaj]");
return 1;
}
if(IsPlayerInAnyVehicle(playerid))
{
format(string, sizeof(string), "Arac Konusmasi (%s %s): %s", isim, soyisim, result);
printf(string);
for(new i = 0; i < MAX_PLAYERS; i ++)
{
if(IsPlayerConnected(i))
{
if(IsPlayerInVehicle(i, GetPlayerVehicleID(playerid)))
{
SendClientMessage(i,COLOR_WHITE, string);
}
}
}
return 1;
}
else {
SendClientMessage(playerid, COLOR_GREY, "Aracin icinde olmalisiniz!");
return 1;
}
}

RPName stock'unu verirmisin?

[Unicorn.]

Pawn: [Seç]

RPName(name[],ret_first[],ret_last[])
{
new len = strlen(name),
point = -1,
bool:done = false;
for(new i = 0; i < len; i++)
{
    if(name[i] == '_')
    {
        if(point != -1) return 0;
        else {
if(i == 0) return 0;
point = i + 1;
}
    } else if(point == -1) ret_first[i] = name[i];
    else {
ret_last[i - point] = name[i];
done = true;
}
}
if(!done) return 0;
return 1;
}

[RyDeR`]

@Unicorn.:

Pawn: [Seç]

stock RPName(szName[], szFirst[], szLast[], const iSize1 = sizeof(szFirst), const iSize2 = sizeof(szLast)) {
new
iPos
;
if((iPos = strfind(szName, "_", true)) != -1) {
strcat(szLast[0], szName[iPos + 1], iSize2);
strcat(szFirst[0], (szName[iPos] = EOS, szName[0]), iSize1);
return 1;
}
return 0;
}


[[CripZ]Dimitri]

Güzel konu. Ilk benden olsun:

Pawn: [Seç]

stock RemovePlayerWeapon(playerid, ...) {
    new
        iArgs = numargs()
    ;
    while(--iArgs) {
        SetPlayerAmmo(playerid, getarg(iArgs), 0);
    }
}


Bu ne işe yarıyor ___?

[RyDeR`]

Bu ne işe yarıyor ___?

Oyuncunun silahlarini siliyor. Mesela oyuncuda Uzi ve Sniper varsa bu sekil ikisini siler:

Pawn: [Seç]

RemovePlayerWeapon(playerid, 28, 34);


[Tolga_Deniz]

Paylaşımlar İcin Teşekkürler... 

[RyDeR`]

Pawn: [Seç]

stock fUpdateLine(const szPath[], const szSrc[], const szReplace[]) {
new
File: hFile = fopen(szPath, io_readwrite)
;
if(hFile) {
new
File: hTemp = ftemp()
;
if(hTemp) {
static
szBuf[256]
;
while(fread(hFile, szBuf)) {
if(strfind(szBuf, szSrc) != -1) {
fwrite(hTemp, szReplace);
} else {
fwrite(hTemp, szBuf);
}
}
fremove(szPath);

fseek(hFile, 0);
fseek(hTemp, 0);

while(fread(hTemp, szBuf)) {
fwrite(hFile, szBuf);
}
fclose(hTemp);
}
return fclose(hFile);
}
return 0;
}

Mesela bir *.txt dosyasi icinde bunlar var:

Pawn: [Seç]

aaa
bbb
aaa
kkk
ddd
aaa

ve bu kodu kullanirsan:

Pawn: [Seç]

fUpdateLine("*.txt", "aaa", "!!!!!!\r\n");

*.txt bu sekil olur:

Pawn: [Seç]

!!!!!!
bbb
!!!!!!
kkk
ddd
!!!!!!


[J0κεr]

Server'A Karşı Bot Saldırılarını Engeller

ALINTIDIR

Kod: [Seç]

// 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;
}

[hasandogan41]

Kardeşim 1. sayfadaki ladmin için [GM] yazısı felan onplayer text e yukledim  bu erroru veriyor yeniyim k.bakma 

C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3408) : error 017: undefined symbol "name"
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : error 017: undefined symbol "string"
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : error 017: undefined symbol "string"
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : error 029: invalid expression, assumed zero
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : fatal error 107: too many error messages on one line

Buda yazdıgım

Pawn: [Seç]

public OnPlayerText(playerid, text[])
{
   if(IsPlayerAdmin(playerid))
{
GetPlayerName(playerid, name, 20);
    format(string, sizeof(string), "[RCON] %s(%i): %s", name, playerid, text);
    SendClientMessageToAll(playerid, string);
return 0;
}
if(IsPlayerLAdmin(playerid))
{
GetPlayerName(playerid, name, 20);
    format(string, sizeof(string), "[GM] %s(%i): %s", name,playerid, text);
    SendClientMessageToAll(playerid, string);
return 0;
}
else
{

    format(string, sizeof(string), "(%i): %s", playerid, text);
    SendPlayerMessageToAll(playerid, string);
    }
return 1;

   new
      string[128]
   ;
   GetPlayerName(playerid, string, MAX_PLAYER_NAME);
   format(string, sizeof(string), "[!] \"%s\" Adlı Oyuncu Sunucudan Atıldı [Sebep: IP Reklamı Yaptı.]", string);
   SendClientMessageToAll(0xFFFFFFFF, string);
   return Kick(playerid), 0;
}

[zymoo]

Kardeşim 1. sayfadaki ladmin için [GM] yazısı felan onplayer text e yukledim  bu erroru veriyor yeniyim k.bakma 

C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3408) : error 017: undefined symbol "name"
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : error 017: undefined symbol "string"
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : error 017: undefined symbol "string"
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : error 029: invalid expression, assumed zero
C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(3409) : fatal error 107: too many error messages on one line

Buda yazdıgım

Pawn: [Seç]

public OnPlayerText(playerid, text[])
{
   if(IsPlayerAdmin(playerid))
{
GetPlayerName(playerid, name, 20);
    format(string, sizeof(string), "[RCON] %s(%i): %s", name, playerid, text);
    SendClientMessageToAll(playerid, string);
return 0;
}
if(IsPlayerLAdmin(playerid))
{
GetPlayerName(playerid, name, 20);
    format(string, sizeof(string), "[GM] %s(%i): %s", name,playerid, text);
    SendClientMessageToAll(playerid, string);
return 0;
}
else
{

    format(string, sizeof(string), "(%i): %s", playerid, text);
    SendPlayerMessageToAll(playerid, string);
    }
return 1;

   new
      string[128]
   ;
   GetPlayerName(playerid, string, MAX_PLAYER_NAME);
   format(string, sizeof(string), "[!] \"%s\" Adlı Oyuncu Sunucudan Atıldı [Sebep: IP Reklamı Yaptı.]", string);
   SendClientMessageToAll(0xFFFFFFFF, string);
   return Kick(playerid), 0;
}

Kodların başına şunları yaz öyle dene ;

Pawn: [Seç]

new string[256];
new name[20];
GetPlayerName(playerid,name,20);

[hasandogan41]

Ya kardeş dediğin gibi yaptım oldu ama
Servere Girdigimde Boyle oldu
örnek ;
Dejavu(1):sa
Dejavu :s.a
+
Hem Rcon Hem Admin Hesaplada yazıncada Aynı oldu :S [GM] Felan Yazmadı

[Swift]

Ya kardeş dediğin gibi yaptım oldu ama
Servere Girdigimde Boyle oldu
örnek ;
Dejavu(1):sa
Dejavu :s.a
+
Hem Rcon Hem Admin Hesaplada yazıncada Aynı oldu :S [GM] Felan Yazmadı

/rcon login sifre
şeklinde rcon login olunabiliyor. Böyle yaptığına emin ol.

2.
- Dejavu(1):sa
Böyle değil;
-Dejavu: (1): sa
... şeklinde olması lazım.

3. Üstteki şekilde yazdığına göre ne ladmin nede rcon girişi yapmışsın. Bunu yapabilmen için ladminde oynama yapmaman lazım. Kayıt dosyasının yolu ladmin/users/OYUNCU_ISIM.sav şeklinde olmalı.

Ayrıca:

Kodların başına şunları yaz öyle dene ;

Pawn: [Seç]

new name[20];
GetPlayerName(playerid,name,20);

SA:MP'ta kullanıcı isminin uzunluğu 24'ü geçmiyor. Onun için 20 yazarsan sorun olur, 24 olarak değiştir orasını (veya MAX_PLAYER_NAME aynı şey)

Pawn: [Seç]

   new
      string[128]
   ;
   GetPlayerName(playerid, string, MAX_PLAYER_NAME);
   format(string, sizeof(string), "[!] \"%s\" Adlı Oyuncu Sunucudan Atıldı [Sebep: IP Reklamı Yaptı.]", string);
   SendClientMessageToAll(0xFFFFFFFF, string);
   return Kick(playerid), 0;


Bu koda hiç girmezki program. Çünkü önündeki koşullarda var. Hem IP reklamm yaptığı anlaşılmıyor. Herneyse, bunlar kötü bir amaç için söylemiyorum sadece hatalardı, senin asıl işine yarayacak kod:

Pawn: [Seç]

public OnPlayerText(playerid, text[])
{
new string[80];
if(IsPlayerAdmin(playerid))
{
 new name[24];
GetPlayerName(playerid, name, 24);
    format(string, sizeof(string), "[RCON] %s(%i): %s", name, playerid, text);
    SendClientMessageToAll(playerid, string);
}
else if(IsPlayerLAdmin(playerid))
{
new name[24];
GetPlayerName(playerid, name, 24);
    format(string, sizeof(string), "[GM] %s(%i): %s", name,playerid, text);
    SendClientMessageToAll(playerid, string);

}
else
{
 
    format(string, sizeof(string), "(%i): %s", playerid, text);
    SendPlayerMessageToAll(playerid, string);
    }
return 0;

}

Uzun bir yazı olduğu için mazur görün, Amacım bilgilendirmekti.

[hasandogan41]

Kardeşim yaa senin dediğin gibi yaptım oldu ama mesela
[Rcon]BRONZcareTTa:(1):s.a boyle cıkıyor ama rengi ya koyu yeşil ya siyah gibi bişey renk yazıyorum degişmiyo o renk nasıl değiştirecez rengi hangi kodu degiştirecez kardeşim vallaha yardımcı olursan allah razı olsun diim nediim Sadece bu adam var sanki koskoca forumda biraz yardimci olun yav

[hasandogan41]

aa ben yanlış yapmısım  GM yazisindahini IsPlayerLAdmin İ Lsini silmişim  yaa off e Lyi silmeyincede tanımıyor

Pawn: [Seç]

C:\Users\neco\Desktop\server.info\gamemodes\zBModev3.pwn(4249) : error 017: undefined symbol "IsPlayerLAdmin" Bu hatayı veriyor anladım ne oldugunu da ee bende ladmin yuklu ya bole bişi olamaz