Kullanışlı Kodlar

[Gaviria]

Kod Seç Expand

CMD:ustara(playerid, params[])
{
    static
        userid;

    if(!OyundaDegil(playerid)) return 1;
   
    if (sscanf(params, "u", userid))
        return BilgiMesajGonder(playerid, "/ustara [id/isim]");

    if (!OyundaDegil(userid) || !IsPlayerNearPlayer(playerid, userid, 6.0))
        return HataMesajGonder(playerid, "Belirtilen oyuncu aktif değil ya da sizden uzak!");

    if (userid == playerid)
        return HataMesajGonder(playerid, "Kendi üstünü arayamazsın!");

    PlayerData[userid][pFriskOffer] = playerid;

    MesajGonder(userid, "%s üstünü aramak istiyor. (\"/kabulet arama\").", ReturnName(playerid, 0));
    MesajGonder(playerid, "%s adlı oyuncuya üstünü arama isteği gönderildi, lütfen biraz bekle.", ReturnName(userid, 0));
    return 1;
}

Kod Seç Expand

CMD:birlikara(playerid, params[])
{
if(!OyundaDegil(playerid)) return 1;
if(isnull(params)) return BilgiMesajGonder(playerid, "/birlikara [Birlik Adı]");
if(strlen(params) < 3) return HataMesajGonder(playerid, "En az üç harf  girmelisiniz.");
new tip[15], count;
for(new i; i<MAX_BIRLIK; i++) if(Birlikler[i][birlikExists] == 1 && strfind(Birlikler[i][birlikAd], params, true) != -1)
{
    switch(Birlikler[i][birlikTip])
      {
      case 0: tip = "Belirlenmiyor";
      case 1: tip = "Çete";
        case 2: tip = "Mafya";
          case 3: tip = "Yayın Ajansı";
          case 4: tip = "Legal";
            default: tip = "Özel Kurum";
      }
      count++;
    SendClientMessageEx(playerid, COLOR_WHITE, "%s (ID: %d | SQL ID: %d | Tip: %s | Üye Sayısı: %d)", Birlikler[i][birlikAd], i, Birlikler[i][birlikID], tip, BirlikUyeSayisi(i));
}
if(!count) return HataMesajGonder(playerid, "Bu isimde hiç birlik bulunamadı.");
return 1;
}

Kod Seç Expand

CMD:giveweapon(playerid, params[])
{
    static
        userid,
        weaponid,
        ammo;

    if (PlayerData[playerid][pAdmin] < 4)
        return HataMesajGonder(playerid, "Bu komutu kullanmak için yetkiniz yok !");

    if (sscanf(params, "udI(500)", userid, weaponid, ammo))
        return BilgiMesajGonder(playerid, "/giveweapon [id/isim] [silahid] [mermi]");

    if (!OyundaDegil(userid))
        return HataMesajGonder(playerid, "Belirttiğiniz oyuncu oyunda değil.");

    if (weaponid <= 0 || weaponid > 46 || (weaponid >= 19 && weaponid <= 21))
        return HataMesajGonder(playerid, "Geçersiz silah ID'sı.");

    GiveWeaponToPlayer(userid, weaponid, ammo);
    MesajGonder(playerid, "%s adlı oyuncuya %s (%d mermi) model silah verdin.", ReturnName(userid, 0), ReturnWeaponName(weaponid), ammo);
    BilgiMesajGonder(userid, "%s adlı yetkili sana %s (Mermi: %d) model silah verdi.", PlayerData[playerid][pAdminName], ReturnWeaponName(weaponid), ammo);
    return 1;
}

Kod Seç Expand

CMD:unjail(playerid, params[])
{
    static
        userid;

    if (PlayerData[playerid][pAdmin] < 1 && PlayerData[playerid][pHelper] < 5)
        return HataMesajGonder(playerid, "Bu komutu kullanmak için yetkiniz yok !");

    if (sscanf(params, "u", userid))
        return BilgiMesajGonder(playerid, "/unjail [id/isim]");

    if (!OyundaDegil(userid))
        return HataMesajGonder(playerid, "Belirttiğiniz oyuncu oyunda değil !");

    if (!PlayerData[userid][pHapisSure])
        return HataMesajGonder(playerid, "Belirttiğiniz oyuncu hapiste değil.");
    if(PlayerData[userid][pCK] == 1) return HataMesajGonder(playerid, "Bu karakter CK edilmiş, hapisten çıkarılamaz.");

    PlayerData[userid][pHapisSure] = 1;

    MesajGonder(playerid, "%s adlı oyuncuyu hapisten çıkarttınız.", ReturnName(userid, 0));
    BilgiMesajGonder(userid, "%s adlı yetkili sizi hapisten çıkarttı.", PlayerData[playerid][pAdminName]);

    Log_Write("logs/jail_log.txt", "[%s] %s adli yetkili %s adli oyuncuyu hapisten cikartti.", ReturnDate(), PlayerData[playerid][pAdminName], ReturnName(userid, 0));
    return 1;
}

