Gerimo sistema by ~Frozzy~

//==============================================================================
/*
                            - Gėrimo sistema v3 -

                    Skrito autorius Žilvėnas a.k.a Frozzy
*/
//==============================================================================

#include "../pawno/include/a_samp.inc"
#include "../pawno/include/zcmd.inc"

#define COLOR_RED 0xAA3333AA
#define COLOR_GREEN 0x33AA33AA
#define COLOR_RED 0xAA3333AA
#define COLOR_YELLOW 0xFFFF00AA
#define COLOR_ORANGE 0xFF9900AA
#define COLOR_RED 0xAA3333AA
#define COLOR_LIMEGREEN 0x32CD32AA

#pragma tabsize 0

//==============================================================================

new
string[256]; new ZaidejoVardas[256];

#define FROZZY_DRUNK 1 // dialog

//==============================================================================
#if defined FILTERSCRIPT

main()
{
    print("\n\n\n\n\n\n\n\n");
    print("Drunk system by Žilvėnas @ 2012-2013");
    print("\n\n\n\n\n\n\n");
}

#else
#endif


public OnGameModeExit()
{
    return 1;
}

public OnPlayerRequestClass(playerid, classid)
{
    ApplyAnimation(playerid,"PED","WALK_DRUNK",4.1,1,1,1,1,1);//Girtas
    return 1;
}


COMMAND:gerti(playerid, params[])
{
ShowPlayerDialog(playerid,FROZZY_DRUNK,DIALOG_STYLE_LIST,"Mini-{CCFF66}Baras","Alus-Švyturys\nDegtinė-Vodka\nLikeris-Stumbras\nBrendis-Ryanal\nVynas-Šokas\nSidras-Kiss","Gerti","Išeiti");
format(string, sizeof(string), "[ SERVERIS ] {CCFF66}%s {FFFFFF}Susidomėjo alkoholiniais gėrimais {CCFF66}/gerti", ZaidejoVardas);
SendClientMessageToAll(COLOR_GREEN, string);
return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == FROZZY_DRUNK)
        {
                if(response)
                {
                        if(listitem == 0)
                        {
                    SetPlayerSpecialAction(playerid,SPECIAL_ACTION_DRINK_BEER);
            SetPlayerDrunkLevel(playerid,3000);
        SendClientMessage(playerid, 0xFFFFFFAA, "Vartoji švyturio alų");
          GetPlayerName(playerid, ZaidejoVardas, 30);
       format(string, sizeof(string), "{CCFF66}[ %s ]{FFFFFF}Vartoja alkoholį {CCFF66}/gerti", ZaidejoVardas);
             SendClientMessageToAll(COLOR_LIMEGREEN, string);
                        }
                        if(listitem == 1)
                        {
                    SetPlayerSpecialAction(playerid,SPECIAL_ACTION_DRINK_BEER);
    SetPlayerDrunkLevel(playerid,3000);
    SendClientMessage(playerid, 0xFFFFFFAA, "Vartoji vodka degtinę");
     GetPlayerName(playerid, ZaidejoVardas, 30);
    format(string, sizeof(string), "{CCFF66}[ %s ]{FFFFFF}Vartoja alkoholį {CCFF66}/gerti", ZaidejoVardas);
    SendClientMessageToAll(COLOR_LIMEGREEN, string);
                        }
                        if(listitem == 2)
                {
               SetPlayerSpecialAction(playerid,SPECIAL_ACTION_DRINK_BEER);
    SetPlayerDrunkLevel(playerid,3000);
    SendClientMessage(playerid, 0xFFFFFFAA, "Vartoji likerį stumbras");
    GetPlayerName(playerid, ZaidejoVardas, 30);
    format(string, sizeof(string), "{CCFF66}[ %s ]{FFFFFF}Vartoja alkoholį {CCFF66}/gerti", ZaidejoVardas);
    SendClientMessageToAll(COLOR_LIMEGREEN, string);
                        }
                        if(listitem == 3)
                {
               SetPlayerSpecialAction(playerid,SPECIAL_ACTION_DRINK_BEER);
    SetPlayerDrunkLevel(playerid,3000);
    SendClientMessage(playerid, 0xFFFFFFAA, "Vartoji brendį ryanal");
    GetPlayerName(playerid, ZaidejoVardas, 30);
    format(string, sizeof(string), "{CCFF66}[ %s ]{FFFFFF}Vartoja alkoholį {CCFF66}/gerti", ZaidejoVardas);
    SendClientMessageToAll(COLOR_LIMEGREEN, string);
                        }
                        if(listitem == 4)
                {
              SetPlayerSpecialAction(playerid,SPECIAL_ACTION_DRINK_WINE);
    SetPlayerDrunkLevel(playerid,3000);
    SendClientMessage(playerid, 0xFFFFFFAA, "Vartoji vyną šokas");
        GetPlayerName(playerid, ZaidejoVardas, 30);
    format(string, sizeof(string), "{CCFF66}[ %s ]{FFFFFF}Vartoja alkoholį {CCFF66}/gerti", ZaidejoVardas);
    SendClientMessageToAll(COLOR_LIMEGREEN, string);
                        }
                        if(listitem == 5)
                {
                SetPlayerSpecialAction(playerid,SPECIAL_ACTION_DRINK_SPRUNK);
    SetPlayerDrunkLevel(playerid,3000);
    SendClientMessage(playerid, COLOR_GREEN, "Vartoji sidrą kiss");
    GetPlayerName(playerid, ZaidejoVardas, 30);
    format(string, sizeof(string), "{CCFF66}[ %s ]{FFFFFF}Vartoja alkoholį {CCFF66}/gerti", ZaidejoVardas);
    SendClientMessageToAll(COLOR_LIMEGREEN, string);
                        }
                }
                return 1;
           }
            return 1;
                }