Technikinės kūrimas

[Friend]

Pristatau savo 1 darba GRP serveriams . Tai yra Technikine .

Kurejas: Friend

Mintis: ExtaZy

Tai yra panasiai kaip teises . Kaip isedi i masina , be technikines raso , kad jos nera . Policininkai gali patikrinti ar turi Technikines pazymejima.

P.S Scripto netestinau . Jei yra bugu sakykite

Objektai :

CreateObject(4199,-1968.939,79.905,28.800,0.0,0.0,90.000);

CreateObject(17950,-1975.927,99.179,28.963,0.0,0.0,90.000);

CreateObject(970,-1980.278,104.741,27.231,0.0,0.0,-90.000);

CreateObject(970,-1980.258,108.908,27.183,0.0,0.0,-90.000);

CreateObject(987,-1953.282,96.130,25.281,0.0,0.0,-90.000);

CreateObject(987,-1953.204,106.580,25.281,0.0,0.0,-90.000);

CreateObject(10282,-1974.485,98.891,27.662,0.0,0.0,-90.000);

CreateObject(11504,-1961.257,97.552,26.687,0.0,0.0,-90.000);

CreateObject(14826,-1974.854,106.446,27.452,0.0,0.0,0.0);

CreateObject(14826,-1970.102,87.479,27.452,0.0,0.0,0.0);

Darbas sukurtas prei Gelezinkelio stoties

Pradedam !

1.Punktas

Ieiname i gamemodes/date/playerdb.txt ir irasome:

bool:tech,

2.Punktas

Dabar sukursime darba su direktoriumi

Ieiname i gamemodes/date/pickup.txt rasome:

tech,

Prei kitu pickup:

pickups[0][tech]=CreatePickupA(1275, 2,-1983.2345,86.3338,27.6799); // techanikine

Pereinam i GM

Po

public OnPlayerPickUpPickup(playerid, pickupid)

{

Prie kitu darba iterpiame:

//----------------------technikine

if(pickupid == pickups[0][tech])

{

if(playerDB[playerid][specialybe]==33)

{

SendClientMessage(playerid,COLOR,"* Technikine: atsisakote! Vistiek mums jusu nereikejo!");

playerDB[playerid][specialybe]=0;

}else if(playerDB[playerid][specialybe]==0){

if(GetPlayerScore(playerid)<1200)

{

SendClientMessage(playerid,COLOR,"* Technikine: Atsiprasome, jus dar nepakankamai patyres! (xp > 1200)");

return 1;

}

if(!playerDB[playerid][teises])

{

SendClientMessage(playerid,COLOR,"* Technikine: Privalai tureti vairuotojo pazymejima, kaip kitaip vairuosi masina?");

return 1;

}

if(!playerDB[playerid][leanvited][32])

{

SendClientMessage(playerid,COLOR,"* Technikine: Pirmiausia pasikalbekit su direktorium. ");

return 1;

}

SendClientMessage(playerid,COLOR,"* Technikine: Sveikinu, prisidejus prie musu saunios komandos.");

SendClientMessage(playerid,COLOR,"* Technikine: Pasiimk taksi masina, ir prie darbo!");

playerDB[playerid][specialybe]=33;

SetPlayerSkin(playerid,255);

playerDB[playerid][uniforma]=255;

playerDB[playerid][uniformd]=true;

ApplyAnimation(playerid,"PLAYIDLES","stretch",4.1,0,0,0,0,0);

}else{

SendClientMessage(playerid,COLOR,"* Technikine: Negalite dirbti dvieju darbu!");

}

return 1;

}

Einame i gamemodes/date/playerDB.txt

Ir po kitais Lead irasom:

stock SendMessageToTech(color,text[])

{

for(new i=0; i

{

if(IsPlayerConnected(i))

{

if(playerDB[specialybe]==33)

{

SendClientMessage(i,color,text);

}

}

}

}

Einame zemiau ir randame :

stock GetJobFromFaction(faction)

{

Po juo parasome:

else if(faction == LEAD_Tech) return 33;

Dabar sukuriame /priimt /ismest komandas

Surandame komanda /priimt ir prei else if kitu iterpiame:

else if(playerDB[playerid][plead] == LEAD_Tech) SendClientMessage(id,GANG_COLOR,"* Jus kvieciamas dirbti Techaniku, jei norite, prisistatykit i Technikines Pervarymo Centra !");

Surandame komanda /ismest ir prie kitu else if iterpiame :

else if(playerDB[playerid][plead] == LEAD_Tech) SendClientMessage(id,GANG_COLOR,"* Jus ismestas is Technikiniu Perziuros Centro.. !");

Stai ir darbas sukurtas

3.Punktas

Sukuriame komanda , kad duotu technikines pazymejima:

if(!strcmp(cmdtext, "/tsupa", true,6))

{

if(playerDB[playerid][specialybe]!=33){SendClientMessage(playerid,COLOR,"* Si komanda tik adminiu"); return 1;}

if(cmdtext[6]==0){SendClientMessage(playerid,COLOR,"* Iteikti technikines pazymejima: /tsupa [vardo_dalis]"); return 1;}

new vardas[MAX_PLAYER_NAME];

strmid(vardas,cmdtext[7],0,MAX_PLAYER_NAME);

new id = GetPlayeridMid(vardas);

if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR, "* Zaidejo nera"); return 1;}

new Float:Coo[3];

GetPlayerPos(id,Coo[0],Coo[1],Coo[2]);

if(!PlayerToPoint(5, playerid, Coo[0],Coo[1],Coo[2])){SendClientMessage(playerid, COLOR, "* Zaidejas per toli!"); return 1;}

if(playerDB[id][tech])

{

SendClientMessage(playerid,COLOR,"* Zaidejas jau turi pazymejima.");

return 1;

}

if(GetPlayerMoneyA(playerid)<3000)

{

SendClientMessage(playerid,COLOR,"* Technikines Pazymejimas kainuoja 3000LT.");

return 1;

}

GivePlayerMoneyA(playerid,-200);

SendClientMessage(playerid,COLOR,"* Technikines Pazymejima iteikiau.");

playerDB[id][tech]=true;

SendClientMessage(id,COLOR,"* Gavau Technikines pazymejima!");

pelnas[6]+=100;

return 1;

}

4.Punktas

Sukuriame policininkams komanda , kad galetu tikrinti ar zaidejas turi Technikines pazymejima:

if(!strcmp(cmdtext, "/tpaz", true,5))

{

if(playerDB[playerid][specialybe]!=1){SendClientMessage(playerid,COLOR,"* Si komanda tik policininkams"); return 1;}

if(cmdtext[5]==0){SendClientMessage(playerid,0x7DB34DFF,"* Patikrinti, zaidejo technikines pazym.: /tpaz [vardo_dalis]"); return 1;}

new vardas[MAX_PLAYER_NAME];

strmid(vardas,cmdtext[6],0,MAX_PLAYER_NAME);

new id = GetPlayeridMid(vardas);

if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR, "* Zaidejo nera"); return 1;}

