Pamoka kaip sukurti admin lygiu ar pns.

[wiskis112]

Visu pirma susigalvokyte kaip vadinsis jūsų playerDB. Mano vadinsis medis

1.Einam i savo servo failus/gamemode/date/playerDB.txt atidarome

tada po bool visu kitu prirašome

bool:medis,

tada išsuagome

2.Atisdarome savo gm per pawno.

atsirandame:

}
if(!strcmp(cmdtext, "/skirtidyriku

ir prieš ta teskta dedame

//medis
 if(!strcmp(cmdtext, "/skirtimedis", true,10))
{
 if(playerDB[playerid][superadmin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
 new tname[MAX_PLAYER_NAME];
 strmid(tname,GetArgument(1, cmdtext, 0),0,MAX_PLAYER_NAME);
 if(!strcmp(tname,"0",true)){SendClientMessage(playerid, BLUE, "* Skirti medis: /skirtimedis [dalis nicko]"); return 1;}
 new tid = GetPlayeridMid(tname);
 if(tid==INVALID_PLAYER_ID)
 {
	 SendClientMessage(playerid,RED,"* Tokio zaidejo nera.");
	 return 1;
 }
 GetPlayerName(tid,tname,sizeof(tname));
 new mess[80],name[MAX_PLAYER_NAME];
 GetPlayerName(playerid,name,sizeof(name));
 playerDB[tid][medis] = true;
 format(mess,sizeof(mess),"* Sveikiname, jus paskirtas atlikti medzio nario pareigas.");
 SavePlayerData(tid, false);
 SendClientMessage(tid,RED,mess);
 format(mess,sizeof(mess),"* Paskyrete %s medziu.",tname);
 SendClientMessage(playerid,RED,mess);
 return 1;
}
if(!strcmp(cmdtext, "/nuimtimedis", true,10))
{
 if(playerDB[playerid][superadmin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
 new tname[MAX_PLAYER_NAME];
 strmid(tname,GetArgument(1, cmdtext, 0),0,MAX_PLAYER_NAME);
 if(!strcmp(tname,"0",true)){SendClientMessage(playerid, BLUE, "* Ismesti is medziu: /nuimtimedis [dalis nicko]"); return 1;}
 new tid = GetPlayeridMid(tname);
 if(tid==INVALID_PLAYER_ID)
 {
	 SendClientMessage(playerid,RED,"* Tokio zaidejo nera.");
	 return 1;
 }
 GetPlayerName(tid,tname,sizeof(tname));
 new mess[256],name[MAX_PLAYER_NAME];
 GetPlayerName(playerid,name,sizeof(name));
 playerDB[tid][medis] = false;
 format(mess,sizeof(mess),"* NETEKOTE MEDZIO STATUSO.");
 SavePlayerData(tid, false);
 SendClientMessage(tid,RED,mess);
 format(mess,sizeof(mess),"*Ismetete is %s Medziu",tname);
 SendClientMessage(playerid,RED,mess);
 return 1;
}

3.

atsirandame

 if(!strcmp(cmdtext, "/vip", true,4))

ir ten matome vip prisijungusiu skripta ir pries ta koda dedame

if(!strcmp(cmdtext, "/medis", true,3))
{
if(!cmdtext[3])
{
new zin[50] = "Prisijunge Medziai :";
 new name[MAX_PLAYER_NAME], x;
 for(new i = 0; i <MAX_PLAYERS; i++){
if(IsPlayerConnected(i) && playerDB[i][medis]){
 x++;
 GetPlayerName(i,name,MAX_PLAYER_NAME);
 format(zin,256,"%i. %s.",x,name);
 SendClientMessage(playerid,YELLOW,zin);
}
}
return 1;
}
new zin[128],name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,MAX_PLAYER_NAME);
format(zin,sizeof(zin),"%s Medziams: %s",name,cmdtext[5]);
for(new i = 0; i <MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i) && playerDB[i][medis])
{
SendClientMessage(i,YELLOW,zin);
}
}
SendClientMessage(playerid,YELLOW,zin);
return 1;
}

4. atsirandame

print("TrinamAcc");

ir ten matote tokiu kodu

playerDB[playerid][vip]=false;

ir apancion tarp tu kodu iterpkite

playerDB[playerid][medis]=false;

5.atsirandame

print("irasomDATA");

ir ten matote tokiu kodu

 dini_IntSet(file,"vip",playerDB[playerid][vip]);

ir ten tarp tu kodu iterkite

 dini_IntSet(file,"medis",playerDB[playerid][medis]);

6.

atsirandame

new exp = dini_Int(file,"Xp");

ir po situo dedame

 if(dini_Int(file,"Medis") == 1){playerDB[playerid][medis]=true;}

7. jei nori kad rasytu pasijungus sveikas medi ar pns.

tai po tokiu

 if(dini_Int(file,"Medis") == 1){playerDB[playerid][medis]=true;}

iterpkime

 else if(playerDB[playerid][medis])
{
 SendClientMessage(playerid,COLOR,"* Serveris: Sveikas medi, malonu vėl Tave matyti! tavo komandos /medisinfo:)");

o komandas kad veiktu tik medziam nariam manau visi mokat pasidaryti.

pagal sita galit ir admin lygiu pasidaryti:)

gal suprasit

čia daryta ant grp

Redaguota Liepos 13, 2013, nario wiskis112

[bebras]

"tada išsua

gome" kol supratau ka tai reiškia...

Tai kaip suprantu pamoka skirta išmokyti naudotis boolean kintamuoju....BAISU...Mano nuomone pamoka bevertė.

[Sulcas]

"tada išsua

gome" kol supratau ka tai reiškia...

Tai kaip suprantu pamoka skirta išmokyti naudotis boolean kintamuoju....BAISU...Mano nuomone pamoka bevertė.

tie medziai tai netinka

[microlabasas]

Šaunu,kad kažkas kelia pamokas.