SA-MP Forums

Go Back   SA-MP Forums > Non-English > Languages > Português/Portuguese > Lançamentos/Releases

Reply
 
Thread Tools Display Modes
Old 17/07/2013, 02:12 AM   #2611
OTACON
Banned
 
Join Date: Dec 2010
Location: mongolia
Posts: 4,930
Reputation: 569
Default Respuesta: Códigos Úteis #1

[] GetPlayerSkinColour

[] informação:
verifica caráter cor da pele no Server.

[] função:
pawn Code:
native GetPlayerSkinColour(playerid);
pawn Code:
stock GetPlayerSkinColour(playerid) {
    switch(!GetPlayerSkin(playerid)) { //preto
        case 0,4..22,24,25,28,30,35,36,40,46..48,50,51,54,55,58,63..67,69,74,76,78..80,83,84,86: return true;
        case 91,98,102..107,131,134,136,139,140,142..146,149..150,156,163,166,168,176,180,182,183: return true;
        case 185,187,190,193,195,207,211,214,215,218..223,230,233,238,239,243..245,249,253,256,260: return true;
        case 262,263,265,267,269,270,271,274,275,278,279,284,293,296..298: return true;
    } return false;
}

[] exemplo::
pawn Code:
COMMAND:test(playerid, params[]) {
    if(GetPlayerSkinColour(playerid)) { //branco
        SendClientMessage(playerid, -1, "você é branco");
    } else { //preto
        SendClientMessage(playerid, -1, "você é preto");
    } return true;
}

[] créditos:
OTACON

---------------------------------------------------------------

[] GetPlayerSex V2

[] informação:
Carácter sexo verifica o servidor.

[] função:
pawn Code:
native GetPlayerSex(playerid);
pawn Code:
stock GetPlayerSex(playerid) {
    switch(GetPlayerSkin(playerid)) { //homem
        case 0..8,14..30,32..38,42..52,57..62,66..68,70..73,78..84,86,94..128,132..137,142..144: return true;
        case 146..147,149,153..156,158..168,170..177,179..189,200,202..204,206,208..209,210,212,213,217: return true;
        case 220..223,227..230,234..236,239..242,247..250,252..255,264..297,299,258..262: return true;
    } return false;
}

[] exemplo::
pawn Code:
COMMAND:test(playerid, params[]) {
    if(GetPlayerSex(playerid)) { //homem
        SendClientMessage(playerid, -1, "você é homem");
    } else { //mulher
        SendClientMessage(playerid, -1, "você é mulher");
    } return true;
}

[] créditos:
OTACON
RyDeR (Dica verificar single-sex)

---------------------------------------------------------------
OTACON is offline   Reply With Quote
Old 19/07/2013, 03:27 AM   #2612
ipsBruno
Godfather
 
ipsBruno's Avatar
 
Join Date: Apr 2010
Location: Brazil, Caxias RS
Posts: 6,084
Reputation: 546
Default AW: Códigos Úteis #1

Já experimentou usar o return false com default? Seria interessante um teste de velocidade com relação a isto.
__________________
https://github.com/ipsBruno
ipsBruno is offline   Reply With Quote
Old 19/07/2013, 06:20 PM   #2613
Gustavo_Carvalho
Little Clucker
 
Join Date: Oct 2012
Posts: 39
Reputation: 0
Default Re: Códigos Úteis #1

Espero que seja útil para alguém. (Está em inglês porque acho mais organizado. )

pawn Code:
/******************************************************************************
 *                                                                            *
 *  Desenvolvedor: Gustavo Carvalho                                           *
 *                                                                            *
 ******************************************************************************/


#include <a_samp>

#if defined _FILES_INC
    #endinput
#endif
#define _FILES_INC

stock myFile ( file [ ] )
{
    new
        var_@File [ 30 ]
    ;

    format ( var_@File, sizeof ( var_@File ), "%s.txt", file );
    return var_@File;
}

stock CreateTextFile ( file [ ], text [ ] )
{
    new
        File:var_@Create = fopen ( myFile ( file ), io_write )
    ;

    if ( fexist ( myFile ( file ) ) ) return printf ( "Unable to create the file '%s'. <> Reason: already exists with the same name.", file );

    if ( var_@Create )
    {
        fwrite ( var_@Create, text );

        fclose ( var_@Create );
    }
    return 1;
}

