Peršokti į turinį
  • ŽAIDIMAI
  • , ŽAIDIMAI
  • ŽAIDIMAI

Nori pirkti ar parduoti SA:MP turtą? SPAUSK ČIA!

Keliata scriptu naujokams.

En2katas

Parašė En2katas
forume SA:MP Pamokos

 Pasidalinti

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 5083 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Recommended Posts

En2katas Užkietėjęs dalyvis (-ė)

En2katas

Sveiki šiandien parodysiu jums kelis scriptus pravers naujokams.

Admin komandos kitaip /akomandos su gui langu.

if(playerDB[playerid][admin]) //Admino komandos
  {
  if(!strcmp(cmdtext, "/akomandos", true))
     {
        ShowPlayerDialog(playerid, 3891, DIALOG_STYLE_MSGBOX,"*Adminu Komandos*", "/Mute [Laikas] - Uþmutina þaidëja\n/unmute - Atmutina þaidëja\n/Kick [V_P] - Iðkinckina þaidëja\n/Jail [Vardas] [Laikas] - Jailina þaidëja\n/Pzu [V_P] - Paþiuri þaidëja\n/Gydyti - Pasigydai\n/aginklai - Gauni Admin ginklus\n/Tpkalnas - nusiteleportuoji á kalna\n/To - atsiteleporyuoji pas þmogu\n/Get - Atgetini þaidëja su sutikimu", "Gerai", "");
        return 1;
     }

Nuotauka kaip atrodys /akomandos : http://www.part.lt/perziura/f089eb2b056 ... 4cb810.png

if(!strcmp(cmdtext, "/mute", true,5))
{
if(playerDB[playerid][admin] != 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, YELLOW, "* Užtildyti zaideja: /mute [dalis nicko]"); return 1;}
new tid = GetPlayeridMid(tname);
GetPlayerName(tid,tname,sizeof(tname));
if (playerDB[tid][savininkas]){ SendClientMessage(playerid, RED, "* Pagrindinius administratorius užtildyti negalima."); return 1;}

playerDB[tid][muted]=true;
SavePlayerData(tid,false);
SendClientMessage(tid, GREEN, "* Jusu zaidimas issaugotas.");
new mess[256],name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(mess,sizeof(mess),"* %s uztilde Jus.",name);
SendClientMessage(tid,GREEN,mess);
format(mess,sizeof(mess),"* Uztildete %s.",tname);
SendClientMessage(playerid,GREEN,mess);
return 1;
}

if(!strcmp(cmdtext, "/unmute", true,7))
{
if(playerDB[playerid][admin] != 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,GREEN, "* Atitildyti žaideja: /unmute [dalis nicko]"); return 1;}
new tid = GetPlayeridMid(tname);
GetPlayerName(tid,tname,sizeof(tname));
playerDB[tid][muted]=false;
SavePlayerData(tid,false);
SendClientMessage(tid, GREEN, "* Jusu zaidimas issaugotas.");
new mess[256],name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(mess,sizeof(mess),"* %s atitilde Jus.",name);
SendClientMessage(tid,GREEN,mess);
format(mess,sizeof(mess),"* Atitildete %s.",tname);
SendClientMessage(playerid,GREEN,mess);
return 1;
}

Su mute mes errora Muted kad jo nebūtų einate į data apklankala surandate playerDB ir ten įrašote Muted.

if(!strcmp(cmdtext, "/kick", true,5))
	{
	if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
			new vardas[MAX_PLAYER_NAME],prz[128];
		strmid(vardas,GetArgument(1, cmdtext,0),0,MAX_PLAYER_NAME);
		if(!strcmp(vardas, "0", true) ){SendClientMessage(playerid, BLUE, "Iðmesti þaideja: /kick [dalis vardo] [prieþastis]"); return 1;}
		new id = GetPlayeridMid(vardas);
		if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "* Tokio =aidejo nera"); return 1;}
		if (playerDB[id][admin]){ SendClientMessage(playerid, RED, "* Administratoriaus i?mesti negalima."); return 1;}

           strmid(prz,GetArgument(2, cmdtext,true),0,128);
		if(!strcmp(prz, "0", true) ){SendClientMessage(playerid, RED, "* Pamirðote nurodyti prieþasti."); return 1;}

           new msg[128],adminname[MAX_PLAYER_NAME];
    	GetPlayerName(id,vardas,sizeof(vardas));
    	GetPlayerName(playerid,adminname,sizeof(adminname));

         	format(msg,sizeof(msg),"[kick] %s",prz);
    	SendClientMessage(id,BLUE,msg);
		Kick(id);
    	format(msg,sizeof(msg),"[serveris] %s iðmete (Kick) %s ið serverio (%s).",adminname,vardas,prz);
		SendClientMessageToAll(BLUE,msg);
		return 1;
  }



