Silah Satın Alma Sistemi[Silah_Menüsü]

[Codes.]

Merhabalar

Bu konuda sizlere silah satın alma sistemini tanıtacağım.

Modun Başına

PAWN Kodu: Seç

#include <a_samp>
#include <zcmd>

Include'nın Altına

PAWN Kodu: Seç

#define COLOR_RED 0xAA3333AA
#define COLOR_GREY 0xAFAFAFAA

Modun boş bir kısmına veya aşağıya

PAWN Kodu: Seç

CMD:market(playerid, params[])
{
    ShowPlayerDialog(playerid, 4, DIALOG_STYLE_LIST, "Silah Menüsü", "Colt 45 ($5,000)\nDesert Eagle ($10,000)\nShotgun ($15,000)\nSawnoff Shotgun ($50,000)\nCombat Shotgun ($45,000)\nUZI($15,000)\nTec9 ($15,000)\nMP5 ($10,000)\nAK-47 ($25,000)\nM4 ($25,000)\nSniper Rifle ($75,000)", "Satın Al!", "İptal");
return 1;
}

OnDialogResponse Publicine

PAWN Kodu: Seç

if(dialogid == 4)
{
    if(response)
    {
    if(listitem == 0)
    {
    if(GetPlayerMoney(playerid) < 5000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 22, 200);
GivePlayerMoney(playerid, -3000);
SendClientMessage(playerid, COLOR_GREY, "Colt45 Satın Aldın.");
    }
    if(listitem == 1)
    {
    if(GetPlayerMoney(playerid) < 10000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 24, 200);
    GivePlayerMoney(playerid, -5000);
    SendClientMessage(playerid, COLOR_GREY, "Desert Eagle Satın Aldın.");
    }
    if(listitem == 2)
    {
    if(GetPlayerMoney(playerid) < 15000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 25, 200);
    GivePlayerMoney(playerid, -2000);
    SendClientMessage(playerid, COLOR_GREY, "Shotgun Satın Aldın.");
    }
    if(listitem == 3)
    {
    if(GetPlayerMoney(playerid) < 50000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 26, 200);
    GivePlayerMoney(playerid, -4500);
    SendClientMessage(playerid, COLOR_GREY, "Sawn off shotgun satın aldın.");
    }
    if(listitem == 4)
    {
    if(GetPlayerMoney(playerid) < 45000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli paran yok.");
        GivePlayerWeapon(playerid, 27, 200);
    GivePlayerMoney(playerid, -3000);
    SendClientMessage(playerid, COLOR_GREY, "Combat Shotgun satın aldın.");
    }
    if(listitem == 5)
    {
        if(GetPlayerMoney(playerid) < 15000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 28, 200);
GivePlayerMoney(playerid, -2000);
SendClientMessage(playerid, COLOR_GREY, "UZI Satın aldın.");
    }
    if(listitem == 6)
    {
        if(GetPlayerMoney(playerid) < 15000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 32, 200);
GivePlayerMoney(playerid, -3800);
SendClientMessage(playerid, COLOR_GREY, "Tec-9 Satın aldın.");
}
    if(listitem == 7)
    {
        if(GetPlayerMoney(playerid) < 10000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 29, 200);
GivePlayerMoney(playerid, -2000);
SendClientMessage(playerid, COLOR_GREY, "MP5 Satın aldın.");
}
    if(listitem == 8)
    {
        if(GetPlayerMoney(playerid) < 25000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 30, 200);
GivePlayerMoney(playerid, -3000);
SendClientMessage(playerid, COLOR_GREY, "AK47 Satın aldın.");
}
    if(listitem == 9)
    {
        if(GetPlayerMoney(playerid) < 25000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 31,200);
GivePlayerMoney(playerid, -2500);
SendClientMessage(playerid, COLOR_GREY, "M4 Satın aldın.");
}
  if(listitem == 10)
    {
        if(GetPlayerMoney(playerid) < 75000) return SendClientMessage(playerid, COLOR_RED, "[HATA]: Yeterli Paran yok.");
        GivePlayerWeapon(playerid, 34, 1000);
GivePlayerMoney(playerid, -2500);
SendClientMessage(playerid, COLOR_GREY, "Sniper Rifte Satın Aldın.");
}
}
return 1;
}
return 0;

ZCMD

https://www.mediafire.com/file/led99xllwmwhoqq/zcmd.rar/file

VIRUS TOTAL

https://www.virustotal.com/gui/file/4da4dc4e4a325402a5e09ac2d616e735ed7094b6e17a4206af4e88468b2a897c/detection

[Unknown]

Resim eklenebilir.

[Codes.]

Resim eklenebilir.

İsterseniz ekleyebilirim ama üşendim.

[Excision]

https://raw.githubusercontent.com/AlicanDurmaz/SA-MP/master/filterscripts/weaponshop.pwn şeklinde daha sağlıklı olur, senin yaptığın eskide kaldı.

[Codes.]

https://raw.githubusercontent.com/AlicanDurmaz/SA-MP/master/filterscripts/weaponshop.pwn şeklinde daha sağlıklı olur, senin yaptığın eskide kaldı.

Ben daha çok mesela "\n" ile başlarım komut yazarken nedense bu alışkanlık haline gelmiş bilmiyorum bunlar bana daha kolay geliyor gibi. Ne demek istediğinizi anlıyorum ama pawn'da acemiyim lütfen anlayış ile karşılayın beni 

Tabi bu pawno'da SendClientMessage'ler falan onlardan bahsediyorum.

[Ryroz]

Teşekkürler.

[Codes.]

Teşekkürler.

Rica ederim, güzel yorumunuz için teşekkürler.

[Medcezir]

Paylaşım için teşekkürler.

[Codes.]

Paylaşım için teşekkürler.

Rica ederim, yorumunuz için teşekkürler.

[Prisoners]

Paylaşım için Teşekkürler, Başarılar

[Codes.]

Paylaşım için Teşekkürler, Başarılar

Rica ederim, yorumunuz için teşekkürler.

[ayazcik]

 

[Kalashnikoff]

Paylaşım için teşekkürler.

[Codes.]

Paylaşım için teşekkürler.

Rica ederim, yorumunuz için teşekkürler.

[Warning]

Basarılar Gercekten Yararlı Olmuş