stock DeleteFile ( file [ ] )
{
    if ( !fexist ( myFile( file ) ) ) return printf ( "Unable to delete the file '%s'. <> Reason: the file does not exist.", file );

    fremove ( myFile ( file ) );
    return 1;
}

stock WriteTextToFile ( text [ ], file [ ] )
{
    new
        File:var_@Write = fopen ( myFile ( file ), io_write )
    ;

    if ( !fexist ( myFile ( file ) ) ) return printf ( "Unable to write text file '%s'. <> Reason: the file does not exist.", file );

    if ( var_@Write )
    {
        fwrite ( var_@Write, text );

        fclose ( var_@Write );
    }
    return 1;
}
__________________
Gustavo_Carvalho is offline   Reply With Quote
Old 19/07/2013, 11:42 PM   #2614
xxRaioxx
Huge Clucker
 
xxRaioxx's Avatar
 
Join Date: Jun 2013
Location: Brazil, Minas Gerais, Varginha
Posts: 283
Reputation: 7
Default Re: Códigos Úteis #1

Comando de Private Message>
pawn Code:
CMD:pm(playerid, params[])
{
    new plid, msg, string[120];
    if(sscanf(params, "us",plid, msg)) return SendClientMessage(playerid, -1, "/pm [Id] [Msg]");
    format(string, sizeof(string), "[ MENSAGEM ENVIADA ] %s (%d) : %s", gName(plid), playerid, msg);
    SendClientMessage(playerid, -1, string);
    format(string, sizeof(string), "[ MENSAGEM RECEBIDA ] %s (%d) : %s", gName(playerid), plid , msg);
    SendClientMessage(plid, -1, string);
    return 1;
}
//Em baixo do código>
gName(playerid)
{
    new Name[24];
    GetPlayerName(playerid,Name, 24);
    return Name;
}
----_----------------_-------------_-------------_-------------------_--------------_

Tapa(Ou Matar Player)>
pawn Code:
//Topo>
new PlayerData[MAX_PLAYERS][pData];
new Nam[MAX_PLAYER_NAME],plname[MAX_PLAYER_NAME],str[128],ID;
         
//Código>
CMD:tapa(playerid,params[])
{
    if(PlayerData[playerid][AdminLevel] < 1) return 0;
    if(sscanf(params,"u",ID)) return SendClientMessage(playerid, vermelho,"Use: /tapa (playerid)");
    if(!IsPlayerConnected(ID)) return SendClientMessage(playerid, vermelho,"ERRO: player não conectado!");
    GetPlayerName(playerid,Nam,sizeof(Nam));
    GetPlayerName(ID,plname,sizeof(plname));
    format(str,sizeof(str),"Administrador %s O ADMIN deu um tapa no",Nam);
    SendClientMessage(ID, vermelho,str);
    format(str,sizeof(str),"O ADMIN deu um tapa no %s",plname);
    SendClientMessage(playerid, vermelho,str);
    SetPlayerHealth(ID,0);
    return 1;
}
__________________

---

Tutoriais


FilterScripts

xxRaioxx is offline   Reply With Quote
Old 20/07/2013, 12:32 AM   #2615
Dolby
High-roller
 
Dolby's Avatar
 
Join Date: Aug 2011
Location: Brazil - GO
Posts: 2,900
Reputation: 746
Default Re: Códigos Úteis #1

Quote:
Originally Posted by xxRaioxx View Post
Comando de Private Message>
pawn Code:
CMD:pm(playerid, params[])
{
    new plid, msg, string[120];
    if(sscanf(params, "us",plid, msg)) return SendClientMessage(playerid, -1, "/pm [Id] [Msg]");
    format(string, sizeof(string), "[ MENSAGEM ENVIADA ] %s (%d) : %s", gName(plid), playerid, msg);
    SendClientMessage(playerid, -1, string);
    format(string, sizeof(string), "[ MENSAGEM RECEBIDA ] %s (%d) : %s", gName(playerid), plid , msg);
    SendClientMessage(plid, -1, string);
    return 1;
}
pawn Code:
CMD:pm(playerid, params[])
{
    new plid, msg[128], string[120];
    if(sscanf(params, "us[128]",plid, msg)) return SendClientMessage(playerid, -1, "/pm [Id] [Msg]");
    format(string, sizeof(string), "[ MENSAGEM ENVIADA ] %s (%d) : %s", gName(plid), playerid, msg);
    SendClientMessage(playerid, -1, string);
    format(string, sizeof(string), "[ MENSAGEM RECEBIDA ] %s (%d) : %s", gName(playerid), plid , msg);
    SendClientMessage(plid, -1, string);
    return 1;
}
Você declarou msg como int...
Dolby is offline   Reply With Quote
Old 21/07/2013, 09:11 PM   #2616
Bruno13
High-roller
 
