Szerző Téma: Fegyver vásárlás By RolePlay  (Megtekintve 1750 alkalommal)

Nem elérhető RolePlay

  • 2100
    • Profil megtekintése
Fegyver vásárlás By RolePlay
« Dátum: 2012. augusztus 15. - 11:19:31 »
+4 Show voters
Sziasztok, bizonyára sok van ebbõl is, és elég egyszerû script ez a fegyvervásárlás, de életem 1. nagyobb alkotása, amire büszke vagyok, mert eddig sohasem sikerült a dialog :)
Mentést nem tartalmaz, és bolt koordit sem!
Lehetséges, hogy itt kicsit össze kuszálódik, de pastebinen is kitettem, illetve fájlmegosztóra is.
http://pastebin.com/fvWxQZm2

http://www.solidfiles.com/d/8b1cddcaf4/
 

/*
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||                    FegyverVásárlás                                                 ||
||                          By:RolePlay                                        ||
||                               0.1V                                                         ||
||                   Mentést nem tartalmaz!                   ||
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
*/
#include <a_samp>
#include <zcmd>
#include <sscanf2>
#define COLOR_F1 0x2c8a29AA
#define COLOR_F2 0xc71a1aAA
#define COLOR_F3 0x1a20c7AA
#define FBOLT 1
CMD:buyweapon(playerid, params[])
{
if(!IsPlayerInRangeOfPoint(playerid, 1,1,1,1)) return SendClientMessage(playerid, COLOR_F3,\"Nem vagy a fegyver boltbann!\"); /// a koordikat rátok bízom
    ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
    return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == FBOLT)
    {
        if(response)
        {
           if(listitem == 0)
            {
               ShowPlayerDialog(playerid, FBOLT+1, DIALOG_STYLE_LIST, \"Pisztolyok\", \"9mm 14 lõszer\\t\\t\\t12.000$ \\nHantompítós 9mm 14 lõszer\\t\\t\\t13.000$ \\nDesert Eagle 14 lõszer\\t\\t\\t17.000$\", \"Kiválaszt\", \"Kilépés\");
            }
            if(listitem == 1)
            {
               ShowPlayerDialog(playerid, FBOLT+2, DIALOG_STYLE_LIST, \"Puskák\", \"Country Rifle 25 lõszer\\t\\t\\t20.000$ \\nSörétes 25 lõszer\\t\\t\\t24.000$ \\nCombat Shotgun\\t\\t\\t30.000$\", \"Kiválaszt\", \"Kilépés\");
            }
            if(listitem == 2)
            {
                ShowPlayerDialog(playerid, FBOLT+3, DIALOG_STYLE_LIST, \"Gépfegyverek\", \"AK-47 90 lõszer\\t\\t\\t35.500$ \\nM4 90 lõszer\\t\\t\\t32.000$\", \"Kiválaszt\", \"Kilépés\");
            }
            if(listitem == 3)
            {
                ShowPlayerDialog(playerid, FBOLT+4, DIALOG_STYLE_LIST, \"Félatuómaták\", \"Tec-9 120 lõszer\\t\\t\\t15.500$ \\nSMG/Uzi 120 lõszer\\t\\t\\t12.000$ \\nMP5 120 lõszer\\t\\t\\t17.000$\", \"Kiválaszt\", \"Kilépés\");
   }
}
}
if(dialogid == FBOLT+1)
    {
       if(response)
       {
if(listitem == 0)
        {
           if(GetPlayerMoney(playerid) <12000) return SendClientMessage(playerid, COLOR_F2, \"Nincs pénzed erre a fegyverre!\");
           GivePlayerMoney(playerid, -12000);
            GivePlayerWeapon(playerid,22,14);
            SendClientMessage(playerid, COLOR_F3, \"Vásároltál 9mm-est 14 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
}
        if(listitem == 1)
        {
              if(GetPlayerMoney(playerid) <13000) return SendClientMessage(playerid,COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -13000);
            GivePlayerWeapon(playerid,23,14);
            SendClientMessage(playerid, COLOR_F2, \"Vásároltál Hangtompítós 9mm-est 14 lõszerrel!\");
   ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
}
if(listitem == 2)
        {
            if(GetPlayerMoney(playerid) <17000) return SendClientMessage(playerid,COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -17000);
            GivePlayerWeapon(playerid,24,14);
            SendClientMessage(playerid,COLOR_F2, \"Vásároltál Desert Eaglet 14 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
 }
  }
     if(dialogid == FBOLT+2)
     {
      if(response)
        {
        if(listitem == 0)
        {
            if(GetPlayerMoney(playerid) <20000) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -20000);
            GivePlayerWeapon(playerid,33,25);
            SendClientMessage(playerid,COLOR_F1, \"Vásároltál Country Rifle-t 25 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
        if(listitem == 1)
        {
            if(GetPlayerMoney(playerid) <25000) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -25000);
            GivePlayerWeapon(playerid,25,25);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál Sörétest 25 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
        if(listitem == 2)
        {
            if(GetPlayerMoney(playerid) <30000) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -30000);
            GivePlayerWeapon(playerid,27,25);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál Combat Shotgun-t 25 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
        }
      }
    if(dialogid == FBOLT+3)
    {
        if(response)
        {
        if(listitem == 0)
        {
            if(GetPlayerMoney(playerid) <35500) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -35500);
            GivePlayerWeapon(playerid,30,90);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál AK-47-t 90 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
        if(listitem == 1)
        {
            if(GetPlayerMoney(playerid) <32000) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -32000);
            GivePlayerWeapon(playerid,31,90);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál M4-et 90 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
       }
}
if(dialogid == FBOLT+4)
{
    if(response)
    {
    if(listitem == 0)
    {
        if(GetPlayerMoney(playerid) <15500) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -15500);
            GivePlayerWeapon(playerid,32,120);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál Tec9-et 120 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
        if(listitem == 1)
        {
        if(GetPlayerMoney(playerid) <12000) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -12000);
            GivePlayerWeapon(playerid,28,120);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál Uzi-t 120 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
        if(listitem == 2)
        {
        if(GetPlayerMoney(playerid) <17000) return SendClientMessage(playerid, COLOR_F1, \"Nincs pénzed erre a fegyverre!\");
            GivePlayerMoney(playerid, -17000);
            GivePlayerWeapon(playerid,29,120);
            SendClientMessage(playerid,COLOR_F3, \"Vásároltál MP5-t 120 lõszerrel!\");
            ShowPlayerDialog(playerid, FBOLT, DIALOG_STYLE_LIST, \"Fegyverbolt\", \"{9FE4AA}Pisztolyok \\nPuskák \\n{9FE4AA}Gépfegyverek \\nFélatuómaták\", \"Tovább\", \"Kilépés\");
        }
    }
}
return 1;
}
   

Fegyver vásárlás By RolePlay
« Válasz #1 Dátum: 2012. augusztus 15. - 11:29:10 »
0 Show voters
grat. :D
pluszt nem adok  :whistle:

Nem elérhető Rupert

  • 2301
    • Profil megtekintése
Fegyver vásárlás By RolePlay
« Válasz #2 Dátum: 2012. augusztus 15. - 11:31:14 »
0 Show voters
Egyszerû, és ügyes. Így tovább, RoliPoli :D

Nem elérhető RolePlay

  • 2100
    • Profil megtekintése
Fegyver vásárlás By RolePlay
« Válasz #3 Dátum: 2012. augusztus 15. - 11:32:18 »
0 Show voters
Igyekeztem :) :D
Köszi :)
TMC most kivételesen a segítséged nélkül sikerült :D

Fegyver vásárlás By RolePlay
« Válasz #4 Dátum: 2012. augusztus 15. - 13:19:44 »
0 Show voters
Van valami parancs vagy valami amivel egy listát elõ hívok hogy mit tudok venni vagy ojan hogy látom milyen lhetõségek vannak kategorizálva??a választ elõre is köszi

Nem elérhető RolePlay

  • 2100
    • Profil megtekintése
Fegyver vásárlás By RolePlay
« Válasz #5 Dátum: 2012. augusztus 15. - 13:25:11 »
0 Show voters
buyweapon-t beírod a megfelelõ helyen.
4 fõ kategória van Pisztolyok,Puskák,Gépfegyverek és Félautomaták.
Deagle,9mm,silenced
country rifle,combat és sima shoti
ak47,m4
mp5,uzi,teci9
ezeket tettem bele

Fegyver vásárlás By RolePlay
« Válasz #6 Dátum: 2012. augusztus 15. - 13:28:28 »
0 Show voters
köszi

Nem elérhető IXT

  • 2502
  • Steph Curry
    • Profil megtekintése
Fegyver vásárlás By RolePlay
« Válasz #7 Dátum: 2012. augusztus 15. - 13:28:45 »
+1 Show voters
Grat,szép script Role!

Ha teszel bele mentést,meg a LV-i fegyverbolt koordinátáját adok egy +-t is  ;)

Nem elérhető RolePlay

  • 2100
    • Profil megtekintése
Fegyver vásárlás By RolePlay
« Válasz #8 Dátum: 2012. augusztus 15. - 13:33:11 »
0 Show voters
Megpróbálom majd, most drogos cuccot készítek Footra :)

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal