Szerző Téma: Lord Admin rendszer  (Megtekintve 5027 alkalommal)

Nem elérhető Loren

  • 1401
  • Ex Moderátor
    • Profil megtekintése
Lord Admin rendszer
« Dátum: 2013. Június 09. - 01:22:54 »
+5 Show voters
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;
    }
« Utoljára szerkesztve: 2013. Június 09. - 01:40:53 írta Loren »

Lord Admin rendszer
« Válasz #1 Dátum: 2013. Június 09. - 08:21:53 »
0 Show voters
Nekem tetszik.  :smokin:  :thumbsup:
Ment a +!!!! :D

Nem elérhető Truz

  • 128
    • Profil megtekintése
Lord Admin rendszer
« Válasz #2 Dátum: 2013. Június 09. - 08:47:53 »
+2 Show voters
Annyira nem kidolgozott, kevésnek érzem, de szép lett.

Nem elérhető KR3W

  • 395
  • #weekendcup - irc.
    • Profil megtekintése
Lord Admin rendszer
« Válasz #3 Dátum: 2013. Június 09. - 08:52:56 »
0 Show voters
Idézetet írta: Truz date=1370760473\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38280\" data-ipsquote-contentclass=\"forums_Topic
Annyira nem kidolgozott, kevésnek érzem, de szép lett.
 

Nem elérhető ZyZu.

  • Globális moderátor
  • 8939
  • my turbo diesel forum
  • Discord: ZyZu.
    • Profil megtekintése
Lord Admin rendszer
« Válasz #4 Dátum: 2013. Június 09. - 10:13:26 »
0 Show voters
Szép lenne ha csinálnál külön változót az adminak és ha mentené...  ;)

Lord Admin rendszer
« Válasz #5 Dátum: 2013. Június 09. - 11:02:31 »
0 Show voters
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ó! :)

Nem elérhető Loren

  • 1401
  • Ex Moderátor
    • Profil megtekintése
Lord Admin rendszer
« Válasz #6 Dátum: 2013. Június 09. - 12:52:22 »
0 Show voters
Köszi a véleményeket, de én vagy 1 hete kezdtem scriptelni, szóval tudom, hogy nem a legjobb  :D.

Lord Admin rendszer
« Válasz #7 Dátum: 2013. Június 17. - 09:29:31 »
0 Show voters
ez szar

xD1999

  • Vendég
Lord Admin rendszer
« Válasz #8 Dátum: 2013. Június 17. - 09:39:47 »
+1 Show voters
Sok parancs másik scriptbõl van de szép ment a +

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Lord Admin rendszer
« Válasz #9 Dátum: 2013. Június 17. - 15:29:47 »
+3 Show voters
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.

Nem elérhető Loren

  • 1401
  • Ex Moderátor
    • Profil megtekintése
Lord Admin rendszer
« Válasz #10 Dátum: 2013. Június 19. - 08:19:12 »
0 Show voters
Idézetet írta: BoOy date=1371475787\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38280\" data-ipsquote-contentclass=\"forums_Topic
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!

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Lord Admin rendszer
« Válasz #11 Dátum: 2013. Június 19. - 12:40:14 »
0 Show voters
Idézetet írta: Loren date=1371622752\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38280\" data-ipsquote-contentclass=\"forums_Topic


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..

xD1999

  • Vendég
Lord Admin rendszer
« Válasz #12 Dátum: 2013. Június 20. - 17:04:29 »
0 Show voters
Idézetet írta: Loren date=1371622752\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38280\" data-ipsquote-contentclass=\"forums_Topic


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]

Nem elérhető BoOy

  • 3209
  • 2013-as év szkriptere
    • Profil megtekintése
Lord Admin rendszer
« Válasz #13 Dátum: 2013. Június 20. - 17:24:26 »
0 Show voters
Idézetet írta: xD1999 date=1371740669\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"38280\" data-ipsquote-contentclass=\"forums_Topic


 

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á :)

Elérhető Cappsy

  • Adminisztrátor
  • 2754
    • Profil megtekintése
Lord Admin rendszer
« Válasz #14 Dátum: 2013. Június 20. - 18:03:17 »
0 Show voters
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..
« Utoljára szerkesztve: 2013. Június 20. - 18:05:20 írta cappsy »

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal