Sveikuciai reiktu pagalbos dėl greičio matuoklių

[madhero]

/*

* Kûrëjas: BaubaS
* Sukûrimo data: 2010 - 03 - 05
* Paskutiná kartà atnaujinta: 2010 - 04 - 01
* Dabartinë versija: 0.2

... Jei ir pakeisi autoriø — scripto autorium netapsi.

*/


#define FILTERSCRIPT
//---------------------------------------------------------------------------------------
#include <	a_samp	> // Kreditai --> SA-MP Developers
#include <	foreach	> // Kreditai --> Y_Less
#include <	zcmd	> // Kreditai --> ZeeX
//---------------------------------------------------------------------------------------
#define bPanaikinimas 3
#define tPanaikinimas 30
#define MATUOKLIAI 10
//---------------------------------------------------------------------------------------
new
bool: VirsijoGreiti[ MAX_PLAYERS ] = false,
Iterator:gMatuokliai,
Text3D: gTekstas[ MAX_PLAYERS ],
Kiekis
;
//---------------------------------------------------------------------------------------
enum GreicioM
{
bool: Tekstas = false,
Float: Pozicija[ 3 ],
LeistinasGreitis,
IeskomumoLygis,
Pinigai,
};
//---------------------------------------------------------------------------------------
new
Matuokliai[ MATUOKLIAI ][ GreicioM ]
;
//---------------------------------------------------------------------------------------
native sscanf( const data[ ], const format[ ], { Float, _ } :... ); // Kreditai --> Y_Less
//---------------------------------------------------------------------------------------
stock SukurtiMatuokli( Float: X, Float: Y, Float: Z, BaudaPinigais, BaudaIeskomumu, mGreitis, bool: tekstas ) // Kreditai --> BaubaS
{
/* Parametrai.
X, Y, Z - koordinatës, kur 'gaudys' greièio virðintojus
BaudaPinigais - kiek pinigø þaidëjas praras virðijus greitá
BaudaIeskomumu - kiek ieðk. lygiø þaidëjas gaus virðijus greitá
mGreitis - nuo kokio greièio þaidëjà 'gaudys'.
Tekstas - ar þaidëjui bus prilipdytas 3d tekstas, ar ne. (true/false) */

Kiekis ++;
Itter_Add(gMatuokliai, Kiekis);

Matuokliai[ Kiekis ][ Pozicija ][ 0 ] = X;
Matuokliai[ Kiekis ][ Pozicija ][ 1 ] = Y;
Matuokliai[ Kiekis ][ Pozicija ][ 2 ] = Z;

Matuokliai[ Kiekis ][ IeskomumoLygis ] = BaudaIeskomumu;
Matuokliai[ Kiekis ][ Pinigai ] = BaudaPinigais;

Matuokliai[ Kiekis ][ Tekstas ] = tekstas;

Matuokliai[ Kiekis ][ LeistinasGreitis ] = mGreitis;

return Kiekis;
}
//---------------------------------------------------------------------------------------
stock PanaikintiMatuokli( matuoklioid )  // Kreditai --> BaubaS
{
if( ArMatuoklisSukurtas( matuoklioid ) )
{
	Itter_Remove(gMatuokliai, matuoklioid);
	Kiekis --;
	return true;
}
return false;
}
//---------------------------------------------------------------------------------------
stock ArMatuoklisSukurtas( matuoklioid ) // Kreditai --> BaubaS
{
new
	vMatuokliai = Itter_Count(gMatuokliai)
;
if( matuoklioid > vMatuokliai ) return false;
return true;
}
//---------------------------------------------------------------------------------------
public OnFilterScriptInit( ) SetTimer( "GreicioMatuokliai", 2000, true );
//---------------------------------------------------------------------------------------
forward GreicioMatuokliai( );
public GreicioMatuokliai( ) // Kreditai --> BaubaS
{
foreach(Player, ID)
{
    foreach(gMatuokliai, mID)
    {
        if( IsPlayerInRangeOfPoint( ID, 10.0, Matuokliai[ mID ][ Pozicija ][ 0 ], Matuokliai[ mID ][ Pozicija ][ 1 ], Matuokliai[ mID ][ Pozicija ][ 2 ] ) )
        {
            if( VirsijoGreiti[ ID ] == false )
            {
                if( Greitis( ID ) > Matuokliai[ mID ][ LeistinasGreitis ] )
                {
					SendClientMessage( ID, -1, "Jûs {F81414}virðijote {FFFFFF}leistinà greitá" );
					new
				    	Stringas[ 117 ]
					;
					format( Stringas, 42, "{FFFFFF}Leistinas greitis: {00C0FF}%d", Matuokliai[ mID ][ LeistinasGreitis ] );
					SendClientMessage( ID, -1, Stringas );
					format( Stringas, 37, "{FFFFFF}Jûsø greitis: {00C0FF}%d", Greitis( ID ) );
					SendClientMessage( ID, -1, Stringas );
					format( Stringas, 117, "{FFFFFF}Jûs gavote %d {F81414}ieðkomumo lygiø{FFFFFF}, bei {F81414}piniginæ baudà {FFFFFF}- %d", Matuokliai[ mID ][ IeskomumoLygis ], Matuokliai[ mID ][ Pinigai ] );
					SendClientMessage( ID, -1, Stringas );
					VirsijoGreiti[ ID ] = true;
					SetTimerEx( "NaikinamBool", bPanaikinimas * 1000, false, "d", ID );
					GivePlayerMoney( ID, - Matuokliai[ mID ][ Pinigai ] );
					SetPlayerWantedLevel( ID, GetPlayerWantedLevel( ID ) + Matuokliai[ mID ][ IeskomumoLygis ] );
					if( Matuokliai[ mID ][ Tekstas ] == true )
					{
					    new
					        Float: zPozicija[ 3 ]
						;
						GetPlayerPos( ID, zPozicija[ 0 ], zPozicija[ 1 ], zPozicija[ 2 ] );
					    gTekstas[ ID ] = Create3DTextLabel( "{FFFFFF}Ðis þaidëjas {F81414}virðijo {FFFFFF}greitá!", -1, zPozicija[ 0 ], zPozicija[ 1 ], zPozicija[ 2 ] + 1.3, 25, 0, 0 );
					    Attach3DTextLabelToPlayer( gTekstas[ ID ], ID, 0, 0, 2.0 );
					    SetTimerEx( "NaikinamText", tPanaikinimas * 1000, false, "d", ID );
					}
				}
			}
		}
	}
}
return true;
}
//---------------------------------------------------------------------------------------
forward Bool( playerid ); public Bool( playerid ) return VirsijoGreiti[ playerid ] = false;
//---------------------------------------------------------------------------------------
forward NaikinamText( playerid ); public NaikinamText( playerid ) return Delete3DTextLabel( gTekstas[ playerid ] );
//---------------------------------------------------------------------------------------
public OnPlayerDisconnect( playerid ) return Delete3DTextLabel( gTekstas[ playerid ] );
//---------------------------------------------------------------------------------------
stock Greitis( playerid ) // Kreditai ---> ?
{
   new
	Float: ST[ 4 ]
;
   if( IsPlayerInAnyVehicle( playerid ) )
	GetVehicleVelocity( GetPlayerVehicleID( playerid ), ST[ 0 ], ST[ 1 ], ST[ 2 ] );
	else GetPlayerVelocity( playerid, ST[ 0 ], ST[ 1 ], ST[ 2 ] );
   ST[ 3 ] = floatsqroot( floatpower( floatabs( ST[ 0 ] ), 2.0 ) + floatpower( floatabs( ST[ 1 ] ), 2.0 ) + floatpower( floatabs( ST[ 2 ] ), 2.0 ) ) * 180.3;
   return floatround( ST[ 3 ] );
}
//--------------------------------------------------------------------------------------- Komandos.
CMD:kurtimatuokli( playerid, params[ ] ) // Kreditai --> BaubaS
{
if( ! IsPlayerAdmin( playerid ) ) return SendClientMessage( playerid, -1, "{FFFFFF}Jûs {F81414}neesate {FFFFFF}RCON Administratorius." );
new
	lGreitis,
	iLygis,
	pPinigai,
	bool: tRodymas
;
if( sscanf( params, "dddl", lGreitis, iLygis, pPinigai, tRodymas ) ) return SendClientMessage( playerid, -1, "{FFFFFF} /kurtimatuokli " );
if( lGreitis > 260 ) return SendClientMessage( playerid, -1, "{F81414}Blogai {FFFFFF}suvestas leistinas greitis." );
new
    Float: zPozicija[ 3 ]
;
GetPlayerPos( playerid, zPozicija[ 0 ], zPozicija[ 1 ], zPozicija[ 2 ] );
SukurtiMatuokli( zPozicija[ 0 ], zPozicija[ 1 ], zPozicija[ 2 ], pPinigai, iLygis, lGreitis, tRodymas );
new
    Stringas[ 94 ]
;
format( Stringas, 94, "{B7FF00}Sëkmingai {FFFFFF}sukûrtas naujas greièio matuoklis. Jo ID yra: {00C0FF}%d", Kiekis );
SendClientMessage( playerid, -1, Stringas );
format( Stringas, 41, "{FFFFFF}Leistinas greitis: {00C0FF}%d", lGreitis );
SendClientMessage( playerid, -1, Stringas );
format( Stringas, 53, "{FFFFFF}Bauda ieðkomumo lygiu: {00C0FF}%d", iLygis );
SendClientMessage( playerid, -1, Stringas );
format( Stringas, 46, "{FFFFFF}Bauda pinigais: {00C0FF}%d", pPinigai );
SendClientMessage( playerid, -1, Stringas );
new
    Rodymas[ 10 ]
;
if( tRodymas == false ) Rodymas = "Iðjungtas";
else Rodymas = "Ájungtas";
format( Stringas, 51, "{FFFFFF}Teksto priklijavimas: {00C0FF}%s", Rodymas );
SendClientMessage( playerid, -1, Stringas );
return true;
}

