Nome Conhecido: Famous
Contato MSN: famousrique@hotmail.com
Sua Especialidade: Scripter.
Quais São seus Conhecimentos: Pawno, Estudando Hacker.
Tem algum Projeto? Quais: Sim.
Fake Banimento.
Sistema VIP Completo ;D .
Sistema de Clan Terminando.. Completo. não está 100% Ainda mais está aew o Code.
Anti-Tags ao player connectar com um Tag indevido e Kickado Altomaticamente vcs podem adiquiri mais tags não desejaveis .. tbm pd coloca nicks deveis tags etc.
Qual Site Te Trouce ate aqui: www.google.com
Muito mais.. Sistema de Hopistal.. comprar Remedio Convenio com Pickup.. Orgs/Profissões , cmd /bloqueiaprivada não recebe /pm , /desbloqueiaprivado recebe /pm .. outros Cmds, Sistema de casa quando casa estiver a venda fica um Map Icon verde, quando está comprada fica map icon vermelho no mapa. (outros).
Esses outros EXCLUSIVEIS, eu não gostaria de compatilhar que esso para meu Gm [BCL] Em Breve 99% ;]
está aew espero que consiga Menber Elite.. quero Ajuda a Sky Cheat. e nois vlw.
Contato MSN: famousrique@hotmail.com
Sua Especialidade: Scripter.
Quais São seus Conhecimentos: Pawno, Estudando Hacker.
Tem algum Projeto? Quais: Sim.
Fake Banimento.
- Code:
if(strcmp(cmd, "/fakeban", true) == 0) {
new aname[MAX_PLAYER_NAME];
GetPlayerName(playerid, aname, MAX_PLAYER_NAME);
format(file, sizeof(file), PASTA_CONTAS, aname);
if(pAdmin[playerid] == 5){
new tmp[256];
new plid;
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, Vermelho, "Digite: /fakeban [id] [motivo]");
return 1;
}
plid = strval(tmp);
new pname[MAX_PLAYER_NAME];
GetPlayerName(plid, pname, MAX_PLAYER_NAME);
format(file2, sizeof(file2), PASTA_CONTAS, pname);
if(IsPlayerConnected(plid)){
new length = strlen(cmdtext);
while ((idx < length) && (cmdtext[idx] <= ' ')) {
idx++;
}
new offset = idx;
new result[64];
while ((idx < length) && ((idx - offset) < (sizeof(result) - 1))) {
result[idx - offset] = cmdtext[idx];
idx++;
}
result[idx - offset] = EOS;
if(!strlen(result))
{
SendClientMessage(playerid, Vermelho, "(ERRO) Você só pode fake banir com uma razão apropriada.");
}else{
format(string, sizeof(string), "Você fakebaniu o jogador %s.", pname);
SendClientMessage(playerid, tcadm, string);
SendClientMessage(plid, 0x80FF00AA, "Para rever seu ban, aperte F8 e tire um Screenshot.");
GameTextForPlayer(plid,"~r~banido", 2500, 3);
format(string, sizeof(string), "* O Administrador %s baniu o jogador: %s (Motivo: %s)", aname,pname,result);
SendClientMessageToAll(Vermelho, string);
format(string, sizeof(string), " %s (%d) saiu do server ( Kickado / Banido ).", pname,plid);
SendClientMessageToAll(0xA8A8A8AA, string);
SendClientMessage(plid, 0xDFDFDFAA, "Server closed the connection.");
}
}else{
format(string, sizeof(string), "(ERRO) ID %d não é valido!", plid);
SendClientMessage(playerid, Vermelho, string);
}
}
return 1;
}
Sistema VIP Completo ;D .
- Code:
if(strcmp(cmd, "/setarvip", true) == 0) {
if(!IsPlayerAdmin(playerid)) return 0;
new tmp[256];
new plid;
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, 0x008040AA, "(ERRO) Use: /setarvip [id].");
return 1;
}
plid = strval(tmp);
if(IsPlayerConnected(plid)){
new pname[MAX_PLAYER_NAME];
GetPlayerName(plid, pname, MAX_PLAYER_NAME);
format(file2, sizeof(file2), PASTA_CONTAS, pname);
DOF2_SetInt(file2, "VIP",1);
SpawnPlayer(plid);
SendClientMessage(playerid, 0x00FF00AA, "(INFO) VIP Setado com sucesso");
SendClientMessage(plid, 0x00FF00AA, "(INFO) Um admin setou VIP para você aproveite ;D. Use /cmdsvip , Para VER Seus Comandos Especiais!");
return 1;
}else{
SendClientMessage(playerid, Vermelho, "(ERRO) ID inválido");
return 1;
}
}
if(strcmp(cmd, "/tirarvip", true) == 0) {
if(!IsPlayerAdmin(playerid)) return 0;
new tmp[256];
new plid;
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, 0x008040AA, "(ERRO) Use: /tirarvip [id].");
return 1;
}
plid = strval(tmp);
if(IsPlayerConnected(plid)){
new pname[MAX_PLAYER_NAME];
GetPlayerName(plid, pname, MAX_PLAYER_NAME);
format(file2, sizeof(file2), PASTA_CONTAS, pname);
DOF2_SetInt(file2, "VIP",0);
SpawnPlayer(plid);
SendClientMessage(playerid, 0x00FF00AA, "(INFO) VIP Tirado com sucesso");
SendClientMessage(plid, 0x00FF00AA, "(INFO) Um admin tirou VIP de você ;( ");
return 1;
}else{
SendClientMessage(playerid, Vermelho, "(ERRO) ID inválido");
return 1;
}
}
if(strcmp("/cmdsvip", cmdtext, true, 10) == 0)
{
ShowPlayerDialog(playerid, credit, DIALOG_STYLE_MSGBOX, "Info VIP", "» Atenção: Seja um bom vip ou perdera ele!! \n» /coletev [ID] Colete Vip \n» /irv [ID] Para ir eim aulgum jogador \n» /armasvip -> Para pegar armas vip \n» /cnnv -> Para anunciar no meio da tela \n» /eusouviph -> asume ser vip homem \n» /eusouvipm -> asume ser vip mulher \n» /eusouvip -> asume ser vip TOP \n» /salvarposv -> Salva Sua Posiçao Atual\n»/irposv -> Vai Para A Posiçao Que Salvou\n» Em Breve Mais!, ", "OK", "SAIR");
return 1;
}
if(strcmp(cmdtext, "/armasvip", true) == 0) {
if(vip[playerid] == 0){
SendClientMessage(playerid, 0xFFFF00AA, "(ERRO) Você nao é um player VIP!");
return 1;
}
if(vip[playerid] == 1){
ResetPlayerWeapons(playerid);
GivePlayerWeapon(playerid, 9, 1);
GivePlayerWeapon(playerid, 18, 999999);
GivePlayerWeapon(playerid, 26, 999999);
GivePlayerWeapon(playerid, 28, 999999);
GivePlayerWeapon(playerid, 24, 999999);
GivePlayerWeapon(playerid, 31, 999999);
GivePlayerWeapon(playerid, 34, 999999);
}
return 1;
}
if(strcmp(cmd, "/irv", true) == 0) {
new aname[MAX_PLAYER_NAME];
GetPlayerName(playerid, aname, MAX_PLAYER_NAME);
format(file, sizeof(file), PASTA_CONTAS, aname);
if(vip[playerid] == 1){
new tmp[256];
new plid;
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, Vermelho, "(ERRO) Digite: /irv [id]");
return 1;
}
plid = strval(tmp);
if(IsPlayerConnected(plid)){
new interiordele;
interiordele = GetPlayerInterior(plid);
SetPlayerInterior(playerid, interiordele);
new Float:X, Float:Y, Float:Z;
GetPlayerPos(plid, X, Y, Z);
SetPlayerPos(playerid, X, Y, Z);
{
new VehicleID;
VehicleID = GetPlayerVehicleID(playerid);
SetVehiclePos(VehicleID,X+1,Y+1,Z);
PutPlayerInVehicle(playerid,VehicleID,0);
}
new pname[MAX_PLAYER_NAME];
GetPlayerName(plid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "[INFO]O player vip %s (%d) foi até sua posição!", aname,playerid);
SendClientMessage(plid,Amarelo, string);
return 1;
}else{
SendClientMessage(playerid, Vermelho, "(ERRO)ID inválido");
return 1;
}
}
}
if(strcmp(cmd, "/cnnv", true) == 0)
{
if(vip[playerid] == 0)
{
SendClientMessage(playerid, Vermelho, "(ERRO) Você nao é um player VIP!");
return 1;
}
if(vip[playerid] == 1)
{
new aname[MAX_PLAYER_NAME];
GetPlayerName(playerid, aname, MAX_PLAYER_NAME);
format(file, sizeof(file), PASTA_CONTAS, aname);
new tmp[256];
tmp = strtok(cmdtext, idx);
if (!strlen(tmp))
{
SendClientMessage(playerid, Vermelho, "Digite: /cnnv [texto]");
return 1;
}
if(PlayerInfo[playerid][Logged] == 1)
{
if(vip[playerid] == 1 || pAdmin[playerid] == 1 || pAdmin[playerid] == 2 || pAdmin[playerid] == 3 || pAdmin[playerid] == 4 || pAdmin[playerid] == 5)
{
format(string, sizeof(string), "~b~Vip:~y~%s~r~: ~w~%s", aname, tmp);
GameTextForAll(string, 5000, 3);
}
else
{
SendClientMessage(playerid, Vermelho, "(ERRO) Você não tem permissão para usar este comando!");
}
}
else
{
SendClientMessage(playerid, Vermelho, "(ERRO) Você tem que estar logado para usar este comando!");
}
return 1;
}
}
if(strcmp(cmdtext, "/eusouvip", true) == 0){
if(vip[playerid] == 0){
SendClientMessage(playerid, 0xFFFF00AA, "(ERRO) Você nao é um Player VIP!");
return 1;
}
if(vip[playerid] == 1){
new pname[MAX_PLAYER_NAME];
GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "Eu %s sou 'Vip do BCL (TOP)' então me chupa", pname);
SendClientMessageToAll(Amarelo, string);
return 1;
}
}
if(strcmp(cmdtext, "/eusouviph", true) == 0){
if(vip[playerid] == 0){
SendClientMessage(playerid, 0xFFFF00AA, "(ERRO) Você nao é um player VIP!");
return 1;
}
if(vip[playerid] == 1){
new pname[MAX_PLAYER_NAME];
GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "Eu %s sou 'VIP' então me chupa", pname);
SendClientMessageToAll(roxo, string);
return 1;
}
}
if(strcmp(cmdtext, "/eusouvipm", true) == 0){
if(vip[playerid] == 0){
SendClientMessage(playerid, 0xFFFF00AA, "(ERRO) Você nao é um player VIP!");
return 1;
}
if(vip[playerid] == 1){
new pname[MAX_PLAYER_NAME];
GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "Eu %s sou 'VIP' então Lambe", pname);
SendClientMessageToAll(roxo, string);
return 1;
}
}
if(strcmp(cmd,"/coletev", true)==0)
{
new aname[MAX_PLAYER_NAME];
GetPlayerName(playerid, aname, MAX_PLAYER_NAME);
format(file, sizeof(file), PASTA_CONTAS, aname);
if(vip[playerid] == 1){
new tmp[256];
new plid, colete;
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)){
SendClientMessage(playerid, Vermelho, "Digite: /coletev [id] [vida]");
return 1;
}
plid = strval(tmp);
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, Vermelho, "Digite: /coletev [id] [vida]");
return 1;
}
colete = strval(tmp);
if(colete < 0 || colete > 100)
{
SendClientMessage(playerid,Vermelho,"(ERRO) Quantidade inválida!");
return 1;
}
if(IsPlayerConnected(plid)){
SendClientMessage(playerid, Verde, "(INFO) Comando efetuado com sucesso!");
new pname[MAX_PLAYER_NAME];
GetPlayerName(plid, pname, MAX_PLAYER_NAME);
format(string, sizeof(string), "(INFO) %s (%d) alterou seu colete para: %d", aname,playerid,colete);
SendClientMessage(plid,tcadm, string);
SetPlayerArmour(plid,colete);
return 1;
}else{
SendClientMessage(playerid, Vermelho, "(ERRO) Jogador não conectado.");
return 1;
}
}
}
if(strcmp(cmdtext, "/vips", true) == 0){
SendClientMessage(playerid,0x008000AA,"=== Players VIP Online ===");
new Jogador[24];
new count = 0;
new msg[120];
for(new i=0; i<MAX_PLAYERS; i++){
if(IsPlayerConnected(i) && vip[i]){
GetPlayerName(i,Jogador,24);
format(msg,sizeof(msg),"» %s (ID: %d)", Jogador,i);
SendClientMessage(playerid, 0x0088CAAA, msg);
count++;
}
}
if(count == 0){
SendClientMessage(playerid, 0xFF0000AA, "(ERRO) Nenhum player VIP está online no momento!");
}
return 1;
}
Sistema de Clan Terminando.. Completo. não está 100% Ainda mais está aew o Code.
- Code:
if(!strcmp("/criarclan",cmdtext,true,strlen("/criarclan"))){
new comando[256],nomeclan[256];
sscanf(cmdtext,"ss",comando,nomeclan);
if(isnull(comando))return 1;
if(pAdmin[playerid] < 5)return MsgChat("Nao tem permissao");
if(isnull(nomeclan))return MsgChat("use /criarclan [nome-do-clan]");
new cll[256];
format(cll, sizeof cll,PASTA_CLANS,nomeclan);
DOF2_CreateFile(cll);
MsgFormat(cll,playerid,-1,"O Administrador %s criou um Novo Clan(%s)",GetName(playerid),nomeclan);
MsgChatAll(cll);
return 1;
}
if(!strcmp("/darliderclan",cmdtext,true,strlen("/darliderclan"))){
new comando[256],nomeclan[256],idxx;
sscanf(cmdtext,"ssu",comando,nomeclan,idxx);
if(isnull(comando))return 1;
if(pAdmin[playerid] < 5)return MsgChat("Nao tem permissao");
if(sscanf(cmdtext,"ssu",comando,nomeclan,idxx))return MsgChat("use /darliderclan [nome-do-clan] [id/ou nome do player]");
if(!IsPlayerConnected(idxx))return MsgChat("Erro player nao connectado");
new cll[256],cll2[256];
format(cll2,sizeof cll2,PASTA_CONTAS,GetName(idxx));
format(cll, sizeof cll,PASTA_CLANS,nomeclan);
if(!DOF2_FileExists(cll))return MsgChat("Erro, Clan Inexistente");
DOF2_SetString(cll2,"ClanID",nomeclan);
DOF2_SetInt(cll2,"LiderClan",1);
MsgFormat(cll,playerid,-1,"O Administrador %s colocou o Player %s no Clan %s",GetName(playerid),GetName(idxx),nomeclan);
MsgChatAll(cll);
return 1;
}
if(!strcmp("/tirarliderclan",cmdtext,true,strlen("/tirarliderclan"))){
new comando[256],nomeclan[256],idxx;
sscanf(cmdtext,"ssu",comando,nomeclan,idxx);
if(isnull(comando))return 1;
if(pAdmin[playerid] < 5)return MsgChat("Nao tem permissao");
if(sscanf(cmdtext,"ssu",comando,nomeclan,idxx))return MsgChat("use /tirarliderclan [nome-do-clan] [id/ou nome do player]");
if(!IsPlayerConnected(idxx))return MsgChat("Erro player nao connectado");
new cll[256],cll2[256];
format(cll2,sizeof cll2,PASTA_CONTAS,GetName(idxx));
format(cll, sizeof cll,PASTA_CLANS,nomeclan);
if(!DOF2_FileExists(cll))return MsgChat("Erro, Clan Inexistente");
DOF2_Unset(cll2,"ClanID");
DOF2_Unset(cll2,"LiderClan");
MsgFormat(cll,playerid,-1,"O Administrador %s colocou tirou Player %s no Clan %s",GetName(playerid),GetName(idxx),nomeclan);
MsgChatAll(cll);
return 1;
}
if(!strcmp("/delclan",cmdtext,true,strlen("/delclan"))){
new comando[256],nomeclan[256];
sscanf(cmdtext,"ss",comando,nomeclan);
if(isnull(comando))return 1;
if(pAdmin[playerid] < 5)return MsgChat("Nao tem permissao");
if(sscanf(cmdtext,"ss",comando,nomeclan))return MsgChat("use /delclan [nome-do-clan]");
new cll[256];
format(cll, sizeof cll,PASTA_CLANS,nomeclan);
if(!DOF2_FileExists(cll))return MsgChat("Erro, Clan Inexistente");
DOF2_RemoveFile(cll);
MsgFormat(cll,playerid,-1,"O Administrador %s deletou o Clan %s",GetName(playerid),nomeclan);
MsgChatAll(cll);
return 1;
}
if(!strcmp("/ajudaclan",cmdtext,true)){
MsgChat("/convidarclan [id], /expulsarclan [id]");
return 1;
}
if(!strcmp("/convidarclan",cmdtext,true,strlen("/convidarclan"))){
new cll2[256];
format(cll2,sizeof cll2,PASTA_CONTAS,GetName(playerid));
if(isnull(DOF2_GetString(cll2,"ClanID")))return MsgChat("Voce Nao e de nenhum clan");
new comando[256],nomeclan[256],idx;
sscanf(cmdtext,"su",comando,idx);
if(isnull(comando))return 1;
DOF2_SetString(cll2,"ClanID",nomeclan);
if(DOF2_GetInt(cll2,"LiderClan") == 0)return MsgChat("Nao tem permissao");
if(sscanf(cmdtext,"su",comando,idx))return MsgChat("use /convidarclan [nome-do-player ou id]");
new cll[256];
format(cll, sizeof cll,PASTA_CONTAS,GetName(idx));
if(!isnull(DOF2_GetString(cll,"ClanID")))return MsgChat("Esse Player Ja e de um clan");
DOF2_SetString(cll,"ClanID",DOF2_GetString(cll2,"ClanID"));
MsgFormat(cll,playerid,-1,"O Lider %s colocou %s no clan %s",GetName(playerid),GetName(idx),DOF2_GetString(cll2,"ClanID"));
MsgChatAll(cll);
return 1;
}
if(!strcmp("/expulsarclan",cmdtext,true,strlen("/expulsarclan"))){
new cll2[256];
format(cll2,sizeof cll2,PASTA_CONTAS,GetName(playerid));
if(isnull(DOF2_GetString(cll2,"ClanID")))return MsgChat("Voce Nao e de nenhum clan");
new comando[256],nomeclan[256],idx;
sscanf(cmdtext,"su",comando,idx);
if(isnull(comando))return 1;
format(cll2,sizeof cll2,PASTA_CONTAS,GetName(playerid));
DOF2_SetString(cll2,"ClanID",nomeclan);
if(DOF2_GetInt(cll2,"LiderClan") == 0)return MsgChat("Nao tem permissao");
if(sscanf(cmdtext,"su",comando,idx))return MsgChat("use /expulsarclan [nome-do-player ou id]");
if(!IsPlayerConnected(idx))return MsgChat("Jogador nao connectado");
new cll[256];
format(cll, sizeof cll,PASTA_CONTAS,GetName(idx));
if(strcmp(DOF2_GetString(cll,"ClanID"),DOF2_GetString(cll2,"ClanID")))return MsgChat("Esse Player nao e do seu um clan");
DOF2_Unset(cll,"ClanID");
DOF2_Unset(cll,"LiderClan");
new clan[256];
clan = DOF2_GetString(cll2,"ClanID");
MsgFormat(cll,playerid,-1,"O Lider %s tirou %s no clan %s",GetName(playerid),GetName(idx),clan);
MsgChatAll(cll);
return 1;
}
Anti-Tags ao player connectar com um Tag indevido e Kickado Altomaticamente vcs podem adiquiri mais tags não desejaveis .. tbm pd coloca nicks deveis tags etc.
- Code:
if(strfind(PlayerName(playerid), "[NRG]", false) != -1
|| strfind(PlayerName(playerid), "[BCR]", false) != -1
|| strfind(PlayerName(playerid), "[BTG]", false) != -1
|| strfind(PlayerName(playerid), "[BVR]", false) != -1
|| strfind(PlayerName(playerid), "[TSSA]", false) != -1
|| strfind(PlayerName(playerid), "[BCV]", false) != -1
|| strfind(PlayerName(playerid), "[BWE]", false) != -1
|| strfind(PlayerName(playerid), "[BSL]", false) != -1
|| strfind(PlayerName(playerid), "[BRE]", false) != -1
|| strfind(PlayerName(playerid), "[BLR]", false) != -1)
{
DOF2_SetInt(temp,"erro",DOF2_GetInt(temp,"erro","1") + 1);
SendClientMessage(playerid, Vermelho, "Você foi kickado. Motivo: Uso de nick indevido.");
ShowPlayerDialog(playerid, 500, DIALOG_STYLE_MSGBOX,"Security [BCL]", "Voce foi Kickado por usar TAG de outro server /nPor favor troque seu nick e entre novamente ", "Ok", "");
format(avisoadm,sizeof avisoadm,"%s %d Usou nick indevido",PlayerName(playerid),playerid);
DOF2_SetString(temp,"Nome",avisoadm);
SendClientMessageToAll(Vermelho,avisoadm);
Kick(playerid);
}
Qual Site Te Trouce ate aqui: www.google.com
Muito mais.. Sistema de Hopistal.. comprar Remedio Convenio com Pickup.. Orgs/Profissões , cmd /bloqueiaprivada não recebe /pm , /desbloqueiaprivado recebe /pm .. outros Cmds, Sistema de casa quando casa estiver a venda fica um Map Icon verde, quando está comprada fica map icon vermelho no mapa. (outros).
Esses outros EXCLUSIVEIS, eu não gostaria de compatilhar que esso para meu Gm [BCL] Em Breve 99% ;]
está aew espero que consiga Menber Elite.. quero Ajuda a Sky Cheat. e nois vlw.