Tralistų sistema veikianti ir su PWN v1.0 versija

[Guest Tobias_Kingston]

Sveiki mieli sa-mp bičiuliai taigi anksčiau esu kūręs Tralistų sistemą buvau ją įkėles bet daugumai ji neveikė ir nebuvo .pwn failiuko

Taigi trumpai apie pačią sistemą:

• Sistema sugeba pasikrauti ir nukrauti automobilius
  
• Nebutina automobili užvažiuoti ant AutoTralo
  
• Sistemos versija v1.0 versija: tai versija kuri dar neturi tralistų darbo ir galima pasikrauti tik 4 automobilius ant AutoTralo
  
• Sistemoje klaidų nėra, sudėliojau ir includus su kurių pagalba sistemos .pwn susikompilins be error ir be warning
  
• Sistema rašyta ant ZCMD ir SSCANF funkcijų pagrindu.
  

Sistemą lengva tobulinti, tad esant reikalui galėsite kažką nauja sugalvoti ir su kitais darbais netik su šia sistema. Kaip padarysiu atnaujinimą ir kaip turėsiu laiko papildysiu šią temą. P.S. nesakykite jog nieko nemoku ir galiu tikrai daug įdomių dalykų pasidalinti tokių kurių nesate matę. Beje už sistemos panaudojimą +REP ir parašykite savo nuomonę apie ją šioje temoje. Kiekvienas jūsų pastebėjimas ir pasisakymas bus svarbus tolimesniame sistemos vertinime, atnaujinime. Surašykite idėjas įgyvendinsiu. Taip pat kaip daugelis mano jog naudojuosiu kitų žaidėjų nick ir už tai renku pinigus jų vardu, tai nėra tiesa jei ką darau tai už dyką arba savo pačio skripto suvokimo tobulinimui ir realiam įgyvendinimui, apmastymams, už skriptinimą, webinimą ir mapinimą pinigų neimu ir niekada neėmiau.

• Priežastys dėl kurių tai rašau: Raimis_R galvoja jog naudojuosi jo vardu ir imu už tai pinigus, Dėde Raimi draugiškai pasakysiu man tavų pinigų nereikia ir niekada tavimi neprisidenginėjau, nors buvau kartą užvadines savo acc tavu vardu bet juo taip ir nesinaudojau.
  
• Pone dėde Brightai atsiprašau kad anksčiau kaip nupirkau tavo SanFierro.Lt gamemodą ir jo VVP buvau paplatines man to reikėjo nes buvau užpykes nepyk nuo o laiko nieko unikalaus taip ir neplatinu žianai kodėl nes išsskirtiniai ir unikalūs darbai turi vertę tai įsitikinau, bet kas paprašo padėti ar kažką paskriptinti neatsisakau, nes už tai pinigų niekada neėmiau ir neimsiu, skriptas tai toks dalykas iš kurio nepasipelnysi kolkas tokių dalykų paklausa labai maža ir nedaugelis pirktų tai ko jam gali būti netgi ir niekada nereikėtų bet susigundo.
  

Jei kuriuo nors atveju nesu teisus, parašykite ir jei iš ko nors esu ėmes pinigų skriptinant taip pat postelkit šioje temoje, noriu kad visi tai žinotų, jei ėmiau kaip įrodymą įdėkit foto ar tekstą kuriame aiškiai buvo nurodomas mano banko saskaitos numeris į kurį buvo vedami pinigai arba mokėjimai.lt sąskaitos numeris.

Visus galiu patikinti:

• Mokėjimai.Lt sąskaitos neturiu
  
• Banko sąskaitą turiu bet ja naudojuosi pats pirkdamas paslaugas
  

Visi su kuriais esu turėjes reikalų sa-mp istorijoje noriu kad parašytumėte apie mane atsiliepimą šioje temoje.

Jei nepažystate ar galvojate jog esu apsimetelis ar riperis rasykite ir dekite irodymus noriu kad visi zinotu kas esu ir ko siekiu.

Jūsų paslaugoms Tobias_Kingston (Vytioxa)

Nuoroda tralistų sistemos parsisiuntimui: Siunčiamės

Tralistų sistema peržiūrėjimui:

/*
---------------------------Tralistų sistema-------------------------------------
Skriptino: Vytioxa 2013-03-22d.
Panaudoti pavadinimai funkcijoms:
							 ankst, ankstesnis, vietos, avietos, automobilis, laikom,
							 autoid, netoliese, buvesatst, atstumas, tralas, ilgis,
Atsiradus sistemos atnaujinimams jie bus surašyti sisteminiame bloke.
Sistema kurta nuo tuščio lapo tad kiekvienas jos nustatymas yra unikalus, kolkas sistema sugeba pasikrauti tik 4 automobilius
Norint pasikrauti daugiau teks pasidaryti daugiau vietų ant tralų keičiant kintamuosius ir funkcijas, pagrindinės komandos veikia visiems,
Tralo iškvietimas RCON Adminui... Norint galima pritaikyti darbui, ši sistema išplėtota tralistų darbui... Pačio darbo skriptas bus šiek tiek vėliau...
---------------------------Tralistų sistema-------------------------------------
*/
#include <a_samp> //pagrindinis samp sistemų krovimui
#include <zcmd> //detalesniu komandų vykdymui
#include <sscanf2> //funkcijų apdorojimui
#pragma tabsize 0 //naudojant tabsize išvengsime error

//Toliau pereikime prie new kintamūjų
//Visi kintamieji bus panaudoti funkcijose skripto pradžioje dedame
new
ankstesnis[MAX_PLAYERS],
vietos[MAX_VEHICLES][5],
automobilis,
ilgis[125],
vieta,
netoliese,
Float:X, Float:Y, Float:Z, Float:A;//automobilio saugojimo kintamieji

//Vykdome komandą kurios metu bus paimamas automobilis esantis netoliese
forward GetClosestCar(playerid);
forward GetDistanceToCar(playerid,autoid);

//nurodome draudžiamus automobilius kurių krauti negalite/*new InvalidVehicles[60] = { Neleidžiame šių automobilių pasikrauti
403, 406, 407, 408, 409, 417, 425, 430, 431, 432, 433, 435, 437, 443, 444,
446, 447, 449, 450, 452, 453, 454, 455, 456, 457, 463, 469, 472, 473,
476, 484, 486, 487, 488, 493, 497, 511, 512, 513, 514, 515, 519, 520,
524, 532, 537, 538, 548, 553, 557, 589, 570, 578, 584, 590, 591, 592,
593, 595, 601
}*/

public GetClosestCar(playerid){ //Išgauname salia esančio automobilio pakrovimą
if (!IsPlayerConnected(playerid)){
 return -1;
}
new Float:buvesatst = 8.000;
for (new autoid = 0; autoid < MAX_VEHICLES; autoid++){
 if(!IsVehicleInUse(autoid)){
new Float:atstumas = GetDistanceToCar(playerid,autoid);
 if ((atstumas < buvesatst)){
	 buvesatst = atstumas;
	 ankstesnis[playerid] = autoid;
	 }
 }
}
return ankstesnis[playerid];
}
public GetDistanceToCar(playerid,autoid){ //Išgauname atstuma iki automobilio
new Float:atst;
new Float:x1,Float:y1,Float:z1,Float:x2,Float:y2,Float:z2;
if (!IsPlayerConnected(playerid)) {
return -1;
}
GetPlayerPos(playerid,x1,y1,z1);
if(!IsVehicleInUse(autoid)){
GetVehiclePos(autoid,x2,y2,z2);
atst = floatsqroot(floatpower(floatabs(floatsub(x2,x1)),2)+floatpower(floatabs(floatsub(y2,y1)),2)+floatpower(floatabs(floatsub(z2,z1)),2));//isgauname atstumą iki esamo automobilio
return floatround(atst);//tikriname atstumą iki automobilio
}else{
return 1;
}
}
IsVehicleInUse(vehicleid){
new temp;
for(new i=0;i<GetMaxPlayers();i++){
if(IsPlayerConnected(i) && IsPlayerInVehicle(i, vehicleid) && GetPlayerState(i)==PLAYER_STATE_DRIVER){temp++;}//tikriname ar vairuotojo vietoje sėdi žaidėjas
}
if(temp > 0){ return true; } else return false;
}
public OnPlayerSpawn(playerid)
{
return 1;
}
forward LoadVehicle(playerid);//Automobilių pakrovimas
public LoadVehicle(playerid)
{
automobilis = GetPlayerVehicleID(playerid);//isgauname automobili
netoliese = GetClosestCar(playerid);//isgauname netoliese esantį automobilį
PlayerPlaySound(playerid, 1056, X, Y, Z);
if(GetVehicleModel(automobilis) == 443)//siuo atveju tai AutoTralas
{
 if(netoliese > 0)
 {
vietos[automobilis][vieta] = netoliese;//pakrauti automobiliui nustatome vietą
SetVehicleVirtualWorld(vietos[automobilis][vieta], 19);//nustatome virtualią vietą kurioje bus saugomi automobiliai
SetVehiclePos(vietos[automobilis][vieta], 1878.3353,-1380.3011,13.5722);//nustatome automobilio poziciją nuo žaidėjo
SendClientMessage(playerid, 0xFF0000FF, "*Automobilis sėkmingai pakrautas*");//Jei automobilis pakrautas
format(ilgis, 125, "[Automobilis Pakrautas] Vieta AutoTrale %d | Automobilio ID: %d", vieta, vietos[automobilis][vieta]);
SendClientMessage(playerid, 0x33CCFFFF, ilgis);//suformatuojame pakrauto automobilio išvedimą
vieta = 0;
return 1;
}
else SendClientMessage(playerid, 0xFF0000FF, "Automobiliui AutoTrale vietos nebėra");//Jei AutoTralas jau pilnas
}
else SendClientMessage(playerid, 0xFF0000FF, "*Jūs nesate AutoTrale*");return 1;//jei žaidėjas nėra AutoTrale
}
public OnGameModeInit()
{
print("--- Tralistų sistema pakrauta ---");
for(new v=1;v<MAX_VEHICLES;v++)
{
vietos[v][1] = -1;//kintamasis kuris nurodo vietos numerį ant tralo
vietos[v][2] = -1;//kintamasis kuris nurodo vietos numerį ant tralo
vietos[v][3] = -1;//kintamasis kuris nurodo vietos numerį ant tralo
vietos[v][4] = -1;//kintamasis kuris nurodo vietos numerį ant tralo
}
}
public OnPlayerDisconnect(playerid, reason)
{
return 1;
}