if(!strcmp(cmdtext, "/jail", true,5))
	{
	if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
			new vardas[MAX_PLAYER_NAME],prz[128];
		strmid(vardas,GetArgument(1, cmdtext,0),0,MAX_PLAYER_NAME);
		if(!strcmp(vardas, "0", true) ){SendClientMessage(playerid, BLUE, "* Pasodinti Zaideja I Kalejima: {FF8C00}/Jail [Dalis_Vardo] [sekundes]"); return 1;}
		new id = GetPlayeridMid(vardas);
		if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "* Tokio Zaidejo Nera"); return 1;}
		if (playerDB[id][admin]){ SendClientMessage(playerid, BLUE, "* Administratoriaus Pasodinti Negalima."); return 1;}
		if (playerDB[id][ikalintas]) {SendClientMessage(playerid, RED, "* Zaidejas Kalejime."); return 1;}

           strmid(prz,GetArgument(2, cmdtext,true),0,128);
		if(!IsNumeric(prz)){SendClientMessage(playerid, RED, "* Laikas Nurodytas Neteisingai."); return 1;}
		new laikas = StringToInt(prz);


           new msg[128];
    	GetPlayerName(id,vardas,sizeof(vardas));
           JailPlayer(id,246.6488,1859.4182,14.0840,0,laikas*1000,0,-1608.1517,714.9713,12.5610,7.5367,0,true);
       	format(msg,sizeof(msg),"{FFAA33}[Kaleimas] {FFFFFF}Ikalinote {FF8C00}%s {FFAA33}(%is).",vardas,laikas);
       	SendClientMessage(id,RED, "{FFFFFF}Jus Ikalino {FF8C00}Administratorius");
		SendClientMessage(playerid,GREEN,msg);
		SetPlayerInterior(id,0);
		if(playerDB[id][vedelogin]){SavePlayerData(id,false);}
		return 1;
}

if(!strcmp(cmdtext, "/pzu", true,4))
	  {
	  if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
		if(GetPlayerState(playerid) == PLAYER_STATE_SPECTATING)
		{
      			TogglePlayerSpectating(playerid,false);

      			for(new slot=0; slot<12; slot++) GivePlayerWeapon(playerid,playerDB[playerid][spdata][slot],playerDB[playerid][spdata][12+slot]);
			SetPlayerSkin(playerid,playerDB[playerid][spdata][24]);
			SetPlayerPos(playerid,playerDB[playerid][spos][0],playerDB[playerid][spos][1],playerDB[playerid][spos][2]);
			SetPlayerWantedLevel(playerid,playerDB[playerid][spdata][25]);
			SetPlayerInterior(playerid,playerDB[playerid][spdata][26]);
			SetPlayerVirtualWorld(playerid,playerDB[playerid][spdata][27]);
			return 1;
		}

 	if(cmdtext[4]==0){SendClientMessage(playerid, COLOR, "* Priziureti zaideja: /pzu [dalis vardo]"); return 1;}
   		new vardas[MAX_PLAYER_NAME];
			strmid(vardas,cmdtext[5],0,MAX_PLAYER_NAME);
			new id = GetPlayeridMid(vardas);
			if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "* Tokio zaidejo nera"); return 1;}
			if (id == playerid){ SendClientMessage(playerid, RED, "* Save ir taip matote"); return 1;}
		new mess[256],rec[MAX_PLAYER_NAME];
		GetPlayerName(id,rec,sizeof(rec));
		format(mess,sizeof(mess),"***Priziurite %s!",rec);
		SendClientMessage(playerid,RED,mess);

		for(new slot=0; slot<12; slot++) GetPlayerWeaponData(playerid,slot,playerDB[playerid][spdata][slot],playerDB[playerid][spdata][12+slot]);
		playerDB[playerid][spdata][24]=GetPlayerSkin(playerid);
		GetPlayerPos(playerid,playerDB[playerid][spos][0],playerDB[playerid][spos][1],playerDB[playerid][spos][2]);
		playerDB[playerid][spdata][25]=GetPlayerWantedLevel(playerid);
		playerDB[playerid][spdata][26]=GetPlayerInterior(playerid);
		playerDB[playerid][spdata][27]=GetPlayerVirtualWorld(playerid);

		SetPlayerVirtualWorld(playerid,GetPlayerVirtualWorld(id));
		SetPlayerInterior(playerid,GetPlayerInterior(id));

		TogglePlayerSpectating(playerid,true);
		PlayerSpectatePlayer(playerid,id);

   		return 1;
   		}

	if(strcmp(cmdtext, "/gydyti", true)==0)
	{
	if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
		if(IsPlayerInAnyVehicle(playerid)) SetVehicleHealth(GetPlayerVehicleID(playerid),1000);
		SetPlayerHealth(playerid,100);
		SetPlayerArmour(playerid,100);
		SendClientMessage(playerid,RED,"* Pasigydete!");
		return 1;
	}

