Sziasztok! Mivel most volt idõm, és unatkoztam, nagy nehezen összehoztam egy nagyon alap admin rendszert. Teszteltem, hibátlan!
A scriptet nyugodtan terjeszthetitek, de a nevemet fel kell tüntetni!
Öszesen 11 parancs van + a /report parancs! // Lord (alap) admin rendszer
// Készítette: Loren
//
//FIGYELEM!HA TERJESZTED A SCRIPTET A NEVEMET FEL KELL TÜNTETNI!
//A script tartalmaz:
//-alap admin parancsok
#include < a_samp >
#include < zcmd >
#include < sscanf2 >
#include < fixchars >
main ( ) { }
#if defined FILTERSCRIPT
#define msg SendClientMessage
#define msgall SendClientMessageToAll
#define szin 0xFFFFFF
#define white 0xFFFFFFC8
#define green 0x00FF00C8
#define red 0xFF0000C8
public OnFilterScriptInit()
{
print(\"\\n--------------------------------------\");
print(\" Lord admin rendszer, by: Loren\");
print(\"--------------------------------------\\n\");
return 1;
}
forward SendAdminMessage(color,string[]);
CMD:ahelp(playerid)
{
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
else
{
msg(playerid,red,\"RCON ADMIN PARANCSOKF[1]:\");
msg(playerid,white,\"/a /spec /specki /get /goto /kick /ban /asay\");
msg(playerid,red,\"RCON ADMIN PARANCSOK[2]\");
msg(playerid,white,\"/resi /setskin /asayy\");
}
return 1;
}
new panaszszoveg[MAX_PLAYERS][128];
new bool:kiemel[MAX_PLAYERS];
COMMAND:report(playerid,params[])
{
if(sscanf(params,\"s[128]\",panaszszoveg[playerid]))
{
SendClientMessage(playerid,white, \"Használat: /report [szöveg]\");
return 1;
}
new jneve[MAX_PLAYER_NAME];
new szoveg[128];
new szoveg2[100];
GetPlayerName(playerid, jneve, MAX_PLAYER_NAME);
format(szoveg,128, \"%s panasza: %s\",jneve,panaszszoveg[playerid]);
format(szoveg2,128,\"Hogy akarsz válaszolni? Válassz kérlek: /asayy %d [szöveg] , /asayyy %s [válasz]\",playerid,jneve);
SendClientMessage(playerid,white,\"Reportod elküldve az elérhetõ adminoknak!\");
kiemel[playerid] = true;
for(new i = 0; i < MAX_PLAYERS; i++)
{
if(IsPlayerAdmin(i))
{
SendClientMessage(i,0xfcbc5dAA,szoveg);
SendClientMessage(i,0xfcbc5dAA,szoveg2);
}
}
return 1;
}
COMMAND:rv(playerid,params[])
{
new id;
new valasz[128];
new aneve[MAX_PLAYER_NAME];
new jneve[MAX_PLAYER_NAME];
if(!IsPlayerAdmin(playerid))
{
SendClientMessage(playerid,red, \"Te admin vagy?\");
return 1;
}
if(sscanf(params,\"ds[128]\",id,valasz))
{
SendClientMessage(playerid,green, \"Használat: /asayy [PlayerID] [szöveg]\");
}
if(kiemel[id] == false)
{
SendClientMessage(playerid,red, \"Az illetõ panaszára már válaszoltak, vagy nem írt /report-ot!\");
return 1;
}
GetPlayerName(playerid,aneve,MAX_PLAYER_NAME);
GetPlayerName(id, jneve, MAX_PLAYER_NAME);
new elkuldes[128];
new valami[128];
format(valami,128, \"%s panasza: %s\",jneve,panaszszoveg[id]);
format(elkuldes,128, \"Admin %s: %s\",aneve,valasz);
SendClientMessageToAll(0x77fc5dAA,valami);
SendClientMessageToAll(0x136104AA,elkuldes);
return 1;
}
CMD:kick(playerid,params[]) //Játékos kickelése
{
if(IsPlayerConnected(playerid))
{
{
new indok[128];
new id;
new string[128];
new nev[MAX_PLAYER_NAME];
GetPlayerName(playerid,nev,sizeof(nev));
new pnev[MAX_PLAYER_NAME];
GetPlayerName(id,pnev,sizeof(pnev));
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params, \"us[128]\",id,indok)) return msg(playerid,green,\"Használat: /kick [JátékosID] [indok]\");
else if(id == INVALID_PLAYER_ID) return msg(playerid,red,\"Nem aktív játékos!\");
format(string,sizeof(string),\"%s kirúgta %s-t!Indok: %s.\",nev,pnev,indok);
msgall(red,string);
Kick(id);
}
return 1;
}
}
CMD:ban(playerid, params[]) //Játékos bannolása
{
if(IsPlayerConnected(playerid))
{
{
new indok[128];
new id;
new string[128];
new nev[MAX_PLAYER_NAME];
GetPlayerName(playerid,nev,sizeof(nev));
new pnev[MAX_PLAYER_NAME];
GetPlayerName(id,pnev,sizeof(pnev));
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params, \"us[128]\",id,indok)) return msg(playerid,green,\"Használat: /ban [JátékosID] [indok]\");
else if(id == INVALID_PLAYER_ID) return msg(playerid,red,\"Nem aktív játékos!\");
format(string,sizeof(string),\"%s kibanolta %s-t a szerverrõl!Indok:%s.\",nev,pnev,indok);
msgall(red,string);
Ban(id);
}
}
return 1;
}
CMD:goto(playerid,params[]) //Goto játékoshoz
{
if(IsPlayerConnected(playerid))
{
{
new id;
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params,\"u\",id)) return SendClientMessage(playerid,red,\"Használat: /goto [JátékosID]\");
if(!IsPlayerConnected(id)) return SendClientMessage(playerid, red, \"Nem aktív játékos!\");
new Float:x,Float:y,Float:z;
GetPlayerPos(id,x,y,z);
if(IsPlayerInAnyVehicle(playerid))
{
new carid = GetPlayerVehicleID(playerid);
SetVehiclePos(carid, x+3,y,z);
PutPlayerInVehicle(playerid, carid, 1);
}
else
{
SetPlayerPos(playerid,x,y,z);
}
}
}
return 1;
}
CMD:get(playerid,params[]) //Játékos getelése
{
if(IsPlayerConnected(playerid))
{
{
new id;
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params,\"u\",id)) return SendClientMessage(playerid,red,\"Használat: /get [PLayerID]\");
if(!IsPlayerConnected(id)) return SendClientMessage(playerid, red, \"Nem aktív játékos!\");
new Float:x,Float:y,Float:z;
GetPlayerPos(id,x,y,z);
if(IsPlayerInAnyVehicle(id))
{
new carid = GetPlayerVehicleID(id);
SetVehiclePos(carid, x+3,y,z);
PutPlayerInVehicle(id, carid, 1);
}
else
{
SetPlayerPos(id,x,y,z);
}
}
}
return 1;
}
CMD:tv(playerid,params[]) //Játékos figyelése
{
if(IsPlayerConnected(playerid))
{
{
new id;
new string[128];
new nev[30];
GetPlayerName(playerid,nev,sizeof(nev));
new pnev[30];
GetPlayerName(id,pnev,sizeof(pnev));
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params,\"u\", id)) return msg(playerid, green, \"Használat: /spec [PlayerID]\");
else if(id == INVALID_PLAYER_ID) return msg(playerid, red, \"Játékos nem elérhetõ!\");
TogglePlayerSpectating(playerid, 1);
PlayerSpectatePlayer(playerid, id);
SetPlayerInterior(playerid,GetPlayerInterior(id));
SetPlayerVirtualWorld(playerid, GetPlayerVirtualWorld(id));
format(string,sizeof(string),Egy admin elkezdte specelni %s-t!\",nev,pnev);
SendAdminMessage(white,string);
}
}
return 1;
}
CMD:specki(playerid) //Játékos figyelésének kikapcsolása
{
if(IsPlayerConnected(playerid))
{
{
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
TogglePlayerSpectating(playerid,0);
SendClientMessage(playerid,white,\"SPEC kikapcsolva!\");
}
}
return 1;
}
CMD:a(playerid,params[]) // Admin Chat.
{
new nev[MAX_PLAYER_NAME];
GetPlayerName(playerid,nev,sizeof(nev));
new achat[128];
new string[128];
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params, \"s[128]\",achat)) return msg(playerid,green,\"Használat: /a [szöveg]\");
else {
format(string,sizeof(string),\"Admin:%s:%s\",nev,achat);
SendAdminMessage(red,string);
}
return 1;
}
CMD:setskin(playerid,params[]) //Játékos skinjét így tudod megváltoztatni
{
if(IsPlayerConnected(playerid))
{
{
new id;
new skin;
new string[128];
new pnev[MAX_PLAYER_NAME];
GetPlayerName(playerid,pnev,sizeof(pnev));
new nev[MAX_PLAYER_NAME];
GetPlayerName(playerid,nev,sizeof(nev));
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params,\"ud\",id,skin)) msg(playerid,red,\"Használat: /setskin [JátékosID] [skinID(0-299)]\");
else if(id == INVALID_PLAYER_ID) return msg(playerid,red,\"Nem aktív játékos!\");
else {
format(string,sizeof(string),\"Egy admin megváltoztatta a skinedet!\",nev,skin);
msg(id,szin,string);
format(string,sizeof(string),\"Megváltoztattad %s Skinjét!\",pnev,skin);
msg(playerid,red,string);
SetPlayerSkin(id,skin);
}
}
}
return 1;
}
CMD:asay(playerid, params[]) //Admin üzenet (asay)
{
{
new say[128];
new nev[MAX_PLAYER_NAME];
GetPlayerName(playerid,nev,sizeof(nev));
new string[128];
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
if(sscanf(params,\"s[128]\",say)) return msg(playerid,green,\"Használat: /asay [szöveg]\");
else {
format(string,sizeof(string),\"Admin:%s:%s\",nev,say);
msgall(red,string);
}
}
return 1;
}
CMD:resi(playerid,params[]) //Szerver restart
{
{
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
print(\"A szerver újra indult, kérlek várj amíg betöltjük az adatokat!\");
SendRconCommand(\"gmx\");
}
return 1;
}
Nekem tetszik. :smokin: :thumbsup:
Ment a +!!!! :D
Annyira nem kidolgozott, kevésnek érzem, de szép lett.
Annyira nem kidolgozott, kevésnek érzem, de szép lett.
Szép lenne ha csinálnál külön változót az adminak és ha mentené... ;)
CMD:resi(playerid,params[]) //Szerver restart
{
{
if(!IsPlayerAdmin(playerid)) return msg(playerid,red,\"Nem vagy admin!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
msgall(red,\"10 másodperc múlva szerver restart lesz! Az adataidat mentettük!\");
print(\"A szerver újra indult, kérlek várj amíg betöltjük az adatokat!\");
SendRconCommand(\"gmx\");
}
return 1;
}
\"Az adataidat mentettük!\"- kicsit sem mented azt old meg valahogy még és jó! :)
Köszi a véleményeket, de én vagy 1 hete kezdtem scriptelni, szóval tudom, hogy nem a legjobb :D.
ez szar
Sok parancs másik scriptbõl van de szép ment a +
Hova lettek a jó szkripterek :/..
Mostmár csak annyit látok hogy sz*r- felesleges megoldások.. 3 perces trágya munkák, mikor még régen valaki 1 hetet killódott a szkripteken *neveket nem sorolok*, õk is voltak kezdõk de akkor is kidolgozott, 20x átnézett munkákat dobtak fel. És ne is beszéljünk arról hogy igyekeztek, nehogy leoltsák õket, mint most hogy megnézek egy szkriptet és a 3. vagy a 4. hozzászólásban annyi van írva hogy \"sz*r\". Igazuk is van!
Ezt a rendszer még simán lehetne bõvíteni, *adat mentést* csinálni stb....
Ráértél volna felrakni, és nem ilyennel kell kezdeni ha kezdõ vagy.
Hova lettek a jó szkripterek :/..
Mostmár csak annyit látok hogy sz*r- felesleges megoldások.. 3 perces trágya munkák, mikor még régen valaki 1 hetet killódott a szkripteken *neveket nem sorolok*, õk is voltak kezdõk de akkor is kidolgozott, 20x átnézett munkákat dobtak fel. És ne is beszéljünk arról hogy igyekeztek, nehogy leoltsák õket, mint most hogy megnézek egy szkriptet és a 3. vagy a 4. hozzászólásban annyi van írva hogy \"sz*r\". Igazuk is van!
Ezt a rendszer még simán lehetne bõvíteni, *adat mentést* csinálni stb....
Ráértél volna felrakni, és nem ilyennel kell kezdeni ha kezdõ vagy.
Mit vársz egy olyan scripteltõl aki vagy két hete scriptel???? Mostanába még foglalkozni sincs vele idõm!
Hova lettek a jó szkripterek :/..
Mostmár csak annyit látok hogy sz*r- felesleges megoldások.. 3 perces trágya munkák, mikor még régen valaki 1 hetet killódott a szkripteken *neveket nem sorolok*, õk is voltak kezdõk de akkor is kidolgozott, 20x átnézett munkákat dobtak fel. És ne is beszéljünk arról hogy igyekeztek, nehogy leoltsák õket, mint most hogy megnézek egy szkriptet és a 3. vagy a 4. hozzászólásban annyi van írva hogy \"sz*r\". Igazuk is van!
Ezt a rendszer még simán lehetne bõvíteni, *adat mentést* csinálni stb....
Ráértél volna felrakni, és nem ilyennel kell kezdeni ha kezdõ vagy.
Mit vársz egy olyan scripteltõl aki vagy két hete scriptel???? Mostanába még foglalkozni sincs vele idõm!
[/quote]
Hogy mit várok? Biztos hogy nem egy adminrendszert... Az elõbbi kommentembe leírtam hogy ha kezdõ vagy nem adminrendszerrel kéne kezdened mert az a legnehezebb... Ezt nem megbántásból írtam és nem csak rád vonatkozik..
Hova lettek a jó szkripterek :/..
Mostmár csak annyit látok hogy sz*r- felesleges megoldások.. 3 perces trágya munkák, mikor még régen valaki 1 hetet killódott a szkripteken *neveket nem sorolok*, õk is voltak kezdõk de akkor is kidolgozott, 20x átnézett munkákat dobtak fel. És ne is beszéljünk arról hogy igyekeztek, nehogy leoltsák õket, mint most hogy megnézek egy szkriptet és a 3. vagy a 4. hozzászólásban annyi van írva hogy \"sz*r\". Igazuk is van!
Ezt a rendszer még simán lehetne bõvíteni, *adat mentést* csinálni stb....
Ráértél volna felrakni, és nem ilyennel kell kezdeni ha kezdõ vagy.
Egyetértek én is kezdõ vagyok de még ilyet nem csinálok ha csinálok akkor tuti 50 prancsnál több lesz benne !Van még mit beleirni!
Mit vársz egy olyan scripteltõl aki vagy két hete scriptel???? Mostanába még foglalkozni sincs vele idõm!
[/quote]
Hova lettek a jó szkripterek :/..
Mostmár csak annyit látok hogy sz*r- felesleges megoldások.. 3 perces trágya munkák, mikor még régen valaki 1 hetet killódott a szkripteken *neveket nem sorolok*, õk is voltak kezdõk de akkor is kidolgozott, 20x átnézett munkákat dobtak fel. És ne is beszéljünk arról hogy igyekeztek, nehogy leoltsák õket, mint most hogy megnézek egy szkriptet és a 3. vagy a 4. hozzászólásban annyi van írva hogy \"sz*r\". Igazuk is van!
Ezt a rendszer még simán lehetne bõvíteni, *adat mentést* csinálni stb....
Ráértél volna felrakni, és nem ilyennel kell kezdeni ha kezdõ vagy.
Egyetértek én is kezdõ vagyok de még ilyet nem csinálok ha csinálok akkor tuti 50 prancsnál több lesz benne !Van még mit beleirni!
Mit vársz egy olyan scripteltõl aki vagy két hete scriptel???? Mostanába még foglalkozni sincs vele idõm!
[/quote]
[/quote]
Bocsesz visszavontam.. na tehát csak annyi tényleg hogy ne adminrendszerrel kezd.. 2 éve szkriptelek de egy két segítség nekem is kell hozzá :)
Bárki bármit mond....Én szerintem nem kéne a srácot osztogatni.
Igen igen a régi szép idõk oh hát persze lehet ezeket is mondogatni de amit a srác publikált az a mostani kezdõkhöz viszonyítva nem rossz.....
Ha valaki nem ért egyet várom az ellenvetését de még mielõtt megtenné az ellenkezést nézzen végig a mostani scripteket amelyeket a \"kezdõk\" csináltak..
Bárki bármit mond....Én szerintem nem kéne a srácot osztogatni.
Igen igen a régi szép idõk oh hát persze lehet ezeket is mondogatni de amit a srác publikált az a mostani kezdõkhöz viszonyítva nem rossz.....
Ha valaki nem ért egyet várom az ellenvetését de még mielõtt megtenné az ellenkezést nézzen végig a mostani scripteket amelyeket a \"kezdõk\" csináltak..
Teljesen igazad van. Loren bocsánat hogy leosztottalak csak ideges voltam tudom tudom nem rajtad(rajtatok) kell a dühömet kitenni.. Tényleg, kezdõként nagyon jó lett gratulálok!
Nagyon jó :) Hasznos az ilyen kezdõknek, mint nekem :)
Hogy kell valakit hozzáadni hogy admin legyen? hová kell azt írni?
Bárki bármit mond....Én szerintem nem kéne a srácot osztogatni.
Igen igen a régi szép idõk oh hát persze lehet ezeket is mondogatni de amit a srác publikált az a mostani kezdõkhöz viszonyítva nem rossz.....
Ha valaki nem ért egyet várom az ellenvetését de még mielõtt megtenné az ellenkezést nézzen végig a mostani scripteket amelyeket a \"kezdõk\" csináltak..
Teljesen igazad van. Loren bocsánat hogy leosztottalak csak ideges voltam tudom tudom nem rajtad(rajtatok) kell a dühömet kitenni.. Tényleg, kezdõként nagyon jó lett gratulálok!
[/quote]
Köszi semmi gond ;)!
Hogy kell valakit hozzáadni hogy admin legyen? hová kell azt írni?
[/quote]
Csak rcon admin használhatja a parancsokat, kivéve a report parancsot. Beírod az rcon jelszót és tudod használni õket!
Szia, nekem nem megy :( Ezt irja ki:
D:\\Games\\SAMP SERVER\\filterscripts\\admin.pwn(12) : fatal error 100: cannot read from file: \"fixchars\"
Mi a gond? Köszi.
Ezt Tedd be a pawno/include mappádba, és menni fog, amennyiben azzal a pawnoval nyitod meg, melynek a mappájába tetted az incet.
1 éves bump tesó.. szép volt.. így tovább.
1 éves bump tesó.. szép volt.. így tovább.
Ha segítséget kér az nem számít bumpnak, másrészt:
Módosítva. Bump kivéve mert idejét múlta, az új szabályzattal és fórumrendszerrel nem függ össze.[/quote]
1 éves bump tesó.. szép volt.. így tovább.
Ha segítséget kér az nem számít bumpnak
[/quote]
TengeriMalac az EntoX hozzászólására értette amit töröltem.
És igen mostantól a Bump kivéve.
Szia, nekem nem megy :( Ezt irja ki:
D:\\Games\\SAMP SERVER\\filterscripts\\admin.pwn(12) : fatal error 100: cannot read from file: \"fixchars\"
Mi a gond? Köszi.
Ezt Tedd be a pawno/include mappádba, és menni fog, amennyiben azzal a pawnoval nyitod meg, melynek a mappájába tetted az incet.
1 éves bump tesó.. szép volt.. így tovább.
1 éves bump tesó.. szép volt.. így tovább.
Ha segítséget kér az nem számít bumpnak, másrészt:
Módosítva. Bump kivéve mert idejét múlta, az új szabályzattal és fórumrendszerrel nem függ össze.[/quote]
1 éves bump tesó.. szép volt.. így tovább.
Ha segítséget kér az nem számít bumpnak
[/quote]
TengeriMalac az EntoX hozzászólására értette amit töröltem.
És igen mostantól a Bump kivéve.