Zaključano

[Pomoc]komandu Ban

Započeo GesT

• pre 12 godina

743

pregleda

15

postova

Ova tema je zaključana. Samo moderatori i administratori mogu odgovarati.

GesT

Wheel Man

Postovi: 40

Teme: 7

Pridružio se: May 2012

pre 12 godina

#1

kako da napravim cmd ban ili da mi neko od vas napravi cmd ban ali [YCMD:ban]

Nadroj

Underboss

Postovi: 660

Teme: 110

Pridružio se: Nov 2012

pre 12 godina

#2

//------------------------------------------------------------------------------------------
	if(strcmp(cmd, "/ban", true) == 0)
	{
	    if(IsPlayerConnected(playerid))
	    {
	        new playersip;
	    	tmp = strtok(cmdtext, idx);
			if(!strlen(tmp))
			{
				SendClientMessage(playerid, COLOR_GRAD2, "Koriscenje: /ban [ID Igraca/Dio Imena] ");
				return 1;
			}
			giveplayerid = ReturnUser(tmp);
			if (PlayerInfo >= 1)
			{
			    if(IsPlayerConnected(giveplayerid))
			    {
					if(PlayerInfo >= 1338)
					{
						SendClientMessage(playerid, COLOR_WHITE, "("COL_RED"CL{FFFFFF}!) Pokusaj BANA Admina veceg levela nije uspjelo!");
						return 1;
					}
			        if(giveplayerid != INVALID_PLAYER_ID)
			        {
					    GetPlayerName(giveplayerid, giveplayer, sizeof(giveplayer));
						GetPlayerName(playerid, sendername, sizeof(sendername));
						GetPlayerIp(giveplayerid,playersip,sizeof(playersip));
						new length = strlen(cmdtext);
						while ((idx < length) && (cmdtext <= ' '))
						{
							idx++;
						}
						new offset = idx;
						new result;
						while ((idx < length) && ((idx - offset) < (sizeof(result) - 1)))
						{
							result[idx - offset] = cmdtext;
							idx++;
						}
						result[idx - offset] = EOS;
						if(!strlen(result))
						{
							SendClientMessage(playerid, COLOR_GRAD2, "Koriscenje: /ban [ID Igraca/Dio Imena] ");
							return 1;
						}
						new y, m, d;
						new h,mi,s;
						getdate(y,m,d);
						gettime(h,mi,s);
						SendClientMessage(giveplayerid,COLOR_NICERED, "____________________________________________________________________________________");
						SendClientMessage(giveplayerid,COLOR_LIGHTRED, "ISKLJUCENI STE SA SERVERA(Banani)!Pazljivo procitajte text!");
						format(string,sizeof(string), "%s (ID: %d) je iskljucen (Banan) sa servera od %s",giveplayer, giveplayerid, sendername);
						SendClientMessage(giveplayerid, COLOR_NICERED, string);
						BanLog(string);
						format(string,sizeof(string), "Razlog iskljucenja: %s ", (result));
						SendClientMessage(giveplayerid, COLOR_NICERED, string);
						BanLog(string);
						format(string,sizeof(string), "Datum i vrijeme bana: Dana: %d/%d/%d, Sati: %d:%d:%d | Vasa IP Adresa je: %s ",d,m,y,h,mi,s, playersip);
						SendClientMessage(giveplayerid, COLOR_WHITE, string);
						SendClientMessage(giveplayerid,COLOR_WHITE, "Sa ovim banom, vas korisnicki racun je suspendiran na neograniceno!");
						SendClientMessage(giveplayerid,COLOR_ORANGE, "Ukoliko mislis da je doslo do greske slikaj ovo(f8) i zatrazi unban na forumu!");
						SendClientMessage(giveplayerid,COLOR_NICERED, "____________________________________________________________________________________");
						format(string, sizeof(string), "Ban | {FFFFFF}%s | Admin: %s | Razlog: "COL_RED"%s {FFFFFF}(Dana: %d/%d/%d | Sati: %d:%d:%d)", giveplayer, sendername, (result),d,m,y,h,mi,s);
						ABroadCast(NICERED,string,1);
						format(string, sizeof(string), "Ban | {FFFFFF}%s | {F81414}Admin: {FFFFFF}%s", giveplayer, sendername);
						SendClientMessageToAll(NICERED, string);
						PlayerInfo = 1;
						Ban(giveplayerid);
						return 1;
					}
				}//not connected
			}
			else
			{
				format(string, sizeof(string), "  %d nije aktivan igrac.", giveplayerid);
				SendClientMessage(playerid, COLOR_GRAD1, string);
			}
		}
		return 1;
	}