if(strcmp(cmdtext, "/aginklai", true)==0)
	{
	if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
		GivePlayerWeapon(playerid,31,400);
		SendClientMessage(playerid,RED,"* Gavote neribota skaiciu admin ginklu");
		return 1;
	}

if(strcmp(cmdtext, "/tpkalnas", true)==0)
{
if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
 new vehicleid = GetPlayerVehicleID(playerid);
 new State = GetPlayerState(playerid);
 if(IsPlayerInAnyVehicle(playerid) && State == PLAYER_STATE_DRIVER)
 {
   return SetVehiclePos(vehicleid,-2312.2212,-1640.7351,483.7031),
   GameTextForPlayer(playerid, "~w~Sekmingai persikelete :)", 5000, 5);
 }
 SetPlayerPos(playerid,-2312.2212,-1640.7351,483.7031);
 GameTextForPlayer(playerid, "~w~Sekmingai persikelete :)", 5000, 5);
return 1;
}

if(!strcmp(cmdtext, "/to", true,3))
	{
	if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
   		if(cmdtext[3]==0){SendClientMessage(playerid, BLUE, "* Keliauti pas (be masinos): /to [dalis vardo]"); return 1;}
   		new vardas[MAX_PLAYER_NAME];
			strmid(vardas,cmdtext[4],0,MAX_PLAYER_NAME);
			new id = GetPlayeridMid(vardas);
			if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "* Tokio zaidejo nera"); return 1;}
			if (GetPlayerVirtualWorld(id)>0){SendClientMessage(playerid, RED, "* Zaidejas savo namuose, isibrauti negrazu"); return 1;}
		SetPlayerInterior(playerid,GetPlayerInterior(id));
		new Float:tempcoo[3];
			GetPlayerPos(id,tempcoo[0],tempcoo[1],tempcoo[2]);
			SetPlayerPos(playerid,tempcoo[0],tempcoo[1],tempcoo[2]);
			SetCameraBehindPlayer(playerid);
   		return 1;
 		}

if(!strcmp(cmdtext, "//", true,2))
	{
	if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
   		if(cmdtext[2]==0){SendClientMessage(playerid, WHITE, "Administratoriaus chato ?inute: {FF0000}// {FF0000}tekstas"); return 1;}
   		new zin[128],vardas[MAX_PLAYER_NAME];
   		GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
   		format(zin,sizeof(zin),"[Admin Chat] %s: %s",vardas,cmdtext[3]);

   		for(new i=0;i				if(IsPlayerConnected(i))
				{
				if(playerDB[i][admin])
				{
					SendClientMessage(i,0xC0C0C0FF,zin);
				}
			}
		}
		return 1;
	}

