Merhabalar
Bu konuda sizlere silah satın alma sistemini tanıtacağım.
Modun Başına
#include <a_samp>
#include <zcmd>Include'nın Altına
#define COLOR_RED 0xAA3333AA
#define COLOR_GREY 0xAFAFAFAAModun boş bir kısmına veya aşağıya
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
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
Resim eklenebilir.
Alıntı yapılan: Unknown - 20 Mayıs 2019, 16:14:03
Resim eklenebilir.
İsterseniz ekleyebilirim ama üşendim. :D
https://raw.githubusercontent.com/AlicanDurmaz/SA-MP/master/filterscripts/weaponshop.pwn şeklinde daha sağlıklı olur, senin yaptığın eskide kaldı.
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.
Teşekkürler.
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
Paylaşım için teşekkürler.
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.
Paylaşım için Teşekkürler, Başarılar
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.
:helal:
Basarılar Gercekten Yararlı Olmuş
Yararlı :elsalla:
Teşekkürler. :helal:
Yararlı.
Alıntı yapılan: Byrpo - 25 Mayıs 2019, 09:30:54Basarılar Gercekten Yararlı Olmuş
Sağolun, yorumunuz için teşekkürler.
Yararlı.
Güzel yorumlarınız için teşekkürler arkadaşlar.
Yararlı paylaşım teşekkürler.