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: Knife - 2013. április 21. - 23:14:43

Cím: Étlap rendszer.
Írta: Knife - 2013. április 21. - 23:14:43
Üdv.

Gondoltam elkezdnek érdeklõdni scriptelés iránt, és megcsináltam a életem legelsõ filterszkriptjét.


Ez nem lenne más mint étlap filterszkript, ennek csak annyi a lényege hogy tudsz venni dialogban, innivalókat/ennivalókat stb..


Készítette: Knife

Készítési idõ: 30perc

Teszteltem?: Igen

Milyen parancs feldolgozót használ?: zmcd

Képek:

Holnap feltöltök majd pár képet.

Kód:
 
    #include <a_samp>
    #include <zcmd>
     
    //DEFINICÓK
    #define Etlap   1
    #define Italok  2
    #define Etelek  3
     
    #if defined FILTERSCRIPT
     
    public OnFilterScriptInit()
    {
            return 1;
    }
     
    public OnFilterScriptExit()
    {
            return 1;
    }
     
    #else
     
    main()
    {
            print(\"\\n**** Etlap filterscript v1 by Knife ****\\n\");
    }
     
    #endif
     
    CMD:etlap(playerid, params[])
    {
            ShowPlayerDialog(playerid, Etlap, DIALOG_STYLE_LIST, \"Étlap\", \"Ételek\\nItalok\", \"Kiválaszt\", \"Kilépés\");
        return 1;
    }
     
    public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
    {
            if(dialogid == Etlap)
            {
                if(listitem == 0)
                {
                    ShowPlayerDialog(playerid, Etelek, DIALOG_STYLE_LIST, \"Étlap\", \"Hamburger(200$)\\nPizza(100$)\\nChips(50$)\", \"Kiválaszt\", \"Kilépés\");
                    }
                if(listitem == 1)
                {
                    ShowPlayerDialog(playerid, Italok, DIALOG_STYLE_LIST, \"Italok\", \"Sprite(20$)\\nCola(30$)\\nBomba(200$)\\nCappy(35$)\\nMonster(200$)\\nHell(200$)\\nAdrenalin(200$)\\nKobra(200$)\", \"Kiválaszt\", \"Kilépés\");
                    }
            }
     
            if(dialogid == Etelek)
            {
                if(listitem == 0)
                {
                    if(GetPlayerMoney(playerid) < 200) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-200);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 50;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ettél egy finom hamburgert, jó étvágyat kívánunk!\");
                    }
                if(listitem == 1)
                {
                    if(GetPlayerMoney(playerid) < 100) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-100);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 25;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ettél egy finom pizzát, jó étvágyat kívánunk!\");
                    }
                    if(listitem == 2)
                {
                    if(GetPlayerMoney(playerid) < 50) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-50);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 10;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ettél egy csomag chipset, jó étvágyat kívánunk!\");
                    }
            }
     
            if(dialogid == Italok)
            {
                if(listitem == 0)
                {
                    if(GetPlayerMoney(playerid) < 20) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-20);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 5;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom sprite-t, jó ívást kívánunk!\");
                    }
                if(listitem == 1)
                {
                    if(GetPlayerMoney(playerid) < 30) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-30);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 5;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom cola-t, jó ívást kívánunk!\");
                    }
                    if(listitem == 2)
                {
                    if(GetPlayerMoney(playerid) < 200) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-200);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 100;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom bomba-t, jó ívást kívánunk!\");
                    }
                    if(listitem == 3)
                {
                    if(GetPlayerMoney(playerid) < 35) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-35);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 7;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom cappy-t, jó ívást kívánunk!\");
                    }
                    if(listitem == 4)
                {
                    if(GetPlayerMoney(playerid) < 200) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-200);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 100;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom monster-t, jó ívást kívánunk!\");
                    }
                    if(listitem == 5)
                {
                    if(GetPlayerMoney(playerid) < 200) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-200);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 100;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom hell-t, jó ívást kívánunk!\");
                    }
                    if(listitem == 6)
                {
                    if(GetPlayerMoney(playerid) < 200) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-200);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 100;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom adrenalin-t, jó ívást kívánunk!\");
                    }
                    if(listitem == 7)
                {
                    if(GetPlayerMoney(playerid) < 200) { return SendClientMessage(playerid,0xFF6600FF,\"Nincsen elég pénzed.\"); }
                GivePlayerMoney(playerid,-200);
                new Float:hp;
                GetPlayerHealth(playerid,hp);
                hp += 100;
                SetPlayerHealth(playerid,hp);
                SendClientMessage(playerid,0x33AA33AA,\"Ittál egy finom kobra-t, jó ívást kívánunk!\");
                    }
            }
            return 1;
    }

 
Üdvözlettel: Knife
Cím: Étlap rendszer.
Írta: norbi39 - 2013. április 21. - 23:26:25
elsõ probálkozásra szép :) ment a +
Cím: Étlap rendszer.
Írta: doboka98 - 2013. április 22. - 12:52:18
Grat, jó lett elsõre, nem egy nehéz szkript, de munkával jár :D. Nekem tetszik, rendezett, és korrekt, sok sikert a továbbiakban!
Cím: Étlap rendszer.
Írta: EnterR - 2013. április 22. - 14:18:25
Szép lett, adok egy +-t, csak így tovább :)
Cím: Étlap rendszer.
Írta: Knife - 2013. április 22. - 14:28:30
Köszönöm szépen mindenkinek a +! ajándékba ti is kaptok tõlem 1 pluszt :D

