GTAMulti - GTA Türkiye

San Andreas Multiplayer => PAWN Kodlama => Mod Galerisi => Konuyu başlatan: Codes. - 20 Mayıs 2019, 16:11:57

Başlık: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 20 Mayıs 2019, 16:11:57
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


Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Unknown - 20 Mayıs 2019, 16:14:03
Resim eklenebilir.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 20 Mayıs 2019, 16:14:34
Alıntı yapılan: Unknown - 20 Mayıs 2019, 16:14:03

Resim eklenebilir.


İsterseniz ekleyebilirim ama üşendim. :D
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Excision - 20 Mayıs 2019, 16:28:54
https://raw.githubusercontent.com/AlicanDurmaz/SA-MP/master/filterscripts/weaponshop.pwn şeklinde daha sağlıklı olur, senin yaptığın eskide kaldı.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 20 Mayıs 2019, 16:32:51
Alıntı yapılan: Excision - 20 Mayıs 2019, 16:28:54

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  :helal:

Tabi bu pawno'da SendClientMessage'ler falan onlardan bahsediyorum.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Ryroz - 20 Mayıs 2019, 21:22:41
Teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 20 Mayıs 2019, 21:39:34
Alıntı yapılan: Ryroz - 20 Mayıs 2019, 21:22:41

Teşekkürler.


Rica ederim, güzel yorumunuz için teşekkürler. :D :D :D
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Medcezir - 20 Mayıs 2019, 23:57:50
Paylaşım için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 21 Mayıs 2019, 03:33:30
Alıntı yapılan: Medcezir - 20 Mayıs 2019, 23:57:50

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


Rica ederim, yorumunuz için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Prisoners - 23 Mayıs 2019, 13:11:01
Paylaşım için Teşekkürler, Başarılar
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 23 Mayıs 2019, 13:14:54
Alıntı yapılan: Prisoners - 23 Mayıs 2019, 13:11:01

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


Rica ederim, yorumunuz için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: ayazcik - 23 Mayıs 2019, 13:18:31
 :helal:
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Kalashnikoff - 23 Mayıs 2019, 20:41:51
Alıntı yapılan: Medcezir - 20 Mayıs 2019, 23:57:50

Paylaşım için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 23 Mayıs 2019, 21:30:22
Alıntı yapılan: Vincenzio RPG - 23 Mayıs 2019, 20:41:51

Alıntı yapılan: Medcezir - 20 Mayıs 2019, 23:57:50

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



Rica ederim, yorumunuz için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Warning - 25 Mayıs 2019, 09:30:54
Basarılar Gercekten Yararlı Olmuş
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Xchatt - 25 Mayıs 2019, 09:46:13
Yararlı  :elsalla:
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 25 Mayıs 2019, 12:52:17
Alıntı yapılan: Byrpo - 25 Mayıs 2019, 09:30:54

Basarılar Gercekten Yararlı Olmuş


Alıntı yapılan: Chatt - 25 Mayıs 2019, 09:46:13

Yararlı  :elsalla:


Rica ederim, yorumlarınız için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: FalafelÇorba - 16 Haziran 2019, 19:43:26
Teşekkürler.  :helal:
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: FelleR - 27 Haziran 2019, 01:50:27
Yararlı.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 04 Ekim 2019, 17:40:58
Alıntı yapılan: Byrpo - 25 Mayıs 2019, 09:30:54
Basarılar Gercekten Yararlı Olmuş

Sağolun, yorumunuz için teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: diverse - 08 Ekim 2019, 19:33:01
Yararlı.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: Codes. - 11 Ekim 2019, 16:59:54
Güzel yorumlarınız için teşekkürler arkadaşlar.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: ace - 31 Ekim 2019, 20:23:38
Alıntı yapılan: Ryroz - 20 Mayıs 2019, 21:22:41
Teşekkürler.
Başlık: Ynt: Silah Satın Alma Sistemi[Silah_Menüsü]
Gönderen: ☨Gaviria☨ - 01 Ocak 2020, 02:06:12
Yararlı paylaşım teşekkürler.