Mostrando postagens com marcador [zNx] Códigos. Mostrar todas as postagens
Mostrando postagens com marcador [zNx] Códigos. Mostrar todas as postagens

[Codigo] Bug Kick SA-MP 0.3x [Solução]

12 de jul. de 2013.
Bom, Basta colocar isso no GameMode e pronto, já vai estar tudo certo. Lembre-se, a definição no topo do GameMode e a CallBack no Fim.


Creditos: paulor



Codigo:
pawn Code:
#define Kick(%0) SetTimerEx("Kicka", 100, false, "i", %0) forward Kicka(p); public Kicka(p) {     #undef Kick     Kick(p);     #define Kick(%0) SetTimerEx("Kicka", 100, false, "i", %0)     return 1; }
Leia Mais

[Codigo] Sistema de Criação de Veiculos

11 de jul. de 2013.
Bom, Um mini sistema de veículos. Apos sair do veículo, 5 segundos depois é destruído.


Comando:
/Car - Para criação do veículo.

Includes:
ZCMD.
SSCANF.

Command Source:
pawn Code:
CMD:car(playerid, params [])     {         new             Id, Cor[2],             Float: x,   Float: y,             Float: z         ;                 if(Criou_carro[playerid] == 1) return SendClientMessage(playerid, 0xFFFFFFAA, "Você Já possui um Veículo.");         {             if(sscanf(params, "dii", Id, Cor[0], Cor[1]))             {                 SendClientMessage(playerid,-1,"Use: /Car [Id] [Cor] [Cor]");             }             else             {                 if(Id < 400 || Id > 611) return                 SendClientMessage(playerid, 0xFFFFFFAA, "ID do Veículo Inválido");                 if(Cor[0] < 0 || Cor[0] > 126) return                 SendClientMessage(playerid, 0xFFFFFFAA, "ID da 1ª Cor Inválido");                 if(Cor[1] < 0 || Cor[1] > 126) return                 SendClientMessage(playerid, 0xFFFFFFAA, "ID da 2ª Cor Inválido");                 GetPlayerPos(playerid, x, y, z);                 Carro[playerid] = CreateVehicle(Id, x, y, z, 0, Cor[0], Cor[1], false);                 PutPlayerInVehicle(playerid, Carro[playerid], 0);                 new                     Str[120]                 ;                 format(Str, sizeof(Str), "Você criou o veículo de ID: {00FFFF}%d {FFFFFF}Com as cores {00FFFF}%d {FFFFFF}e {00FFFF}%d", Id, Cor[0], Cor[1]);                 SendClientMessage(playerid, 0xFFFFFFAA, Str);                 Criou_carro[playerid] = 1;             }         }         return 1;     }

Esse callback é chamado quando um jogador muda de estado.
pawn Code:
public OnPlayerStateChange(playerid, newstate, oldstate) {     if(oldstate == PLAYER_STATE_DRIVER && newstate == PLAYER_STATE_ONFOOT)     {         SendClientMessage(playerid, 0xFFFFFFAA, "Você tem 5 Segundos para entrar no seu veículo Novamente");         SetTimerEx("Destroy", 5000, false, "i", playerid);     }     return 1; } forward Destroy(playerid); public Destroy(playerid) {     if(!IsPlayerInVehicle(playerid, Carro[playerid]))     {         SendClientMessage(playerid, 0xFFFFFFAA, "Seu Veículo foi destruido Automáticamente");         DestroyVehicle(Carro[playerid]);         Criou_carro[playerid] = 0;         return 1;     }     return 1; }

Variáveis declaradas:
As variáveis globais são previamente alocadas no arquivo compilado. )
pawn Code:
new Carro[MAX_PLAYERS]; new Criou_carro[MAX_PLAYERS];

Creditos:
Duun - Codigo
ZeeX - Zcmd
Y_Less - Sscanf

SA-MP Team
Leia Mais

[Codigo] Descobrir qual data

17 de jan. de 2013.
Descobrir qual data será somando dias ou meses ou anos.

Creditos: paulor

pawn Código:
stock GetData(gDia, gMes, gAno) {     new Dia, Mes, Ano, Str[24];     getdate(Ano, Mes, Dia);     new j, Float: f, Meses[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};     Dia += gDia, Mes += gMes, Ano += gAno;     for(;;) {         while(Mes > 12) {             f = (Mes / 12);             Mes %= 12, Ano += floatround(f, floatround_floor);         }         if(Dia > Meses[(Mes - 1)]) Dia -= Meses[(Mes - 1)], Mes++;         while(Mes > 12) {             f = (Mes / 12);             Mes %= 12, Ano += floatround(f, floatround_floor);         }         if((!(Ano % 4) && (Ano % 100) || !(Ano % 400)) && Ano != j) Dia++, j = Ano;         if(Dia <= Meses[(Mes - 1)] && Mes <= 12) break;     }     return format(Str, 24, "%02i/%02i/%04i", Dia, Mes, Ano), Str; }

Leia Mais

[Codigo] Random Cores Veiculo

9 de jan. de 2013.
Bom, ao entrar no veiculo algumas cores aleatórias ficara mudando, a cada 3 segundos.

pawn Code:
#include <a_samp> #define BK:%0(%1)           forward %0(%1);public %0(%1) BK:RandomcCarro(playerid) {     new vcor = random(4) , vh;     vh = GetPlayerVehicleID(playerid);     switch(vcor)     {         case 0: ChangeVehicleColor(vh, 1, 1);         case 1: ChangeVehicleColor(vh, 2, 2);         case 2: ChangeVehicleColor(vh, 3, 3);         case 3: ChangeVehicleColor(vh, 4, 4);     }     return 1; } public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger) {     SetTimerEx("RandomcCarro", 3000, 1, "i" , playerid);     return 1; }

Creditos: vCs_
Leia Mais

[Codigo] GetPVarStringEx

24 de dez. de 2012.

GetPVarStringEx

Esta função permite a você extrair o conteúdo de uma PVarString, o GetPVarString original necessita da criação de uma variável, então decidi criar esta função para facilitar o uso da mesma.

Native:
pawn Code:
native GetPVarStringEx(playerid,varname[]); /* playerid - ID do jogador; varname - nome da variável */
Código:
pawn Code:
GetPVarStringEx(playerid,varname[]){     static extraction[128];GetPVarString(playerid,varname,extraction,sizeof(extraction)); return extraction; }
Modo de uso:
pawn Code:
if (strcmp("/teste", cmdtext, true, 10) == 0) {     SetPVarString(playerid,"var_hello","hello ");     SetPVarString(playerid,"var_world","world");     printf("%s%s",GetPVarStringEx(playerid,"var_hello"),GetPVarStringEx(playerid,"var_world"));     return 1; }
Creditos: BlueX
Leia Mais

[COD] IFOORG TUT+COD

23 de dez. de 2012.
Para Todos Que Estao Criando 1 Gm RPG e Esta A Procura De um INFOORG Aqui Esta

Leia Mais

[COD] Equipar Com "F"


Data provided by Pastebin.com - Download Raw
  1. if ((newkeys==KEY_SECONDARY_ATTACK))//o nome do botão.
  2. {//1
  3. OnPlayerCommandText(playerid,"/entrar");//os comandos que serão usados quando for apertado F
  4. OnPlayerCommandText(playerid,"/sair");        //os comandos que serão usados quando for apertado F  
  5. OnPlayerCommandText(playerid,"/batercartao")//os comandos que serão usados quando for apertado F        
  6. OnPlayerCommandText(playerid,"/pegararma");//os comandos que serão usados quando for apertado F
  7. }//1
Leia Mais

[COD]Suicidio

Suicidio 
pawn Code: 


