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: Kevin_Johnson - 2013. április 24. - 23:02:20

Cím: Ital Rendszer
Írta: Kevin_Johnson - 2013. április 24. - 23:02:20

Ital Rendszer




Üdvözletem!

Ma mivel nagyon unatkoztam nem volt kedvem játszani ezért gyorsan összedobtam egy kis FS-t!


Készítette:

Kevin Johnson ~ Zsoli


Készítési idõ:

15perc


Teszt:

Mûködõképes!


Sorok száma:

82


Parancsfeldolgozó:

Zcmd


Leírás:

Amikor beírod a
/italok parancsot akkor kidob egy dialogot amibõl különbözõ italokat vásárolhatsz.Amikor megvásároltál egy italt, levonja tõled az adot összeget, feltölti az életed maxra és add a kezedbe egy üveget/poharat.Az élvezeteségért kiszinezttem a szövegeket.Használd egészségel!

Letöltés:

http://pastebin.com/1se7nvGy


/*Ital Rendszer
Készítette:Kevin Johnson ~ Zsoli
Copyright @ Equinox Gaming 2009-2013*/
#include <   a_samp   >
#include <   zcmd   >
#define DIALOG_0 1
#define COLOR_LIGHTBLUE           0x00BFFFAA
#define COLOR_ULTRARED            0xFF0606FF
CMD:italok(playerid, params[])
    {
            ShowPlayerDialog(playerid, DIALOG_0, DIALOG_STYLE_LIST, \"{FF0606}Válaszd ki mit szeretnél inni!\", \"{00BFFF}Sör     {FF0606}50$\\n{00BFFF}Pálinka     {FF0606}100$\\n{00BFFF}Bor     {FF0606}250$\\n{00BFFF}Jägermeister     {FF0606}350$\\n{00BFFF}Whiskey     {FF0606}350$\\n{00BFFF}Víz     {FF0606}10$\\n{00BFFF}Cola     {FF0606}50$\\n{00BFFF}Citromos üdítõ     {FF0606}75$\", \"Választ\", \"Kilépés\");
        return 1;
    }
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
if(dialogid == DIALOG_0)
{
        if(response)
        {
                if(listitem == 0)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy sört 50$ értékben!\");
                        GivePlayerMoney(playerid, -50);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_BEER);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 1)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy pálinkát 100$ értékben!\");
                        GivePlayerMoney(playerid, -100);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_BEER);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 2)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy bort 250$ értékben!\");
                        GivePlayerMoney(playerid, -250);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_WINE);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 3)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy jägermeistert 350$ értékben!\");
                        GivePlayerMoney(playerid, -350);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_WINE);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 4)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy whiskeyt 350$ értékben!\");
                        GivePlayerMoney(playerid, -350);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_WINE);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 5)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy üveg vizet 10$ értékben!\");
                        GivePlayerMoney(playerid, -10);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_SPRUNK);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 6)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy colat 50$ értékben!\");
                        GivePlayerMoney(playerid, -50);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_SPRUNK);
                        SetPlayerHealth(playerid, 100);
                }
                if(listitem == 7)
                {
                        SendClientMessage(playerid, 0x00BFFFAA, \"Vettél egy citromos üdítõt 75$ értékben!\");
                        GivePlayerMoney(playerid, -75);
                        SetPlayerSpecialAction(playerid, SPECIAL_ACTION_DRINK_SPRUNK);
                        SetPlayerHealth(playerid, 100);
                }
        }
        }else{
        SendClientMessage(playerid, 0xFF0606FF, \"Kiléptél a dialogból!\");
}

 

Cím: Ital Rendszer
Írta: norbi39 - 2013. április 24. - 23:36:27
és ebbe mi tartott 15 percig?..
Cím: Ital Rendszer
Írta: Knife - 2013. április 25. - 06:32:41
Szép lett  <3
Cím: Ital Rendszer
Írta: almightymartin - 2013. április 25. - 06:44:26
Nagyon Szép !
Cím: Ital Rendszer
Írta: SnooP - 2013. április 25. - 11:30:10
Nem rosz, esetleg lementhetnéd hányszor írta be a parancsot és, ha mondjuk az meghaladta a 4-et akkor a SetPlayerDrunk levelnél 20-ra állítod, majd 5-nél 30-ra és így tovább. ;)
Cím: Ital Rendszer
Írta: Kevin_Johnson - 2013. április 25. - 11:33:52
Idézetet írta: SnooP date=1366882210\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"36535\" data-ipsquote-contentclass=\"forums_Topic
Nem rosz, esetleg lementhetnéd hányszor írta be a parancsot és, ha mondjuk az meghaladta a 4-et akkor a SetPlayerDrunk levelnél 20-ra állítod, majd 5-nél 30-ra és így tovább. ;)
 
Ez nekem is eszembe jutott, szerintem megcsinálom. :D


Köszi mindenkinek!  <3 <3



és ebbe mi tartott 15 percig?..
 
[/quote]
Teszteléssel együtt.
Cím: Ital Rendszer
Írta: takehun - 2013. április 25. - 14:32:01
Idézetet írta: norbi39 date=1366839387\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"36535\" data-ipsquote-contentclass=\"forums_Topic
és ebbe mi tartott 15 percig?..
 
Minek hazudja azt -mint egyesek- hogy \"Készítési idõ: 1-2 perc\" ?
Gondolom a színezéssel, formázással, teszteléssel mehet el ennyi idõ (dialog alapból pepecselõs munka)
Cím: Ital Rendszer
Írta: Kevin_Johnson - 2013. április 25. - 15:31:20
Hát nem volt nagy munka, csak gyorsan így este lefekvés elõtt összedobtam egy kis dolgot.

Ma/holnap is publikálok egy kisebb FSem, még nem kezdtem el.