if(!strcmp(cmdtext, "/get", true,4))
 {
 if(playerDB[playerid][admin] != true){SendClientMessage(playerid, RED, "* Tokios komandos nera!"); return 1;}
     if(cmdtext[4]==0){SendClientMessage(playerid, WHITE, "Atsiteleportuoti þaideja pas save: /get Dalis vardo"); return 1;}
     new vardas[MAX_PLAYER_NAME];
   strmid(vardas,cmdtext[5],0,MAX_PLAYER_NAME);
   new id = GetPlayeridMid(vardas);
  if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "Tokio þaidejo nera"); return 1;}
   if (playerDB[id][ikalintas]) {SendClientMessage(playerid, RED, "þaidejas kalejime"); return 1;}
   playerDB[id][rid][0]=playerid;
         GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
		new msg[128]; format(msg, sizeof(msg), "Zaidejas %s tau siulo buti perkeltam pas ji\nAr sutinki?",vardas);
		ShowPlayerDialog(id,1396,DIALOG_STYLE_MSGBOX,vardas , msg,"Sutikti","Nesutikti");
     return 1;
 }

Get yra su sutikimu norint sutiktu reikia pridėti dar viena scripta prie jo tai po public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[]) dedame

if(dialogid == 1396)
{
	if(response)
	{
		  new id = playerDB[playerid][rid][0];
 			  new vardas[MAX_PLAYER_NAME];
		  GetPlayerName(rid,vardas,sizeof(vardas));
			GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
		new msg[128]; format(msg,sizeof(msg), "Zaidejas %s sutiko buti perkeliamas.",vardas);
		SendClientMessage(id, GREEN, msg);
		new idas[MAX_PLAYER_NAME];
		GetPlayerName(id,idas,MAX_PLAYER_NAME);
		format(msg,sizeof(msg), "Buvai perkeltas pas zaideja %s",idas);
		SendClientMessage(playerid, GREEN, msg);

		 SetPlayerInterior(playerid,GetPlayerInterior(id));
           if(!IsPlayerInAnyVehicle(playerid)){
  new Float:tempcoo[3];
   GetPlayerPos(id,tempcoo[0],tempcoo[1],tempcoo[2]);
   SetPlayerPos(playerid,tempcoo[0],tempcoo[1],tempcoo[2]);
   SetCameraBehindPlayer(playerid);
   }
   new Float:tempcoh[3];
   GetPlayerPos(id,tempcoh[0],tempcoh[1],tempcoh[2]);
   new vehicleid = GetPlayerVehicleID(playerid);
   SetVehiclePos(vehicleid,tempcoh[0],tempcoh[1],tempcoh[2]);
	}
	else
	{
	new id = playerDB[playerid][rid][0];
	new vardas[MAX_PLAYER_NAME];
	GetPlayerName(playerid,vardas,MAX_PLAYER_NAME);
		new msg[128]; format(msg,sizeof(msg), "Zaidejas %s nesutiko buti perkeliamas.",vardas);
		SendClientMessage(id, RED, msg);
	}
}

 new Vardas[ MAX_PLAYER_NAME ];
           GetPlayerName( playerid, Vardas, MAX_PLAYER_NAME );
       if(!strcmp(cmdtext, "/s ", true,3)){
   		if(cmdtext[2]==0){SendClientMessage(playerid, COLOR, "* Naudojimas: /s [tekstas]"); return 1;}
   		new zin[256];
   		format(zin,sizeof(zin),"{4CC417}Admin %s :{5FFB17} %s",Vardas,cmdtext[3]);
   		SendClientMessageToAll(COLOR,zin);
   		return 1;
 }


 	}

Va baigta admin komandos jei reikes kokiu komandu rašytike šitoje temoje.

Dabar parodysiu AFK sistema jei busite 2 min afk jums tesiog išmes gui lentele.

Prie visu #define prirašome #define AFK_TIME 2 ir po public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[]) dedame

if(dialogid == 477)
  {
  if(!response) 
  {
  ShowPlayerDialog(playerid, 477, DIALOG_STYLE_MSGBOX,"AFK","Jus buvote AFK\nTesti žaidima?", "Taip","");
  }
  if(response) // Jeigu paspaude Teip
  {
}
}

Turėtu veikti pilnai.

Nereikia čia rašyti man nereikia ar pnš, aš sukuriau naujokams gal pravers, jei reikes dar kokiu scriptu rašykite pasistengti padaryti.

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 5083 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Svečias
Ši tema yra užrakinta.
 Pasidalinti
Eiti į

  • Šiame puslapyje naršo:   0 nariai

    • Nėra registruotų narių peržiūrinčių šį forumą.

Skelbimai


×
×
  • Sukurti naują...