if(strcmp("/kill", cmd, true) == 0){SetPlayerHealth(playerid, 0);SendClientMessage(playerid,ADMINFS_MESSAGE_COLOR,"Voce Se Matou!");return 1;} 
Leia Mais

Codigo /Favela: ir a favela

pawn Code: 

//-------------------------------------------------------------------------if(strcmp("/favelatraficante", cmd, true) == 0){SendClientMessage(playerid,PM_OUTGOING_COLOR ,"/favelatraficante: para entrar ao trafico");SendClientMessage(playerid,PM_OUTGOING_COLOR ,"/favelapolicial: para entra na policia");return 1;}if(strcmp("/favelatraficante", cmd, true) == 0){SendClientMessage(playerid,PM_OUTGOING_COLOR ,"Bem Vindo a Favela");SetPlayerPos(playerid,2237.6868,-1079.4060,41.6102);SetPlayerSkin(playerid, 268);ResetPlayerWeapons(0);GivePlayerWeapon(playerid, 26, 9999);GivePlayerWeapon(playerid, 24, 9999);GivePlayerWeapon(playerid, 31, 9999);GivePlayerWeapon(playerid, 32, 9999);return 1;}//-------------------------------------------------------------------------if(strcmp("/favelapolicial", cmd, true) == 0){SendClientMessage(playerid,PM_OUTGOING_COLOR ,"Bem Vindo a Favela");SetPlayerPos(playerid,2237.6868,-1079.4060,41.6102);SetPlayerSkin(playerid, 281);ResetPlayerWeapons(0);GivePlayerWeapon(playerid, 26, 9999);GivePlayerWeapon(playerid, 24, 9999);GivePlayerWeapon(playerid, 31, 9999);GivePlayerWeapon(playerid, 32, 9999);return 1;}pawn Code://-------------------------------------------------------------------------if(strcmp("/favelatraficante", cmd, true) == 0){SendClientMessage(playerid,PM_OUTGOING_COLOR ,"/favelatraficante: para entrar ao trafico");SendClientMessage(playerid,PM_OUTGOING_COLOR ,"/favelapolicial: para entra na policia");return 1;}if(strcmp("/favelatraficante", cmd, true) == 0){SendClientMessage(playerid,PM_OUTGOING_COLOR ,"Bem Vindo a Favela");SetPlayerPos(playerid,2237.6868,-1079.4060,41.6102);SetPlayerSkin(playerid, 268);ResetPlayerWeapons(0);GivePlayerWeapon(playerid, 26, 9999);GivePlayerWeapon(playerid, 24, 9999);GivePlayerWeapon(playerid, 31, 9999);GivePlayerWeapon(playerid, 32, 9999);return 1;}//-------------------------------------------------------------------------if(strcmp("/favelapolicial", cmd, true) == 0){SendClientMessage(playerid,PM_OUTGOING_COLOR ,"Bem Vindo a Favela");SetPlayerPos(playerid,2237.6868,-1079.4060,41.6102);SetPlayerSkin(playerid, 281);ResetPlayerWeapons(0);GivePlayerWeapon(playerid, 26, 9999);GivePlayerWeapon(playerid, 24, 9999);GivePlayerWeapon(playerid, 31, 9999);GivePlayerWeapon(playerid, 32, 9999);return 1;} 
Leia Mais

Cod-Comando de Dorgas

pawn Code: 

