[Pamoka]Login,Register,Admin sistema

[HamaSs]

veiki.

Šitas Dalykas Yra Galima Sakyti Skirtas NE GRP,Ir Jų Editams,Čia Jai kuriate Savo Serveri

Šiandien Parodysiu Kaip Sukurti šiokia Tokia login ,register ir admin sistema

Na Ka Pradedam

1. Sukuriam Enum

Kur Nors Viršuja Dedame :

KODAS:

new file[128];

enum inf

{

bool:pLogged,

Admin,

};

new playerInfo[MAX_PLAYERS][inf];

2.Po public OnPlayerConnect(playerid)

KODAS:

playerInfo[playerid][pLogged] = false;

playerInfo[playerid][Admin] = false;

o Po i public OnPlayerDisconnect(playerid, reason)

KODAS:

SavePlayer(playerid);

playerInfo[playerid][pLogged] = false;

playerInfo[playerid][Admin] = false;

3.Sukuriame Login komanda ,Naudoju zcmd

Pačiam Gamemod gale dedame:

Ši Komanda Tam Kad Galimėtute Prisijungti

KODAS:

CMD:login(playerid, params[])

{

new pName[20];

GetPlayerName(playerid, pName, 20);

if(!playerInfo[playerid][pLogged])

{

new password[128];

if(sscanf(params, "s", password)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /login kodas");

format(file, sizeof(file), "/%s.ini", pName);

if(dini_Exists(file))

{

if(strval(dini_Get(file, "Password")) == udb_hash(password))

{

GivePlayerMoney(playerid, dini_Int(file, "Money"));

SetPlayerScore(playerid, dini_Int(file, "Score"));

playerInfo[playerid][Admin] = dini_Int(file, "Admin");

playerInfo[playerid][pLogged] = true;

SendClientMessage(playerid, 0xFF00FF00, "Prisijungei!");

} else SendClientMessage(playerid, 0xFF0000AA, "Blogas slaptažodis!");

} else SendClientMessage(playerid, 0xFF0000AA, "Šis slapyvardis nėra registruotas!");

} else SendClientMessage(playerid, 0xFF0000AA, "Tu jau prisijungęs!");

return 1;

}

4. Register Komanda

Po Komanda Login Dėkite

Tam Kad Galimėtumete užsiregistuoti

KODAS:

CMD:register(playerid, params[])

{

new pName[20];

GetPlayerName(playerid, pName, 20);

if(!playerInfo[playerid][pLogged])

{

new password[128];

if(sscanf(params, "s", password)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /register kodas");

format(file, sizeof(file), "/%s.ini", pName);

if(!dini_Exists(file))

{

dini_Create(file);

dini_IntSet(file, "Password", udb_hash(password));

dini_IntSet(file, "Money", GetPlayerMoney(playerid));

dini_IntSet(file, "Admin", 0);

dini_IntSet(file, "Score", GetPlayerScore(playerid));

SendClientMessage(playerid, 0xFF00FF00, "Sėkmingai prisiregistravai! Dabar prisijunk: /login kodas");

} else SendClientMessage(playerid, 0xFF0000AA, "Šis slapyvardis jau yra užregistruotas!");

} else SendClientMessage(playerid, 0xFF0000AA, "Tu jau esi prisijungęs!");

return 1;

}

5. Dabar teliko sukurti 2 pagrindines admin komandas

Šitie Dalykai Skirti Administratoriams Prižiurėti Serveri ir t.t

KODAS:

CMD:Ban(playerid, params[])

{

if(playerInfo[playerid][Admin] >= 1) return SendClientMessage(playerid, 0xFF0000AA, "Nežinoma komanda!");

new id, reason[128], str[128], aName[20], pName[20];

if(sscanf(params, "ud", id, reason)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /ban userID reason");

GetPlayerName(id, pName, 20);

GetPlayerName(playerid, aName, 20);

format(str, 128, "Tu buvai užbanintas admino: %s. Priezastis: %s", aName, reason);

SendClientMessage(id, 0xFF0000AA, str);

Ban(id);

format(str, 128, "Užbaninai zaideja: %s", pName);

SendClientMessage(playerid, 0xFF0000AA, str);

return 1;

}

CMD:kick(playerid, params[])

{

if(playerInfo[playerid][Admin] >= 1) return SendClientMessage(playerid, 0xFF0000AA, "Nežinoma komanda!");

new id, reason[128], str[128], aName[20], pName[20];

if(sscanf(params, "ud", id, reason)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /kick userID reason");

GetPlayerName(id, pName, 20);

GetPlayerName(playerid, aName, 20);

format(str, 128, "Tu buvai iskikintas admino: %s. Priezastis: %s", aName, reason);

SendClientMessage(id, 0xFF0000AA, str);

Kick(id);

format(str, 128, "Iskickinai zaideja: %s", pName);

SendClientMessage(playerid, 0xFF0000AA, str);

return 1;

}

Čia Pačiam Gale Dėkite

Šitas Dalykas Skirtas Tam kad Viskas Išsisaugotu

KODAS:

SavePlayer(playerid)

{

if(playerInfo[playerid][pLogged])

{

dini_IntSet(file, "Money", GetPlayerMoney(playerid));

dini_IntSet(file, "Score", GetPlayerScore(playerid));

dini_IntSet(file, "Admin", playerInfo[playerid][Admin]);

playerInfo[playerid][pLogged] = false;

}

return 1;

}

Ačiu už dėmesi

Jai Norite Adminui Pridėti Daugiau komandu :

KODAS:

if(playerInfo[playerid][Admin] >= 1) return SendClientMessage(playerid, 0xFF0000AA, "Nežinoma komanda!");

Lukysimo

Admin

Sveiki.

Šitas Dalykas Yra Galima Sakyti Skirtas NE GRP,Ir Jų Editams,Čia Jai kuriate Savo Serveri

Šiandien Parodysiu Kaip Sukurti šiokia Tokia login ,register ir admin sistema

Na Ka Pradedam

1. Sukuriam Enum

Kur Nors Viršuja Dedame :

KODAS:

new file[128];

enum inf

{

bool:pLogged,

Admin,

};

new playerInfo[MAX_PLAYERS][inf];

2.Po public OnPlayerConnect(playerid)

KODAS:

playerInfo[playerid][pLogged] = false;

playerInfo[playerid][Admin] = false;

o Po i public OnPlayerDisconnect(playerid, reason)

KODAS:

SavePlayer(playerid);

playerInfo[playerid][pLogged] = false;

playerInfo[playerid][Admin] = false;

3.Sukuriame Login komanda ,Naudoju zcmd

Pačiam Gamemod gale dedame:

Ši Komanda Tam Kad Galimėtute Prisijungti

KODAS:

CMD:login(playerid, params[])

{

new pName[20];

GetPlayerName(playerid, pName, 20);

if(!playerInfo[playerid][pLogged])

{

new password[128];

if(sscanf(params, "s", password)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /login kodas");

format(file, sizeof(file), "/%s.ini", pName);

if(dini_Exists(file))

{

if(strval(dini_Get(file, "Password")) == udb_hash(password))

{

GivePlayerMoney(playerid, dini_Int(file, "Money"));

SetPlayerScore(playerid, dini_Int(file, "Score"));

playerInfo[playerid][Admin] = dini_Int(file, "Admin");

playerInfo[playerid][pLogged] = true;

SendClientMessage(playerid, 0xFF00FF00, "Prisijungei!");

} else SendClientMessage(playerid, 0xFF0000AA, "Blogas slaptažodis!");

} else SendClientMessage(playerid, 0xFF0000AA, "Šis slapyvardis nėra registruotas!");

} else SendClientMessage(playerid, 0xFF0000AA, "Tu jau prisijungęs!");

return 1;

}

4. Register Komanda

Po Komanda Login Dėkite

Tam Kad Galimėtumete užsiregistuoti

KODAS:

CMD:register(playerid, params[])

{

new pName[20];

GetPlayerName(playerid, pName, 20);

if(!playerInfo[playerid][pLogged])

{

new password[128];

if(sscanf(params, "s", password)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /register kodas");

format(file, sizeof(file), "/%s.ini", pName);

if(!dini_Exists(file))

{

dini_Create(file);

dini_IntSet(file, "Password", udb_hash(password));

dini_IntSet(file, "Money", GetPlayerMoney(playerid));

dini_IntSet(file, "Admin", 0);

dini_IntSet(file, "Score", GetPlayerScore(playerid));

SendClientMessage(playerid, 0xFF00FF00, "Sėkmingai prisiregistravai! Dabar prisijunk: /login kodas");

} else SendClientMessage(playerid, 0xFF0000AA, "Šis slapyvardis jau yra užregistruotas!");

} else SendClientMessage(playerid, 0xFF0000AA, "Tu jau esi prisijungęs!");

return 1;

}

5. Dabar teliko sukurti 2 pagrindines admin komandas

Šitie Dalykai Skirti Administratoriams Prižiurėti Serveri ir t.t

KODAS:

CMD:Ban(playerid, params[])

{

if(playerInfo[playerid][Admin] >= 1) return SendClientMessage(playerid, 0xFF0000AA, "Nežinoma komanda!");

new id, reason[128], str[128], aName[20], pName[20];

if(sscanf(params, "ud", id, reason)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /ban userID reason");

GetPlayerName(id, pName, 20);

GetPlayerName(playerid, aName, 20);

format(str, 128, "Tu buvai užbanintas admino: %s. Priezastis: %s", aName, reason);

SendClientMessage(id, 0xFF0000AA, str);

Ban(id);

format(str, 128, "Užbaninai zaideja: %s", pName);

SendClientMessage(playerid, 0xFF0000AA, str);

return 1;

}

CMD:kick(playerid, params[])

{

if(playerInfo[playerid][Admin] >= 1) return SendClientMessage(playerid, 0xFF0000AA, "Nežinoma komanda!");

new id, reason[128], str[128], aName[20], pName[20];

if(sscanf(params, "ud", id, reason)) return SendClientMessage(playerid, 0xFF0000AA, "Naudojimas: /kick userID reason");

GetPlayerName(id, pName, 20);

GetPlayerName(playerid, aName, 20);

format(str, 128, "Tu buvai iskikintas admino: %s. Priezastis: %s", aName, reason);

SendClientMessage(id, 0xFF0000AA, str);

Kick(id);

format(str, 128, "Iskickinai zaideja: %s", pName);

SendClientMessage(playerid, 0xFF0000AA, str);

return 1;

}

Čia Pačiam Gale Dėkite

Šitas Dalykas Skirtas Tam kad Viskas Išsisaugotu

KODAS:

SavePlayer(playerid)

{

if(playerInfo[playerid][pLogged])

{

dini_IntSet(file, "Money", GetPlayerMoney(playerid));

dini_IntSet(file, "Score", GetPlayerScore(playerid));

dini_IntSet(file, "Admin", playerInfo[playerid][Admin]);

playerInfo[playerid][pLogged] = false;

}

return 1;

}

Ačiu už dėmesi

Jai Norite Adminui Pridėti Daugiau komandu :

KODAS:

if(playerInfo[playerid][Admin] >= 1) return SendClientMessage(playerid, 0xFF0000AA, "Nežinoma komanda!");

Gera pamoka, bet man iskilo keleta erroru vienoi linijoi tuoi numesiu

C:\Users\Dima\Desktop\emptyGM\gamemodes\Untitled.pwn(73) : error 017: undefined symbol "playerInfo"

C:\Users\Dima\Desktop\emptyGM\gamemodes\Untitled.pwn(73) : warning 215: expression has no effect

C:\Users\Dima\Desktop\emptyGM\gamemodes\Untitled.pwn(73) : error 001: expected token: ";", but found "]"

C:\Users\Dima\Desktop\emptyGM\gamemodes\Untitled.pwn(73) : error 029: invalid expression, assumed zero

C:\Users\Dima\Desktop\emptyGM\gamemodes\Untitled.pwn(73) : fatal error 107: too many error messages on one line[code/]

Linija

playerInfo[playerid][pLogged] = false;

Similar topics

» Nuolaidų, grupinio apsipirkimo sistema Kartu.lt ir į ją panašios

» [Pamoka] Greitiname Kompiuteri

» [Pamoka] Molotovo Kokteilis

» [Pamoka] Kurmio Bomba

» PAMOKA:GOKU ssj4

SA-MP Pamokos Jums :: Serveriu kurimas :: Pamokos

Puslapis 1 iš 1

PERMISSIONS IN THIS FORUM:

[Mafiax]

Man neveikia admin komanda meta error kas gali but?