Peršokti į turinį
  • ŽAIDIMAI
  • , ŽAIDIMAI
  • ŽAIDIMAI

Negalima prašyti ar platinti betkokių žaidimą (multiplayer) palengvinančių programų ir scriptų! Kitaip bus taikoma 1.21. taisyklė

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 3460 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Recommended Posts

Sveiki tad atiduodu šį skripta jums nes jis man nereikalingas.



#include <a_samp>
/*Nustatymai*/
#define MAX_PROCESS 9000//Dažymo procesas, jei yra mažas dažys lėčiau, jei didelis dažys greičiau.
#define Radius 4//čia yra žmogaus atstumas nuo mašinos.
#define PRESSED(%0) (((newkeys & (%0)) == (%0)) && ((oldkeys & (%0)) != (%0)))
#define RELEASED(%0) (((newkeys & (%0)) != (%0)) && ((oldkeys & (%0)) == (%0)))
public OnFilterScriptInit()
{
print("Dažymo sistema yra pakrauta");
return 1;
}
new TimerP;
new Process[MAX_PLAYERS][MAX_VEHICLES];
new ColorBallon[MAX_PLAYERS] = 3;
main(){}
public OnPlayerCommandText(playerid, cmdtext[])
{
if (strcmp("/dazyti", cmdtext, true, 10) == 0)return ShowPlayerDialog(playerid,9975,2,"Pasirinkite spalvų skardine. \nSkardinės vertė 1000€","Raudona \ Mėlyna \ Žalia \ Geltona \ Juoda \ Rožinė","Ringtis","Atsaukti");
return 0;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 9975)
{
if(!response)return 1;
if(GetPlayerMoney(playerid) < 1000)return SendClientMessage(playerid,-1,"Nepakanka pinigų!");
switch(listitem)
{
case 0:ColorBallon[playerid] = 3;
case 1:ColorBallon[playerid] = 106;
case 2:ColorBallon[playerid] = 86;
case 3:ColorBallon[playerid] = 6;
case 4:ColorBallon[playerid] = 0;
case 5:ColorBallon[playerid] = 126;
}
for(new v; v < MAX_VEHICLES; v++)Process[playerid][v] = 0;
GivePlayerMoney(playerid,-1000);
GivePlayerWeapon(playerid,41,1000);
SendClientMessage(playerid,-1,"Jūs sėkmingai nusipirkote skardinę už 1000€");
}
return 1;
}
public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{

if(IsPlayerConnected(playerid))
{
if(PRESSED(KEY_FIRE) && GetPlayerWeapon(playerid) == 41) { TimerP = SetTimerEx("Raskraska",30,1,"d",playerid); }
if(RELEASED(KEY_FIRE)) { KillTimer(TimerP); }
}
return 1;
}
forward Raskraska(playerid);
public Raskraska(playerid)
{
new Float: P[3];
GetPlayerPos(playerid,P[0],P[1],P[2]);
for(new v; v < MAX_VEHICLES; v++)
{
if((GetVehicleDistanceFromPoint(v,P[0],P[1],P[2])<= Radius) && Process[playerid][v] < MAX_PROCESS)
{
if(IsPlayerAimingVehicle(playerid, v))
{
Process[playerid][v] += 100;
if(Process[playerid][v] >= MAX_PROCESS)ChangeVehicleColor(v,ColorBallon[playerid],ColorBallon[playerid]);
}
}
}
return 1;
}
#define YAHOOO 0.42
stock IsPlayerAimingVehicle(playerid, vehicleid)
{
new Float:X1, Float:Y1, Float:Z1, Float:X2, Float:Y2, Float:Z2;
GetPlayerPos(playerid, X1, Y1, Z1);
GetVehiclePos(vehicleid, X2, Y2, Z2);
new Float:Distance = floatsqroot(floatpower(floatabs(X1-X2), 2) + floatpower(floatabs(Y1-Y2), 2));
if(Distance < 350)
{
new Float:A;
GetPlayerFacingAngle(playerid, A);
X1 += (Distance * floatsin(-A, degrees));
Y1 += (Distance * floatcos(-A, degrees));
Distance = floatsqroot(floatpower(floatabs(X1-X2), 2) + floatpower(floatabs(Y1-Y2), 2));
if(Distance < YAHOOO )return true;
}
return false;
}


ah.thumb.jpg.9f447f580a722c01644eb31d0698d9ca.jpg

Projektas laukia jūsų http://eSFG.LT

  • ,
  • Parašė po 4 savaičių...
  • Parašė po 4 savaičių...

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 3460 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Prisijungti prie diskusijos

Palikti atsakymą galite iš karto, o užsiregistruoti vėliau. Jeigu jau turite paskyrą mūsų forume, Prisijunkite.

Svečias
Atsakyti šioje temoje...

×   Įklijuotas tekstas turi teksto formatavimą.   Pašalinti teksto formatavimą

  Galimi tik 75 veidukai.

×   Nuoroda buvo automatiškai įterpta.   Įterpti nuorodą paprastai

×   Jūsų ankstesnis pranešimas buvo atkurtas.   Išvalyti redaktorių

×   Jūs negalite įkelti nuotraukas tiesiogiai.Įkelkite arba įdėkite nuotraukas iš URL.

  • Šiame puslapyje naršo:   0 nariai

    • Nėra registruotų narių peržiūrinčių šį forumą.

Skelbimai



×
×
  • Sukurti naują...