OFF: Várható a új verzió étlap rendszerbõl!


Lehetséges hogy holnap publikálásra kerül a v2 es verzió!


Mik fognak benne lenni?

Animációk bekerülése.

Több féle ennivaló.


Több féle innivaló.




Cím: Étlap rendszer.
Írta: Dead - 2013. április 22. - 14:38:18
A cola drágább, mint az energiaitalok :D
Amúgy szép script :D
Sört hiányoltam.
Cím: Étlap rendszer.
Írta: Sajtiikaa - 2013. április 22. - 14:41:12
Jó lett csak így tovább :D
Cím: Étlap rendszer.
Írta: Knife - 2013. április 22. - 14:43:55
Idézetet írta: Dead date=1366634298\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"36434\" data-ipsquote-contentclass=\"forums_Topic
A cola drágább, mint az energiaitalok :D
Amúgy szép script :D
Sört hiányoltam.
 
Hát valóságban is drágább a kóla mint a energiaital.

Majd rakok bele sört is csak a kedvedért  <3 <3

 

Jó lett csak így tovább :D
 
[/quote]
Köszönöm szépen igyekeztem :D
Cím: Étlap rendszer.
Írta: Norby - 2013. április 22. - 18:54:25
\"jó ívást kívánunk\"
Erre én inkább azt mondanám, hogy: \"egészségedre\" vagy akármit, de elég hülyén hangzik a fentebb említett..
Cím: Étlap rendszer.
Írta: ninjo98 - 2013. április 22. - 20:45:53
Rendezett igènyes munka :) várom az animokat és sört is rakj bele :P ment a plusz :D
Cím: Étlap rendszer.
Írta: Flash - 2013. április 22. - 21:14:32
Ment a +! :D


De csak mert enegriaitalokat is raktál be *.*
 
;)
Cím: Étlap rendszer.
Írta: Knife - 2013. április 22. - 21:31:41
Idézetet írta: ninjo98 date=1366656353\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"36434\" data-ipsquote-contentclass=\"forums_Topic
Rendezett igènyes munka :) várom az animokat és sört is rakj bele :P ment a plusz :D
 
Fogok bele tenni animációkat és sört. <3 <3

Jelenleg már 5-6sör van bent :D


Ha mondtok sör neveket, mert nem értek hozzájuk akkor azt is berakom :D

 

Ment a +! :D


De csak mert enegriaitalokat is raktál be *.*
 
;)
 
[/quote]
Sörnek még jobban fogsz örülni :)

Amúgy köszi mind a kettõtöknek a +-t.


OFF: Felfogom tölteni a dialogos fegyverlekérõmet életem 2. scriptjét :D
Cím: Étlap rendszer.
Írta: Flash - 2013. április 23. - 16:52:23
Nem izlik a sör.. :/
Szal engem energiaitallal lehet levenni a lábamról. :3