if(strcmp(cmdtext, "/dorgas", true) == 0){SetPlayerWeather(playerid, 66);SetPlayerSkin(playerid, 264);SendClientMessage(playerid,0x7CFC00AA,"Você esta puxando uma erva. Para parar de se drogar use: /religioso");ApplyAnimation(playerid,"SMOKING","M_smklean_loop",4.1,1,1,1,1,1);SetPlayerDrunkLevel(playerid,50000);format(string, sizeof(string), " %s está puxando um baseado, cuidado pois ele está doidão! (/dorgas)", pName);SendClientMessageToAll(0xFFFF00AA, string);PlayerPlaySound(playerid, 1150, 0.0, 0.0, 0.0);return 1;}if(strcmp(cmdtext, "/religioso", true) == 0){SetPlayerWeather(playerid, 1);SetPlayerSkin(playerid, 228);SetPlayerDrunkLevel(playerid,0);SendClientMessage(playerid,0x7CFC00AA,"Você virou religioso. Para voltar ao mundo das drogas digite: /dorgas");PlayerPlaySound(playerid, 1150, 0.0, 0.0, 0.0);format(string, sizeof(string), " %s virou religioso e pregará a palavra de Deus! (/religioso)", pName);SendClientMessageToAll(0xFFFF00AA, string);return 1;} 
Leia Mais

Morrer ao roubar carro

Eficiente em server's de drift. 

pawn Code:public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger){SendClientMessage(playerid, 0xAA3333AA, "!!! Não roube carros ou morerá !!!");if(!ispassenger && IsVehicleOccupied(vehicleid)) SetPlayerHealth(playerid, 0.0);return 1;} 
Fim do Mode 
-------------------------------------------------------------------------------------------- 
pawn Code:stock IsVehicleOccupied(vehicleid){ for(new i = 0; i < MAX_PLAYERS; i++) if(IsPlayerInVehicle(i, vehicleid) && GetPlayerState(i) == PLAYER_STATE_DRIVER) return 1; return 0;} 
Leia Mais

COD- Limpando Chat


pawn Code:


if(strcmp(cmd, "/lc", true) == 0){for(new i = 0; i < 15; i++){SendClientMessageToAll(COLOR,"");}SendClientMessageToAll(COLOR,"[zNx] Chat Limpo!");}return 1;}
Leia Mais

Retornar a tela de seleção de skins samp

Pawn Code:

if(!strcmp(cmdtext, "/class", true)) {   ForceClassSelection(playerid);   SetPlayerHealth(playerid,0);   return 1; }
Leia Mais

[COD] Criando um Jetpack


if (strcmp(cmdtext, "/jetpack",true) == 0) //  Comando de criar o Jetpack
{
SetPlayerSpecialAction(playerid, 2); //  Cria o Jetpack
SendClientMessage(playerid, 0x63AFF00A, "Parabéns seu Jetpack foi criado com sucesso.");
return 1; 
}

Créditos: Douglas Lacerda
Leia Mais

[COD] Mudar Classe


if (strcmp(cmdtext,"/mudarclasse", true) == 0) //  Comando de Mudar Classe
{
ForceClassSelection(playerid); //  Vai para a seleção de classes ou seja de Skins
SendClientMessage(playerid, 0x63AFF00A, "Parabéns você está na seleção de classes escolha seu skin e clique em spawn.");
SetPlayerHealth(playerid, 0.00);  //  Seta a vida do Player para 0
return 1; 
}
Esse código e útil para servidores de Drift/DM/TDM/etc...

Créditos: Douglas Lacerda
Leia Mais

[COD] Anime Handsup

if(!strcmp("/handsup", cmdtext,true, 10)) // Comando de ficar de Handsup
{
 SendClientMessage(playerid, 0xFFFF00AA,"Você acaba de ficar com as mãos para cima na posição de abordagem.");
 SetPlayerSpecialAction(playerid, 10); // O Player fica com as mãos para cima

return 1;
}

Esse código e útil para servidores de RPG. 

Créditos: Douglas Lacerda
Leia Mais

Cod s_AntBot



