[GRP SKRIPTAS] Direktoriaus valdymo panele. v2

[Skripteris]

Sveiki,

Na pagal arnold prasyma sukuriau sita skripta.

Na test nebuvau bet tikuosi veikia.

1. Reikia tureti " ISPEJIMU SISTEMA " - gta-samp-serverio-pamokos/sp-jimai-t45640.html

Taigi pradekim

Susirandame : /dkomandos

Ir pakeiciame i:

if(strcmp(cmdtext, "/dkomandos", true)==0)

{

if(playerDB[playerid][plead]<1){SendClientMessage(playerid,RED,"Ði komanda tik direktoriams!"); return 1;}

ShowPlayerDialog(playerid,2001,DIALOG_STYLE_LIST,"Direktoriø firmos valdymas","Priimti þaidëjà á darbà\nIðmesti þaidëjà ið darbo\nJûsø firmos avansas\nDuoti darbuotojui áspëjimà\nPrisijungæ darbuotojai ðiuo metu\nSkelbti atrankas i darbus","Rinktis","Atgal");

}

Toliau susirandame : OnDialogResponse

Ir dedame (visa sita) :

if(dialogid == 2001)

{

if(response)

{

if(listitem == 0)

{

ShowPlayerDialog(playerid,2003,DIALOG_STYLE_INPUT,"Áraðykite þaidëjo vardà","{ffffff}Priimti þaidëjà","Priimti","Atðaukti");

}

else if(listitem == 1)

{

ShowPlayerDialog(playerid,2004,DIALOG_STYLE_INPUT,"{ffcc00}Áraðykite þaidëjo vardà","{ffffff}Iðmesti þaidëjà","Iðmesti","Atðaukti");

}

else if(listitem == 2)

{

new msg[128];

format(msg,sizeof(msg),"{ffcc00}Jûsø firmos avansas: {ffffff}%i{ffcc00}Lt. {ffffff}Ka norësite daryti?",pelnas[GetJobFromFaction(playerDB[playerid][plead])-1]);

ShowPlayerDialog(playerid,2005,DIALOG_STYLE_MSGBOX,"{ffcc00}Avansus turite iðmokëti: Treèiadieniais 20.00 val.",msg,"Idëti","Nuimti");

}

else if(listitem == 3)

{

ShowPlayerDialog(playerid,2009,DIALOG_STYLE_INPUT,"{ffcc00}Duoti áspëjimà","{ffffff}Áraðykite darbuotojo vardà\nkuriam norësite duoti áspejimà","Áspëti","Atðaukti");

}

else if(listitem == 4)

{

new msg[128], x, lol;

new vardas[MAX_PLAYER_NAME];

if(playerDB[playerid][plead] == 1)( lol = 1);//Pd

for(new i = 0; i

{

if(playerDB[specialybe] == lol && IsPlayerConnected(i))

{

x++;

GetPlayerName(i,vardas,MAX_PLAYER_NAME);

format(msg,256,"%i. %s %i Xp.",x,vardas,GetPlayerScore(i));

SendClientMessage(playerid,GELTONA,msg);

}

}

return 1;

}

else if(listitem == 5)

{

ShowPlayerDialog(playerid,2011,DIALOG_STYLE_INPUT,"{ffcc00}Skelbti atrankas","{ffffff}Áraðykite atrankos tekstà\n{ffff00}Dëmesio:Èia galima skelbti tik atrankas,nieko daugiau!\nPamatysime,kad raðinëjate nesamones\nBûsite iðmestas ið direktoriaus posto.","Skelbti","Atðaukti");

}

return 1;

}

return 1;

}

if(dialogid == 2005)

{

ShowPlayerDialog(playerid,2006,DIALOG_STYLE_INPUT,"{990099}Áraðykite pinigu sumà","{ffffff}Kiek norësite Ádëti?","Idëti","Atðaukti");

if(!response)

{

ShowPlayerDialog(playerid,2007,DIALOG_STYLE_INPUT,"{990099}Áraðykite pinigu sumà","{ffffff}Kiek norësite nuimti?","Nuimti","Atðaukti");

return 1;

}

}

if(dialogid == 2003 && response)

{

new name[MAX_PLAYER_NAME];

strmid(name,inputtext,0,sizeof(name));

new id = GetPlayeridMid(name);

if(id == INVALID_PLAYER_ID)

{

SendClientMessage(playerid,RED,"Serveryje,tokio þaidëjo nëra.");

return 1;

}

if(playerDB[id][leanvited][playerDB[playerid][plead]-1] || playerDB[id][specialybe] == GetJobFromFaction(playerDB[playerid][plead]))

{

SendClientMessage(playerid,RED,"Ðis þaidëjas jau priimtas.");

return 1;

}

GetPlayerName(id,name,sizeof(name));

if(playerDB[playerid][plead] == LEAD_FARAI) SendClientMessage(id,0x00B0F6AA,"{0066cc}[POLICIJA] {ffffff}Jûs kvieèiamas dirbti policijà.");

playerDB[id][leanvited][playerDB[playerid][plead]-1]=true;

new msg[128];

format(msg,sizeof(msg),"{ff6600}Pakvietëte {ffffff}%s {ff6600}dirbti jûsø firmoje.",name);

SendClientMessage(playerid,ORANGE,msg);

return 1;

}

if(dialogid == 2004 && response)

{

new name[MAX_PLAYER_NAME];

strmid(name,inputtext,0,sizeof(name));

new id = GetPlayeridMid(name);

if(id == INVALID_PLAYER_ID)

{

SendClientMessage(playerid,RED,"Serveryje,tokio þaidëjo nëra.");

return 1;

}

new darbas = GetJobFromFaction(playerDB[playerid][plead]);

if(playerDB[id][specialybe]!= darbas)

{

SendClientMessage(playerid,RED,"Þaidëjas nedirba jûsø firmoje.");

return 1;

}

GetPlayerName(id,name,sizeof(name));

if(playerDB[playerid][plead] == LEAD_FARAI) SendClientMessage(id,0x00B0F6AA,"{0066cc}[POLICIJA] {ffffff}Jûs iðmestas policijos.");

playerDB[id][leanvited][playerDB[playerid][plead]-1]=false;

new msg[128];

format(msg,sizeof(msg),"{ff6600}Jûs iðmetëte {ffffff}%s {ff6600}ið savo firmos.",name);

SendClientMessage(playerid,RED,msg);

if(playerDB[id][uniformd])SetPlayerSkin(id,playerDB[id][drabuziai]);

playerDB[id][specialybe]=0;

playerDB[id][uniformd]=false;

playerDB[id][uniforma]=-1;

return 1;

}

if(dialogid == 2006 && response)

{

if(!IsNumeric(inputtext))

{

SendClientMessage(playerid,0xF60000AA,"Neteisingai nurodyta suma.");

return 1;

}

new darbas = GetJobFromFaction(playerDB[playerid][plead])-1;

new suma = StringToInt(inputtext);

if(playerDB[playerid][pinigai] < suma)

{

SendClientMessage(playerid,0xF60000AA,"Tiek pinigø jûsø firmoje nëra.");

return 1;

}

pelnas[darbas]+=suma;

GivePlayerMoneyA(playerid,-suma);

new msg[128];

format(msg,sizeof(msg),"{ff6600}Padëjote: {ffffff}%i {ff6600}Lt á avansà. ",suma);

SendClientMessage(playerid,0xF60000AA,msg);

return 1;

}

if(dialogid == 2007 && response)

{

if(!IsNumeric(inputtext))

{

SendClientMessage(playerid,0xF60000AA,"Neteisingai nurodyta suma.");

return 1;

}

new darbas = GetJobFromFaction(playerDB[playerid][plead])-1;

new suma = StringToInt(inputtext);

if(suma > pelnas[darbas])

{

SendClientMessage(playerid,0xF60000AA,"Tiek pinigø jûsø firmoje nëra.");

return 1;

}

pelnas[darbas]-=suma;

GivePlayerMoneyA(playerid,suma);

new msg[128];

format(msg,sizeof(msg),"{ff6600}Avanso paëmëte:{ffffff} %i {ff6600}Lt.",suma);

SendClientMessage(playerid,0xF60000AA,msg);

return 1;

}

if(dialogid == 2009 && response)

{

new name[24],vardas[24];

strmid(name,inputtext,0,sizeof(name));

new id = GetPlayeridMid(name);

if(playerDB[id][plead]>0 && id != playerid)

{

SendClientMessage(playerid,RED,"Nurodytas þaidëjas yra kitos firmos direktorius.");

return 1;

}

if(id == INVALID_PLAYER_ID)

{

SendClientMessage(playerid,RED,"Serveryje,tokio þaidëjo nëra.");

return 1;

}

new darbas = GetJobFromFaction(playerDB[playerid][plead]);

if(playerDB[id][specialybe]!= darbas)

{

SendClientMessage(playerid,RED,"Nurodytas þaidëjas nedirba jûsø firmoje.");

return 1;

}

GetPlayerName(id,name,sizeof(name));

GetPlayerName(playerid,vardas,sizeof(vardas));

playerDB[id][ispejimai]++;

new ispejimas = playerDB[id][ispejimai];

new msg[120],msgid[120],msgas[130];

format(msg,sizeof(msg),"{33ff33}Darbuotojui {ffffff}%s {33ff33}davëte áspëjimà.Ðis darbuotojas turi {ffffff}%i áspëjimà(-us).",name,ispejimas);

SendClientMessage(playerid,BLUE,msg);

format(msgid,sizeof(msgid),"{33ff33}Direktorius {ffffff}%s {33ff33}jums davë áspëjimà.Dabar jûs turite {ffffff}%i áspëjimà(-us).",vardas,ispejimas);

SendClientMessage(id,BLUE,msgid);

if(playerDB[id][vedelogin]){SavePlayerData(id,false);}

if(playerDB[id][ispejimai]==3)

{

if(playerDB[id][uniformd])SetPlayerSkin(id,playerDB[id][drabuziai]);

playerDB[id][specialybe]=0;

playerDB[id][uniformd]=false;

playerDB[id][uniforma]=-1;

playerDB[id][ispejimai]=0;

if(playerDB[id][vedelogin]){SavePlayerData(id,false);}

SendClientMessage(id,RED,"{ff0000}Jûs surinkote {ffffff}3 {ff0000}áspëjimus, todël jûs iðmestas ið darbo.");

format(msgas,sizeof(msgas),"{ff0000}Darbuotojas {ffffff}%s {ff0000}iðmestas ið darbo,nes surinko {ffffff}3 {ff0000}áspëjimus.",name);

SendClientMessage(playerid,RED,msg);

}

else

return 1;

}

if(dialogid == 2011 && response)

{

new zin[256];

new dyrikz[50];

new vardas[MAX_PLAYER_NAME];

if(playerDB[playerid][plead] == 1) dyrikz = "Policijos direktorius";

GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);

format(zin,sizeof(zin),"[%s: %s]: %s",dyrikz,inputtext,vardas);

SendClientMessageToAll(0x7A68FFFF,zin);

return 1;

}

