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

Atiduodu skripta jums


raketa

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;
}


Nuoroda į komentarą
Dalintis per kitą puslapį

Hmm, kaip žalias tai nieko nesupratau kažkas čia yra... Galėtum bent paaiškint?? :/  8|  :|

kiek aš ponil, tai mašinos dažymo sistema su balionėliais :D kažkas panašaus

Nuoroda į komentarą
Dalintis per kitą puslapį

cia kiek is kodo supratau tai gausi i rankas ta dazu balioneli ir gausi pats purkst ar kaip suprast ?

Gausi balionėli, nusitaikysi į mašiną ir pasirinkta spalva uždės. (kaip baigsis taimeris, jis pasileidžia kaip laikai fire mygtuką)

Nuoroda į komentarą
Dalintis per kitą puslapį

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ą.




×
×
  • Sukurti naują...