ovih komandi imas milion... ja sam ovu uzeo sa kgb

Drobnjak

Crime Lord

Postovi: 934

Teme: 102

Pridružio se: Aug 2012

pre 12 godina

#3

gviab wrote on May 27, 2013, 1:44 pm:

//------------------------------------------------------------------------------------------
	if(strcmp(cmd, "/ban", true) == 0)
	{
	    if(IsPlayerConnected(playerid))
	    {
	        new playersip;
	    	tmp = strtok(cmdtext, idx);
			if(!strlen(tmp))
			{
				SendClientMessage(playerid, COLOR_GRAD2, "Koriscenje: /ban [ID Igraca/Dio Imena] ");
				return 1;
			}
			giveplayerid = ReturnUser(tmp);
			if (PlayerInfo >= 1)
			{
			    if(IsPlayerConnected(giveplayerid))
			    {
					if(PlayerInfo >= 1338)
					{
						SendClientMessage(playerid, COLOR_WHITE, "("COL_RED"CL{FFFFFF}!) Pokusaj BANA Admina veceg levela nije uspjelo!");
						return 1;
					}
			        if(giveplayerid != INVALID_PLAYER_ID)
			        {
					    GetPlayerName(giveplayerid, giveplayer, sizeof(giveplayer));
						GetPlayerName(playerid, sendername, sizeof(sendername));
						GetPlayerIp(giveplayerid,playersip,sizeof(playersip));
						new length = strlen(cmdtext);
						while ((idx < length) && (cmdtext <= ' '))
						{
							idx++;
						}
						new offset = idx;
						new result;
						while ((idx < length) && ((idx - offset) < (sizeof(result) - 1)))
						{
							result[idx - offset] = cmdtext;
							idx++;
						}
						result[idx - offset] = EOS;
						if(!strlen(result))
						{
							SendClientMessage(playerid, COLOR_GRAD2, "Koriscenje: /ban [ID Igraca/Dio Imena] ");
							return 1;
						}
						new y, m, d;
						new h,mi,s;
						getdate(y,m,d);
						gettime(h,mi,s);
						SendClientMessage(giveplayerid,COLOR_NICERED, "____________________________________________________________________________________");
						SendClientMessage(giveplayerid,COLOR_LIGHTRED, "ISKLJUCENI STE SA SERVERA(Banani)!Pazljivo procitajte text!");
						format(string,sizeof(string), "%s (ID: %d) je iskljucen (Banan) sa servera od %s",giveplayer, giveplayerid, sendername);
						SendClientMessage(giveplayerid, COLOR_NICERED, string);
						BanLog(string);
						format(string,sizeof(string), "Razlog iskljucenja: %s ", (result));
						SendClientMessage(giveplayerid, COLOR_NICERED, string);
						BanLog(string);
						format(string,sizeof(string), "Datum i vrijeme bana: Dana: %d/%d/%d, Sati: %d:%d:%d | Vasa IP Adresa je: %s ",d,m,y,h,mi,s, playersip);
						SendClientMessage(giveplayerid, COLOR_WHITE, string);
						SendClientMessage(giveplayerid,COLOR_WHITE, "Sa ovim banom, vas korisnicki racun je suspendiran na neograniceno!");
						SendClientMessage(giveplayerid,COLOR_ORANGE, "Ukoliko mislis da je doslo do greske slikaj ovo(f8) i zatrazi unban na forumu!");
						SendClientMessage(giveplayerid,COLOR_NICERED, "____________________________________________________________________________________");
						format(string, sizeof(string), "Ban | {FFFFFF}%s | Admin: %s | Razlog: "COL_RED"%s {FFFFFF}(Dana: %d/%d/%d | Sati: %d:%d:%d)", giveplayer, sendername, (result),d,m,y,h,mi,s);
						ABroadCast(NICERED,string,1);
						format(string, sizeof(string), "Ban | {FFFFFF}%s | {F81414}Admin: {FFFFFF}%s", giveplayer, sendername);
						SendClientMessageToAll(NICERED, string);
						PlayerInfo = 1;
						Ban(giveplayerid);
						return 1;
					}
				}//not connected
			}
			else
			{
				format(string, sizeof(string), "  %d nije aktivan igrac.", giveplayerid);
				SendClientMessage(playerid, COLOR_GRAD1, string);
			}
		}
		return 1;
	}

ovih komandi imas milion... ja sam ovu uzeo sa kgb

