[ PAMOKA ] Admin valdymo panelė || By 'Montana

'Montana · Balandžio 3, 2013

Sveiki,

taigi neseniai savo projekto administratorių darbo palengvinimui sugalvojau tokį dalyką, kaip administratoriaus valdymo panelę. Ji veiks su skaičiais arba komanda ( galėsite pasidaryti ir vien su skaičiais, arba vien komanda )

FUNKCIJOS:

Rašymas visiems matant;

Jat-Pack;

Admin ginklai;

Pasigydyti ir susitvarkyti mašiną;

Pagydyti kitą žaidėją;

Atsiteleportuoti žaidėją;

Nusiteleportuoti pas žaidėją.

---PRADEDAME---

Taigi, sukuriame komandą (dėkite prie visų admin komandų):

if(!strcmp(cmdtext, "/avald", true,3))
{
ShowPlayerDialog(playerid,258,DIALOG_STYLE_LIST,"Administratoriaus veiksmai","Skelbti visiems matant\nPasiimti ADMIN ginklus\nPasigyditi\nPagydyti kitą žaidėją\nGet\nTo\nSkristi","Rinktis","Atgal");
return 1;
}

* Nedarau tikrinimo, ar žaidėjas ADMIN, nes šita eilute bus prie ADMIN komandų

PAAIŠKINIMAI:

if(!strcmp(cmdtext, "/avald", true,3))

- Komanda

ShowPlayerDialog(playerid,258,DIALOG_STYLE_LIST,"Administratoriaus veiksmai","Skelbti visiems matant\nPasiimti ADMIN ginklus\nPasigyditi\nPagydyti kitą žaidėją\nGet\nTo\nSkristi","Rinktis","Atgal");

- GUI stilius, bei pasirinkimai

Darome, jog eitu naudotis ir su klavišu:

Rašome po šia eilute

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{

KODAS:

if(playerDB[playerid][admin] == 1)
{
if (newkeys & KEY_YES)
{
ShowPlayerDialog(playerid,258,DIALOG_STYLE_LIST,"Administratoriaus veiksmai","Skelbti visiems matant\nPasiimti ADMIN ginklus\nPasigyditi\nPagydyti kitą žaidėją\nGet\nTo\nSkristi","Rinktis","Atgal");
}
return 1;
}

PAAIŠKINIMAI:

if(playerDB[playerid][admin] == 1)
{

- Skanuoja ar esi admin

if (newkeys & KEY_YES)
{

- Nustato, kokį mygtuką reikės paspausti, norint atidaryti dialog. Šiuo atvėju bus klavišas Y

ShowPlayerDialog(playerid,258,DIALOG_STYLE_LIST,"Administratoriaus veiksmai","Skelbti visiems matant\nPasiimti ADMIN ginklus\nPasigyditi\nPagydyti kitą žaidėją\nGet\nTo\nSkristi","Rinktis","Atgal");
}

- GUI lentelė, bei jos pasirinkimai

Darome, jog pasirinkus kažką iš lentelės, funkcija pradėtų veikti:

Po eilute:

public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
{

Rašome:

if(dialogid == 258) // DialogID
{
if(response) // Jeigu sutinka
{
if(listitem == 0) // 1variantas
{
ShowPlayerDialog(playerid,259,DIALOG_STYLE_INPUT,"Raðyk visiem matant","Ávesk tekstà","Gerai","Iðeiti"); // Funkcija
}
else if(listitem == 1) // 2variantas
{
ShowPlayerDialog(playerid,999999,DIALOG_STYLE_MSGBOX,"ADMIN Ginklai","Gavai ADMIN ginklus","Gerai","Iðeiti");
GivePlayerWeapon(playerid,24//GinkloID,500//Šovinių skaičius);// GinkloID [ čia parinktas - DEAGLE ]
GivePlayerWeapon(playerid,27,500);// GinkloID
GivePlayerWeapon(playerid,31,500);// GinkloID [ čia parinktas - M4 automatas ]
GivePlayerWeapon(playerid,31,500);// GinkloID [ čia parintkas - M4 automatas ]
GivePlayerWeapon(playerid,28,500);// GinkloID [ čia parintkas - Micro UZI ]
return 1;
}
if(listitem == 2) // 3variantas
{
ShowPlayerDialog(playerid,999989,DIALOG_STYLE_MSGBOX,"Pasigydei","Pasigydei bei susitvarkiai maðinà","Gerai","Iðeiti");
if(IsPlayerInAnyVehicle(playerid)) RepairVehicle(GetPlayerVehicleID(playerid)); // Tikrina ar žaidėjas mašinoje, jei taip ją sutvarko
SetPlayerHealth(playerid,200); // gyvybės
SetPlayerArmour(playerid,200); // šarvai
}
if(listitem == 3) // 4variantas
{
ShowPlayerDialog(playerid,300,DIALOG_STYLE_INPUT,"Pagydyti þaidëjà","Áraðyk þaidëjo varda","Gerai","Iðeiti"); // Funkcija (įrašo žaidėjo varda)
}
if(listitem == 4) // 5variantas
{
ShowPlayerDialog(playerid,301,DIALOG_STYLE_INPUT,"Atsiteleportuoti þaidëjà pas save","Áraðyk þaidëjo varda","Gerai","Iðeiti"); // Funkcija (įrašo žaidėjo varda)
}
if(listitem == 5) // 6variantas
{
ShowPlayerDialog(playerid,302,DIALOG_STYLE_INPUT,"Nusiteleportuoti pas þaidëjà","Áraðyk þaidëjo varda","Gerai","Iðeiti"); // Funkcija (įrašo žaidėjo varda)
}
if(listitem == 6) // 7variantas
{
SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USEJETPACK); // duoda jatpack
SendClientMessage(playerid,0xEA0000FF,"{FFFFFF}[ {00C0FF}ADMIN {FFFFFF}]: Gavote JetPack"); // Parašo, jog žaidėjas gavo JATPACK
}
}
return 1;
}

* Funkcijos paaiškintos prie eilučių.

Padarome jog vietos, kuriose reikia įrašyti kažką, veiktų.

Po eilute:

public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
{

Rašome:

if(dialogid == 302) // Nusikelti pas žaidėją [ DialogID ]
 {
 if(response)
{
 new vardas[MAX_PLAYER_NAME];
strmid(vardas,inputtext,0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "{FFFFFF}[ {00C0FF}ADMIN {FFFFFF}]: Tokio þaidëjo sistema nerado"); return 1;} // Skanuoja ar toks žaidėjas yra
if (GetPlayerVirtualWorld(id)>0){SendClientMessage(playerid, RED, "{FFFFFF}[ {00C0FF}ADMIN {FFFFFF}]: Ðiuo metu þaidëjas yra pasislëpæs savo namuose"); return 1;} // Jeigu žaidėjas namuose
SetPlayerInterior(playerid,GetPlayerInterior(id));
new Float:tempcoo[3];
GetPlayerPos(id,tempcoo[0],tempcoo[1],tempcoo[2]);
SetPlayerPos(playerid,tempcoo[0],tempcoo[1],tempcoo[2]);
SetCameraBehindPlayer(playerid);
}
 return 1;
}

if(dialogid == 301) // Atsiteleportuoti žaidėją [ DialogID ]
{
 if(response)
	{
new vardas[MAX_PLAYER_NAME]; //sukuria new'a
	strmid(vardas,inputtext,0,MAX_PLAYER_NAME);
	new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "Tokio þaidejo nera"); return 1;} //Tikrina ar ira tas zaidejas serveryje
	if (playerDB[id][ikalintas]) {SendClientMessage(playerid, RED, "Þaidejas kalejime"); return 1;} //tikrina ar zaidejas kaleime, jei taip tai jis negales /get
	playerDB[id][rid][0]=playerid;
			 GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
new msg[128]; format(msg, sizeof(msg), "{00FF00}Zaidejas {FF0000}%s {00FF00}tau siulo buti perkeltam pas ji\nAr sutinki?",vardas);
ShowPlayerDialog(id,500,DIALOG_STYLE_MSGBOX,vardas , msg,"Sutikti","Nesutikti"); //Ismeta gui lentele su patvirtinimu
}
	 return 1;
}
if(dialogid == 300) // Pagydyti þaidëjà
{
 if(response)
	{
new vardas[MAX_PLAYER_NAME];
strmid(vardas,inputtext,0,sizeof(vardas));
new id = GetPlayeridMid(vardas);

if (id == INVALID_PLAYER_ID){ ShowPlayerDialog(playerid,9999999,DIALOG_STYLE_MSGBOX,"Kaþkà blogai suvedei","{FFFFFF}Tokio þaidëjo nëra.","Iðeiti","Iðeiti"); return 1;}

new msg[100],mediko[MAX_PLAYER_NAME];
GetPlayerName(playerid,mediko,sizeof(mediko));
GetPlayerName(id,vardas,sizeof(vardas));

			 format(msg,sizeof(msg),"{FD0707}Administratorius %s{FFFFFF} Pagyde Jus!",mediko); // Paraðo tekstà
			 SendClientMessage(id,RED,msg);
			 format(msg,sizeof(msg),"{65FD07}Pagydëte{FD0707} %s!",vardas); // Jeigu pagydo, paraðo
			 SendClientMessage(playerid,GREEN,msg);
			 SetPlayerHealth(id,101); // Jeigu pagydo jis gauna 100gyvybiø
SetPlayerArmour(id,101); // Jeigu pagydo jis gauna 100ðarvø
}
	 return 1;
}

if(dialogid == 259) // Adminui raðyti visiems matant
{
	if(response) //Jei paspaudë mygtukà "Sutinku"
	{
		new zin[256],vardas[MAX_PLAYER_NAME];
 GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
		format(zin, 256, "{2BF415}Administratorius %s{FF0101}:{FFFFFF} %s", vardas, inputtext); //Formatuojame string'à
		SendClientMessageToAll(0x00DAECAA,zin); //Nusiunèiame string'à þinutës pavidalu
		}
	return 1;
 }

* Funkcijos paaiškintos prie eilučių.

______________________________

KREDITAI: 'Arnas'Cousins

SKIRTA: Portalui www.SuperGames.lt

ĮSPĖJU: Prašau nekeisti kreditų dedant pamoką į šį ar kitus portalus. Prašome palikti visas eilutes po "______________________________"

TESTUOTA: www.Las-Vegas.us.lt servery

KURTA/NAUDOJAMA projektui/projekte: www.San-Fransisco.us.lt (senajame Las-Vegas.us.lt)

______________________________

Patiko? +R3P

Komentuokite.

Kilus nesklandumams rašykite į SKYPE: help.fransisco arba arnas.reserv ; šią temą ; į AŽ forume

Komentuokite, bei vertinkite

________________________________________

ĮSPĖJIMAS: Niekur nedėkite DialogID 0, jis dažniausiai yra registracijos/prisijungimo.

Redaguota Rugsėjo 21, 2013, nario Arnas'Cousins

'Montana · Balandžio 3, 2013

Pamiršau paminėti:

Atsiteleportuojant žaidėją, atsiteleportuos ir mašina.

renaldasj · Balandžio 3, 2013

Nieko gero suprasčiau su kokiu ALT mygtuku

TwiiCer · Balandžio 3, 2013

Pravers kažkam +REP

'Montana · Balandžio 3, 2013

Nieko gero suprasčiau su kokiu ALT mygtuku

Reikia tik eilutę:

if(playerDB[playerid][admin] == 1)
{
if (newkeys & KEY_YES)
{
ShowPlayerDialog(playerid,258,DIALOG_STYLE_LIST,"Administratoriaus veiksmai","Skelbti visiems matant\nPasiimti ADMIN ginklus\nPasigyditi\nPagydyti kitą žaidėją\nGet\nTo\nSkristi","Rinktis","Atgal");
}
return 1;
}

pakeist į:

if(playerDB[playerid][admin] == 1)
{
if (newkeys & KEY_WALK)
{
ShowPlayerDialog(playerid,258,DIALOG_STYLE_LIST,"Administratoriaus veiksmai","Skelbti visiems matant\nPasiimti ADMIN ginklus\nPasigyditi\nPagydyti kitą žaidėją\nGet\nTo\nSkristi","Rinktis","Atgal");
}
return 1;
}

Redaguota Balandžio 3, 2013, nario 'Montana

Arunce · Balandžio 3, 2013

Do you fucking kidding me? Tau kreditai? Tu tik nejuokauk... Mačiau šita skripta vienam gamemode tu tik ištraukiai.

Sn0p · Balandžio 4, 2013

pzdc dar su savo rašyti kaip admin funkcija neišbaigta tiesiog input dialog idėjai ir viskas pzdc.

'Montana · Balandžio 4, 2013

pzdc dar su savo rašyti kaip admin funkcija neišbaigta tiesiog input dialog idėjai ir viskas pzdc.

Paskui yra eilutė:

if(dialogid == 259) // Adminui raðyti visiems matant
{
if(response) //Jei paspaudë mygtukà "Sutinku"
{
new zin[256],vardas[MAX_PLAYER_NAME];
GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
format(zin, 256, "{2BF415}Administratorius %s{FF0101}:{FFFFFF} %s", vardas, inputtext); //Formatuojame string'à
SendClientMessageToAll(0x00DAECAA,zin); //Nusiunèiame string'à þinutës pavidalu
}
return 1;
} if(dialogid == 259) // Adminui raðyti visiems matant
{
if(response) //Jei paspaudë mygtukà "Sutinku"
{
new zin[256],vardas[MAX_PLAYER_NAME];
GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
format(zin, 256, "{2BF415}Administratorius %s{FF0101}:{FFFFFF} %s", vardas, inputtext); //Formatuojame string'à
SendClientMessageToAll(0x00DAECAA,zin); //Nusiunèiame string'à þinutës pavidalu
}
return 1;
}

Redaguota Balandžio 4, 2013, nario 'Montana

'Montana · Balandžio 4, 2013

Do you fucking kidding me? Tau kreditai? Tu tik nejuokauk... Mačiau šita skripta vienam gamemode tu tik ištraukiai.

Negalėjai būtent šito matyti, gal kažką panašaus, nes skriptas gan paprastas ir jo ilgai galvoti nereikia, bet šitas parašytas mano

Dovis_Sander · Balandžio 4, 2013

Šauni pamoka,šaunuolis !.

Dancer · Balandžio 5, 2013

Skriptas ne pamoka....

'Montana · Balandžio 5, 2013

Skriptas ne pamoka....

Paaiškinimai yra, taigi šitas reikalas gali vadintis ir pamoka

Cicke15 · Balandžio 5, 2013

Do you fucking kidding me? Tau kreditai? Tu tik nejuokauk... Mačiau šita skripta vienam gamemode tu tik ištraukiai.

Kad galvoji, tai nereiškia, kad taip yra. Gal žmogus pasistengė įdėti vertinga pamoka, ir sulaukti pagirimų, o ne peikiančių lengvabūdžių komentarų.

Arunce · Balandžio 5, 2013

Kad galvoji, tai nereiškia, kad taip yra. Gal žmogus pasistengė įdėti vertinga pamoka, ir sulaukti pagirimų, o ne peikiančių lengvabūdžių komentarų.

gal gal tu kartais ne Ligito brolis?

Skripteris · Balandžio 5, 2013

MM.. Kartais tai ne mano skriptas? Tik edited?? Nes ADMIN gui lentelė čia mano grinai

'Montana · Balandžio 6, 2013

MM.. Kartais tai ne mano skriptas? Tik edited?? Nes ADMIN gui lentelė čia mano grinai

Ne, šį scriptą rašiau pats, tik GET ne mano, šiame forume radau nebloga, tai čia ir įkėliau

simaslt11 · Balandžio 7, 2013

forum.sa-mp.com iš čia ištrauke *Myliu SuperGames.lt* -rep

'Montana · Balandžio 7, 2013

forum.sa-mp.com iš čia ištrauke *Myliu SuperGames.lt* -rep

Trauk iš kur nori, aš neimsiu - nerūkau.

Kiek kartų galima kartoti? Skriptas kurtas mano...

-Pawno · Balandžio 7, 2013

panaudojau aciukas.

DuokParukyt · Balandžio 10, 2013

Scriptas jo.. +rep

Prisijungti

[ PAMOKA ] Admin valdymo panelė || By 'Montana

Recommended Posts

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Šiame puslapyje naršo: 0 nariai

Skelbimai

Naujausios temos

Naujausi būsenos atnaujinimai Nustatymai Teksto formatavimas Nario nuotrauka Member Išsaugoti

Nustatymai

Populiariausi nariai

Naujausi būsenos atnaujinimai

Nustatymai

Teksto formatavimas

Nario nuotrauka

Member