//toliau pereikime prie komadinės dalies komandų įvykdymo
COMMAND:tralas(playerid, params[])
{
new tralas;
GetPlayerPos(playerid, X,Y,Z);
automobilis = CreateVehicle(443, X+3,Y+3,Z, 0.0, 6, 6, 60000);
vietos[tralas][1] = -1;
vietos[tralas][2] = -1;
vietos[tralas][3] = -1;
vietos[tralas][4] = -1;
return 1;
}
COMMAND:pakrauti(playerid, params[])
{
automobilis = GetPlayerVehicleID(playerid);
if(GetVehicleModel(automobilis) == 443)
{
if(vietos[automobilis][1] == -1)
{
 vieta = 1;
SetTimerEx("LoadVehicle",2800,0,"i",playerid);
SendClientMessage(playerid, 0xFF0000FF, "*Ruošiama pasikrauti automobilį ant AutoTralo....*");
return 1;
}
else if(vietos[automobilis][2] == -1)
{
 vieta = 2;
SetTimerEx("LoadVehicle",2500,0,"i",playerid);
SendClientMessage(playerid, 0xFF0000FF, "*Ruošiama pasikrauti automobilį ant AutoTralo....*");
return 1;
}
else if(vietos[automobilis][3] == -1)
{
 vieta = 3;
SetTimerEx("LoadVehicle",2500,0,"i",playerid);
SendClientMessage(playerid, 0xFF0000FF, "*Ruošiama pasikrauti automobilį ant AutoTralo....*");
return 1;
}
else if(vietos[automobilis][4] == -1)
{
 vieta = 4;
SetTimerEx("LoadVehicle",2500,0,"i",playerid);
SendClientMessage(playerid, 0xFF0000FF, "*Ruošiama pasikrauti automobilį ant AutoTralo....*");
return 1;
}
else SendClientMessage(playerid, 0xFF0000FF, "*AutoTralas jau pakrautas pilnai...*");
}
else SendClientMessage(playerid, 0xFF0000FF, "*Jūs nesate AutoTrale...*");return 1;
}
COMMAND:nukrauti(playerid, params[])
{
new avietos;
new laikom[256];
avietos = strval(laikom);
automobilis = GetPlayerVehicleID(playerid);
PlayerPlaySound(playerid, 1056, X, Y, Z);
if (sscanf(params, "i", avietos)) return SendClientMessage(playerid, 0xFF0000FF, "[informacija] Naudojimas: /nukrauti [Vieta 1-4]");
if(vietos[automobilis][avietos] >= 0)
{
format(ilgis, 125, "[Automobilis Nukrautas] Vieta AutoTrale %d Atlaisvinta | Automobilio ID:%d", avietos, vietos[automobilis][avietos]);
SendClientMessage(playerid, 0x33CCFFFF, ilgis);
GetPlayerPos(playerid, X, Y, Z);
SetVehiclePos(vietos[automobilis][avietos], X, Y+10, Z);
GetVehicleZAngle(automobilis, A);
SetVehicleZAngle(vietos[automobilis][avietos],A);
SetVehicleVirtualWorld(vietos[automobilis][avietos], 0);
vietos[automobilis][avietos] = -1;
return 1;
}
else SendClientMessage(playerid, 0xFF0000FF, "* Šioje AutoTralo vietoje automobilis nestovi... | Bandykite kitą vietą ant AutoTralo... *"); return 1;
}
COMMAND:vieta(playerid, params[])
{
new avietos;
new laikom[256];
avietos = strval(laikom);
automobilis = GetPlayerVehicleID(playerid);
if (sscanf(params, "i", avietos)) return SendClientMessage(playerid, 0xFF0000FF, "[informacija] Naudojimas: /vieta [Vieta 1-4]");
if(vietos[automobilis][avietos] >= 0)
{
format(ilgis, 125, "[AutoTralo Peržiūra] Vieta ant AutoTralo %d Esamo Automobilio ID:%d", avietos, vietos[automobilis][avietos]);
SendClientMessage(playerid, 0x33CCFFFF, ilgis);
return 1;
}
else SendClientMessage(playerid, 0xFF0000FF, "* Šioje AutoTralo vietoje automobilis nestovi... | Bandykite kitą vietą ant AutoTralo... *"); return 1;
}
/*
---------------------------Tralistų sistema-------------------------------------
Skriptino: Vytioxa 2013-03-22d. 18:45
Panaudoti pavadinimai funkcijoms:
							 ankst, ankstesnis, vietos, avietos, automobilis, laikom,
							 autoid, netoliese, buvesatst, atstumas, tralas, ilgis,
Atsiradus sistemos atnaujinimams jie bus surašyti sisteminiame bloke.
Sistema kurta nuo tuščio lapo tad kiekvienas jos nustatymas yra unikalus, kolkas sistema sugeba pasikrauti tik 4 automobilius
Norint pasikrauti daugiau teks pasidaryti daugiau vietų ant tralų keičiant kintamuosius ir funkcijas, pagrindinės komandos veikia visiems,
Tralo iškvietimas RCON Adminui... Norint galima pritaikyti darbui, ši sistema išplėtota tralistų darbui... Pačio darbo skriptas bus šiek tiek vėliau...
---------------------------Tralistų sistema-------------------------------------
*/

