Peršokti į turinį
  • ŽAIDIMAI
  • , ŽAIDIMAI
  • ŽAIDIMAI

[GRP Skriptas] Administratoriaus Valdymo panelė. [By Dankiu]


Skripteris

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 4294 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Recommended Posts

Sveiki visi...

Taigi leavindamas sampą nepagailėjau 30minučiu tai sukuriau administracijos valdymo panelę.

Ji yra gan lengva bet įdomi

Taigi po

OnPlayerCommandText dedame :

if(playerDB[playerid][admin])
{
       if(!strcmp(cmdtext, "/akomandos", true))
	{
	    ShowPlayerDialog(playerid, 22222, DIALOG_STYLE_LIST , "Administracijos valdymo panelė." , "{FFFFFF}Skelbti žinutę \nAdmin ginklai\nPasigydyti\nGauti jet-pack\nPripildyti mašina degalų\nRašyti į admin chatą\nUžsaldyti žaidėja\nAtitirpinti žaidėją\nTeleportintis pas žaidėja\nAtkelti žaidėją\nPrižiurėti žaidėja\nBanninti žaidėja\nIšmesti žaidėja","Rinktis","Nereikia");
		return 1;
	}
	}

Ir po OnDialogResponse dedame :

 	if(dialogid == 22222)
{
if(response)
{
if(listitem == 0)
{
ShowPlayerDialog(playerid,22223,DIALOG_STYLE_INPUT,"Skelbti žinutę","{ffffff}Irašykite norima tekstą","Skelbti","Atšaukti");
}
if(listitem == 1)
{
GivePlayerWeapon(playerid,28,1000);
GivePlayerWeapon(playerid,32,1000);
GivePlayerWeapon(playerid,27,1000);
GivePlayerWeapon(playerid,31,1000);
GivePlayerWeapon(playerid,43,1000);
SendClientMessage(playerid,-1,"Gavote administratoriaus ginklų");
}
if(listitem == 2)
{
if(IsPlayerInAnyVehicle(playerid)) SetVehicleHealth(GetPlayerVehicleID(playerid),1000);
SetPlayerHealth(playerid,100);
SetPlayerArmour(playerid,100);
}
if(listitem == 3)
{
SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USEJETPACK);
}
if(listitem == 4)
{
if(!IsPlayerInAnyVehicle(playerid)){
SendClientMessage(playerid,-1,"{FFFF00}Tu esi ne mašinoje");
return 1;
}
vehicleDB[GetPlayerVehicleID(playerid)][gas]=40;
SendClientMessage(playerid,-1,"Mašina pilna degalų");
}
if(listitem == 5)
{
ShowPlayerDialog(playerid,22224,DIALOG_STYLE_INPUT,"Skelbti žinutę","{ffffff}Irašykite norima tekstą","Rašyti","Atšaukti");
}
if(listitem == 6)
{
ShowPlayerDialog(playerid,22225,DIALOG_STYLE_INPUT,"Užšaldyti žaidėją","{ffffff}Irašykite žaidėjo nicką","Užšaldyti","Atšaukti");
}
if(listitem == 7)
{
ShowPlayerDialog(playerid,22226,DIALOG_STYLE_INPUT,"Atitirpinti žaidėją","{ffffff}Irašykite žaidėjo nicką","Atitirpinti","Atšaukti");
}
if(listitem == 8)
{
ShowPlayerDialog(playerid,22227,DIALOG_STYLE_INPUT,"Keliauti pas žaidėją","{ffffff}Irašykite žaidėjo nicką","Keliauti","Atšaukti");
}
if(listitem == 9)
{
ShowPlayerDialog(playerid,22228,DIALOG_STYLE_INPUT,"Atgetinti žaidėja.","{ffffff}Irašykite žaidėjo nicką","GET","Atšaukti");
}
if(listitem == 10)
{
ShowPlayerDialog(playerid,22229,DIALOG_STYLE_INPUT,"Prižiurėti žaidėją.","{ffffff}Irašykite žaidėjo nicką","Prižiurėti","Atšaukti");
}
if(listitem == 11)
{
ShowPlayerDialog(playerid,22230,DIALOG_STYLE_INPUT,"Baninti žaidėją.","{ffffff}Irašykite žaidėjo nicką","Ban","Atšaukti");
}
if(listitem == 12)
{
ShowPlayerDialog(playerid,22231,DIALOG_STYLE_INPUT,"Išmesti žaidėją.","{ffffff}Irašykite žaidėjo nicką","Kick","Atšaukti");
}
	}
return 1;
}

