/*
			Kūrėjas: Gh0sT_
			Versija: V1
			Skype: grander18
			Nors ir pakeisi kreditus, skripto autoriumi netapsi.
*/
#include <a_samp> // Kreditai ----> SA-MP komanda
#include <foreach> // Kreditai ----> Y_Less
#include <zcmd> // Kreditai ----> ZeeX
#define  Gyvybes        750 // Nuo kiek gyvybių mašinos variklis užges?
#define  Kaina          1000 // Kiek kainuos sutaisymas, ir kiek pinigų mechanikas gaus?
#define  Iskvietimas    50 // Kiek pinigų žaidėjui nuiims, kai jis iškvies mechanikus?
#define  Tekstas        1 // Ar žaidėjui bus prilipdytas tekstas, kai jo mašinos variklis bus užgesęs? 1 - Taip, 0 - Ne.
#define  BALTA       	0xFFFFFFFF // Balta spalva.
new
	Text3D:UzgesusioTekstas[MAX_PLAYERS]
	;
main(){}
public OnFilterScriptInit( ) // Kreditai ---> SA-MP komanda
{
	print("\n\n\n\n\n\n\n\n\n\n\n\n");
	print("Greičio matuokliai - kūrta Gh0sT_");
	SetTimer("VariklioTikrinimas", 1000, true );
	SetTimer("AutomatineZinute", 60000, true );
	return 1;
}
public OnFilterScriptExit( ) // Kreditai ---> SA-MP komanda
{
	print("\n\n\n\n\n\n\n\n\n\n\n\n");
	print("Greičio matuokliai - kūrta Gh0sT_");
	return 1;
}
public OnPlayerDisconnect( playerid, reason )
{
	Delete3DTextLabel( UzgesusioTekstas [ playerid ] );
	return 1;
}
COMMAND:taisyti( playerid , params[]) // Kreditai ---> Gh0sT_
{
	new MasinosID = GetPlayerVehicleID( playerid );
	new Vairuotojas = GautiVairuotoja( MasinosID );
	new Float: MasinosGyvybes;
	GetVehicleHealth( MasinosID , MasinosGyvybes );
	if(MasinosGyvybes > 999) return SendClientMessage( playerid, BALTA, "Mašina nėra sudaužyta.");
	if(GetPVarInt( playerid, "Darbas") != 1 ) return SendClientMessage( playerid, BALTA, "Jūs neesate Mechanikas.");
	if(GetPlayerMoney( Vairuotojas ) < Kaina) return SendClientMessage( playerid, BALTA,"Šis žaidėjas neturi 1000$.");
	if(!IsPlayerInAnyVehicle( playerid ) && GetPlayerState( playerid ) != PLAYER_STATE_DRIVER) return SendClientMessage( playerid, BALTA,"Jūs neesate mašinoje.");
	if(Vairuotojas != INVALID_PLAYER_ID)
	{
	new
		Stringas[61]
		;
	format(Stringas,sizeof(Stringas),"Mechanikas %s Jums siųlo mašinos sutaisymą už 1000$.", GautiZaidejoVarda( playerid ));
	ShowPlayerDialog( Vairuotojas , 0 ,DIALOG_STYLE_MSGBOX,"Mechanikai" , Stringas , "Sutaisyti" , "Uždaryti");
	SetPVarInt( playerid , "ZaidejoID", Vairuotojas );
	SetPVarInt( playerid , "MasinosID", MasinosID );
	}
	else SendClientMessage( playerid, BALTA,"Mašinoje nėra jos savininko.");
	return 1;
}
COMMAND:darbas( playerid , params[])
{
	if( GetPVarInt ( playerid , "Darbas") == 1) return SendClientMessage( playerid, BALTA, "Jūs jau dirbate Mechaniku." );
	#pragma tabsize 0
new
	#pragma tabsize 1
	Stringas[64]
	;
	format(Stringas, 64, "Žaidėjas %s įsidarbino į Mechanikų firmą.", GautiZaidejoVarda( playerid ));
	return 1;
}
COMMAND:kviesti( playerid , params[]) // Kreditai ---> Gh0sT_
{
	if(GetPVarInt( playerid , "Darbas") == 1) return SendClientMessage( playerid , BALTA,"Jūs ir taip esate Mechanikas.");
	ShowPlayerDialog( playerid, 1, DIALOG_STYLE_INPUT,"Mechanikų kvietimas","Apibūdinkite vietą, kurioje dabar esate." , "Skambinti" , "Atšaukti");
	return 1;
}
forward VariklioTikrinimas( ); // Kreditai ---> Gh0sT_
public VariklioTikrinimas( ) // Kreditai ---> Gh0sT_
{
	foreach(Player, ID)
	{
	if(GetPVarInt( ID , "Uzgeses") == 1 ) // Sukūrta tam, kad kai žaidėjui užgęsta mašinos variklis, jis negalėtų atsišaldyti su s0beitu.
	{
	TogglePlayerControllable( ID , false );
	}
	if( GetPlayerState( ID ) == PLAYER_STATE_DRIVER )
	{
	new
    #pragma tabsize 1
	Float:MasinosGyvybes;
	new MasinosID = GetPlayerVehicleID( ID );
	GetVehicleHealth( MasinosID , MasinosGyvybes );
	#pragma tabsize 0
	if(MasinosGyvybes < Gyvybes)
	{
	if(GetPVarInt( ID , "Uzgeses") == 0 )
	{
	TogglePlayerControllable( ID , false );
	SendClientMessage( ID , BALTA,"Jūsų mašinos variklis užgeso. Kreipkities pas Mechanikus." );
	SetPVarInt( ID , "Uzgeses", 1 );
	#if Tekstas     1
	new
		Float:ZaidejoX,
		Float:ZaidejoY,
		Float:ZaidejoZ
	;
	UzgesusioTekstas [ ID ] = Create3DTextLabel ( "Šio žaidėjo mašinos variklis yra užgesęs! ", BALTA, ZaidejoX, ZaidejoY, ZaidejoZ+2.0, 20.0, 1 );
	Attach3DTextLabelToPlayer ( UzgesusioTekstas [ ID ], ID, 0, 0, 2.0 );
	SetPVarInt ( ID, "TekstasSukurtas", 1 );
	#endif
	}
	}
	}
	}
	return 1;
}
forward NuiimtiPV( playerid );
public NuiimtiPV( playerid )
{
	SetPVarInt( playerid , "Iskvietes", 0 );
	SendClientMessage ( playerid, BALTA, "Vėl galite kviesti Mechanikus, naudodami komandą /kviesti,");
	return 1;
}
stock GautiZaidejoVarda( playerid ) // Kreditai ---> ?
{
	new Vardas[ MAX_PLAYER_NAME ];
	GetPlayerName( playerid , Vardas, 24 );
	return Vardas;
}
stock GautiVairuotoja( vehicleid ) // Kreditai ---> ?
{
	foreach(Player, playerid)
	{
	if(GetPlayerState( playerid ) == PLAYER_STATE_DRIVER)
	{
	if(IsPlayerInVehicle( playerid , vehicleid)) return playerid;
	}
	}
	return INVALID_PLAYER_ID;
}
stock NusiustiZinuteMechanikams(color, text[])
{
	foreach(Player, Mechanikas)
	{
	if(GetPVarInt( Mechanikas , "Darbas") == 1 )
	{
	SendClientMessage( Mechanikas , color, text );
	}
	}
	return 1;
}
forward AutomatineZinute( );
public AutomatineZinute( )
{
SendClientMessageToAll( BALTA,"Šis serveris naudoja Gh0sT_ Variklio sistemą.");
SendClientMessageToAll( BALTA,"Komandos: /taisyti - Sutaisyti mašiną, /kviesti - Iškviesti mechanikus.");
return 1;
}
public OnPlayerConnect( playerid )
{
	SendClientMessage( playerid , BALTA, "Šis serveris naudoja Gh0sT_ Variklio sistemą" );
	return 1;
}
public OnDialogResponse( playerid , dialogid, response, listitem, inputtext[]) // Kreditai ---> SA-MP komanda
{
	if( dialogid == 43 )
	{
	if( !response )
	{
	SendClientMessage( playerid , BALTA, "Jūs paspaudėte 'Uždaryti'.");
	}
	if( response )
	{
	new
	    Stringas[ 105 ]
	    ;
	if(strlen( inputtext ) > 40) return SendClientMessage( playerid , BALTA,"Vietos aprašymas negali būti ilgesnis, kaip 40simbolių." );
	format( Stringas , 105 ,"Darbo racija: %s kviečia Mechaniką. Vieta: %s", GautiZaidejoVarda( playerid ), inputtext );
	NusiustiZinuteMechanikams( BALTA , Stringas );
	SendClientMessage( playerid , BALTA, "Mechanikas sėkmingai iškviestas." );
	GivePlayerMoney( playerid , -Iskvietimas );
	SetPVarInt( playerid, "Iskvietes", 1 );
	SetTimerEx("NuiimtiPV", 60000, false, "d", playerid );
	}
	}
	if( dialogid == 0 )
	{
	if( !response )
	{
	SendClientMessage( playerid , BALTA,"Jūs paspaudėte 'Uždaryti" );
	}
	if( response )
	{
	new Vairuotojas = GetPVarInt( playerid ,"ZaidejoID" );
	new AutomobilioID = GetPVarInt( playerid ,"MasinosID" );
	GivePlayerMoney( playerid , Kaina );
	GivePlayerMoney( Vairuotojas , -Kaina );
	RepairVehicle( AutomobilioID );
	SetPVarInt( Vairuotojas , "Uzgeses", 0 );
	TogglePlayerControllable( Vairuotojas , true );
	if(GetPVarInt( Vairuotojas , "TekstasSukurtas") == 1) return Delete3DTextLabel( UzgesusioTekstas [ playerid ]), SetPVarInt( Vairuotojas , "TekstasSukurtas", 0 );
	}
	}
	return 0;
}
/*
			Kūrėjas: Gh0sT_
			Versija: V1
			Skype: grander18
			Nors ir pakeisi kreditus, skripto autoriumi netapsi.
*/