Kod Seç Expand

CMD:givecashall(playerid, params[])
{
new miktar;
    if (PlayerData[playerid][pAdmin] < 5) return HataMesajGonder(playerid, "Bu komutu kullanmak için yeterli yetkiye sahip değilsin !");
    if(sscanf(params, "i", miktar)) return BilgiMesajGonder(playerid, "/givecashall [Miktar]");
    foreach(new i:Player) if(OyundaDegil(i))
    {
        ParaVer(i, miktar);
    }
    SendClientMessageToAllEx(COLOR_LIGHTRED, "%s adlı yetkili tüm herkese  %s miktar para verdi.", PlayerData[playerid][pAdminName], FormatNumber(miktar));
return 1;
}

[S W E S T]

Kod Seç Expand

CMD:givecashall(playerid, params[])
{
new miktar;
    if (PlayerData[playerid][pAdmin] < 5) return HataMesajGonder(playerid, "Bu komutu kullanmak için yeterli yetkiye sahip değilsin !");
    if(sscanf(params, "i", miktar)) return BilgiMesajGonder(playerid, "/givecashall [Miktar]");
    foreach(new i:Player) if(OyundaDegil(i))
    {
        ParaVer(i, miktar);
    }
    SendClientMessageToAllEx(COLOR_LIGHTRED, "%s adlı yetkili tüm herkese  %s miktar para verdi.", PlayerData[playerid][pAdminName], FormatNumber(miktar));
return 1;
}

Bu kodlar tüm modlar ile uyumlu değil isterseniz değişkenleri yazın.

[chinohead]

Büyük harf kullanarak atılan mesajları otomatik olarak küçük harf yapar.

PAWN Kodu: Seç

stock anticapslock(string[])
{
for(new i = 0, j = strlen(string); i < j; i++)
{
string[i] = tolower(string[i]);
}
}
Örnek kullanım:

PAWN Kodu: Seç

new capstest[] = "BuyUK hArF YaSaGi";

main()
{
printf("öncesi: %s", capstest);
anticapslock(capstest);
printf("sonrası: %s", capstest);
}

[viathegod32]

Kod Seç Expand

CMD:givecashall(playerid, params[])
{
new miktar;
    if (PlayerData[playerid][pAdmin] < 5) return HataMesajGonder(playerid, "Bu komutu kullanmak için yeterli yetkiye sahip değilsin !");
    if(sscanf(params, "i", miktar)) return BilgiMesajGonder(playerid, "/givecashall [Miktar]");
    foreach(new i:Player) if(OyundaDegil(i))
    {
        ParaVer(i, miktar);
    }
    SendClientMessageToAllEx(COLOR_LIGHTRED, "%s adlı yetkili tüm herkese  %s miktar para verdi.", PlayerData[playerid][pAdminName], FormatNumber(miktar));
return 1;
}

Sadece victim moduna uyarlı,

ParaVer, OyundaDegil, PlayerData gibi bir çok değişkende "COLOR_LIGTRED" kısmında vesaire bir sürü hata çıkaracaktır. Kopyala yapıştırdan başka bir şeyler yapmanı öneririm.

[~ Gaviria ~]

PAWN Kodu: Seç

#include <a_samp>


public OnFilterScriptInit()
{
print("Forbidden Weapon FS Loaded");
}

public OnFilterScriptExit()
{
print("Forbidden Weapon FS Unloaded");
}


public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
    if(newkeys & KEY_FIRE && ForbiddenWeap(playerid) && !IsPlayerAdmin(playerid))
        {
            new pname[MAX_PLAYER_NAME];
            new string[124];
            GetPlayerName(playerid, pname, sizeof(pname));
            format(string, sizeof(string), "SERVER: %s has been banned! Reason: Forbidden weapon", pname);
            SendClientMessageToAll(0xffffffff,string);
            print(string);
            BanEx(playerid,string);
            return 1;
        }
    return 0;
}

