Destination

/*
	Tai yra tik pradinë versija, jei norësite didesniø update'ø : á komentarus :) Ir èia nieko áspudingo nëra :p
	Labiau tinka FreeRoam'ams ar Driftui kokiam . :)
*/

#include <a_samp>
#include <zcmd>

#define Raudona 0xFF0000AA
#define Zalia 0x00EA00FF

#define DIALOG_SKELBIMAS 1
#define DIALOG_ROLLTHEDICE 2

new NegalimaNaudoti[MAX_PLAYERS];
new Laikmatis;
new Infernus;

enum info
{
	VIP
};
new zInfo[MAX_PLAYERS][info];

public OnFilterScriptInit()
{
	print("\n------------------");
	print(" dVIP v0.1 ENABLED");
	print("--------------------\n");
	return 1;
}

public OnFilterScriptExit()
{
	print(" dVIP v0.1 CLOSING");
	return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	if(dialogid == DIALOG_SKELBIMAS)
	{
		if(response)
		{
		    new zinute[256], vardas[25];
		    GetPlayerName(playerid, vardas, sizeof(vardas));
		    format(zinute, sizeof(zinute), "{FF0000}VIP Narys %s : {FFFFFF}%s", vardas, inputtext);
		    SendClientMessageToAll(Raudona, zinute);
		}
	}
	if(dialogid == DIALOG_ROLLTHEDICE)
	{
	    if(response)
	    {
	        if(listitem == 0)
	        {
         		Laikmatis = SetTimerEx("LaikasKolNegalima", 120000, false, "d", playerid);
         		NegalimaNaudoti[playerid] = 1;
	            new prizai = random(5);
	            switch(prizai)
	            {
	                case 0: GivePlayerWeapon(playerid, 24, 24), SendClientMessage(playerid, Zalia, "Laimëjote ginklà su 24 kulkom!");
	                case 1: GivePlayerMoney(playerid, 50000), SendClientMessage(playerid, Zalia, "Laimëjote 50000 þaliø!");
					case 2: SetPlayerHealth(playerid, 100), SetPlayerArmour(playerid, 100), SendClientMessage(playerid, Zalia, "Laimëjote ðarvus bei gyvybes!");
					case 3: SetPlayerScore(playerid, GetPlayerScore(playerid)+2000), SendClientMessage(playerid, Zalia, "Laimëjote 2000 patirties taðkø!");
					case 4: SetPlayerHealth(playerid, 1), SetPlayerArmour(playerid, 100), SendClientMessage(playerid, Raudona, "Dabar tu turi 1 gyvybæ ir 100 armoro!");
					case 5: SendClientMessage(playerid, Raudona, "Nieko nelaimëjai!");
				}
			}
		}
	}
	return 1;
}

COMMAND:vip(playerid, params[])
{
    if(zInfo[playerid][VIP] == 1) return SendClientMessage(playerid, Raudona, "Tu ir taip VIP'as!");
	zInfo[playerid][VIP] = 1;
	SetPlayerColor(playerid, Raudona);
	SendClientMessage(playerid, Zalia, "Tu dabar esi VIP'as.");
	return 1;
}

COMMAND:vskelbti(playerid, params[])
{
	if(zInfo[playerid][VIP] == 0) return SendClientMessage(playerid, Raudona, "Tu ne VIP'as!");
	ShowPlayerDialog(playerid, DIALOG_SKELBIMAS, DIALOG_STYLE_INPUT, "{FF0000}VIP Skelbimas", "{FFFFFF}Apaèion á laukelá áveskite kà norite skelbti visiems þaidëjams.", "Skelbti", "Atðaukti");
	return 1;
}

COMMAND:rtd(playerid, params[])
{
	if(NegalimaNaudoti[playerid] == 1) return SendClientMessage(playerid, Raudona, "Dar negali naudoti ðios komandos");
	if(zInfo[playerid][VIP] == 0) return SendClientMessage(playerid, Raudona, "Tu ne VIP'as!");
	ShowPlayerDialog(playerid, DIALOG_ROLLTHEDICE, DIALOG_STYLE_LIST, "{FF0000}RollTheDice", "{FFFFFF}Mesti Kauliukà", "Rinktis", "Atðaukti");
	return 1;
}

COMMAND:skaic(playerid, params[])
{
    if(zInfo[playerid][VIP] == 0) return SendClientMessage(playerid, Raudona, "Tu ne VIP'as!");
	SetTimer("Keturi", 3200, false);
	GameTextForAll("~g~-~y~5~g~-", 2000, 3);
	return 1;
}

COMMAND:inf(playerid, params[])
{
	if(zInfo[playerid][VIP] == 0) return SendClientMessage(playerid, Raudona, "Tu ne VIP'as!");
	new Float:pos[3];
	GetPlayerPos(playerid, pos[0], pos[1], pos[2]);
	Infernus = CreateVehicle(411, pos[0], pos[1]+1, pos[2]+1, 0, 1, 1, 50);
	PutPlayerInVehicle(playerid, Infernus, 0);
	SetVehicleNumberPlate(Infernus, "VIP");
	return 1;
}

forward LaikasKolNegalima(playerid);
public LaikasKolNegalima(playerid)
{
	NegalimaNaudoti[playerid] = 0;
	KillTimer(Laikmatis);
}

forward Keturi();
public Keturi()
{
	SetTimer("Trys", 3200, false);
	GameTextForAll("~g~-~y~4~g~-", 2000, 3);
}

forward Trys();
public Trys()
{
	SetTimer("Du", 3200, false);
	GameTextForAll("~g~-~y~3~g~-", 2000, 3);
}

forward Du();
public Du()
{
	SetTimer("Vienas", 3200, false);
	GameTextForAll("~g~-~y~2~g~-", 2000, 3);
}

forward Vienas();
public Vienas()
{
	SetTimer("GoGoGo", 3200, false);
	GameTextForAll("~g~-~y~1~g~-", 2000, 3);
}

forward GoGoGo();
public GoGoGo()
{
    GameTextForAll("~g~-~y~GO GO GO~g~-", 2000, 3);
}