GTA Közösség - A magyar GTA fórum

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => A témát indította: RolePlay - 2012. augusztus 15. - 11:19:31

Cím: Fegyver vásárlás By RolePlay
Írta: RolePlay - 2012. augusztus 15. - 11:19:31
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;
}
   
Cím: Fegyver vásárlás By RolePlay
Írta: TengeriMalac - 2012. augusztus 15. - 11:29:10
grat. :D
pluszt nem adok  :whistle:
Cím: Fegyver vásárlás By RolePlay
Írta: Rupert - 2012. augusztus 15. - 11:31:14
Egyszerû, és ügyes. Így tovább, RoliPoli :D
Cím: Fegyver vásárlás By RolePlay
Írta: RolePlay - 2012. augusztus 15. - 11:32:18
Igyekeztem :) :D
Köszi :)
TMC most kivételesen a segítséged nélkül sikerült :D
Cím: Fegyver vásárlás By RolePlay
Írta: leonell - 2012. augusztus 15. - 13:19:44
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
Cím: Fegyver vásárlás By RolePlay
Írta: RolePlay - 2012. augusztus 15. - 13:25:11
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
Cím: Fegyver vásárlás By RolePlay
Írta: leonell - 2012. augusztus 15. - 13:28:28
köszi
Cím: Fegyver vásárlás By RolePlay
Írta: IXT - 2012. augusztus 15. - 13:28:45
Grat,szép script Role!

Ha teszel bele mentést,meg a LV-i fegyverbolt koordinátáját adok egy +-t is  ;)
Cím: Fegyver vásárlás By RolePlay
Írta: RolePlay - 2012. augusztus 15. - 13:33:11
Megpróbálom majd, most drogos cuccot készítek Footra :)