stock ForbiddenWeap(playerid)
{
    new weap = GetPlayerWeapon(playerid);
    if( weap == 35 || weap == 36 || weap == 37 || weap == 38 || weap == 39 || weap == 40 || weap == 41 || weap == 42 || weap == 43 || weap == 44 || weap == 45)
    {
     return true;
    }
    return false;
}

//===========================Forbidden Weapons==================================
//id 35 = Rocket Launcher
//id 36 = HS Rocket Launcher
//id 37 = Flamethrower
//id 38 = Minigun
//id 39 = Satchel Charge
//id 40 = Detonator
//id 41 = Spraycan
//id 42 = Fire Extinguisher
//id 43 = Camera
//id 44 = Nightvision Goggles
//id 45 = Thermal Goggles

[SpawN]

PAWN Kodu: Seç

public OnPlayerCommandPerformed(playerid, cmdtext[], success)
{
    if(!success) SendErrorMessage(playerid, "Geçersiz komut!");
    return 1;
}
Server:Unkown command Türkçeleştirmek ve güzelleştirmek adına yararlı bir kod.

Kod Seç Expand

CMD:ustara(playerid, params[])
{
    static
        userid;

    if(!OyundaDegil(playerid)) return 1;
   
    if (sscanf(params, "u", userid))
        return BilgiMesajGonder(playerid, "/ustara [id/isim]");

    if (!OyundaDegil(userid) || !IsPlayerNearPlayer(playerid, userid, 6.0))
        return HataMesajGonder(playerid, "Belirtilen oyuncu aktif değil ya da sizden uzak!");

    if (userid == playerid)
        return HataMesajGonder(playerid, "Kendi üstünü arayamazsın!");

    PlayerData[userid][pFriskOffer] = playerid;

    MesajGonder(userid, "%s üstünü aramak istiyor. (\"/kabulet arama\").", ReturnName(playerid, 0));
    MesajGonder(playerid, "%s adlı oyuncuya üstünü arama isteği gönderildi, lütfen biraz bekle.", ReturnName(userid, 0));
    return 1;
}

CTRL+C CTRL+V ?
Victım'dan alıp atmak?

[~ Gaviria ~]

Kod Seç Expand

CMD:ustara(playerid, params[])
{
    static
        userid;

    if(!OyundaDegil(playerid)) return 1;
   
    if (sscanf(params, "u", userid))
        return BilgiMesajGonder(playerid, "/ustara [id/isim]");

    if (!OyundaDegil(userid) || !IsPlayerNearPlayer(playerid, userid, 6.0))
        return HataMesajGonder(playerid, "Belirtilen oyuncu aktif değil ya da sizden uzak!");

    if (userid == playerid)
        return HataMesajGonder(playerid, "Kendi üstünü arayamazsın!");

    PlayerData[userid][pFriskOffer] = playerid;

    MesajGonder(userid, "%s üstünü aramak istiyor. (\"/kabulet arama\").", ReturnName(playerid, 0));
    MesajGonder(playerid, "%s adlı oyuncuya üstünü arama isteği gönderildi, lütfen biraz bekle.", ReturnName(userid, 0));
    return 1;
}

CTRL+C CTRL+V ?
Victım'dan alıp atmak?

yes? ne kanka ben KoDıRım demiyom en azından adam kendi moduna uyarlar kullanır sıfır toplama mod yapıcamsa belki dimi yani?

[HasanEfe]

Sağ Üste tarih ekler

https://www.gtamulti.com/forum/mod-galerisi/saat-tarih-sistemi(textdraw)/msg3573/#msg3573 bu konuda pwn dosyası paylaşılmamış bende easy deamx ile pwn dosyasına çevirdim

https://pastebin.com/8ftxjQ3K

https://www.mediafire.com/file/tqlzaj7pvrlrmxw/SaaT.pwn/file

https://www.virustotal.com/gui/file/852a7e631638522d002bd0198d3f7f067748c7ecbc144d12c2b527b655434029/detection

[Rouge]

Dialog Hack ( Dialog Flood'u engeller )
OnDialogResponse

PAWN Kodu: Seç

if(GetPVarInt(playerid,"AntiFloodDialog") > GetTickCount())
{
       if(GetPVarInt(playerid,"flood_dialog") > 2)
     {
        Kick(playerid);
return 0;
}
  SetPVarInt(playerid,"flood_dialog",GetPVarInt(playerid,"flood_dialog")+1);
   }
       else
      {
     SetPVarInt(playerid,"flood_dialog",0);
    SetPVarInt(playerid, "AntiFloodDialog", GetTickCount()+300);
}

[Creutzfeld]

OnDialogResponse

PAWN Kodu: Seç

if(GetPVarInt(playerid,"AntiFloodDialog") > GetTickCount())
{
       if(GetPVarInt(playerid,"flood_dialog") > 2)
     {
        Kick(playerid);
return 0;
}
  SetPVarInt(playerid,"flood_dialog",GetPVarInt(playerid,"flood_dialog")+1);
   }
       else
      {
     SetPVarInt(playerid,"flood_dialog",0);
    SetPVarInt(playerid, "AntiFloodDialog", GetTickCount()+300);
}

@Rouge ne işe yaradığını da yazmalısınız.

[Rouge]

OnDialogResponse

PAWN Kodu: Seç

if(GetPVarInt(playerid,"AntiFloodDialog") > GetTickCount())
{
       if(GetPVarInt(playerid,"flood_dialog") > 2)
     {
        Kick(playerid);
return 0;
}
  SetPVarInt(playerid,"flood_dialog",GetPVarInt(playerid,"flood_dialog")+1);
   }
       else
      {
     SetPVarInt(playerid,"flood_dialog",0);
    SetPVarInt(playerid, "AntiFloodDialog", GetTickCount()+300);
}

@Rouge ne işe yaradığını da yazmalısınız.

15 satırlık kod kanka Dialog Hack ( Dialog Flood'u engeller )

[Jawié]

PAWN Kodu: Seç

#define salliyorum(%0,%1) (random(%1-%0)+%0)
- salliyorum(minimum değer, maksimum değer);

- printf("%i", salliyorum(1, 155));

[NexoR]

Array dizesini iki şekilde tarayabilir. Bazen performans için iyi bazen de kötü olabilir.

Kod Seç Expand

MultiSearch(const arr[], findValue, len = sizeof(arr))
{
// Code By: Burak (NexoR)
    for(new i = 0, j = (len - 1); i < (len / 2), j > (len / 2) - 1; i++, j--)
{
    if(arr[i] == findValue || arr[j] == findValue)
    {
        return (arr[i] == findValue) ? (i) : (j);
    }
}
return -1;
}

[HasanEfe]

Spawn Koruması Sistemi + Spawn Korumasında Eline Silah Alınmaz

OnPlayerSpawn publicine

PAWN Kodu: Seç

   
    SetPlayerHealth(playerid, 5000.0);
    SetPVarInt(playerid, "SpawnKorumasi", 1);
    SetTimerEx("AntiSpawnkill",5000,0,"i",playerid);
ekleyin daha sonra

PAWN Kodu: Seç

forward AntiSpawnkill(playerid);
public AntiSpawnkill(playerid)
{
    SetPlayerHealth(playerid, 100.0);
    SetPVarInt(playerid, "SpawnKorumasi", 0);
    SendClientMessage(playerid, -1, "Spawnkill korumanız sona ermiştir!");
    return 1;
}
daha sonrada OnPlayerUpdate publicine

PAWN Kodu: Seç

if(GetPVarInt(playerid, "SpawnKorumasi") == 1)
{
          SetPlayerArmedWeapon(playerid, 0);
}

[Dyternal]

• Kodunuzu paylaşmadan önce denemeniz gerekmektedir!
  
• Paylaştığınız kod size ait değilse sahibinin ismini bildiriniz!
  
• Konuyla alakasız yorumlar atmayınız!
  Kodların include gerektirmeyecek şekilde (bütün modlara uyacak şekilde) paylaşılma zorunluluğu yoktur. Ancak mantıksal olarak kodların hatasız olması ve çalışması zorunludur. Ayrıca kodda bilinmeyen, kişisel bir fonksiyon olmamalıdır.
  

Kurallar bunlar, istediğin kodu paylaşabilirsin ama yapımcısı Zoxy diye paylaşmak zorundasın. Zaten geneli ya Hera, NexoR., Zoxy'nin modlarından alınma.