GTAMulti - GTA Türkiye

San Andreas Multiplayer => PAWN Kodlama => Mod Galerisi => Konuyu başlatan: Excision - 02 Mart 2017, 22:54:53

Başlık: eWeapon | Silah Alma Sistemi
Gönderen: Excision - 02 Mart 2017, 22:54:53
Excision Silah Sistemi

Freeroam serverlerinde kullanılan, para karşılığında silah alma sistemidir. Kullanımı gayet basittir. Resim upload edemediğim için resim koyamadım. Herhangi bi sorun varsa kodlarda söylemeniz yeterli.


Pastebin (http://pastebin.com/xrVd10pY)
Dosya TC (http://s9.dosya.tc/server2/e6bf5o/eWeapon.rar.html)
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: trabzon - 05 Mart 2017, 21:05:39
Eline sağlık dostum. :)
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Excision - 14 Mart 2017, 23:07:05
Alıntı yapılan: Silver - 05 Mart 2017, 21:05:39

Eline sağlık dostum. :)

Yorumun için teşekkürler dostum :D
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Nyks - 10 Haziran 2017, 01:31:42
Eline sağlık  :helal:
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Excision - 13 Haziran 2017, 00:59:56
Alıntı yapılan: Tengri - 10 Haziran 2017, 01:31:42

Eline sağlık  :helal:
Sağolasın :)
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: TRSinan28 - 13 Haziran 2017, 01:01:48
Paylaşım için teşekkürler  :helal:
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Excision - 13 Haziran 2017, 16:28:18
Alıntı yapılan: sinan28 - 13 Haziran 2017, 01:01:48

Paylaşım için teşekkürler  :helal:
Thanks
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: maXpoWer - 13 Haziran 2017, 16:49:04
Elıne sağlık moruq serverımde denıyıceğim :)
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Gorkem. - 13 Haziran 2017, 20:24:00
Eline sağlık Başarılar  :helal:
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Excision - 05 Temmuz 2017, 10:37:35
Yorumlarınız için teşekkürler.
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: DarkBlue - 31 Temmuz 2017, 22:06:20
+1 başarılar
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Codes. - 19 Ocak 2019, 13:22:57
Link Güncellenmeli !
Dosya Bulunamadı diyor.
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Radless - 19 Ocak 2019, 14:29:42
Alıntı yapılan: TAKTAK26 - 19 Ocak 2019, 13:22:57

Link Güncellenmeli !
Dosya Bulunamadı diyor.
Buyur:

PAWN Kodu: Seç

#include <a_samp>
#include <zcmd>

#define     DIALOG_SILAH    1232

enum slh
{
        silahid,
        isim[64],
        fiyat[60],
        mermi
}
new Silahlar[15][slh] =//15 aşağıda kaç tane silah eklediğinizi gösterir. Silah eklerseniz değiştirmeniz gerekmekte.
{
        {4, "Knife", 10, 1},
        {8, "Katana", 10, 1},
        {9, "Chainsaw", 100, 1},
        {10, "Purple Dildo", 50, 1},
        {16, "Grenade", 200, 10},
        {18, "Molotov Cocktail", 300, 5},
        {23, "Silenced 9mm", 1000, 50},
        {24, "Desert Eagle", 2000, 100},
        {25, "Shotgun", 2000, 50},
        {26, "Sawnoff Shotgun", 2000, 50},
{27, "Combat Shotgun", 2000, 50},
{28, "Uzi", 1000, 100},
{31, "M4", 2000, 100},
{34, "Sniper Rifle", 2000, 50},
{26, "Sawnoff Shotgun", 2000, 50}
//{Silah id, "Silah ismi", fiyat, mermi},
};
public OnFilterScriptInit()
{
print("\n--------------------------------------");
print("   aWeapon System    ");
print(" Yüklendi \n");
print("--------------------------------------\n");
return 1;
}

public OnFilterScriptExit()
{
print("\n--------------------------------------");
print("   aWeapon System    ");
print(" Kapatildi     \n");
print("--------------------------------------\n");
return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    if(dialogid == DIALOG_SILAH)
    {
        if(response)
        {
        if(GetPlayerMoney(playerid) >= Silahlar[listitem][fiyat])
          {
          new string[128];
            format(string, sizeof(string), "Bilgi: {FFFFFF}%s isimli silahı $%d a aldınız.", Silahlar[listitem][isim], Silahlar[listitem][fiyat]);
              SendClientMessage(playerid, 0x66FF00FF, string);
              GivePlayerMoney(playerid, -Silahlar[listitem][fiyat]);
                GivePlayerWeapon(playerid, Silahlar[listitem][silahid], Silahlar[listitem][mermi]);
                return 1;
          }else
{
    SendClientMessage(playerid, 0xFF0000FF, "Hata: {FFFFFF}Yeterli paranız yok.");
        return 1;
          }
}
return 1;
}
return 1;
}
CMD:silahlar(playerid, params[])
{
new string[2048];
for(new x;x<sizeof(Silahlar);x++)
  {
    format(string, sizeof(string), "%s%s - $%d\n", string, Silahlar[x][isim], Silahlar[x][fiyat]);
    }
    ShowPlayerDialog(playerid, DIALOG_SILAH, DIALOG_STYLE_LIST, "Silah Dükkanı", string, "Satinal", "{FF0000}Iptal");
return 1;
}
Başlık: Ynt: eWeapon | Silah Alma Sistemi
Gönderen: Rexus - 19 Ocak 2019, 14:39:06
Paylaşım için teşekkürler.