YCMD:ban(playerid, params[], help)
{
        #pragma unused help
        new id,razlog,string;
		if(PlayerInfo == 0) return SCM(playerid,COL_GREY,"Nemate dovoljan admin level");
		if(sscanf(params,"us",id,razlog)) return SCM(playerid,COLOR_RED,"Uputstvo: "COL_WHITE"/ban [ID igraca/Deo Imena] ");
        if(id == INVALID_PLAYER_ID) return SCM(playerid,COLOR_RED,"Uputstvo: "COL_WHITE"Pogresan ID igraca");
	new
        pFile;

  format(pFile, 35, Ban_File, GetName(playerid));
    if(fexist(pFile)) return SCM(playerid,COLOR_RED,"Greska: "COL_WHITE"Igrac je vec banovan");
    new
    INI:UserFile = INI_Open(pFile);
    INI_WriteString(UserFile, "BanBy", GetName(playerid));
    INI_WriteString(UserFile, "Razlog", razlog);
    INI_Close(UserFile);
    format(string,128,"Admin "COL_WHITE"%s "COL_RED"je banovao "COL_WHITE"%s"COL_RED". Razlog: "COL_WHITE"%s",GetName(playerid),GetName(id),razlog);
    SendClientMessageToAll(COLOR_RED,string);
    Ban(id);
  return 1;
}
Sto se pravis pametan,kad je reko da oce YCDM a ne Strcmp?

Evo ti..

YCMD:ban(playerid, params[], help)
{
        #pragma unused help
        new id,razlog,string;
		if(PlayerInfo == 0) return SCM(playerid,COL_GREY,"Nemate dovoljan admin level");
		if(sscanf(params,"us",id,razlog)) return SCM(playerid,COLOR_RED,"Uputstvo: "COL_WHITE"/ban [ID igraca/Deo Imena] ");
        if(id == INVALID_PLAYER_ID) return SCM(playerid,COLOR_RED,"Uputstvo: "COL_WHITE"Pogresan ID igraca");
	new
        pFile;

  format(pFile, 35, Ban_File, GetName(playerid));
    if(fexist(pFile)) return SCM(playerid,COLOR_RED,"Greska: "COL_WHITE"Igrac je vec banovan");
    new
    INI:UserFile = INI_Open(pFile);
    INI_WriteString(UserFile, "BanBy", GetName(playerid));
    INI_WriteString(UserFile, "Razlog", razlog);
    INI_Close(UserFile);
    format(string,128,"Admin "COL_WHITE"%s "COL_RED"je banovao "COL_WHITE"%s"COL_RED". Razlog: "COL_WHITE"%s",GetName(playerid),GetName(id),razlog);
    SendClientMessageToAll(COLOR_RED,string);
    Ban(id);
  return 1;
}

Nadroj

Underboss

Postovi: 660

Teme: 110

Pridružio se: Nov 2012

pre 12 godina

#4

lol sry procitao sam samo "kako da napravim komandu ban"....

evo:

YCMD:ban(playerid, params[], help)
{
        #pragma unused help
        new id,razlog,string;
		if(PlayerInfo == 0) return SCM(playerid,COL_GREY,"Nemate dovoljan admin level");
		if(sscanf(params,"us",id,razlog)) return SCM(playerid,COLOR_RED,"Uputstvo: "COL_WHITE"/ban [ID igraca/Deo Imena] ");
        if(id == INVALID_PLAYER_ID) return SCM(playerid,COLOR_RED,"Uputstvo: "COL_WHITE"Pogresan ID igraca");
	new
        pFile;

  format(pFile, 35, Ban_File, GetName(playerid));
    if(fexist(pFile)) return SCM(playerid,COLOR_RED,"Greska: "COL_WHITE"Igrac je vec banovan");
    new
    INI:UserFile = INI_Open(pFile);
    INI_WriteString(UserFile, "BanBy", GetName(playerid));
    INI_WriteString(UserFile, "Razlog", razlog);
    INI_Close(UserFile);
    format(string,128,"Admin "COL_WHITE"%s "COL_RED"je banovao "COL_WHITE"%s"COL_RED". Razlog: "COL_WHITE"%s",GetName(playerid),GetName(id),razlog);
    SendClientMessageToAll(COLOR_RED,string);
    Ban(id);
  return 1;
}

Mislim da radi

Drobnjak

Crime Lord

Postovi: 934

Teme: 102

Pridružio se: Aug 2012

pre 12 godina

#5

Jesi to kopiro ono sto sam mu ja poslo majke ti? 😄

GesT

Wheel Man

Postovi: 40

Teme: 7

Pridružio se: May 2012

pre 12 godina

#6

ERORS

D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : error 001: expected token: "-string end-", but found "-identifier-"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : warning 215: expression has no effect
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : error 001: expected token: ";", but found "-string-"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : warning 215: expression has no effect
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : error 001: expected token: ";", but found ")"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : fatal error 107: too many error messages on one line

Compilation aborted.Pawn compiler 3.2.3664	 	 	Copyright (c) 1997-2006, ITB CompuPhase

4 Errors.

Nadroj

Underboss

Postovi: 660

Teme: 110

Pridružio se: Nov 2012

pre 12 godina

#7

lol sry nisam izlazio iz teme nego sam odma edit post sry.. uzeo sam ovu komandu odavde

http://balkan-samp.com/forum/index.php?topic=54527.0

Drobnjak

Crime Lord

Postovi: 934

Teme: 102

Pridružio se: Aug 2012

pre 12 godina

#8

gviab wrote on May 27, 2013, 2:01 pm:

lol sry nisam izlazio iz teme nego sam odma edit post sry.. uzeo sam ovu komandu odavde

http://balkan-samp.com/forum/index.php?topic=54527.0

Ma opusteno batice,odje smo svi da pomognemo jedni drugima 😛

GesT

Wheel Man

Postovi: 40

Teme: 7

Pridružio se: May 2012

pre 12 godina

#9

ERORS

D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : error 001: expected token: "-string end-", but found "-identifier-"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : warning 215: expression has no effect
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : error 001: expected token: ";", but found "-string-"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : warning 215: expression has no effect
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : error 001: expected token: ";", but found ")"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4300) : fatal error 107: too many error messages on one line

Compilation aborted.Pawn compiler 3.2.3664	 	 	Copyright (c) 1997-2006, ITB CompuPhase

4 Errors.

[GU:RP] Ivica

Crime Lord

Postovi: 926

Teme: 185

Pridružio se: Oct 2012

pre 12 godina

#10

postaj tu liniju 4300

Drobnjak

Crime Lord

Postovi: 934

Teme: 102

Pridružio se: Aug 2012

pre 12 godina

#11

Daj liniju 4300

GesT

Wheel Man

Postovi: 40

Teme: 7

Pridružio se: May 2012

pre 12 godina

#12

		if(sscanf(params,"us",id,razlog)) return SCM(playerid,CRVENA,"Uputstvo: "BELA"/ban [ID igraca/Deo Imena] ");

Drobnjak

Crime Lord

Postovi: 934

Teme: 102

Pridružio se: Aug 2012

pre 12 godina

#13

if(sscanf(params,"us",id,razlog)) return SendClientMessage(playerid, -1, " >> Koristi: /ban [id igraca] ");

Probaj tako i javi dal radi

GesT

Wheel Man

Postovi: 40

Teme: 7

Pridružio se: May 2012

pre 12 godina

#14

Nista opet

D:\Millenium RolePlay\gamemodes\VRP.pwn(1638) : warning 217: loose indentation
D:\Millenium RolePlay\gamemodes\VRP.pwn(1645) : warning 217: loose indentation
D:\Millenium RolePlay\gamemodes\VRP.pwn(2358) : warning 217: loose indentation
D:\Millenium RolePlay\gamemodes\VRP.pwn(2378) : warning 217: loose indentation
D:\Millenium RolePlay\gamemodes\VRP.pwn(4331) : error 001: expected token: "-string end-", but found "-identifier-"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4331) : warning 215: expression has no effect
D:\Millenium RolePlay\gamemodes\VRP.pwn(4331) : error 001: expected token: ";", but found "-string-"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4331) : warning 215: expression has no effect
D:\Millenium RolePlay\gamemodes\VRP.pwn(4331) : error 001: expected token: ";", but found ")"
D:\Millenium RolePlay\gamemodes\VRP.pwn(4331) : fatal error 107: too many error messages on one line

Compilation aborted.Pawn compiler 3.2.3664	 	 	Copyright (c) 1997-2006, ITB CompuPhase

4 Errors.

Drobnjak

Crime Lord

Postovi: 934

Teme: 102

Pridružio se: Aug 2012

pre 12 godina

#15

Sad nije na 4300,javi mi se na PM da to rijesimo

Morate biti prijavljeni da biste odgovorili na ovu temu.

Prijava

Balkan SA:MP je sada GTABLKN

Pretraga

[Pomoc]komandu Ban