Skrypt PAWN - stroboskopy

#define FILTERSCRIPT

#include <a_samp>
#include <zcmd>

#if defined FILTERSCRIPT

new pLights[MAX_PLAYERS];
new sLight;
new sLight2;

forward TimerStrobo(vehicleid);
forward TimerStrobo2(vehicleid);
forward StroboOn(playerid);
forward StroboOff(playerid);
forward encode_lights(light1, light2, light3, light4);

#else

main(){}

#endif

public OnPlayerConnect(playerid)
{
    ClearCache(playerid);
    return 1;
}

public OnPlayerDeath(playerid, killerid, reason)
{
    ClearCache(playerid);
    return 1;
}

CMD:silnik(playerid, params[])
{
    new enginem, lights, alarm, doors, bonnet, boot, objective,
        v_model = GetPlayerVehicleID(playerid);
    GetVehicleParamsEx(v_model, enginem, lights, alarm, doors, bonnet, boot, objective);
    SetVehicleParamsEx(v_model, VEHICLE_PARAMS_ON, VEHICLE_PARAMS_ON, alarm, doors, bonnet, boot, objective);
    return 1;
}

public OnVehicleSirenStateChange(playerid, vehicleid, newstate)
{
    new enginem, lights, alarm, doors, bonnet, boot, objective;
    GetVehicleParamsEx(vehicleid, enginem, lights, alarm, doors, bonnet, boot, objective);

    if(newstate)
    {
        GameTextForPlayer(playerid, "~W~Syreny ~G~wlaczone", 1000, 3);
        SetVehicleParamsEx(vehicleid, enginem, VEHICLE_PARAMS_ON, alarm, doors, bonnet, boot, objective);
        if(pLights[playerid] == 0)
        {
            StroboOn(playerid);
            pLights[playerid] = 1;
        }
    }
    else
    {
        GameTextForPlayer(playerid, "~W~Syreny ~r~wylaczone", 1000, 3);
        SetVehicleParamsEx(vehicleid, enginem, VEHICLE_PARAMS_OFF, alarm, doors, bonnet, boot, objective);
        if(pLights[playerid] == 1)
        {
            StroboOff(playerid);
            pLights[playerid] = 0;
        }
    }
    return 1;
}

public StroboOn(playerid)
{
    if ( IsPlayerInAnyVehicle(playerid) && GetPlayerVehicleSeat(playerid) == 0 )
    {
        new Panels, Doors1, Lights, Tires;
        GetVehicleDamageStatus(GetPlayerVehicleID(playerid), Panels, Doors1, Lights, Tires);
        UpdateVehicleDamageStatus(GetPlayerVehicleID(playerid), Panels, Doors1, encode_lights(0,0,1,1), Tires);
        sLight = SetTimerEx("TimerStrobo", 100, false, "d", GetPlayerVehicleID(playerid));
    }
}
public StroboOff(playerid)
{
    if ( IsPlayerInAnyVehicle(playerid) && GetPlayerVehicleSeat(playerid) == 0 )
    {
       KillTimer(sLight);
       KillTimer(sLight2);
       new Panels, Doors1, Lights, Tires;
       GetVehicleDamageStatus(GetPlayerVehicleID(playerid), Panels, Doors1, Lights, Tires);
       UpdateVehicleDamageStatus(GetPlayerVehicleID(playerid), Panels, Doors1, encode_lights(0,0,0,0), Tires);
    }
}
public encode_lights(light1, light2, light3, light4)
{
    return light1 | (light2 << 1) | (light3 << 2) | (light4 << 3);
}
public TimerStrobo(vehicleid)
{
        new Panels, Doors1, Lights, Tires;
        GetVehicleDamageStatus(vehicleid, Panels, Doors1, Lights, Tires);
        UpdateVehicleDamageStatus(vehicleid, Panels, Doors1, encode_lights(1,1,0,0), Tires);
        sLight2 = SetTimerEx("TimerStrobo2", 100, false, "d", vehicleid);
}
public TimerStrobo2(vehicleid)
{
        new Panels, Doors1, Lights, Tires;
        GetVehicleDamageStatus(vehicleid, Panels, Doors1, Lights, Tires);
        UpdateVehicleDamageStatus(vehicleid, Panels, Doors1, encode_lights(0,0,1,1), Tires);
        sLight = SetTimerEx("TimerStrobo", 100, false, "d", vehicleid);
}

stock ClearCache(playerid)
{
    pLights[playerid] = 0;
    return 1;
}