CMD:naikintimatuokli( playerid, params[ ] ) // Kreditai --> BaubaS
{
   if( ! IsPlayerAdmin( playerid ) ) return SendClientMessage( playerid, -1, "{FFFFFF}Jûs {F81414}neesate {FFFFFF}RCON Administratorius." );
   new
       MatuoklioID
;
if( sscanf( params, "d", MatuoklioID ) ) return SendClientMessage( playerid, -1, "{FFFFFF} /naikintimatuokli " );
new
    Stringas[ 83 ]
;
format( Stringas, 83, "{B7FF00}Sëkmingai {FFFFFF}sunaikintas matuoklis. Jo ID buvo: {00C0FF}%d", MatuoklioID );
SendClientMessage( playerid, -1, Stringas );
PanaikintiMatuokli( MatuoklioID );
return true;
}

CMD:armatuoklissukurtas( playerid, params[ ] ) // Kreditai --> BaubaS
{
   if( ! IsPlayerAdmin( playerid ) ) return SendClientMessage( playerid, -1, "{FFFFFF}Jûs {F81414}neesate {FFFFFF}RCON Administratorius." );
   new
       MatuoklioID
;
if( sscanf( params, "d", MatuoklioID ) ) return SendClientMessage( playerid, -1, "{FFFFFF} /armatuoklissukurtas " );
new
    Rezultatas[ 84 ]
;
if( ArMatuoklisSukurtas( MatuoklioID ) ) format( Rezultatas, 84, "{B7FF00}Taip{FFFFFF}, matuoklis {00C0FF}%d{B7FF00} yra {FFFFFF}sukûrtas.", MatuoklioID );
else format( Rezultatas, 82, "{F81414}Ne{FFFFFF}, matuoklis {00C0FF}%d{F81414} nëra {FFFFFF}sukûrtas", MatuoklioID );
SendClientMessage( playerid, -1, Rezultatas );
return true;
}

Aš nesuprantu kur įrašyti kordinates tų matuoklių galit padėt prašau + REP