Descrição:
Olá pessoal, posto hoje um simples sisteminha que criei ontem quando tava sem net -.-'.
É um simples Ant-Bot que irá comparar os nicks definidos na variavel NomesProibidos, com o nick do player, se for igual irá executar o que tiver entre chaves, no casoBan(playerid);
Peço que não tirem os créditos, obrigado.
Download:
pawn Code:
/*  *  Sistema Anti-Bot desenvolvido por [KoS]Shickcard  *  *  Descrição:  *  ~ Este sistema tem como principal função comparar o nome do player conectado,  *    com a variavel NomesProibidos, que é lá onde estã os nomes proibidos,  *    dai se o nome for igual Bane o jogador. Você pode adicionar mais nomes na variavel,  *    Basta apenas colocá-lo entre aspas e deixar o ultimo sem ponto e vírgula (;).  *  *  Versão:  *  1.0  *  *  Developer:  *  [KoS]Shickcard  *  *  Contato:  *  MSN » [email]shickcard@hotmail.com[/email]  *  Skype » shickcard  *  *  Agradecimentos: SA-MP Team  *  *  Site:  *  [url]www.dominiosamp.blogspot.com[/url]  *  *  The Initial Developer of the Original Code is Shickcard  *  Portions created by the Initial Developer are Copyright (C) 2010  *  the Initial Developer. All Rights Reserved.  *  *  SA:MP Team passado, presente e futuro.  */ #include <a_samp> #define DEVELOPER "[KoS]Shickcard" new NomesProibidos[][] = {     "con.","com1","com2","com3","com4","com5","com6","com7","com8","com9","lpt1","lpt2",     "lpt3","lpt4","lpt5","lpt6","lpt7","lpt8","lpt9","nul","clock$","aux","prn","con",     "Carl","Rocky","Pepe","Arnoldo","SgtPepper","Pepsi","Pepno","Azucar","Vino_Toro",     "Zoquete","Pacman","Batman","AquilesBrinco","Manfrey","Sopapeala","Papirola","Sony",     "[ViP]Labrik","Xbox13" }; public OnFilterScriptInit() {     print(" s_AntiBot » [KoS]Shickcard ");     return 1; } main() { } public OnPlayerConnect(playerid) {     new         Nome[ MAX_PLAYER_NAME ],         sIP[15],         sStr[128],         cStr[100],         hStr[50],         hostname     ;     GetPlayerName( playerid, Nome, sizeof( Nome ) );     GetPlayerIp( playerid, sIP, sizeof( sIP ) );     for( new i; i < sizeof(NomesProibidos); i++ )     {         if( strcmp( Nome, NomesProibidos[i], true ) )         {             Ban( playerid ); // Poderá por Kick para apenas kickar o BOT do servidor             format( sStr, sizeof(sStr), "[s_Anti-Bot] {FFFF00}Um bot tentou travar o servidor. {C9C9C9}Info: %s[ID:%i] IP: %f.", Nome, playerid, sIP);             SendClientMessageToAll( 0xE31919AA, sStr );         }     }     format(hStr, sizeof(hStr), "hostname %s", hostname);     SendRconCommand(hStr);     format(cStr, sizeof(cStr), "[s_Anti-Bot] %s usa o s_Anti-Bot do %s", hostname, DEVELOPER);     SendClientMessage(playerid, 0xFFFFFFAA, cStr);     return 1; } /*  *  Sistema Anti-Bot desenvolvido por [KoS]Shickcard  *  *  Descrição:  *  ~ Este sistema tem como principal função comparar o nome do player conectado,  *    com a variavel NomesProibidos, que é lá onde estã os nomes proibidos,  *    dai se o nome for igual Bane o jogador. Você pode adicionar mais nomes na variavel,  *    Basta apenas colocá-lo entre aspas e deixar o ultimo sem ponto e vírgula (;).  *  *  Versão:  *  1.0  *  *  Developer:  *  [KoS]Shickcard  *  *  Contato:  *  MSN » [email]shickcard@hotmail.com[/email]  *  Skype » shickcard  *  *  Agradecimentos: SA-MP Team  *  *  Site:  *  [url]www.kingsofsamp.com[/url]  *  *  The Initial Developer of the Original Code is Shickcard  *  Portions created by the Initial Developer are Copyright (C) 2010  *  the Initial Developer. All Rights Reserved.  *  *  SA:MP Team passado, presente e futuro.  */
Postador: Syen_V
Créditos:
[KoS]Shickcard
Leia Mais