Skriptą naudoti galima ir kode įdėjus atitinkamai

Už sistemą +REP

Vėliau paplatinsiu savo Tralistų Darbą šios sistemos atnaujinimą kuriame netik galėsite valdyti savo firmą stebėti darbuotojus ir valdyti automobilių importą ir eksportą bet ir kaip ką daugiau ką pamatysite mano kurtame atnaujinime galiu patikinti jog ant tralo bus galima pakrauti nedaugiau 32 automobilių ir jis turės priekabą. Taip pat bus detalus sistemos valdymas su detaliais dialogais ir informavimo meniu, kiekviena komanda turi unikalių funkcijų kurios sistemą daro tik unikalesne.

Jūsų idėjos ir pastebėjimai su pasiūlymais laukiami apačioje šios temos komentaruose.

Sistemos komandos:

1. komanda tralo iškvietimui RCON Admin /tralas
   
2. komanda automobilio pakrovimui /pakrauti
   
3. komanda automobilio vietos perziurejimui ant AutoTralo /vieta
   
4. komanda automobilio nukrovimui /nukrauti
   

Naudojama tik viena RCON komanda o visas kitas gali naudoti paprastas žaidėjas. Dar pastebėjimas jei sistema nesuveiktų kintamajį ilgis pakeist kintamuoju string

Redaguota Spalio 19, 2013, nario Tobias_Kingston

[Guest Tobias_Kingston]

skriptinimo paslaugų neperku perku domenus ir vps

[Guest Tobias_Kingston]

jeigu sistema dėl kurių nors priežasčių neveiktų galimas dalykas pasitvarkyti patiems, skripte rasite kintamajį ilgis jį galima pakeisti į kintamajį string jei dar neveiktų kreiptis šioje temoje padėsiu pasileisti. Nes mano visuose naujesniuose skriptuose kintamasis String pakeistas į kintamajį ilgis

Redaguota Spalio 18, 2013, nario Tobias_Kingston

[bebras]

Net nežinau kur dėt šitą temą... nei pamoka nei FS nei inc....

[Guest Tobias_Kingston]

oi netyčia neįdėjau kodo, ech niekis paredagavau tema tai yra pamoka kuri dar pletojama laaukiu jusu komentarų

[bebras]

oi netyčia neįdėjau kodo, ech niekis paredagavau tema tai yra pamoka kuri dar pletojama laaukiu jusu komentarų

Tai visdar ne pamoka, tai tik skripto gabalas.

[Guest Tobias_Kingston]

hm žmogau nori dar detaliau

[bebras]

hm žmogau nori dar detaliau

Aš tik noriu sutvarkyti forumą.

[Guest Tobias_Kingston]

tema buvo atnaujinta ir suredaguota tad jei kas sako jog tai nėra pamoka tiesa nenaudojome dedame po ar dedame pries bet tai pamoka

[Guest Tobias_Kingston]

Bebras pakviesk mane i skype vytautas.tau surasysiu tau detaliau kaip ka

[*DeMo*]

HH gal ir visai gera pamoka :/ +rep