if(dialogid == 22231)
{
new vardas[MAX_PLAYER_NAME];
strmid(vardas,GetArgument(1, inputtext,0),0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR,"Tokio žaidėjo nėra"); return 1;}
if (playerDB[id][admin]){ SendClientMessage(playerid, COLOR,"Administratoriaus ismesti negalima."); return 1;}
new msg[128],adminname[MAX_PLAYER_NAME];
GetPlayerName(id,vardas,sizeof(vardas));
GetPlayerName(playerid,adminname,sizeof(adminname));
Kick(id);
format(msg,sizeof(msg),"[kick] %s ismete %s is serverio.",adminname,vardas);
SendClientMessageToAll(COLOR,msg);
return 1;
}

   if(dialogid == 22230)
{
	new vardas[MAX_PLAYER_NAME];
 	strmid(vardas,GetArgument(1, inputtext,0),0,MAX_PLAYER_NAME);
  	new id = GetPlayeridMid(vardas);
 	if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, -1, "Serveryje,tokio žaidėjo nėra."); return 1;}
 	if(playerDB[id][authstate]==0){SendClientMessage(playerid,-1,"Žaidėjas nėra prisijungęs,todėl baninti negalima."); return 1;}
new msg[128],adminname[MAX_PLAYER_NAME];
GetPlayerName(id,vardas,sizeof(vardas));
GetPlayerName(playerid,adminname,sizeof(adminname));
format(msg,sizeof(msg),"[bAN] %s užblokavo jus",adminname);
SendClientMessage(id,-1,msg);
BanEx(id);
format(msg,sizeof(msg),"{33CCFF}[bAN] %s užblokavo %s serveryje.",adminname,vardas);
SendClientMessageToAll(-1,msg);
return 1;
}

if(dialogid == 22229)
{
if(GetPlayerState(playerid) == PLAYER_STATE_SPECTATING)
{
TogglePlayerSpectating(playerid,false);
for(new slot=0; slot<12; slot++) GivePlayerWeapon(playerid,playerDB[playerid][spdata][slot],playerDB[playerid][spdata][12+slot]);
SetPlayerSkin(playerid,playerDB[playerid][spdata][24]);
SetPlayerPos(playerid,playerDB[playerid][spos][0],playerDB[playerid][spos][1],playerDB[playerid][spos][2]);
SetPlayerWantedLevel(playerid,playerDB[playerid][spdata][25]);
SetPlayerInterior(playerid,playerDB[playerid][spdata][26]);
SetPlayerVirtualWorld(playerid,playerDB[playerid][spdata][27]);
return 1;
}
new vardas[MAX_PLAYER_NAME];
strmid(vardas,inputtext,0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR,"Tokio žaidėjo nėra"); return 1;}
if (id == playerid){ SendClientMessage(playerid, COLOR,"Save ir taip matote"); return 1;}
new mess[256],rec[MAX_PLAYER_NAME];
GetPlayerName(id,rec,sizeof(rec));
format(mess,sizeof(mess),"Prižiurite %s!",rec);
SendClientMessage(playerid,COLOR,mess);
for(new slot=0; slot<12; slot++) GetPlayerWeaponData(playerid,slot,playerDB[playerid][spdata][slot],playerDB[playerid][spdata][12+slot]);
playerDB[playerid][spdata][24]=GetPlayerSkin(playerid);
GetPlayerPos(playerid,playerDB[playerid][spos][0],playerDB[playerid][spos][1],playerDB[playerid][spos][2]);
playerDB[playerid][spdata][25]=GetPlayerWantedLevel(playerid);
playerDB[playerid][spdata][26]=GetPlayerInterior(playerid);
playerDB[playerid][spdata][27]=GetPlayerVirtualWorld(playerid);
SetPlayerVirtualWorld(playerid,GetPlayerVirtualWorld(id));
SetPlayerInterior(playerid,GetPlayerInterior(id));
TogglePlayerSpectating(playerid,true);
PlayerSpectatePlayer(playerid,id);
return 1;
}

   if(dialogid == 22228)
{
new vardas[MAX_PLAYER_NAME];
strmid(vardas,inputtext,0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR,"Tokio žaidėjo nėra"); return 1;}
SetPlayerInterior(id,GetPlayerInterior(playerid));
new Float:tempcoo[3];
GetPlayerPos(playerid,tempcoo[0],tempcoo[1],tempcoo[2]);
SetPlayerPos(id,tempcoo[0],tempcoo[1],tempcoo[2]);
SetCameraBehindPlayer(id);
return 1;
}

if(dialogid == 22227)
{
new vardas[MAX_PLAYER_NAME];
	strmid(vardas,inputtext,0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR,"Tokio žaidejo nėra"); return 1;}
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 == 22226)
{
new vardas[MAX_PLAYER_NAME];
strmid(vardas,GetArgument(1, inputtext,0),0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR,"Tokio žaidėjo nėra"); return 1;}
TogglePlayerControllable(id,true);
return 1;
}

if(dialogid == 22225)
{
new vardas[MAX_PLAYER_NAME];
strmid(vardas,GetArgument(1, inputtext,0),0,MAX_PLAYER_NAME);
new id = GetPlayeridMid(vardas);
if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR,"Tokio žaidėjo nėra"); return 1;}
TogglePlayerControllable(id,false);
return 1;
}

if(dialogid == 22224)
{
new zin[256],vardas[MAX_PLAYER_NAME];
GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
format(zin,sizeof(zin),"Admin čhatas : %s sako: %s",vardas,inputtext);
for(new i=0;i	if(IsPlayerConnected(i)){
if(playerDB[i][admin]){
SendClientMessage(i,COLOR,zin);
}
}
}
return 1;
}