//------------------------------------

Viskas.

Skriptas kurtas mano

Negaila +REP

Jei mes error ar ka parasyk i sia tema.

[LUX1S`]

1. Lygiavimo nėra..

2. Panašu, nes jau mačiau tai.

3. Kam tas 'paliktiDarbą'?

4. Dialog'ų ID'ai labai dideli..

Išvada: Nesąmonė. Sėkmės.

[Skripteris]

Kuriau pats ,

*Myliu SuperGames.lt* man tas lygiavimas ,

Zinau kad nesamone

-- Papildyta --

Na manes prase tad ir sukuriau ir man nusispjaut

-- Papildyta --

P.S Cia ant eSamp.LT gm dariau tad pasikeiskit ten tuos iNFOBOX

[Divito]

Lygiavimo nėra. -

Kad sukuriai +.

Tiesiog gerai kad sukuriai. Padaryk pamoka kaip kuri, tada įsitikinti galėsi gal ir kiti.

[Skripteris]

Ta prasme VIDEO ?

Jo zinau kad lygiavimo nera.

[Svečias]

1. Lygiavimo nėra..

2. Panašu, nes jau mačiau tai.

3. Kam tas 'paliktiDarbą'?

4. Dialog'ų ID'ai labai dideli..

Išvada: Nesąmonė. Sėkmės.

dėl visko pritariu :S

[Skripteris]

Dekui uz komentarus ;

[ArnolD.]

gut

Redaguota Lapkričio 10, 2012, nario ArnolD.

[Skripteris]

Kas bandet ar veikia.

Arnoldai ne tikrai neisimsiu nes ikisau nemazailaiko 40min gal tad nenoriu jo veltui .

[ArnolD.]

Kas bandet ar veikia.

Arnoldai ne tikrai neisimsiu nes ikisau nemazailaiko 40min gal tad nenoriu jo veltui .

Damn.............

[Skripteris]

Gal dar ka sukurti ?

[Divito]

Dekui,e buk geras isimk sita skripta duociau 300flt ir +R3P,o serve pamineciau tave del sios sistemos,aciu.

Vaikeliau, sukurk ką nors geriau :/ Bazara per dideli skaldai jau.

[Skripteris]

Prasau ne offtopic.

[ArnolD.]

Sukurk,k,kad butu darbo laikas ir jei darbo laikas nesutampa su kitu darbu gali dirbti du darbus

-------------------------

Nauja telefu sistema,kad kai skambina galetum pasirink kokia daina

-------------------------

narkotiku sistema

-------------------------

Kad galetum sukurti 1 darba 2 vietose pvz: viena ls kita sf pns kaip sarg'as.

[Skripteris]

Del darbo tai cia nera ka kurti tik 2 pickup darai

[ArnolD.]

Dekui,e buk geras isimk sita skripta duociau 300flt ir +R3P,o serve pamineciau tave del sios sistemos,aciu.

Vaikeliau, sukurk ką nors geriau :/ Bazara per dideli skaldai jau.

Kur as ka netaip paskiau,kur as cia jau uzstumiau?

[Skripteris]

Padariau telefono sitema kad kaip skambina girdetusi garsas o kaip ijungti telefa nokijos ijungimas

nu tokia simplke bet paivairina serveri

[LUX1S`]

Padariau telefono sitema kad kaip skambina girdetusi garsas o kaip ijungti telefa nokijos ijungimas

nu tokia simplke bet paivairina serveri

PlayAudioStreamForPlayer , neblogai, jei telefonas 'nokia', bet jei kas kursis saloną, tai jau reiks tikrinimo koks modelis, jei nokia, tai tik tada nokios garas. ;//

[ArnolD.]

Padariau telefono sitema kad kaip skambina girdetusi garsas o kaip ijungti telefa nokijos ijungimas

nu tokia simplke bet paivairina serveri

PlayAudioStreamForPlayer , neblogai, jei telefonas 'nokia', bet jei kas kursis saloną, tai jau reiks tikrinimo koks modelis, jei nokia, tai tik tada nokios garas. ;//

Jei darys,tegul daro ne salona o gariunus tai bus nesvarbu,kad samsung nokia pasisveikinimas gros

[Skripteris]

Lukai cia labai lengva. O seip ant eiliniu grp servu buna tik vienas telefonas