SA-MP Forums Archive
Cуdigos Ъteis #1 - Printable Version

+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Português/Portuguese (https://sampforum.blast.hk/forumdisplay.php?fid=34)
+----- Forum: Lançamentos/Releases (https://sampforum.blast.hk/forumdisplay.php?fid=56)
+----- Thread: Cуdigos Ъteis #1 (/showthread.php?tid=144744)

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29


Re: Respuesta: Cуdigos Ъteis #1 - steki. - 16.10.2012

Nгo invalidou nada do que eu disse. rs


Respuesta: Cуdigos Ъteis #1 - ipsBruno - 16.10.2012

Quote:

Para a conversгo completa, deve ser usada floatround(valor, floatround_round).

Sу me diga, o que floatround tem have com _: ? Vocк sabe qual funзгo de ambos?

Eu estou falando de conversгo para inteiros usando a precisгo IEEE 754, nгo tem nada de floatround. Floatround nгo й preciso porque retira os decimais. Logo, vocк confundiu as coisas.

Lembrando que IEEE 754 nгo arredonda o nъmero decimal, mas sim converte em uma notaзгo diferente representando os nъmeros decimais com uma precisгo ъnica.

Veja os exemplos que eu dei alн acima e:
http://pt.wikipedia.org/wiki/IEEE_754


Re: Respuesta: Cуdigos Ъteis #1 - zSuYaNw - 17.10.2012

Quote:
Originally Posted by ipsBruno
View Post
Sу me diga, o que floatround tem have com _: ? Vocк sabe qual funзгo de ambos?

Eu estou falando de conversгo para inteiros usando a precisгo IEEE 754, nгo tem nada de floatround. Floatround nгo й preciso porque retira os decimais. Logo, vocк confundiu as coisas.

Lembrando que IEEE 754 nгo arredonda o nъmero decimal, mas sim converte em uma notaзгo diferente representando os nъmeros decimais com uma precisгo ъnica.

Veja os exemplos que eu dei alн acima e:
http://pt.wikipedia.org/wiki/IEEE_754
PHP Code:
_
tambem serve para tirar possiveis warnings.

Como imprimir um id de uma text draw.


Respuesta: Re: Respuesta: Cуdigos Ъteis #1 - ipsBruno - 17.10.2012

Quote:
Originally Posted by [Full]Garfield[XDB]
View Post
PHP Code:
_
tambem serve para tirar possiveis warnings.

Como imprimir um id de uma text draw.
Й questгo de tags (tipos de variбveis) isto aн. A minha conversa com Miki se refere a representaзгo que o nъmero decimal toma logo apуs _:.

Mas й vбlido tambйm


Re: Respuesta: Re: Respuesta: Cуdigos Ъteis #1 - zSuYaNw - 17.10.2012

Quote:
Originally Posted by ipsBruno
View Post
Й questгo de tags (tipos de variбveis) isto aн. A minha conversa com Miki se refere a representaзгo que o nъmero decimal toma logo apуs _:.

Mas й vбlido tambйm
Um belo exemplo:
PHP Code:
    static
        
TextmyText
    
;
    
    
myText TextDrawCreate(0.00.0#);
    
    
printf("%d"myText);
    
TextDrawDestroy(myText); 
Darб uma warning "tag mismatch".

Para arrumar:
PHP Code:
    static
        
TextmyText
    
;
    
    
myText TextDrawCreate(0.00.0#);
    
    
printf("%d"_:myText);
    
    
TextDrawDestroy(myText); 



Re: Cуdigos Ъteis #1 - Ouro - 23.10.2012

Simples Comando de Aviso

Code:
#include <a_samp>

#define FILTERSCRIPT

#include <zcmd>
#include <sscanf2>

new Avisos[MAX_PLAYERS];

public OnPlayerConnect(playerid)
{
	Avisos[playerid] = 0;
	return 1;
}

stock Nome(playerid)
{
	new Name[MAX_PLAYERS];
	GetPlayerName(playerid, Name, sizeof(Name));
	return Name;
}

	CMD:avisar(playerid, params[])
	{
		new String[128], Motivo[50], ID;

		if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "[ERRO] Vocк nгo tem permissгo para usar este comando!");

		if(sscanf(params, "us[50]", ID, Motivo)) return SendClientMessage(playerid, -1, "Digite: /avisar <id> <motivo>");

		if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, -1, "[ERRO] Jogador nгo conectado!");

		Avisos[ID] += 1;

		format(String, sizeof(String), "O jogador: (%d) %s foi avisado - Motivo: %s (%d/3)", ID, Nome(ID), Motivo, Avisos[ID]);
		SendClientMessageToAll(-1, String);

		if(Avisos[ID] == 3)
		{
			format(String, sizeof(String), "O jogador: (%d) %s foi chutado automaticamente - Motivo: 3 Avisos", ID, Nome(ID));
			SendClientMessageToAll(-1, String);

			Kick(ID);
		}

		return 1;
	}
Espero ter ajudado . - rjjj


Re: Cуdigos Ъteis #1 - RoacH` - 23.10.2012

PHP Code:
stock SetPlayerPosRandom(playeridFloat:xFloat:yFloat:zrandoness 10) {
    new 
xrandyrandxpyypyFloat:pssxFloat:pssy;
    
xrand random(randoness);
    
yrand random(randoness);
    
xpy random(2);
    
ypy random(2);
    if(
xpy == 1pssx xrand; else pssx xrand;
    if(
ypy == 1pssy yrand; else pssy yrand;
    
SetPlayerPos(playeridpssxpssyz);
    return 
1;
}
// SetPlayerPosRandom(playerid, x, y, z); 



Re: Cуdigos Ъteis #1 - ipsBruno - 07.12.2012

Checar se й uma imagem JPG!

pawn Код:
#define function::%0(%1) forward %0(%1); public %0(%1)

function::IsJPEGString(data[]) {
    return (data[0] == 0xFF && data[1] == 0xD8 && data[2] == 0xFF && data[3] == 0xE0) ;
}

function::IsJPEGFile(file[]) {

    if(!fexist(file))
        return false;

    static
        data[5], File: arquivo
    ;

    fclose((fread((arquivo = fopen(file, io_read), arquivo), data, 5), arquivo));
    return IsJPEGString(data);
}
Pessoal, postem cуdigos legais, diferentes, inйditos. Coisa obsoleta nгo tem graзa.


Re: Cуdigos Ъteis #1 - ipsBruno - 07.12.2012

Voltar para cor original da mensagem:

pawn Код:
#define SendClientMessage(%0,%1,%2) \
                                SendClientMessageColor(%0,%1,#%1,%2)

function::SendClientMessageColor(playerid, colorint, color[], tmpString[]) {

    if(!IsPlayerConnected(playerid) ||strlen(color) < 7 || !tmpString[0]) {
        return false;
    }


    static
        string[128], i, j
    ;

    string[0] = '\0';

    /////////////////////////////////////

    format(string, 128, tmpString);

    i = strfind(string, "{");
    j = strfind(string, "}");

    /////////////////////////////////////

    if( (j - i) == 7) {

        ////////////////////////////////////////

        i = strfind(string, "{/}");

        if(i != -1 && i > j) {

            strdel(string, i + 1, i + 2);

            format(color, 9, "%s", color[2]);
            color[6] = '\0';

            strins(string,  color, i+1 );
        }

        //////////////////////////////////////
    }


    return SendClientMessage(playerid, colorint, string);

}


Exemplo:
Код:
SendClientMessage (playerid, 0, "bruno {FF0000}testando {/}o sistema");
Resultado:
bruno testando o sistema


Re: Cуdigos Ъteis #1 - paulor - 07.12.2012

Quote:
Originally Posted by ipsBruno
Посмотреть сообщение
Checar se й uma imagem JPG!

pawn Код:
#define function::%0(%1) forward %0(%1); public %0(%1)

function::IsJPEGString(data[]) {
    return (data[0] == 0xFF && data[1] == 0xD8 && data[2] == 0xFF && data[3] == 0xE0) ;
}

function::IsJPEGFile(file[]) {

    if(!fexist(file))
        return false;

    static
        data[5], File: arquivo
    ;

    fclose((fread((arquivo = fopen(file, io_read), arquivo), data, 5), arquivo));
    return IsJPEGString(data);
}
Pessoal, postem cуdigos legais, diferentes, inйditos. Coisa obsoleta nгo tem graзa.
Nгo funcionou isso ae Bruno, Seria mais simples mais nem tanto funcional um strfind(file, ".jpg", true)..


Re: Cуdigos Ъteis #1 - ipsBruno - 07.12.2012

UAEEAUUAEUEAUEA, sйrio isto? Vou salvar um .txt como .jpg e vai reconhecer como jpg #ri.

O cуdigo й funcional sim, aqui rodou tranquilo.


Re: Cуdigos Ъteis #1 - paulor - 07.12.2012

Quote:
Originally Posted by ipsBruno
Посмотреть сообщение
UAEEAUUAEUEAUEA, sйrio isto? Vou salvar um .txt como .jpg e vai reconhecer como jpg #ri.

O cуdigo й funcional sim, aqui rodou tranquilo.
Foi por isso que disse que nem й tanto funcional, mais entгo, eu testei aki com vбrias fotos minhas e nгo funcionou..

@Edit

Eu descobri porque nгo funciona aki, pois o ъltimo Caracter que vocк colocou nгo se encontra em todas JPG's, mais assim deu certo com todas minhas...

pawn Код:
#define function::%0(%1) forward %0(%1); public %0(%1)

function::IsJPEGString(data[]) {
    return (data[0] == 0xFF && data[1] == 0xD8 && data[2] == 0xFF);
}

function::IsJPEGFile(file[]) {

    if(!fexist(file))
        return false;

    static
        data[4], File: arquivo
    ;

    fclose((fread((arquivo = fopen(file, io_read), arquivo), data, 4), arquivo));
    return IsJPEGString(data);
}
↓↓↓ Kkkkk, Flw o Lindгo.. -> Mentira, Tu es muito Feio Cara...




Re: Cуdigos Ъteis #1 - ipsBruno - 07.12.2012

Quote:
Originally Posted by paulor
Посмотреть сообщение
Foi por isso que disse que nem й tanto funcional, mais entгo, eu testei aki com vбrias fotos minhas e nгo funcionou..
Estranho, deve ser porque vocк й feio !! UHASUHUHSA Vou testar aqui com minhas fotos, jб retorno!

Tenta criar uma imagem no paint e salvar no .jpg lб! Depois me envia o resultado

#EDITADO:
Й nгo funciona com imagem tirada de algumas cвmeras, parece que elas sгo salvas com informaзхes a mais (incluindo luminosidade do flash, modelo da cвmera, intensidade da luz, etc ..)


Quote:

Eu descobri porque nгo funciona aki, pois o ъltimo Caracter que vocк colocou nгo se encontra em todas JPG's, mais assim deu certo com todas minhas...

Pois й, foi isto que notei. Teste com outras imagens para ver se nгo dб merda agora

Valeu!


html_entities

pawn Код:
html_entities(dest[], html[], len = sizeof html, destl = sizeof dest) {
 
        static entitie[4], i, c;
       
        for( i = 0 ; html[i+3] ; i++) {
 
                if( html[i] == '&' && html[i+1] == '#') {
 
                        if(-1 != (c=strfind(html, ";", false, i + 2))) {
                           
                            strmid(entitie, html, i+2, c);
                           
                            strdel(html, i, c+1);
                           
                            c = i;
                            i += 3 + strlen(entitie);
                           
                            format(entitie, 4, "%c", strval(entitie));
                           
                            strins(html, entitie, c, len);
                        }
                }
        }
 
        return format(dest, destl, html);
}



Re: Cуdigos Ъteis #1 - paulor - 07.12.2012

Quote:
Originally Posted by ipsBruno
Посмотреть сообщение
Estranho, deve ser porque vocк й feio !! UHASUHUHSA Vou testar aqui com minhas fotos, jб retorno!

Tenta criar uma imagem no paint e salvar no .jpg lб! Depois me envia o resultado

#EDITADO:
Й nгo funciona com imagem tirada de algumas cвmeras, parece que elas sгo salvas com informaзхes a mais (incluindo luminosidade do flash, modelo da cвmera, intensidade da luz, etc ..)
Logico nй, se tem que pensar no caso de quem tem cвmera Profissional aki nй!!


Re: Cуdigos Ъteis #1 - ipsBruno - 07.12.2012

Quote:
Originally Posted by paulor
Посмотреть сообщение
Logico nй, se tem que pensar no caso de quem tem cвmera Profissional aki nй!!
Feio do jeito que tu й, sу com cвmera profissional mesmo



Removedor de TAGS HTML/XHTML/XML

pawn Код:
function::removeLine(texto[]) {
 
        for(new i, c; texto[i]; i++) {
 
                if(texto[i] == '\n') {
                        texto[i] = ' ';
                }
 
                if(texto[i] == '<') {
 
                        c = i;
 
                        while(texto[++i]) {
 
                                if(texto[i] == '>') {
                                        strdel(texto, c, i+1);
                                        break;
                                }
                        }
                }
        }
        return true;
}



Re: Cуdigos Ъteis #1 - dPlaYer_ - 07.12.2012

Para acabar com os que gostam de usar money hack :P

pawn Код:
//Cуdigo: dPlaYer_
//Arrumaзгo do Cуdigo: SuYaNw

new dMoney[MAX_PLAYERS];

#define GivePlayerGrana(%0,%1)      dMoney[%0] += %1, GivePlayerMoney(%0,%1)
#define ResetPlayerGrana(%0)        dMoney[%0] = 0,   ResetPlayerMoney(%0)
#define GetPlayerGrana(%0)         (dMoney[%0] != GetPlayerMoney(%0) ? CallLocalFunction("OnMoneyHack", "ii", %0) : GetPlayerMoney(%0))

//Fim - By SuYaWn
forward OnMoneyHack(playerid, Money);
public OnMoneyHack(playerid, Money)
{
    static string[128];
    format(string, 128, "( Anti - MH ) Й proibido o Uso de Money Hack No Servidor! Quantia Pega : %d | Auto Kick |", Money);
    SendClientMessage(playerid, -1, string);
    Kick(playerid);
    return true;
}


// Exemplo de Uso:

//Dar
CMD:teste(playerid)
{
    GivePlayerGrana(playerid, 50);
    return 1;
}

//Resetar
CMD:teste(playerid)
{
    ResetPlayerGrana(playerid, 50);
    return 1;
}

//Checar
CMD:teste(playerid)
{
    GetPlayerGrana(playerid, 50);
    return 1;
}



Re: Cуdigos Ъteis #1 - zSuYaNw - 08.12.2012

Quote:
Originally Posted by ipsBruno
Посмотреть сообщение
Feio do jeito que tu й, sу com cвmera profissional mesmo



Removedor de TAGS HTML/XHTML/XML

pawn Код:
function::removeLine(texto[]) {
 
        for(new i, c; texto[i]; i++) {
 
                if(texto[i] == '\n') {
                        texto[i] = ' ';
                }
 
                if(texto[i] == '<') {
 
                        c = i;
 
                        while(texto[++i]) {
 
                                if(texto[i] == '>') {
                                        strdel(texto, c, i+1);
                                        break;
                                }
                        }
                }
        }
        return true;
}
Bruno, tente colocar "stock" ao invйs de "function::" porque quem
usa nгo faz a mнnima ideia que "function" й a mesma coisa que stock.

E tambйm nгo precisa postar "Lуgico, todo mundo sabe disto." ou algo
parecido, pois nуs publicamos cуdigos mais voltado para os novatos
e consequentemente os mesmos nгo tem tгo dicзгo para isto.


Re: Respuesta: Cуdigos Ъteis #1 - Gii - 15.01.2013

Quote:
Originally Posted by paulor
View Post
Descobri minha falha.. Creio que esse nгo darб mais erros.

pawn Code:
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;
}
Testei com 366 dias e mostrou ser funcional, porem o cуdigo do bruno retornou uma data com 32 dias a menos!


Re: Cуdigos Ъteis #1 - Maklister - 17.01.2013

Logar administraзгo, ( as vezes alguem precise :P )

pawn Code:
#include < a_samp >

#define DIALOG_LOGARADM  50  // Troque a caso ja existir
#define SENHAADMIN       123 // Troque a com seu gosto


CMD:logaradmin(playerid)
{

    if(PlayerInfo[playerid][pVarAdmin] == 1) return SendClientMessage(playerid, -1, "ERRO: Vocк jб administrador");

    ShowPlayerDialog(playerid, DIALOG_LOGARADM, DIALOG_STYLE_INPUT, " Administraзгo - Logar ", "\n Insira a senha da administraзгo: \n\n", "Ok", "Sair");
    return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    if(dialogid == DIALOG_LOGARADM)
    {
        if(response)
        {
            if(strcmp(inputtext, SENHAADMIN, true) == 0)
            {
                PlayerInfo[playerid][pVarAdmin] = 1;
                SendClientMessage(playerid, -1, "* Logado com sucesso.");
            }
            else
            {
                SendClientMessage(playerid, -1, "ERRO: Senha incorreta !");
            }
        }
    }
    return 1;
}



Re: Cуdigos Ъteis #1 - Schocc - 19.01.2013

Pegar Idade Do Player funcional...
pawn Code:
//          Macro By Schocc...
#define GetYears(%0,%1) new T[4],%1[25];getdate(T[0],T[2],T[3]),getdate(T[1],T[2],T[3]),%1[0]=((T[1]==T[0])?(T[0]+~%0):((T[1]<=T[0])?(T[0]+~%0+1):(T[0]+~%0)))

//      Modo de uso! Ex:
    GetYears( 18, Text );
    printf( "Schocc nasceu em: %i ", Text );