Bruno13's Avatar
 
Join Date: May 2013
Location: Caxias do Sul/RS
Posts: 1,436
Reputation: 244
Default Re: Códigos Úteis

Quote:
Originally Posted by ipsBruno View Post
Tudo Salva na Script Files
Problemas Com '/save' No Windows Seven?

Revolucione e Use Este Meu Simples Comando Já!

Salvar Simples Posição:
pawn Code:
if (strcmp(cmdtext, "/save", true)==0)
  {
    GetPlayerPos(playerid, X, Y, Z);
    new File:pos=fopen("positions.txt", io_append);
    format(string, 256, "Coordenada(%f, %f, %f);", X, Y, Z,Rotation);
    fwrite(pos, string);
    fclose(pos);
 
    return 1;
  }

Salvar Simples Posição em Formato de AddPlayerClass (By: Wiki)

pawn Code:
if (strcmp(cmdtext, "/save", true)==0)
  {
    GetPlayerPos(playerid, X, Y, Z);
    GetPlayerFacingAngle(playerid, Rotation);
 
    new File:pos=fopen("positions.txt", io_append);
    format(string, 256, "AddPlayerClass(0, %f, %f, %f, %f, 0,0,0,0,0,0);", X, Y, Z,Rotation);
    fwrite(pos, string);
    fclose(pos);
 
    return 1;
  }

Salvar em Formato AddPlayerClass com Skins (By: Eu)
pawn Code:
if (strcmp(cmdtext, "/save", true)==0)
  {
    GetPlayerPos(playerid, X, Y, Z);
    GetPlayerFacingAngle(playerid, Rotation);
    Skin = GetPlayerSkin(playerid);
    new File:pos=fopen("positions.txt", io_append);
    format(string, 256, "AddPlayerClass(%d, %f, %f, %f, %f, 0,0,0,0,0,0);",Skin, X, Y, Z,Rotation);
    fwrite(pos, string);
    fclose(pos);
 
    return 1;
  }


Caso Queira Salvar com Armas
GetPlayerWeapon e Assim Vai

Espero ter ajudado os usuário do windows 7

PS: Garfield se puder incorpora ao teu post com meu nome hein!
Creio que não tenha como substituir um comando que é do sa-mp '-'
__________________
Released Hogwarts RP/G
Code:
> Não trabalho mais com venda de sistemas.
> Site: www.bruno13.tk
Bruno13 is offline   Reply With Quote
Old 21/07/2013, 09:16 PM   #2617
WLSF
High-roller
 
Join Date: Aug 2011
Posts: 3,540
Reputation: 787
Default Re: Códigos Úteis

Quote:
Originally Posted by Bruno13 View Post
Creio que não tenha como substituir um comando que é do sa-mp '-'
Ele não substitui, nesse caso ele iria executar o comando nativo do sa-mp(salvar na pasta do GTA user files) e iria executar esse comando ai que você criou(salvar na scriptfiles do sa-mp)....
WLSF is offline   Reply With Quote
Old 23/07/2013, 04:09 AM   #2618
ipsBruno
Godfather
 
ipsBruno's Avatar
 
Join Date: Apr 2010
Location: Brazil, Caxias RS
Posts: 6,084
Reputation: 546
Default AW: Códigos Úteis #1

O Windows Seven não executava o comando via cliente .. Alias, olha a data: 28.05.2010, 02:40:35
__________________
https://github.com/ipsBruno
ipsBruno is offline   Reply With Quote
Old 23/07/2013, 03:03 PM   #2619
paulor
High-roller
 
Join Date: Nov 2011
Location: Brasil
Posts: 3,116
Reputation: 222
Default Re: Respuesta: Códigos Úteis #1

Quote:
Originally Posted by OTACON View Post
[] GetPlayerSkinColour

[] informação:
verifica caráter cor da pele no Server.

[] função:
pawn Code:
native GetPlayerSkinColour(playerid);
pawn Code:
stock GetPlayerSkinColour(playerid) {
    switch(!GetPlayerSkin(playerid)) { //preto
        case 0,4..22,24,25,28,30,35,36,40,46..48,50,51,54,55,58,63..67,69,74,76,78..80,83,84,86: return true;
        case 91,98,102..107,131,134,136,139,140,142..146,149..150,156,163,166,168,176,180,182,183: return true;
        case 185,187,190,193,195,207,211,214,215,218..223,230,233,238,239,243..245,249,253,256,260: return true;
        case 262,263,265,267,269,270,271,274,275,278,279,284,293,296..298: return true;
    } return false;
}