if(dialogid == 22223)
{
new zin[256],vardas[MAX_PLAYER_NAME];
GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
format(zin,sizeof(zin),"[ADMINISTRATORIUS] %s :{FFFFFF} %s",vardas,inputtext);
	SendClientMessageToAll(-1,zin);
return 1;
}

Taigi čia buvo mano paskutinė pamoka. Negaila +REP.

Kūriau aš.

Dėl lygiavimo nepykit bet čia taip supergames.lt sudėjo viską.

-- Papildyta --

Kūriau ant GRP dėl to nes daug naudoja GRP.

  • Teigiamai 1
Nuoroda į komentarą
Dalintis per kitą puslapį

R0L1 *Myliu SuperGames.lt* jau tu mane pradėjai užpisti. Surask tokia pačią. Užsipisk grabais žąsine.

Tokios pačios gal nerasi, bet čia yra GRP'o komandos perkeltos i GUI langus, apmaudu, jei jau METI SAMP'A TAI VANALYK IŠ ČIA

R0L1S, žinok rimtai jau kietą primeti, užp****...

Neprimetu, bet jeigu mete tai nafik sedi dar čia?

Sutinku del tu komandu , bet daugelis to nemoką. Mečiau sampą o kodėl gi negaliu čia būti ? :PP

Todėl kad metei, tai nafik dar sedi prie to skriptinimo?

Nuoroda į komentarą
Dalintis per kitą puslapį

Palaukit. Čia SKRIPTAS? ne bet jūs tai juokdariai, jūs, tiksliau tu turbūt nematei kas yra skriptas, žodžiu ant dialog'o komandoas sumetė ir vadina tai SKRIPTU, patariu persiplaut galvas.

P.S. Jei jau išeini iš SA-MP'o (aš apie dankių), tai pyzdink ir iš čia, nes tu čia nebereikalingas.

R0L1 *Myliu SuperGames.lt* jau tu mane pradėjai užpisti. Surask tokia pačią. Užsipisk grabais žąsine.

Tokios pačios gal nerasi, bet čia yra GRP'o komandos perkeltos i GUI langus, apmaudu, jei jau METI SAMP'A TAI VANALYK IŠ ČIA

R0L1S, žinok rimtai jau kietą primeti, užp****...

Neprimetu, bet jeigu mete tai nafik sedi dar čia?

Sutinku del tu komandu , bet daugelis to nemoką. Mečiau sampą o kodėl gi negaliu čia būti ? :PP

Todėl kad metei, tai nafik dar sedi prie to skriptinimo?

Tai pala pala jūs jam neleidžiat čia būt? :D Blm padarė paskutinį darbą, o jūs nepatenkinti... Nu žodžiu... :crazy::crazy::crazy:

Nuoroda į komentarą
Dalintis per kitą puslapį

"oi geras skripteris" Prajuokinai.. :D Kur aš minėjau kad toks esu , manes paprašė ir sukuriau. Jmj atsipisk vieną kartą nuo manes. :D

Aš tik išsakaiu savo nuomone...

Išsakiai ir pyzdink. - Jei čia visi išsakytu savo nuomuones, apie visus, pasaka be galo gautusi. Parašiai savo nuomuone, kam čia be rašai?

LUX1 - Tu gal R0L1UI bandai pritapti? Dabar pastebėjau, kur tik R0L1O nuomuonė, tavo tokia pat nuomuone apie tą asmenį.

Tai dabar tu man paiškink jei čia ne skriptas, tai kas? Kaip gali būti ne skriptu? Menkiausias menkniekis kuris turi kažkokia prasmeė, galime pavadinti skripto gabalu.

LUX1, R0L1, panašus jūsų labai nicka'i. Tai įdėkite/sukurkite ar dar po velnių ką nors padarykite, kažka panašaus. Visa esmė yra tame, kad žmogus bando pradinukams, kurie dar tik mokosi, arba nelabai dar išmano skriptinima, tai jiems reikia kažko panašaus, persidarys gal kitas komandas, ar dar ką nors.

Kaip kažkurio žmogaus paraše mačiau:

Amerikiečių forume: Paprašai pagalbos, ar parašai pamoka, visi suranda klaida, bando padėti, ar pagyria.

Lietuvių forume: Paprašai pagalbos, ar parašai pamoka, ar ką nors dar, visi stumti pradeda ir visiems *Myliu SuperGames.lt* kad nerando patys klaidos, tiesigo bando užstumti kad čia mes achujeni, viska žinom, bet vis dėl to, žmogui kuriam reikia pagalbos net nepadeda, tiesiog stumia. Visa ir teorija.

P.S - Sukurkit jus ką nors, man irgi bus įdomu pakomentuoti jūsų darba.

Dar - Ką čia jį vijat iš sg? Metė SA:MP'ą, tai dabar ir SG turi palikti? - Juokdariai..

Nuoroda į komentarą
Dalintis per kitą puslapį

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 4294 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Svečias
Ši tema yra užrakinta.
  • Šiame puslapyje naršo:   0 nariai

    • Nėra registruotų narių peržiūrinčių šį forumą.

Skelbimai



×
×
  • Sukurti naują...