if (id == playerid){ SendClientMessage(playerid, COLOR, "* Save galiu pasitikrinti ir paprasciau!"); return 1;}

new Float:Coo[3];

GetPlayerPos(id,Coo[0],Coo[1],Coo[2]);

if(!PlayerToPoint(30, playerid, Coo[0],Coo[1],Coo[2])){SendClientMessage(playerid, COLOR, "* Zaidejas per toli!"); return 1;}

if(playerDB[id][masina]==-1){SendClientMessage(playerid, COLOR, "* Zaidejas dar nevairavo masinos!"); return 1;}

if(playerDB[id][tech]) { SendClientMessage(playerid,COLOR,"* Zaidejo Technikines pazymejimas galioja."); SendClientMessage(id,COLOR_IVORY,"* Policija: Mano pazymejimas galioja! Policija atsipraso uz sutrukdyma."); return 1;}

SendClientMessage(playerid,COLOR,"* Zaidejo pazymejimas negalioja! Turiu teise ji suimti!");

SendClientMessage(id,COLOR,"* Policija: Vairuoju be Technikines Pazymejimo.");

SetPlayerWantedLevel(id,GetPlayerWantedLevel(id)+(2+random(5)));

new mokestis = 200+random(500);

if(GetPlayerMoneyA(id)

GivePlayerMoneyA(playerid,GetPlayerMoneyA(id));

ResetPlayerMoneyA(id);

return 1;

}

GivePlayerMoneyA(playerid,mokestis);

GivePlayerMoneyA(id,-mokestis);

return 1;

}

5.Punktas

Padarome , kad kaip isidi i masina be Technikines pazymejimo rasytu , kad esi be jo :

Surandame:

if (ArMasinaTinkama(playerid,model)) return 1;

if(model != BMX && model != MTBIKE && model != BIKE) //Netaikomi dviraciams dalykai

{

Ir rasome po juo :

if(!playerDB[playerid][tech]) SendClientMessage(playerid,COLOR,"* Jus neturite Technikines pazymejimo! Rekomenduojama Kreiptis i Techninkines apziuros centra!");

6.Punktas

Surandame eilute :

public Clear(playerid)

{

Ir prie kitu iterpiame :

playerDB[playerid][tech]=false;

7.Punktas

Surandame eilute:

public LoadPlayerData(playerid)

{

Randame tokia eilute :

if (dini_Int(file,"License")) playerDB[playerid][teises] = true;

Po ja iterpiame:

if (dini_Int(file,"Tech")) playerDB[playerid][tech] = true;

Surandame eilute:

public SavePlayerData(playerid,bool:simple)

{

Po juo rasime eilute:

dini_BoolSet(file,"License",playerDB[playerid][teises]);

Iterpsime:

dini_BoolSet(file,"Tech",playerDB[playerid][tech]);

Paisikinimas: Kad zaidejiu kaip isiaugos jo Vardas_Pavarde faile rodys Tech=0 arba Tech=1

Spaudziame F5 ir isbandome . Sekmes naudojant

Sudominau + rep prasau neripinti :kill: :shoot:

[Lukas2K]

Ripped is Gta-Online

http://www.gta-online.lt/v2/index.php?topic=6976.0

Geda

[Friend]

Geda

Visai ne

[Lukas2K]

Geda

Visai ne

O kodel gi "Ne" ?

[DEPHOX]

Ten 4 nepabaigtas...

[stig]

Kkia cia mintis *Myliu SuperGames.lt* lochas.

[Edvizzz]

*Myliu SuperGames.lt* gaidys jis. Deda visokius sudus. 9 error ismete.

[Svečias]

*Myliu SuperGames.lt* gaidys jis. Deda visokius sudus. 9 error ismete.

Man pavyzdžiui nešmetė tų errorų ,jei tu nemoki ,tai ne jo problema ,o tavo...

[Fozzas]

Pristatau savo 1 darba GRP serveriams . Tai yra Technikine .

Kurejas: Friend

Tai kad ne tu kūrei.

[Edvizzz]

Viska pagal jy dariau! Jis net nepaaiskina iki galo.

[ArtckA`]

Riped, bet kažkam error'us metą, taigi reikia pateikti pagalbos, o ne tik įdėjai ir viskas. Keistuoliai.