[] exemplo::
pawn Code:
COMMAND:test(playerid, params[]) {
    if(GetPlayerSkinColour(playerid)) { //branco
        SendClientMessage(playerid, -1, "você é branco");
    } else { //preto
        SendClientMessage(playerid, -1, "você é preto");
    } return true;
}

[] créditos:
OTACON

[] créditos:
OTACON
RyDeR (Dica verificar single-sex)

---------------------------------------------------------------
Não vai funcionar por causa da negação no switch..
__________________
Meus Projetos - contato@paulorwd.com.br
[IMG]https://sites.******.com/site/facesbypaulo/MetropoleGames.png[/IMG]
paulor is offline   Reply With Quote
Old 27/07/2013, 05:35 AM   #2620
Krisky_
Big Clucker
 
Krisky_'s Avatar
 
Join Date: Jun 2013
Location: Barra Do Garças /MT
Posts: 114
Reputation: 15
Default Re: Códigos Úteis #1

Funçao

Bom Ele Faz em que o Player entre no carro e fique com nitro utilizando [ALT] ele usara seu nitro

Recomendaçao

Bom ele e Recomendado Para servidor de TDM e DRIFT

CODE

pawn Code:
#include <a_samp>

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger) //Quando Entra No Veiculo
{
    if(setro(vehicleid))
    {
        AddVehicleComponent(vehicleid, 1020);
    }
    return true;
}

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)//Key que libera o Nitro
{
    if(IsPlayerInAnyVehicle(playerid))
    {
        new ilni = GetPlayerVehicleID(playerid);
        if(setro(ilni) && (oldkeys & 1 || oldkeys & 4))
        {
            RemoveVehicleComponent(ilni, 1010);
            AddVehicleComponent(ilni, 1010);
        }
    }
    return true;
}

setro(vehicleid)
{
    new ilni = GetVehicleModel(vehicleid);
    switch(ilni) {
        case 444:
        return 0;
        case 581:
        return 0;
        case 586:
        return 0;
        case 481:
        return 0;
        case 509:
        return 0;
        case 446:
        return 0;
        case 556:
        return 0;
        case 443:
        return 0;
        case 452:
        return 0;
        case 453:
        return 0;
        case 454:
        return 0;
        case 472:
        return 0;
        case 473:
        return 0;
        case 484:
        return 0;
        case 493:
        return 0;
        case 595:
        return 0;
        case 462:
        return 0;
        case 463:
        return 0;
        case 468:
        return 0;
        case 521:
        return 0;
        case 522:
        return 0;
        case 417:
        return 0;
        case 425:
        return 0;
        case 447:
        return 0;
        case 487:
        return 0;
        case 488:
        return 0;
        case 497:
        return 0;
        case 501:
        return 0;
        case 548:
        return 0;
        case 563:
        return 0;
        case 406:
        return 0;
        case 520:
        return 0;
        case 539:
        return 0;
        case 553:
        return 0;
        case 557:
        return 0;
        case 573:
        return 0;
        case 460:
        return 0;
        case 593:
        return 0;
        case 464:
        return 0;
        case 476:
        return 0;
        case 511:
        return 0;
        case 512:
        return 0;
        case 577:
        return 0;
        case 592:
        return 0;
        case 471:
        return 0;
        case 448:
        return 0;
        case 461:
        return 0;
        case 523:
        return 0;
        case 510:
        return 0;
        case 430:
        return 0;
        case 465:
        return 0;
        case 469:
        return 0;
        case 513:
        return 0;
        case 519:
        return 0;
    }
    return true;
}

Lembrando nao sei se tem aki mais Postei mesmo Assim ^^
Krisky_ is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
[FilterScript] Menus Úteis [SKIN|CARROS|ARMAS] SlashPT Lançamentos/Releases 25 02/05/2014 03:56 PM
[Include] [INC]Várias e Uteis Funções andmeida10 Lançamentos/Releases 28 14/12/2012 01:49 PM
[PEDIDO] Codigos Hashtag Português/Portuguese 7 16/11/2011 10:09 PM


All times are GMT. The time now is 03:31 AM.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.