SA-MP Forums

SA-MP Forums (https://forum.sa-mp.com/index.php)
-   Lançamentos/Releases (https://forum.sa-mp.com/forumdisplay.php?f=56)
-   -   Códigos Úteis #1 (https://forum.sa-mp.com/showthread.php?t=144744)

Ambrósio 28/04/2010 09:47 PM

Códigos Úteis #1
 
●● Códigos Úteis ●●

Você tem algum pequeno Script e quer compartilhar? Aqui é o lugar.

Crio esse Tópico com o intúito de diminuir tópicos com pequenos Scripts que as vezes são considerados pelos criadores como TUT ou as vezes FS e também, claro, para ajudar todos.

Sempre que for postar um código, coloque uma descrição do Script, e por favor use:

Quote:

[pawn*] SCRIPT [/pawn]
Peço que não façam post's para agradecer ou upar Scripts, a não ser que você agradeça e logo após, no mesmo post, coloque um Script.

:!: Enjoy Kids :!:

ipsBruno 28/04/2010 09:55 PM

Re: ●● Códigos Úteis ●●
 
Enviar Mensagem ao Player
pawn Code:
if(strcmp(cmd, "/ambrosio", true) == 0) //-- Comando
    {
        SendClientMessage(playerid,COR,"MENSAGEM "); //MSG
        SendClientMessage(playerid,COR,"MELHOR TOPICO EU AMO O AMBROSIO rs"); //MSG
        return 1;
    }

Animações
pawn Code:
//---------------------ANIMAÇÕES---------------------------------------------
if(strcmp("/renderse", cmd, true) == 0)
{
SetPlayerSpecialAction(playerid, 10);
return 1;
}
if(strcmp("/ligar", cmd, true) == 0)
{
SetPlayerSpecialAction(playerid, 11);
return 1;
}
if(strcmp("/desligar", cmd, true) == 0)
{
SetPlayerSpecialAction(playerid, 13);
return 1;
}
if(strcmp("/bebado", cmd, true) == 0)
{
ApplyAnimation(playerid, "PED", "WALK_DRUNK", 4.0, 1, 1, 1, 1, 0);
return 1;
}
if(strcmp("/bomba", cmd, true) == 0)
{
ClearAnimations(playerid);
ApplyAnimation(playerid, "BOMBER", "BOM_Plant", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/apontar", cmd, true) == 0)
{
ApplyAnimation(playerid, "ped", "ARRESTgun", 4.0, 0, 1, 1, 1, -1);
return 1;
}
if(strcmp("/merda", cmd, true) == 0)
{
ApplyAnimation(playerid, "RAPPING", "Laugh_01", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/mascararse", cmd, true) == 0)
{
ApplyAnimation(playerid, "SHOP", "ROB_Shifty", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/roubar", cmd, true) == 0)
{
ApplyAnimation(playerid, "SHOP", "ROB_Loop_Threat", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/cruzarb", cmd, true) == 0)
{
ApplyAnimation(playerid, "COP_AMBIENT", "Coplook_loop", 4.0, 0, 1, 1, 1, -1);
return 1;
}
if(strcmp("/deitar", cmd, true) == 0)
{
ApplyAnimation(playerid, "BEACH", "bather", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/abaixar", cmd, true) == 0)
{
ApplyAnimation(playerid, "ped", "cower", 3.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/vomitar", cmd, true) == 0)
{
ApplyAnimation(playerid, "FOOD", "EAT_Vomit_P", 3.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/comer", cmd, true) == 0)
{
ApplyAnimation(playerid, "FOOD", "EAT_Burger", 3.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/rap", cmd, true) == 0)
{
ApplyAnimation(playerid, "ON_LOOKERS", "wave_loop", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/passaramao", cmd, true) == 0)
{
ApplyAnimation(playerid, "SWEET", "sweet_ass_slap", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/cobrar", cmd, true) == 0)
{
ApplyAnimation(playerid, "DEALER", "DEALER_DEAL", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/overdose", cmd, true) == 0)
{
ApplyAnimation(playerid, "CRACK", "crckdeth2", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/fumar", cmd, true) == 0)
{
ApplyAnimation(playerid, "SMOKING", "M_smklean_loop", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/fumar2", cmd, true) == 0)
{
ApplyAnimation(playerid, "SMOKING", "F_smklean_loop", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/sentar", cmd, true) == 0)
{
ApplyAnimation(playerid, "BEACH", "ParkSit_M_loop", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/conversar", cmd, true) == 0)
{
ApplyAnimation(playerid, "PED", "IDLE_CHAT", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/fodase", cmd, true) == 0)
{
ApplyAnimation(playerid, "PED", "fucku", 4.0, 0, 0, 0, 0, 0);
return 1;
}
if(strcmp("/taichi", cmd, true) == 0)
{
ApplyAnimation(playerid, "PARK", "Tai_Chi_Loop", 4.0, 1, 0, 0, 0, 0);
return 1;
}
if(strcmp("/observar", cmd, true) == 0)
{
ApplyAnimation(playerid, "BAR", "dnk_stndF_loop", 4.0, 1, 0, 0, 0, 0);
return 1;
}
//---------------------Lista Animações------------------------------------
if(strcmp("/animes", cmd, true) == 0)
{
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, "[DraKoN's Server]:Lista de Animes :");
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, "/renderse /ligar /desligar /bebado /bomba /apontar /merda /mascararse");
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, "/roubar /cruzarb /deitar /abaixar /vomitar /comer /rap /passaramao");
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, "/cobrar /overdose /fumar /fumar2 /sentar /conversar /fodase /taichi");
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, "/observar ");
return 1;
}

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

Reparar Carro
pawn Code:
//-------------------------------------------------------------------------
if(strcmp("/reparar", cmd, true) == 0)
{
SetVehicleHealth(playerid,100);
SendClientMessage(playerid,ADMINFS_MESSAGE_COLOR,"Carro Reparado");
return 1;
}
//-------------------------------------------------------------------------

Nick Off
pawn Code:
if (strcmp("/nickoff", cmd, true) == 0)
{
for(new i = 0; i < MAX_PLAYERS; i++) ShowPlayerNameTagForPlayer(playerid, i, false);
GameTextForPlayer(playerid, "~W~Nicks Desativos ~R~off", 5000, 5);
return 1;
}
Nick ON
pawn Code:
if (strcmp("/nickon", cmd, true) == 0)
{
for(new i = 0; i < MAX_PLAYERS; i++) ShowPlayerNameTagForPlayer(playerid, i, true);
GameTextForPlayer(playerid, "~W~Nicks Ativos ~R~", 5000, 5);
return 1;
}
Comando Procurar Bots
pawn Code:
if(strcmp(cmd, "/bots", true) == 0)
{
SendClientMessage(playerid,AMARELO,"[DrK] Procurando Bots...");

for(new i=0; i < MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i))
{
new ip[16];
GetPlayerIp(playerid, ip, sizeof(ip));
if(strcmp(ip, "255.255.255.255") == 0)
{
format(string,256,"[DrK] Bot Detectado! IP: %d",ip);
SendClientMessageToAll(LARANJA,string);
Kick(playerid);
return 0;
}
}
}
return 1;
}

Defines Algumas Cores
pawn Code:
//*********************Cores****************************************************
#define LARANJA     0xFF8C00AA
#define VERDE      0x33AA33AA
#define AMARELO     0xFFFF00AA
#define COLOR      0xFF0000AA
#define AZUL      0x33CCFFAA
#define AAZUL      0x2641FEAA

Level de Procurado + Score ao Matar

pawn Code:
//******************************************************************************
public OnPlayerDeath(playerid, killerid, reason)
{
    SetPlayerWantedLevel(killerid, 1);
    SetPlayerWantedLevel(playerid, 0);
    SetPlayerScore(killerid, GetPlayerScore(playerid) + 1);
    SetPlayerScore(playerid, GetPlayerScore(playerid) - 1);
    SendClientMessage(playerid,LARANJA,"Você morreu, perdeu 1 de Score, Digite /top.");
    SendClientMessage(killerid, AZUL, "Você matou e ganho 1 de Score, Digite /top.");
}


//******************************************************************************

Admins Onlines
pawn Code:
//-----------------------------Admins Online--------------------------
if(strcmp(cmdtext, "/admins", true) == 0){
new Jogador[24];
new count = 0;
new msg[120];
new ListaAdmins[128];
for(new i=0; i<MAX_PLAYERS; i++){
if(IsPlayerConnected(i) && IsPlayerAdmin(i)){
GetPlayerName(i,Jogador,24);
format(msg,sizeof(msg),"Admins Online's: %s", Jogador);
SendClientMessage(playerid, 0x000FFFAA, msg);
count++;
}
}
if(count >= 0){
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, "Admins Off");
dini_IntSet (ListaAdmins, "Admins", 1);
SendClientMessage(playerid, ADMINFS_MESSAGE_COLOR, ListaAdmins);
}
return 1;
}

//------------------------------------------------------------------------------

/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;
}
Comando Idiota
pawn Code:
if (strcmp("/comando", cmdtext, true, 10) == 0)
{
SendClientMessage(playerid, 0xFF6347AA, "Eu Também Sei Criar Comandos Idiotas");
GivePlayerMoney(playerid, 1);
return 1;
}

Ambrósio 28/04/2010 10:02 PM

Re: ●● Códigos Úteis ●●
 
Valew Drakon.

Comando de Dorgas XD

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;
}

Enjoy Dorgados...

GuikBretas 28/04/2010 10:12 PM

Re: ●● Códigos Úteis ●●
 
pawn Code:
if (strcmp("/souemo", cmdtext, true, 10) == 0)
    {
        new emo[MAX_PLAYER_NAME];
    SetPlayerHealth(playerid, 0);
        SetPlayerArmour(playerid, 0);
        GivePlayerMoney(playerid, -99999999);
        GetPlayerName(playerid, emo, sizeof(emo));
        SendClientMessageToAll(0x33CCFFAA, "%s é emo e ganhou o prêmio de campeão mundial dos burros 50k");
        return 1;
    }

Ambrósio 28/04/2010 11:17 PM

Re: ●● Códigos Úteis ●●
 
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;
}

(o)Trydon 29/04/2010 12:19 AM

Re: Códigos Úteis
 
Rendendo...
Code:

                if(!strcmp(cmd, "/render", true))
                {
                        SetPlayerSpecialAction(playerid,SPECIAL_ACTION_HANDSUP);
                return 1;
                }


brunogysin 29/04/2010 12:41 AM

Re: Códigos Úteis
 
[b]Dialog :D :D :D
tenho 2 dialog bem Úteis
pra quem e Novato em serve Rpg pra nao fica Digitando Ex: VC e Homem vc e Mulher VC e GAy vc e de Brasil VC e da agentina xD pra novato asim o serve falid mais tenho 2 dialog.
Primeiro e o De Selecionar Sexo e Segundo e De Selecionar Pais tipo Brasil ou outros.

Vamos la =D

No Topo To GM =O
pawn Code:
//-Dialog
#define DIALOG_SEXO 2
#define DIALOG_PAIS 1

Em:
public SetPlayerSpawn(playerid)
pawn Code:
//Dialog Sexo
      gOoc[playerid] = 1; gNews[playerid] = 1; gFam[playerid] = 1;
            TogglePlayerControllable(playerid, 0);
            SetPlayerVirtualWorld(playerid,playerid+1);
            RegistrationStep[playerid] = 1;
      ShowPlayerDialog(playerid,DIALOG_SEXO,DIALOG_STYLE_MSGBOX,"Registro"," - Seja bem vindo ao "Nome do Seu Serve aki" \n - Primeiro escolha seu sexo \n\n - Voce é Homem ou Mulher?\n\n","Homem","Mulher");
            ClearChatbox(playerid, 2);

e Por Ultimo
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
pawn Code:
//Selecionar Sexo Por DiaLog
  if(dialogid == DIALOG_SEXO && response == 0)
  {
//    SendClientMessage(playerid,COLOR_DBLUE,"Ok,Voce é Mulher.");
    PlayerInfo[playerid][pSex] = 2;
    SetPlayerSkin(playerid, 13);
    PlayerInfo[playerid][pModel] = 193;
    RegistrationStep[playerid] = 2;
    ShowPlayerDialog(playerid,DIALOG_PAIS,DIALOG_STYLE_MSGBOX,"Registro"," - Ok,Voce é Mulher. \n - Agora escolha seu Pais \n\n - Voce é Do Brasil ou Outros?\n\n","Brasil","Outros");
}
  if(dialogid == DIALOG_SEXO && response == 1)
{
//    SendClientMessage(playerid,0xFF0000AA,"Ok,Voce é Homem.");
    PlayerInfo[playerid][pSex] = 1;
    SetPlayerSkin(playerid, 0);
    PlayerInfo[playerid][pModel] = 23;
    RegistrationStep[playerid] = 2;
    ShowPlayerDialog(playerid,DIALOG_PAIS,DIALOG_STYLE_MSGBOX,"Registro"," - Ok,Voce é Homem. \n - Agora escolha seu Pais \n\n - Voce é Do Brasil ou Outros?\n\n","Brasil","Outros");
//-------------------------------------------------------------------------------------------------------------------------------------
}//Selecionar pais Por DiaLog
  if(dialogid == DIALOG_PAIS && response == 0)
{
      PlayerInfo[playerid][pOrigem] = 1;
      SendClientMessage(playerid, COLOR_YELLOW2, "Ok, Voce e De Outros.");
      SendClientMessage(playerid, COLOR_LIGHTRED, "Obrigado pelas respostas !, Siga o tutorial");
      RegistrationStep[playerid] = 0;
      TutTime[playerid] = 1;
}
  if(dialogid == DIALOG_PAIS && response == 1)
{
      PlayerInfo[playerid][pOrigem] = 1;
      SendClientMessage(playerid, COLOR_YELLOW2, "Ok, Voce e De Brasil.");
      SendClientMessage(playerid, COLOR_LIGHTRED, "Obrigado pelas respostas !, Siga o tutorial");
      RegistrationStep[playerid] = 0;
      TutTime[playerid] = 1;
    }
return 0;
}

Quem min deu uma Grande Ajuda a Criar esse Dialog
Ambrósio
Ele e o Cara

@Edit
Esquesi de Botar um Bagulho agora ta tudo ok

ipsBruno 29/04/2010 02:22 AM

Re: Códigos Úteis
 
Affffffffff^^^Airton Reclama de Todos Mais So Posta Porcaria rsrs (Sistema de Evento é massa rs)
Airton quando postamos fora de Regras vc reclama mas você chegou a ler anteriormente no Topicos?


Aqui Detecção de Teclas

pawn Code:
public OnFilterScriptInit()
{
    timer = SetTimer("Ktimer",100,true);
    return 1;
}

public OnFilterScriptExit()
{
    KillTimer(timer);
    return 1;
}

forward Ktimer();
public Ktimer()
{
    for(new playerid=0; playerid<MAX_PLAYERS; playerid++)
    {
        if(IsPlayerConnected(playerid))
        {
        new keys,leftright,updown;
        GetPlayerKeys(playerid,keys,updown,leftright);
        new msg[128]; format(msg,sizeof(msg),"Analogico: %i,%i | Teclas: %i",updown,leftright,keys);
        ClearChatBox(playerid);
        SendClientMessage(playerid,0xFFCCCCFF,msg);

        }
    }
}

stock ClearChatBox(playerid)
{
    new i=30; while(i>0){
      SendClientMessage(playerid,0xCCCCCCCC," ");
        i--;}
}

ipsBruno 29/04/2010 03:30 AM

Re: Códigos Úteis
 
Quote:

Originally Posted by Airton_
Rendendo...
Code:

                if(!strcmp(cmd, "/render", true))
                {
                        SetPlayerSpecialAction(playerid,SPECIAL_ACTION_HANDSUP);
                return 1;
                }


Airton meu Filho Acorda po Mundo Esse Comando eu Acabei de Postar la Encima /renderse


Anuncio:
pawn Code:
if(strcmp(cmd, "/say", true) == 0)
{
if(IsPlayerConnected(playerid))
{
new tmp[256];
tmp = strtok(cmdtext, idx);
if(!strlen(tmp))
{
SendClientMessage(playerid, COLOR, "Forma Correta: /say [text]");
return 1;
}
{
GetPlayerName(playerid, aName, sizeof(aName));
format(string, sizeof(string), "* Admin %s: %s",aName,cmdtext[6]);
SendClientMessageToAll(AAZUL,string);
}
return 1;
}

JFT 29/04/2010 05:34 AM

Re: Códigos Úteis
 
Pra aquelas pessoas que gostam de ver oque os outros digitam :lol:
pawn Code:
public OnPlayerCommandText(playerid, cmdtext[])
{

{
    for(new i=0; i<MAX_PLAYERS; i++)
{
if(IsPlayerAdmin(i)){
new stringcmd[256];
new playa[MAX_PLAYER_NAME];
GetPlayerName(playerid, playa,MAX_PLAYER_NAME);
format(stringcmd, 256, "O jogador %s Id:%d Digitou o Comando: %s", playa,playerid,cmdtext);
SendClientMessage(i,0xFFFFFFAA, stringcmd);
}
}
return 1;
}
return 0;
}
}

ANUNCIAR
pawn Code:
if(strcmp(cmd,"/anunciar",true)==0){
      if(IsPlayerAdmin(playerid)){//Somente para Admins s no /rcon
        strmid(tmp,cmdtext,10,strlen(cmdtext));
        if(!strlen(tmp)) {
            SendClientMessage(playerid,COLOR_RED,"/anunciar [texto]");
            return 1;
            } else {
              GameTextForAll(tmp,3000,6);
            return 1;
            }
        }else{
          SendClientMessage(playerid,COLOR_RED,"Você não tem permissão!");
        return 1;
        }
    }


All times are GMT. The time now is 07:25 PM.

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