Kép linkjei javítva
Sziasztok. Elhoztam az elsõ filterscriptemet a Ban rendszert. Bejelentkezés és Regisztráció rendszer AmF scriptje segítségével készült el.
Elkészítési idõ: kb 20 perc.
Készítõ: jakab49(én)
Képek:
http://kepfeltoltes.hu/view/140602/1353388246sa-mp-000_www.kepfeltoltes.hu_.pnghttp://kepfeltoltes.hu/view/140602/650745541sa-mp-001_www.kepfeltoltes.hu_.pnghttp://kepfeltoltes.hu/view/140602/391886462sa-mp-002_www.kepfeltoltes.hu_.pnghttp://kepfeltoltes.hu/view/140602/953320310sa-mp-003_www.kepfeltoltes.hu_.png
/* Codot írta: jakab49(én)
Elkészítési idõ: kb 20 perc
AmF regisztráció rendszerét felhasználtam, valamint pár stockot a Defensive modból*/
#include <a_samp>
#include <zcmd>
#include <sscanf2>
#include <dini>
#define FEHER -1
#define PIROS 0xff0000AA
#define VILAGOSKEK 0x00eaffAA
#define BORDO 0x691b1bAA
#define ZOLD 0x199400AA
new Belepve[MAX_PLAYERS];
new File[128];
new Jelszo[64];
new Probalkozas[MAX_PLAYERS];
enum pAdat
{
Admin,
Bannolva,
BannIndok[128],
Adta[MAX_PLAYER_NAME]
};
new pInfo[MAX_PLAYERS][pAdat];
public OnPlayerConnect(playerid)
{
format(File,sizeof(File),\"Felhasználók/%s.ini\",SimaNev(playerid));
if(!fexist(File))
{
Nulla(playerid);
Mentes(playerid);
new S[256];
format(S,sizeof(S),\"Üdv %s. \\nKérlek regisztrálj!\\nÍrj be egy tetszõleges jelszót!\",Nev(playerid));
ShowPlayerDialog(playerid,1,DIALOG_STYLE_INPUT,\"Regisztráció\",S,\"Rendben\",\"Mégse\");
}
else
{
new S[256];
format(S,sizeof(S),\"Üdv %s. \\nEz a felhasználó már regisztrálva van!\\nÍrd be a jelszavadat\",Nev(playerid));
ShowPlayerDialog(playerid,2,DIALOG_STYLE_PASSWORD,\"Bejelentkezés\",S,\"Rendben\",\"Mégsem\");
}
return 1;
}
public OnPlayerDisconnect(playerid, reason)
{
Mentes(playerid);
Nulla(playerid);
return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 1)
{
if(!response) Kick(playerid);
{
if(strlen(inputtext) == 0)
{
new S[256];
format(S,sizeof(S),\"Üdv %s. \\nKérlek regisztrálj!\\nÍrj be egy tetszõleges jelszót!\",Nev(playerid));
ShowPlayerDialog(playerid,1,DIALOG_STYLE_INPUT,\"Regisztráció\",S,\"Rendben\",\"Mégsem\");
return 0;
}
format(File,sizeof(File),\"Felhasználók/%s.ini\",SimaNev(playerid));
if(!fexist(File))
{
dini_Create(File);
dini_Set(File,\"Jelszo\",inputtext);
new S[256];
format(S,sizeof(S),\"Üdv %s. \\nEz a felhasználó már regisztrálva van!\\nÍrd be a jelszavadat\",Nev(playerid));
ShowPlayerDialog(playerid,2,DIALOG_STYLE_PASSWORD,\"Bejelentkezés\",S,\"Rendben\",\"Mégsem\");
}
}
}
if(dialogid == 2)
{
format(File,sizeof(File),\"Felhasználók/%s.ini\",SimaNev(playerid));
if(!response)
{
Kick(playerid);
}
format(Jelszo,sizeof(Jelszo),\"%s\",dini_Get(File,\"Jelszo\"));
if(Egyezik(inputtext, dini_Get(File, \"Jelszo\")))
{
if(dini_Exists(File)) { pInfo[playerid][bannolva] = dini_Int(File,\"Bann\"); }
if(pInfo[playerid][bannolva] == 0)
{
SendClientMessage(playerid,ZOLD,\"(( Sikeres bejelentkezés! ))\");
Belepve[playerid] = 1;
SpawnPlayer(playerid);
ResetPlayerMoney(playerid);
Betoltes(playerid);
MentesTimer[playerid] = SetTimerEx(\"Ment\",1800000,true,\"i\",playerid);
}
else
{
Betoltes(playerid);
new S[128],S2[128];
SendClientMessage(playerid,PIROS,\" Bannolva vagy a szerverrõl! Pontos okot megtalálod egy sorral lennebb! \");
format(S2,sizeof(S2),\"Ban Indok: %s\",pInfo[playerid][bannIndok]);
SendClientMessage(playerid,FEHER,S2);
format(S,sizeof(S),\"Ban-t Adta: %s\",pInfo[playerid][Adta]);
SendClientMessage(playerid,ZOLD,S);
Mentes(playerid);
UjKick(playerid);
}
}
else
{
Probalkozas[playerid] ++;
SendClientMessage(playerid,BORDO,\"(( Rossz jelszó! ))\");
if(Probalkozas[playerid] == 3)
{
SendClientMessage(playerid,ZOLD,\"(( Ha elfelejtetted a jelszavad, akkor írj a fórumra! ))\");
UjKick(playerid);
}
new S[256];
format(S,sizeof(S),\"Üdv %s. \\nEz a felhasználó már regisztrálva van!\\nÍrd be a jelszavadat\",Nev(playerid));
ShowPlayerDialog(playerid,2,DIALOG_STYLE_PASSWORD,\"Bejelentkezés\",S,\"Rendben\",\"Mégsem\");
}
}
return 1;
}
CMD:adminad(playerid,params[])
{
if(Belepve[playerid] == 1)
{
if(IsPlayerAdmin(playerid) || pInfo[playerid][Admin] >= 7)
{
new admin,S[128],id;
if(sscanf(params,\"ui\",id,admin)) return SendClientMessage(playerid,FEHER,\"(( Használat: /adminad [Név/ID] [AdminSzint] ))\");
if(admin >= 0 && admin <= 8)
{
format(S,sizeof(S),\"(( Kinevezted %d szintû adminná %s-t ))\",admin,Nev(id));
SendClientMessage(playerid,FEHER,S);
format(S,sizeof(S),\"(( %s kinevezett téged %d szintû adminná ))\",Nev(playerid),admin);
SendClientMessage(id,FEHER,S);
format(S,sizeof(S),\"(( %s kinevezte %s-t, %d szintû adminná ))\",Nev(playerid),Nev(id),admin);
printf(S);
pInfo[id][Admin] = admin;
}else SendClientMessage(playerid,PIROS,\"(( Az adminszintnek 0 és 8 között kell lennie! ))\");
}else SendClientMessage(playerid,PIROS,\"(( Nem vagy admin ))\");
}else SendClientMessage(playerid,PIROS,\"(( Nem vagy bejelentkezve! ))\");
return 1;
}
CMD:ban(playerid,params[])
{
if(Belepve[playerid] == 1)
{
if(pInfo[playerid][Admin] >= 2)
{
new id,indok[128];
if(sscanf(params,\"us\",Nev(playerid),indok)) return SendClientMessage(playerid,FEHER,\"(( Használat: /ban [Név/ID] [indok] ))\");
if(IsPlayerConnected(id))
{
new S[128];
format(S,sizeof(S),\"%s banolta %s-t. Indok: %s\",Nev(playerid),Nev(id),indok);
SendClientMessageToAll(BORDO,S);
format(S,sizeof(S),\"%s banolt téged!\\n Indok: %s\",Nev(playerid),indok);
ShowPlayerDialog(playerid,9999,DIALOG_STYLE_MSGBOX,\"Ban Info\",S,\"Rendben\",\"\");
pInfo[playerid][bannolva] = 1;
format(pInfo[playerid][bannIndok],sizeof(indok),\"%s\",indok);
format(pInfo[playerid][Adta],MAX_PLAYER_NAME,\"%s\",Nev(playerid));
Mentes(id);
UjKick(id);
}
}else SendClientMessage(playerid,PIROS,\"(( Nincs kellõ adminszinted! ))\");
}else SendClientMessage(playerid,PIROS,\"(( Nem vagy bejelentkezve! ))\");
return 1;
}
stock Nev(playerid)
{
new Role_Play_Name[MAX_PLAYER_NAME];
GetPlayerName(playerid, Role_Play_Name, sizeof(Role_Play_Name));
for(new i = 0; i < MAX_PLAYER_NAME; i++)
{
if(Role_Play_Name == \'_\')
{
Role_Play_Name = \' \';
}
}
return Role_Play_Name;
}
stock SimaNev(playerid)
{
new Role_Play_Name[MAX_PLAYER_NAME];
GetPlayerName(playerid, Role_Play_Name, sizeof(Role_Play_Name));
return Role_Play_Name;
}
stock Mentes(playerid)
{
format(File,sizeof(File),\"Felhasználók/%s.ini\",SimaNev(playerid));
if(dini_Exists(File))
{
dini_IntSet(File,\"Admin\",pInfo[playerid][Admin]);
dini_IntSet(File,\"Bann\",pInfo[playerid][bannolva]);
dini_Set(File,\"BannIndok\",pInfo[playerid][bannIndok]);
dini_Set(File,\"Adta\",pInfo[playerid][Adta]);
}
}
stock Betoltes(playerid)
{
format(File,sizeof(File),\"Felhasználók/%s.ini\",SimaNev(playerid));
if(dini_Exists(File))
{
pInfo[playerid][Admin] = dini_Int(File,\"Admin\");
pInfo[playerid][bannolva] = dini_Int(File,\"Bann\");
format(pInfo[playerid][bannIndok],128,\"%s\",dini_Get(File,\"BannIndok\"));
format(pInfo[playerid][Adta],MAX_PLAYER_NAME,\"%s\",dini_Get(File,\"Adta\"));
}
}
stock Nulla(playerid)
{
pInfo[playerid][Admin] = 0;
pInfo[playerid][bannolva] = 0;
pInfo[playerid][bannIndok] = 0;
pInfo[playerid][Adta] = 0;
Belepve[playerid] = 0;
}
stock UjKick(playerid)
{
SetTimerEx(\"Kirugas\",1000,false,\"u\",playerid);
}
public Kirugas(playerid)
{
Kick(playerid);
}
Köszi hogy megnézted. Elsõ scriptem amit kodként publikálok, mivel saját modomba irtam bele amit nem rég kezdtem el.
Csak nekem miniatûrek a képek ?
Egyébként, GG ! Így tovább !
[gmod]Ha már képet raksz ki állítsd be a nagyságot :D. Nincs mindenkinél nagyító :)[/gmod]
Amint hazamentem javitom a kepek meretet
Dupla hozzászólás automatikusan összefûzve. ( 2014. június 03. - 06:00:54 )
RTM[Mate\" post=499637\" timestamp=\"1401741523]
Csak nekem miniatûrek a képek ?
Egyébként, GG ! Így tovább !
[/quote]
Koszi :)
Jó lett!
Jó lett!
Köszi
Szia!
Hát...Ha ez tényleg az elsõ akkor élég jó a teljesítmény....
Adok neked rá egy + t és további sikereket kívánok :)
Szia!
Hát...Ha ez tényleg az elsõ akkor élég jó a teljesítmény....
Adok neked rá egy + t és további sikereket kívánok :)
Igen az elsõ. És köszi szépen
Hallod (Látod ez esetbe ) ha ezzel Kezded akkor milyen lesz a te Proo leszel?
Nagyon jó lett Grat!
:thumbsup: :D :D
Dupla hozzászólás automatikusan összefûzve. ( 2014. június 23. - 00:50:26 )
Hallod (Látod ez esetbe ) ha ezzel Kezded akkor milyen leszel akkor mikor már tudni fogsz Scriptelni?
Nagyon jó lett Grat!
:thumbsup: :D :D
Köszönöm szépen :)
Ment a +!
Jó, jó. De már sok ilyen van itt a fórumon.
![http://kepfeltoltes.hu/view/140602/1353388246sa-mp-000_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/view/140602/1353388246sa-mp-000_www.kepfeltoltes.hu_.png\"){kind=link}
![http://kepfeltoltes.hu/view/140602/650745541sa-mp-001_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/view/140602/650745541sa-mp-001_www.kepfeltoltes.hu_.png\"){kind=link}
![http://kepfeltoltes.hu/view/140602/391886462sa-mp-002_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/view/140602/391886462sa-mp-002_www.kepfeltoltes.hu_.png\"){kind=link}
![http://kepfeltoltes.hu/view/140602/953320310sa-mp-003_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/view/140602/953320310sa-mp-003_www.kepfeltoltes.hu_.png\"){kind=link}