VBan - Sistema de bans


VBan - Sistema de bans
__________________

Por: ViniBorn



Este trabalho pode ser postado em outros fórums/blogs desde que sejam mantidos os créditos.


Descrição : 

Com esta include é possível :
site- Banir jogadores por Nick
- Banir jogadores por ID
- Banir jogadores por IP
- Verificar informações de IP's ou contas banidas


Vantagens :

- Fácil utilização e implementação por parte dos scripters
- Fácil gerenciamento dos bans por parte dos administradores
- Se um nick banido entra no servidor, seu IP é banido automaticamente
- Se um IP banido entra no servidor, seu nick é banido automaticamente
- Ao desbanir um nick, o seu último IP detectado também é desbanido
- Ao desbanir um IP, o seu último nick detectado também é desbanido


Para utilizar copie o conteúdo postado no pastebin em um bloco de notas chamado VBan.inc ou baixe
o arquivo do 4shared e renomeie para VBan.inc

Feito isso, coloque esse mesmo arquivo na pasta pawno/include
E por último coloque isto no topo do GM
pawn Code:
#include <VBan>

Depois basta utilizar as funções de acordo com sua necessidade. 

Segue a lista com a explicação dos seus respectivos parâmetros:
pawn Code:
VBanID(playerid,giveid,motivo[]);  // Ban por ID //playerid = Administrador que efetuou o ban //giveid = Jogador que sofreu o ban //motivo = Motivo do ban ______________________________________________ VBanNick(playerid,nick[],motivo[]); // Ban por nick //playerid = Administrador que efetuou o ban //nick= Nick que sofreu o ban //motivo = Motivo do ban ______________________________________________ VBanIP(playerid,IP2[],motivo[]); // Ban por IP //playerid = Administrador que efetuou o ban //IP2= IP que sofreu o ban //motivo = Motivo do ban ______________________________________________ VUnBan(playerid,Arq[]); // Desbanimento //playerid = Administrador que efetuou o desban //Arq = Arquivo a ser desbanido.  Ex: "/bans/Vini_Born.ini" ______________________________________________ VBanCheck(playerid); // Checa se o jogador está banido ______________________________________________ VBanLoadInfo(playerid,Varq[]); // Exibe informações do ban //playerid = Jogador que verá as informações //Varq = Arquivo do qual as informações serão extraídas.  Ex: "/bans/Vini_Born.ini" ______________________________________________ //EXEMPLOS DE UTILIZAÇÃO if(strcmp(cmd, "/ban", true) == 0) {     new tmp[24];     tmp = strtok(cmdtext, idx);     if(!strlen(tmp))         return SendClientMessage(playerid, -1, "USO: Digite o nick");     new giveid = VBReturnUser(tmp);     tmp = strtok(cmdtext,idx);     if(!strlen(tmp))         return SendClientMessage(playerid, -1, "USO: Digite o motivo");     VBanID(playerid,giveid,tmp);             return 1; } if(strcmp(cmd, "/baninfo", true) == 0) {     new tmp[24],Vstring[32];     tmp = strtok(cmdtext, idx);     if(!strlen(tmp))         return SendClientMessage(playerid, -1, "USO: /baninfo[Nick/IP]");     format(Vstring,32,"/bans/%s.ini",tmp);     VBanLoadInfo(playerid,Vstring);     return 1; }


ScreenShot : 





Download: 

Pastebin - DOWNLOAD 
4shared - DOWNLOAD
 < Renomeie o arquivo para VBan.inc antes de usar
Leia Mais

[TuT,COD]-Nome Do Servidor Rondomico

5 de mai. de 2012.
Pastebin

Prints:

Leia Mais

Novo cmd para (Relatorio) = /querajuda

/querajuda [TEXTO]

E tipo relatório mas com cmd diferente 


Pastebin
Leia Mais