Szerző Téma: Blade admin rendszer (Megtekintve 2891 alkalommal)

instant · « **Dátum:** 2012. június 16. - 18:06:38 »

Üdv. elkészítettem az admin FilterScriptemet . amit már szerintem a készülõ munkák fórum részben láttatok
FIGYELEM! Scriptfilesben hozz létre 1 Kecske(Nem illik nevetni ezen az állaton, se a mappa nevén!xd :angel: :hihi:) nevezetû mappát mivel oda menti a felhasználókat
Amit tartalmaz a FilterScript
-Regisztráció & Bejelentkezés biztosítva
-Admin Rendszer & V.I.P System
-Jelszót válthatsz
-A Gyorsaságért a zcmd felel , A Rendszer Pvarral készült és dini menti a felhasználókat!
Külön köszönet : Gabor... -nak és Flash-nek aki néhányszor bele segitett (: nagyon hálás vagyok nekik.
VIP Parancsok:Vip Parancsok : /vsay /vcarrespawn /veject /vgoto /vskin /vcar /vgod /vgodoff /vjetpack
Vip Játékosok megtekintése : /vips
Admin parancsok : /kick /ban /settime /setweather /goto /get /disarm/ (un)freeze /setlevel /giveweapon /setvip /setname /setwanted /flip /fix /gmx /chattisztit /announce /givemoney
Adminok megtekintéséhez : /admins
PWN:

#include <a_samp>
#include zcmd
#include sscanf2
#include fixchars
#include dini
#include dutils
#include dudb
#define ZOLD    0x33AA33AA
#define PIROS   0xFF0606FF
#define SARGA   0xFFFF00AA
#define LIME    0x99FF00AA
#define SCM SendClientMessage
enum Jatekos
{
Kill,
Death,
Score,
Penz,
Level,
VIP
};
new PlayerInfo[MAX_PLAYERS][Jatekos];
#define DIALOG_REGISTER       10 
#define DIALOG_LOGIN           11
#define DIALOG_ACCOUNT         12
#define DIALOG_CHANGEPASS      13
#define DIALOG_VIEWSTATS        15
#define DIALOG_CHECKSTATS       16
#pragma unused                  ret_memcpy
#pragma unused                  strtok
forward UpdateTime(playerid);
new str[128];
new file[128];
new playerIP[16];
new Update;
CMD:vips(playerid,params[])
{
new string[250];
SendClientMessage(playerid,ZOLD,\"____]Online V.I.P Tagok [_____\");
for(new v =0; v<MAX_PLAYERS; v++)
{
if(GetPVarInt(v,\"VIP\") > 0)
{
format(string,250,\"%s V.I.P Szint:%d\",pName(playerid),GetPVarInt(playerid,\"VIP\"));
SendClientMessage(playerid,ZOLD,string);
}
}
return 1;
}
CMD:setvip(playerid, params[])
{
if(GetPVarInt(playerid,\"Level\" ) < 5 || IsPlayerAdmin(playerid))
{
new
string[350],
vlevel;
if(sscanf(params,\"ui\",playerid, vlevel)) return SCM(playerid,PIROS,\"Használat : /setvip id level (1-3)!\");
if(vlevel <0  || vlevel > 3) return SCM(playerid,PIROS,\"Csak 1 - 3 VIP SZINT Közt van!\");
if( playerid == INVALID_PLAYER_ID ) return SCM( playerid, PIROS, \"HIBA: Nem létezõ azonosító!\" );
SetPVarInt(playerid,\"VIP\",vlevel);
format(string,350,\"***%s(%d) {00f7ff}nevû admin kinevezett téged {ff0000}%d V.I.P-nak!\",pName(playerid),playerid,GetPVarInt(playerid,\"VIP\"));
SCM( playerid,ZOLD,string);
if(vlevel > GetPVarInt(playerid,\"VIP\")) return SCM( playerid,ZOLD,\"VIP Szinted növekedett!\");
if(vlevel < GetPVarInt(playerid,\"VIP\")) return SCM( playerid,ZOLD,\"VIP Szintedet elvonták!\");
PlayerPlaySound(playerid, 1056, 0, 0, 0);
}
else SCM( playerid, PIROS, \"Nem vagy fõadmin!\" );
return 1;
}
CMD:vgod( playerid )
{
//le tesztelem.
if(GetPVarInt(playerid, \"VIP\") < 2) return SCM(playerid, 0xE60000FF, \"Ezt a parancsot max 2.es szintû V.I.P tagok használhatják!\");
SetPlayerHealth(playerid,20000);
SCM( playerid, ZOLD, \"Bekapcsoltad az örök életed!\" );
return 1;
}
CMD:vgodoff(playerid)
{
if(GetPVarInt(playerid, \"VIP\") < 2) return SCM(playerid, 0xE60000FF, \"Ezt a parancsot max 2.es szintû V.I.P tagok használhatják!\");
SetPlayerHealth(playerid,100);
SCM( playerid, ZOLD, \"Kikapcsoltad az örök életed!\" );
return 1;
}
CMD:vskin(playerid,params[])
{
if(GetPVarInt(playerid,\"VIP\") < 1) return SCM(playerid,0xE60000FF,\"Ezt a Parancsot csak Vip Tagok használhatják!\");
new skin;
new string2[175];
if(sscanf(params,\"d\",skin)) return SCM(playerid,SARGA,\"Használat : /vskin [skinid] \");
if(skin < 0 || skin > 299) return SCM(playerid,PIROS,\"Csak 0tól és 299ig vannak skinek!\");
SetPlayerSkin(playerid,skin);
format(string2,175,\"Sikeresen átváltoztattad a skinedet!Új Skined ID-je :%d !\",skin);
SCM(playerid,ZOLD,string2);
return 1;
}
CMD:vcarrespawn(playerid,params[])
{
new string[250];
if(GetPVarInt(playerid,\"VIP\") < 3) return SCM(playerid,PIROS,\"Nem vagy jogosult-e parancs használatához!\");
for(new cars; cars <MAX_VEHICLES; cars++)
{
SetVehicleToRespawn(cars);
}
format(string,250,\"-VIP-%s respawnolta a jármüveket!\",pName(playerid));
SendClientMessageToAll(ZOLD,string);
return 1;
}
CMD:vcar(playerid,params[])
{
if(GetPVarInt(playerid,\"VIP\") < 1) return SCM(playerid,0xE60000FF,\"Ezt a Parancsot csak Vip Tagok használhatják!\");
new id, color1, color2;
new Float:X, Float:Y, Float:Z, Float:Rot;
GetPlayerPos(playerid, X, Y, Z);
GetPlayerFacingAngle(playerid, Rot);
if(sscanf(params,\"ddd\",id,color1,color2)) return SCM(playerid,SARGA,\"Használat /vcar [Jármûid][szin1][szin2]\");
if(id < 400 || id > 611) return SCM(playerid,PIROS,\"Csak 400tól 611ig vannak a jármûid!\");
CreateVehicle(id,X+2,Y+2,Z+2,Rot,color1,color2,0);
SendClientMessage(playerid,ZOLD,\"Sikeresen lekérted a jármûvet!\");
DestroyVehicle(id);
return 1;
}
CMD:vgoto(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") < 2) return SCM(playerid, 0xE60000FF, \"Ezt a parancsot max 2.es szintû V.I.P tagok használhatják!\");
{
new id;
new Float:x,Float:y,Float:z;
if(id == INVALID_PLAYER_ID) return SCM(playerid,ZOLD,\"Helytelen PlayerID!\");
if(sscanf(params,\"u\",id))return SCM(playerid,SARGA,\"Használat: /goto [Játékosnév/id]\");
GetPlayerPos(id,x,y,z);
SetPlayerPos(playerid,x,y,z);
SCM(id,ZOLD,\"Egy Vip tag hozzád teleportált!\");
}
return 1;
}
CMD:veject(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") < 3) return SCM(playerid, 0xE60000FF, \"Ezt a parancsot max 3.as szintû V.I.P tagok használhatják!\");
new Float:x,Float:y,Float:z;
new target;
if(sscanf(params,\"d\",target)) return SCM(playerid,SARGA,\"Használat /veject [iD]\");
SetPlayerPos(target,x,y,z+3);
return 1;
}
CMD:vsay(playerid,params[])
{
if(GetPVarInt(playerid, \"VIP\") < 3) return SCM(playerid, 0xE60000FF, \"Ezt a parancsot max 3.as szintû V.I.P tagok használhatják!\");
new uzenet[1000],string[200];
if(sscanf(params,\"s[1000]\",uzenet)) return SCM(playerid,SARGA,\"Használat /vsay [Üzenet]\");
format(string,sizeof(string),\"-VIP-{ff0000}%s : {ffffff}%s\",pName(playerid),uzenet);
SendClientMessageToAll(ZOLD,string);
return 1;
}
CMD:vjetpack(playerid,params[])
{
if(GetPVarInt(playerid,\"VIP\") < 1) return SCM(playerid,PIROS,\"Nincs jogosultságod-e parancs használatához!\");
SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USEJETPACK);
SendClientMessage(playerid, SARGA, \"Sikeresen adtál magadnak JetPacket!\");
return 1;
}
CMD:vhelp(playerid)
{
if(GetPVarInt(playerid,\"VIP\") < 1) return SCM(playerid,PIROS,\"Nincs jogosultságod-e parancs használatához!\");
SCM(playerid,PIROS,\"____]VIP HELP[____\");
SCM(playerid,ZOLD,\"/vcar /vskin /vjetpack\");
SCM(playerid,ZOLD,\"/vgoto /vgod /vgodoff\");
SCM(playerid,ZOLD,\"/vsay /veject /vcarrespawn\");
SCM(playerid,PIROS,\"____]VIP HELP[____\");
return 1;
}
//=====Admin Rendszer Kezdete
CMD:setlevel(playerid, params[])
{
if( GetPVarInt( playerid, \"Level\" ) < 5  ) return SCM( playerid, PIROS, \"Kevés az admin szinted ehhez a parancshoz!\" );
{
new
i_string[350],
iLevel;
if( sscanf( params, \"ui\", playerid, iLevel ) ) return SCM( playerid, SARGA, \"Használat: /setlevel <Játékos ID/Név>\" );
if( iLevel < 0 || iLevel > 5 ) return SCM( playerid, PIROS, \"HIBA: A szint csak 1-5 között lehet!\" );
if( playerid == INVALID_PLAYER_ID ) return SCM( playerid, PIROS, \"HIBA: Nem létezõ azonosító!\" );
SetPVarInt( playerid, \"Level\", iLevel );
SetPVarInt( playerid, \"Fokozott\", 1 );
format( i_string, sizeof( i_string ), \"*** %s(%d) {00f7ff}nevû admin fokozta az admin szintedet! Szint: {ff0000}%d\", pName( playerid ),playerid, GetPVarInt( playerid, \"Level\" ) );
SCM( playerid, GetPlayerColor( playerid ), i_string  );
 
if( iLevel > GetPVarInt( playerid, \"Level\" ) ) return GameTextForPlayer(playerid, \"~b~Fokoztak\",3000,2);
if( iLevel < GetPVarInt( playerid, \"Level\" ) ) return GameTextForPlayer(playerid, \"~b~LeFokoztak\",3000,2);
PlayerPlaySound(playerid, 1056, 0, 0, 0);
}
return 1;
}
CMD:goto(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 2) SCM(playerid,PIROS,\"Nincs jogosultságod e parancs használatára!\");
{
new target;
if(sscanf(params,\"u\",target)) return SCM(playerid,SARGA,\"Használat : /goto Playerid/Név\");
if(target == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
{
new Float:x, Float:y, Float:z;
GetPlayerPos(target,x,y,z);
SetPlayerPos(playerid,x,y+5,z);
}
}
return 1;
}
CMD:setname(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 5) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new player,
ujnev[MAX_PLAYER_NAME],
string[250];
if(sscanf(params,\"us[32]\",player,ujnev)) return SCM(playerid,SARGA,\"Használat /setname [iD][Újnév]\");
if(player == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen Játékos!\");
SetPlayerName(player, ujnev);
format(string,250,\"Az új neved :%s\",ujnev);
SCM(player,ZOLD,string);
return 1;
}
CMD:kick(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 3) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new targetid,name[MAX_PLAYER_NAME],indok[200];
if(sscanf(params,\"us[200]\",targetid,indok)) return SCM(playerid,SARGA,\"Használat : /kick [playerid][indok]\");
if(targetid == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
if(targetid == playerid) return SCM(playerid,PIROS,\"Magadat nem kickelheted, Sajnos:\'(!\");
format(str,sizeof(str),\"[Admin]%s kickelte %s indok : %s\",pName(playerid),name,indok);
SendClientMessageToAll(SARGA,str);
Kick(targetid);
return 1;
}
CMD:ban(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 4) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new targetid,name[MAX_PLAYER_NAME],indok[200];
if(sscanf(params,\"us[200]\",targetid,indok)) return SCM(playerid,SARGA,\"Használat : /ban [playerid][indok]\");
if(targetid == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
if(targetid == playerid) return SCM(playerid,PIROS,\"Magadat nem bannolhatod, Sajnos:\'(!\");
format(str,sizeof(str),\"[Admin]%s bannolta %s -t indok : %s\",pName(playerid),name,indok);
SendClientMessageToAll(SARGA,str);
Ban(targetid);
return 1;
}
CMD:givemoney(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 3) return SCM(playerid,PIROS,\"Kevés a szinted ehhez a parancshoz!\");
new targetid,osszeg;
if(sscanf(params,\"ud\",targetid,osszeg)) return SCM(playerid,SARGA,\"Használat: /givemoney [iD][Összeg]\");
if(GetPlayerMoney(playerid) < osszeg) return SCM(playerid,PIROS,\"Nincs elegendõ pénzed!\");
if(targetid == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
if(targetid == playerid) return SCM(playerid,PIROS,\"Magadnak nem küldhetsz!\");
GivePlayerMoney(playerid,GetPlayerMoney(playerid)-osszeg);
GivePlayerMoney(targetid,GetPlayerMoney(playerid)+osszeg);
return 1;
}
CMD:get(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 3) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new id;
new Float:x, Float:y,Float:z;
if(sscanf(params,\"u\",id)) return SCM(playerid,SARGA,\"Használat /get [Playerid]\");
if(playerid == id) return SCM(playerid,PIROS,\"Magadat nem getelheted magadhoz..!\");
if(id == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
GetPlayerPos(id,x,y,z);
SetPlayerPos(playerid,x+1,y,z);
return 1;
}
CMD:disarm(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 2) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new player;
if(sscanf(params,\"u\",player)) return SCM(playerid,SARGA,\"Használat : /disarm [Playerid]\");
if(player == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
format(str,sizeof(str),\"Lefegyverezted :%s\",pName(playerid));
SCM(playerid,SARGA,str);
SCM(player,SARGA,\"Admin lefegyverzet téged!\");
ResetPlayerWeapons(player);
return 1;
}
CMD:giveweapon(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 2) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new target,weaponid,tolteny;
if(sscanf(params,\"ddd\",target,weaponid,tolteny)) return SCM(playerid,SARGA,\"Használat : /giveweapon [iD] [Fegyverid][Tolteny]\");
if(weaponid < 1 || weaponid > 46) return SCM(playerid,PIROS,\"Csak 1-46 közt lehetnek a fegyverek!\");
format(str,sizeof(str),\"Fegyvert adtál neki :%s , Fegyver ID:%d, Töltény:%d\",pName(playerid),weaponid,tolteny);
SCM(playerid,SARGA,str);
format(str,sizeof(str),\"Fegyvert kaptál tõle :%s\",pName(playerid));
SCM(target,SARGA,str);
GivePlayerWeapon(target,weaponid,tolteny);
return 1;
}
CMD:freeze(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 2) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new jatekos;
if(sscanf(params,\"u\",jatekos)) return SCM(playerid,SARGA,\"Használat : /freeze [Játékos ID]\");
if(jatekos == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
if(playerid == jatekos) return SCM(playerid,PIROS,\"Magadat nem fagyaszthatod le lüke!\");
TogglePlayerControllable(jatekos,false);
return 1;
}
CMD:unfreeze(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 2) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new user;
if(sscanf(params,\"u\",user)) return SCM(playerid,SARGA,\"Használat : /unfreeze [Játékos ID]\");
if(user == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Nincs ilyen játékos!\");
if(playerid == user) return SCM(playerid,PIROS,\"Magadat nem fagyaszthatod le lüke!\");
TogglePlayerControllable(user,true);
return 1;
}
CMD:announce(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 3) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new szoveg[150];
if(sscanf(params,\"s[150]\",szoveg)) return SCM(playerid,SARGA,\"Használat /announce [szöveg]\");
GameTextForAll(szoveg,2500,3);
return 1;
}
CMD:chattisztit(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 4) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(ZOLD,\"Egy admin megtisztitotta a Chat-et!!\");
return 1;
}
CMD:gmx(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 4) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
SendRconCommand(\"gmx\");
GameTextForAll(\"Szerver Restart!!\",2500,6);
return 1;
}
CMD:fix(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 1) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
SetVehicleHealth(GetPlayerVehicleID(playerid),1000);
return 1;
}
CMD:flip(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 1) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
if(IsPlayerInAnyVehicle(playerid)) return SCM(playerid,PIROS,\"Nem vagy jármûben!\");
new
VehicleID,
Float:X,
Float:Y,
Float:Z;
GetPlayerPos(playerid, X, Y, Z);
VehicleID = GetPlayerVehicleID(playerid);
SetVehiclePos(VehicleID, X, Y, Z);
SetVehicleZAngle(VehicleID, 0);
SendClientMessage(playerid, 0x00BFFFFF, \"Kocsid visszaállítva!\");
return 1;
}
CMD:setwanted(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 1) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new targetid,csillag;
if(sscanf(params,\"ud\",targetid,csillag)) return SCM(playerid,SARGA,\"Használat /setwanted [JátékosID][Körözés]\");
if(playerid == targetid) return SCM(playerid,PIROS,\"Magadra nem tehetsz körözést !\");
if(targetid == INVALID_PLAYER_ID) return SCM(playerid,PIROS,\"Játékos Nincs csatlakoztatva!\");
SetPlayerWantedLevel(targetid,csillag);
return 1;
}
CMD:settime(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 1) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new ido,perc;
if(sscanf(params,\"dd\",ido,perc)) return SCM(playerid,SARGA,\"Használat /settime [Óra] [Perc]\");
if(ido < 1 || ido > 24) return SCM(playerid,PIROS,\"Csak 1 és 24 óra közt lehet!\");
for(new i; i<MAX_PLAYERS;i++)
{
SetPlayerTime(i,ido,perc);
}
format(str,sizeof(str),\"[ADMIN]%s Átállitotta az idõt: %d óra  %d perc \",pName(playerid),ido,perc);
SendClientMessageToAll(ZOLD,str);
return 1;
}
CMD:setweather(playerid,params[])
{
if(GetPVarInt(playerid,\"Level\") < 1) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
new idojaras;
if(sscanf(params,\"d\",idojaras)) return SCM(playerid,SARGA,\"Használat /setweather [idõjárásid]\");
for(new i; i<MAX_PLAYERS;i++)
{
SetPlayerWeather(i,idojaras);
}
format(str,sizeof(str),\"[ADMIN]%s Átállitotta az idõjárást: %d -re \",pName(playerid),idojaras);
SendClientMessageToAll(ZOLD,str);
return 1;
}
CMD:acmds(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 1) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
SCM(playerid,PIROS,\"__]Admin Parancsok[__\");
SCM(playerid,SARGA,\"Level1:/fix /flip /setwanted /settime /setweather\");
SCM(playerid,SARGA,\"Level2:/goto  /disarm /(un)freeze  /giveweapon\");
SCM(playerid,SARGA,\"Level3:/kick /announce /get /givemoney\");
SCM(playerid,SARGA,\"Level4:/ban /gmx /chattisztit\");
SCM(playerid,SARGA,\"Level5: /setvip /setlevel /setname\");
return 1;
}
CMD:admins(playerid,params[])
{
new bLevel[][]=
{
       \"Játékos\", // 0
       \"Helper\", // 1
       \"Kezdõ Moderátor\", // 2
       \"Haladó Moderátor\", // 3
       \"FõModerátor\", // 4
       \"Tulajdonos|Owner \" // 5
};
new iMax = 1;
for(new i=0; i<MAX_PLAYERS; i++)
{
if(GetPVarInt(i,\"Level\" ) > 0 || IsPlayerAdmin(playerid))
{
format(str,200,\"%s - %s  Szint: %d\\n\",bLevel[GetPVarInt( playerid, \"Level\" )],pName(playerid),GetPVarInt( playerid, \"Level\" ));
ShowPlayerDialog(playerid,5,DIALOG_STYLE_MSGBOX,\"Adminok!\",str,\"OK\",\"\");
iMax++;
}
}
if(iMax < 2)
{
ShowPlayerDialog(playerid,7,DIALOG_STYLE_MSGBOX,\"Admins\",\"{FF0606}***********************\\nNincs admin a szerveren!\\n{FF0606}**********************\",\"Cancel\",\"\");
}
return 1;
}
//egyebek...
CMD:pcmds(playerid)
{
ShowPlayerDialog(playerid,7,DIALOG_STYLE_LIST,\"Player Parancsok!\",\"/changepass - Jelszavad megváltoztatásához!\\n/stats\\n/checkstats\\n/admins -Online adminok megtekintése!\\n/vips Online Vip Tagok!\",\"Köszi!\",\"\");
return 1;
}
CMD:report(playerid, params[])
{
new  aName[MAX_PLAYER_NAME], reason, iD;
if (sscanf(params, \"dz\", iD, reason)) return SendClientMessage(playerid, SARGA, \"Használat: /report [id] [indok]\");
if (iD == INVALID_PLAYER_ID) return SendClientMessage(playerid, PIROS, \"A Játékos nincs csatlakoztatva!\");
if (playerid == iD) return SendClientMessage(playerid, PIROS, \"Magadat Nem jelentheted fel!\");
GetPlayerName(iD, aName, sizeof(aName));
for (new i = 0; i < MAX_PLAYERS; i++)
{
if (GetPVarInt(i,\"Level\") < 1)
{
format(str, sizeof(str), \"%s(%d) feljelentette %s(%d) indok: %s\", pName(playerid), playerid, aName, iD, reason);
MessageToAdmins(0x99FF00AA,str);
}
}
return 1;
}
CMD:changepass(playerid, params[])
{
if(GetPVarInt(playerid, \"Logged\") == 1)
{
    SetPVarInt(playerid, \"PassStage\", 1);
ShowPlayerDialog(playerid, DIALOG_CHANGEPASS, DIALOG_STYLE_INPUT, \"Account Management\", \"Please input your current password for verification\", \"Continue\", \"Cancel\");
}
return 1;
}
 
CMD:stats(playerid, params[])
{
    if(GetPVarInt(playerid, \"Logged\") == 1)
{
    new Float:health; GetPlayerHealth(playerid, health);
    new Float:armour; GetPlayerArmour(playerid, armour);
    format(str, 128, \"Name: %s\\nHealth: %0.00f\\nArmour: %0.00f\\nMoney: %i\\nScore: %i\\nKills: %i\\nDeaths: %i\\nAdminSzint : %i\", pName(playerid), health, armour, GetPlayerMoney(playerid), GetPlayerScore(playerid), GetPVarInt(playerid, \"Kills\"), GetPVarInt(playerid, \"Deaths\"),GetPVarInt(playerid,\"Level\"));
ShowPlayerDialog(playerid, DIALOG_VIEWSTATS, DIALOG_STYLE_MSGBOX, \"Felhasználó menedzser\", str, \"Oké\", \"Bezárás\");
}
return 1;
}
CMD:checkstats(playerid, params[])
{
new targetid;
if(sscanf(params, \"u\", targetid)) return SCM(playerid, PIROS, \"Használat: /checkstats [PlayerID/Játékos név]\");
if(targetid == INVALID_PLAYER_ID) return SCM(playerid, PIROS, \"Nincs ilyen játékos\");
    if(GetPVarInt(playerid, \"Logged\") == 1)
{
    new Float:health; GetPlayerHealth(targetid, health);
    new Float:armour; GetPlayerArmour(targetid, armour);
    format(str, 128, \"Name: %s\\nHealth: %0.00f\\nArmour: %0.00f\\nMoney: %i\\nScore: %i\\nKills: %i\\nDeaths: %i\", pName(targetid), health, armour, GetPlayerMoney(targetid), GetPlayerScore(targetid), GetPVarInt(targetid, \"Kills\"), GetPVarInt(targetid, \"Deaths\"));
ShowPlayerDialog(playerid, DIALOG_VIEWSTATS, DIALOG_STYLE_MSGBOX, \"Felhasználó menedzser\", str, \"Ok\", \"Bezárás\");
}
return 1;
}
public OnPlayerSpawn(playerid)
{
format(file, 128, \"/Kecske/%s.ini\", pName(playerid));
GetPlayerIp(playerid, playerIP, 16);
 
if(!dini_Exists(file))
{
    format(str, 128, \"Üdvözöllek %s \\n\\nKérlek regisztrálj\", pName(playerid));
ShowPlayerDialog(playerid, DIALOG_REGISTER, DIALOG_STYLE_INPUT, \"Felhasználó Menedzser\", str, \"Regisztráció\", \"Kilépés\");
}
    if(dini_Exists(file))
    {
if(strcmp(playerIP, dini_Get(file, \"IP\"), true) == 0)
{
         dini_Set(file, \"IP\", playerIP);
    SetPVarInt(playerid, \"Logged\", 1);
   SetPlayerMoney(playerid, dini_Int(file, \"Pénz\"));
   SetPlayerScore(playerid, dini_Int(file, \"Pont\"));
   SetPVarInt(playerid, \"Halálok\", dini_Int(file, \"Halálok\"));
   SetPVarInt(playerid, \"Ölések\", dini_Int(file, \"Ölések\"));
   SetPVarInt(playerid, \"Idõ\", dini_Int(file, \"Idõ\"));
   SetPVarInt(playerid, \"Level\",dini_Int(file,\"Admin\"));
   SetPVarInt(playerid, \"VIP\",dini_Int(file,\"VIP\"));
   Update = SetTimerEx(\"UpdateTime\", 60*1000, 1, \"i\", playerid);
    SCM(playerid, ZOLD, \"Te regisztrálva vagy ezért sikeresen bejelentkeztél.\");
}
else
{
       format(str, 128, \"Üdvözöllek %s \\n\\nKérlek jelentkezz be a felhasználódba!\", pName(playerid));
   ShowPlayerDialog(playerid, DIALOG_LOGIN, DIALOG_STYLE_INPUT, \"Felhasználó menedzser\", str, \"Bejelentkezés\", \"Kilépés\");
}
}
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
    format(file, 128, \"/Kecske/%s.ini\", pName(playerid));
if(GetPVarInt(playerid, \"Logged\") == 1)
{
dini_IntSet(file, \"Pénz\", GetPlayerMoney(playerid));
dini_IntSet(file, \"Pontok\", GetPlayerScore(playerid));
dini_IntSet(file, \"Halálok\", GetPVarInt(playerid, \"Halálok\"));
dini_IntSet(file, \"Ölések\", GetPVarInt(playerid, \"Ölések\"));
dini_IntSet(file, \"Idõ\", GetPVarInt(playerid, \"Idõ\"));
dini_IntSet(file, \"Admin\",GetPVarInt(playerid,\"Level\"));
dini_IntSet(file, \"VIP\",GetPVarInt(playerid,\"VIP\"));
KillTimer(Update);
}
return 1;
}
 
public OnPlayerDeath(playerid, killerid, reason)
{
PlayerInfo[playerid][Death]++;
PlayerInfo[killerid][Kill]++;
SetPlayerScore(playerid,GetPlayerScore(playerid) -5);
SetPlayerScore(killerid,GetPlayerScore(killerid)+5);
GivePlayerMoney(playerid,GetPlayerMoney(playerid)-5000);
GivePlayerMoney(killerid,GetPlayerMoney(killerid)+5000);
return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    format(file, 128, \"/Kecske/%s.ini\", pName(playerid));
    if(dialogid == DIALOG_REGISTER)
    {
if(!response) return Kick(playerid);
if(response)
{
    if(strlen(inputtext) == 0)
   {
      format(str, 128, \"Üdvözöllek %s \\n\\nKérlek regisztrálj egy felhasználót\", pName(playerid));
      ShowPlayerDialog(playerid, DIALOG_REGISTER, DIALOG_STYLE_INPUT, \"Felhasználó menedzser\", str, \"Regisztráció\", \"Kilépés\");
      return 0;
   }
   if(!dini_Exists(file))
   {
      dini_Create(file);
      dini_IntSet(file, \"Jelszó\", udb_hash(inputtext));
      dini_IntSet(file, \"Pénz\", GetPlayerMoney(playerid));
      dini_IntSet(file, \"Pontok\", GetPlayerScore(playerid));
      dini_IntSet(file, \"Halálok\", GetPVarInt(playerid, \"Halálok\"));
      dini_IntSet(file, \"Ölések\", GetPVarInt(playerid, \"Ölések\"));
      dini_IntSet(file, \"Idõ\", GetPVarInt(playerid, \"Idõ\"));
                dini_IntSet(file, \"Admin\",GetPVarInt(playerid,\"Level\"));
                dini_IntSet(file, \"VIP\",GetPVarInt(playerid,\"VIP\"));
                format(str, 128, \"Ez a felhasználó már regisztrálva van \\n\\n\\nÜdvözöllek %s \\n\\nKérlek jelentkezz be a felhasználódba\", pName(playerid));
      ShowPlayerDialog(playerid, DIALOG_LOGIN, DIALOG_STYLE_INPUT, \"Felhasználó menedzser\", str, \"Bejelentkezés\", \"Kilépés\");
   }
}
}
if(dialogid == DIALOG_LOGIN)
{
    if(!response) return Kick(playerid);
if(response)
{
    if(strlen(inputtext) == 0)
   {
      format(str, 128, \"Üdvözöllek %s \\n\\nKérlek, lépj be a felhasználódba\", pName(playerid));
      ShowPlayerDialog(playerid, DIALOG_LOGIN, DIALOG_STYLE_INPUT, \"Felhasználó menedzser\", str, \"Bejelentkezés\", \"Kilépés\");
      return 0;
   }
   if(fexist(file))
   {
      new password = dini_Int(file, \"Jelszó\");
      if(udb_hash(inputtext) != password)
      {
         if(GetPVarInt(playerid, \"Attempts\") == 0)
         {
             SetPVarInt(playerid, \"Attempts\", 1);
             SCM(playerid, PIROS, \"Hibás jelszó még 1 próbálkozásod maradt\");
             format(str, 128, \"Üdvözöllek %s \\n\\nKérlek lépj be a felhasználódba\", pName(playerid));
            ShowPlayerDialog(playerid, DIALOG_LOGIN, DIALOG_STYLE_INPUT, \"Felhasználó menedzser\", str, \"Bejelentkezés\", \"Kilépés\");
         }
         else if(GetPVarInt(playerid, \"Attempts\") == 1)
         {
             SCM(playerid, PIROS, \"Hibás jelszó, nincs már egy próbálkozásod sem.!\");
             Kick(playerid);
         }
      }
      else
      {
         SetPVarInt(playerid, \"Logged\", 1);
         SetPlayerMoney(playerid, dini_Int(file, \"Money\"));
         SetPlayerScore(playerid, dini_Int(file, \"Score\"));
         SetPVarInt(playerid, \"Kills\", dini_Int(file, \"Kills\"));
         SetPVarInt(playerid, \"Deaths\", dini_Int(file, \"Deaths\"));
          SetPVarInt(playerid, \"Time\", dini_Int(file, \"Minutes Ingame\"));
         SetPVarInt(playerid, \"Admin\",GetPVarInt(playerid,\"Level\"));
                 SetPVarInt(playerid, \"VIP\",GetPVarInt(playerid,\"VIP\"));
         GetPlayerIp(playerid, playerIP, 16);
         dini_Set(file, \"IP\", playerIP);
         Update = SetTimerEx(\"UpdateTime\", 60*1000, 1, \"i\", playerid);
         SCM(playerid, ZOLD, \"Te sikeresen bejelentkeztél.\");
      }
   }
}
}
if(dialogid == DIALOG_CHANGEPASS)
{
if(response)
{
    if(GetPVarInt(playerid, \"PassStage\") == 1)
    {
          new password = dini_Int(file, \"Password\");
          if(udb_hash(inputtext) == password)
          {
              SetPVarInt(playerid, \"PassStage\", 2);
         ShowPlayerDialog(playerid, DIALOG_CHANGEPASS, DIALOG_STYLE_INPUT, \"Felhasználó menedzser\", \"Kérlek írd be az új jelszót\", \"Változtatás\", \"Bezárás\");
      }
      else
      {
          SCM(playerid, PIROS, \"Hibás jelszó.\");
      }
   }
   else if(GetPVarInt(playerid, \"PassStage\") == 2)
   {
       if(GetPVarInt(playerid, \"Logged\") == 1)
       {
         dini_IntSet(file, \"Password\", udb_hash(inputtext));
         SCM(playerid, ZOLD, \"Jelszó sikeresen megváltoztatva.\");
      }
   }
}
}
return 0;
}
stock pName( playerid )
{
new
   s_szPlayerName[ MAX_PLAYER_NAME ];
GetPlayerName( playerid, s_szPlayerName, MAX_PLAYER_NAME );
return s_szPlayerName;
}
forward MessageToAdmins(color,const string[]);
public MessageToAdmins(color,const string[])
{
for(new i = 0; i < MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i) == 1) if (GetPVarInt(i,\"Level\") < 1) SendClientMessage(i, color, string);
}
return 1;
}

zeteni · « **Válasz #1 Dátum:** 2012. június 16. - 18:10:59 »

Biztos nagyon sok munkád van benne! Gratulálok jó lett!

instant · « **Válasz #2 Dátum:** 2012. június 16. - 18:12:09 »

Idézetet írta: zeteni date=1339863059\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22931\" data-ipsquote-contentclass=\"forums_Topic

Biztos nagyon sok munkád van benne! Gratulálok jó lett!

Gráciás ámigó

Sramm · « **Válasz #3 Dátum:** 2012. június 16. - 18:14:24 »

#include zcmd

Amúgy jó

instant · « **Válasz #4 Dátum:** 2012. június 16. - 18:17:13 »

Köszönöm

Flash · « **Válasz #5 Dátum:** 2012. június 16. - 19:34:27 »

Nem rossz de az /admins parancsot is tesztelted és jó is?
A másik meg:

CMD:chattisztit(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 4) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(0xFFFFFFAA,\" \");
SendClientMessageToAll(ZOLD,\"Egy admin megtisztitotta a Chat-et!!\");
return 1;
}

Ehelyett ezt (Rövidített változat):

CMD:chattisztit(playerid)
{
if(GetPVarInt(playerid,\"Level\") < 4) return SCM(playerid,PIROS,\"Kevés a Szinted ehhez a parancshoz!\");
for(new i; i < 90; i++)
{
    SendClientMessage(playerid, -1, \"\");
}
SendClientMessageToAll(ZOLD,\"Egy admin megtisztitotta a Chat-et!!\");
return 1;
}

instant · « **Válasz #6 Dátum:** 2012. június 16. - 19:40:30 »

oké, adminst mindennap teszteltem xd

Flash · « **Válasz #7 Dátum:** 2012. június 16. - 19:50:10 »

Idézetet írta: Sramm date=1339863264\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22931\" data-ipsquote-contentclass=\"forums_Topic

#include zcmd
Amúgy jó

Min csodálkozol? Ez zcmd-vel van írva.

ZyZu. · « **Válasz #8 Dátum:** 2012. június 16. - 20:21:40 »

Idézetet írta: Flash date=1339869010\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22931\" data-ipsquote-contentclass=\"forums_Topic

#include zcmd
Amúgy jó
Min csodálkozol? Ez zcmd-vel van írva.

[/quote]
Nem azon csondálkozik, szerintem azon, hogy nincsenek ott a < > -jelek. De úgy is megyen..! Jó lett ZzzzzZ

instant · « **Válasz #9 Dátum:** 2012. június 16. - 21:52:14 »

Köszönöm

JBauer · « **Válasz #10 Dátum:** 2012. június 16. - 22:41:27 »

Szép lett! Egyébként hasonló a kód tagolási stílusunk, én is mindig így csinálom

(tabulátorral nem foglalkozok)

instant · « **Válasz #11 Dátum:** 2012. június 17. - 08:35:39 »

Köszönöm , ez az elsõ komolyabb PVaros filterscriptem..
Ha bugokat észleltek kérem jelezzétek

Dead · « **Válasz #12 Dátum:** 2012. június 17. - 10:07:32 »

Idézetet írta: ZyZu date=1339870900\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"22931\" data-ipsquote-contentclass=\"forums_Topic

#include zcmd
Amúgy jó
Min csodálkozol? Ez zcmd-vel van írva.

[/quote]
Nem azon csondálkozik, szerintem azon, hogy nincsenek ott a < > -jelek. De úgy is megyen..! Jó lett ZzzzzZ

[/quote]
< > csak kiegészítõ, semmi nem történik, ha nem teszed oda
Nagyon szép munka! Grat +

TengeriMalac · « **Válasz #13 Dátum:** 2012. június 17. - 10:14:17 »

vips parancsnál minden VIP elé kiírja, hogy \'____]Online V.I.P Tagok [_____\'
Megoldás:

Tedd ezt az üzenetet a ciklus elé, hogy ne minden játékosnál írja ki megint
Vagy írd át úgy, mint az admins parancsot

instant · « **Válasz #14 Dátum:** 2012. június 17. - 10:19:38 »

Rendben , Köszönöm Tengerimalac
Dead: Kösz