[Pamoka] Masinos valdymas

[Skripteris]

Sveiki sukursiu savo 7 pamoka : Masinos Valdyma

Taigi pradekime.

Noredami kad kaip isedi i masina ismestu GUI lentele rasome.

po ;

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)

Dedame :

ShowPlayerDialog(playerid, 860358624, DIALOG_STYLE_LIST, "{00FFFF}Transporto valdymas", "{66FF00}Žibintai ( Įjungti/Išjungti )\n{CC0000}Kapotas ( Atidaryti/Uždaryti )\n{FF00FF}Bagažas ( Atidaryti/Uždaryti )\n{0000FF}Durys ( Atidaryti/Uždaryti )\n{FFFFFF}Variklis ( Įjungti/Išjungti )\n{FFFF00}Signalizacija ( Įjungti/Išjungti )", "Leisti", "Išjungti");

Paskui :

Po :

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])

Dedame ;

if(dialogid == 860358624)

{

new veh = GetPlayerVehicleID(playerid);

new engine,lights,alarm,doors,bonnet,boot,objective;

if(!response) return SendClientMessage(playerid, 0xCC0000FF, "Mašinos valdymas sëkmingai {00FFFF}išjungtas");

switch(listitem)

{

case 0:

{

if(GetPVarInt(playerid, "Lights") == 0)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,VEHICLE_PARAMS_ON,alarm,doors,bonnet,boot,objective);

SetPVarInt(playerid, "Lights", 1);

}

else if(GetPVarInt(playerid, "Lights") == 1)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,VEHICLE_PARAMS_OFF,alarm,doors,bonnet,boot,objective);

SetPVarInt(playerid, "Lights", 0);

}

}

case 1:

{

if(GetPVarInt(playerid, "Bonnet") == 0)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,alarm,doors,VEHICLE_PARAMS_ON,boot,objective);

SetPVarInt(playerid, "Bonnet", 1);

}

else if(GetPVarInt(playerid, "Bonnet") == 1)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,alarm,doors,VEHICLE_PARAMS_OFF,boot,objective);

SetPVarInt(playerid, "Bonnet", 0);

}

}

case 2:

{

if(GetPVarInt(playerid, "Boot") == 0)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,VEHICLE_PARAMS_ON,objective);

SetPVarInt(playerid, "Boot", 1);

}

else if(GetPVarInt(playerid, "Boot") == 1)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,VEHICLE_PARAMS_OFF,objective);

SetPVarInt(playerid, "Boot", 0);

}

}

case 3:

{

if(GetPVarInt(playerid, "Doors") == 0)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,alarm,VEHICLE_PARAMS_ON,bonnet,boot,objective);

SetPVarInt(playerid, "Doors", 1);

}

else if(GetPVarInt(playerid, "Doors") == 1)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,alarm,VEHICLE_PARAMS_OFF,bonnet,boot,objective);

SetPVarInt(playerid, "Doors", 0);

}

}

case 4:

{

if(GetPVarInt(playerid, "Engine") == 0)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,VEHICLE_PARAMS_ON,lights,alarm,doors,bonnet,boot,objective);

SetPVarInt(playerid, "Engine", 1);

}

else if(GetPVarInt(playerid, "Engine") == 1)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,VEHICLE_PARAMS_OFF,lights,alarm,doors,bonnet,boot,objective);

SetPVarInt(playerid, "Engine", 0);

}

}

case 5:

{

if(GetPVarInt(playerid, "Alarm") == 0)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,VEHICLE_PARAMS_ON,doors,bonnet,boot,objective);

SetPVarInt(playerid, "Alarm", 1);

}

else if(GetPVarInt(playerid, "Alarm") == 1)

{

GetVehicleParamsEx(veh,engine,lights,alarm,doors,bonnet,boot,objective);

SetVehicleParamsEx(veh,engine,lights,VEHICLE_PARAMS_OFF,doors,bonnet,boot,objective);

SetPVarInt(playerid, "Alarm", 0);

}

}

}

return 1;

Pamoka kurta mano - Skripterio - Dankiaus

Negaila +REP

-- Papildyta --

Na cia daugiau Skripto gabalas bet vistiek

[R0L1S]

Bet tai kažn, riperis juodas ... :x

[EmTy_Skausmas]

Bet netingi žmogus, dirba :liuxas:

[Skripteris]

Is fs isemiau Na fs sitas retas.

[mGs*]

Man atrodo, kad cia nebaigta, nes kai ilipi i masina, tai iskart gali vaziuoti...