View difference between Paste ID: jtS8uf1G and YFm3EAkm
SHOW: | | - or go back to the newest paste.
1
/*
2
3
4
						FS CHAT BOT
5
					  BY LUCAS_ALEMAO
6
					  
7
				  NÃO RETIRE OS CRÉDITOS
8
				  
9
10
*/
11
12
#include a_samp
13
14
#define 	USAR_ZCMD       1           //MUDE PARA 0 CASO NÃO QUEIRA USA ZCMD
15
16
#if USAR_ZCMD 1
17
	#include zcmd
18
#endif
19
20
#define     COR_BOT         0xF97804FF //LARANJADO              DEFINA A COR DO NICK DO SEU BOT
21
22
forward PrintTimer();
23
forward EnviarMensagens();
24
25
new bool:BotAtivado;
26
new str[256];
27
28
new MensagensBot[42][256] = {
29
"Barbaridade Rapaz, como este server está bonito Tche!",
30
"Ara tche, estou doido para tomar um chimarrão.",
31
"nossa guri, você é muito ruim no X1",
32
"Duvido alguem me ganhar no X1 piás.",
33
"Barbaridade guri, eu queria muito poder sair e tomar uns chimarrão",
34
"Quem torce para o internacional ae tchê?",
35
"Quem torce para o Grêmio aqui?",
36
"Não sei porque fazer tantas piadas de gaucho por aí.",
37
"Ara tche, está um dia quente! vá la fora dar uma volta.",
38
"Quanto tempo que o Admin não me desativa. Já estou cansado de tanto falar.",
39
"Queria mandar um abraço pro meu criador, Lucas Alemao.",
40
"Vocês preferem chimarrão ou tererê?",
41
"Oque cai em pé e corre deitado? kkkkk duvido quem acerta.",
42
"Barbaridade rapaziada, estou cansado de ficar aqui atoa.",
43
"Quem assiste UFC aí guris?",
44
"Estou doido para conversar com alguem.",
45
"Alguem converse comigo!!!",
46
"Acho que sou um forever alone tche",
47
"Quem gosta de memes ae Tchê?",
48
"Hoje vamo assistir nosso Internacional bagaçar.",
49
"Esse ano o Inter será campeão brasileiro.",
50
"Cadê as mulher desse servidor?",
51
"Ó meu Deus não acredito que um ser humano tenha dito isso.",
52
"Hoje é meu aniversário!",
53
"Quem aí é meu Fan?",
54
"As mina pira nos gaucho piranha.",
55
"Aqui no Rio Grande do Sul tem muito pernilongo.",
56
"Estou ouvindo um sertanejo universitário, e vocês?",
57
"Quem sabe jogar truco? podíamos marcar uma partida.",
58
"Quem gosta da cachaça pode aproveitar, que hoje a festa é Open Bar...",
59
"Barbaridade Tchê, estou sem nada pra fazer.",
60
"Quem assiste Formula 1 aí?",
61
"Conhecem a piada do não nem eu?",
62
"O fim de semana não chega nunca tchê!",
63
"Quando é que agente vai pra balada?",
64
"Quando vamos marcar de bater um papo tomando um chimarrão?",
65
"Legal conversar com vocês galera.",
66
"Quem ja ouviu Sou Foda?",
67
"Ontem tomei 4,7 litros de chimarrão",
68
"De todos os meus amigos, só eu torço pro Internacional",
69
"Espero que Amanha o dia seja melhor",
70
"Oração de um gaucho: Senhor, que o preço da erva de chimarrão abaixe. Amém."
71
};
72
73
74
stock Nome(playerid)
75
{
76
	new pnome[24];
77
	GetPlayerName(playerid, pnome, 24);
78
	return pnome;
79
}
80
81
public OnFilterScriptInit()
82
{
83
	SetTimer("PrintTimer", 500, false);
84
	BotAtivado = false;
85
	return 1;
86
}
87
88
public PrintTimer()
89
{
90
	print("\n\n---------------------------------\n");
91
	print("       CHAT BOT 'GAUCHO'       ");
92
	print("        BY: LUCAS_ALEMAO       ");
93
	print("     carregado com sucesso");
94
	print("\n---------------------------------\n\n");
95
	return 1;
96
}
97
98
public OnPlayerText(playerid, text[])
99
{
100
	if(strfind(text, "gaucho", true) != -1)
101
	{
102
	    if(BotAtivado)
103
	    {
104
			SetTimer("EnviarMensagens", 20, false);
105
		}
106
	}
107
	return 1;
108
}
109
110
public EnviarMensagens()
111
{
112
    new MsgBots = random(sizeof(MensagensBot));
113
	format(str, sizeof(str), "Gaucho: {FFFFFF}%s", MensagensBot[MsgBots]);
114-
	SendClientMessageToAll(0xF97804FF, str);
114+
	SendClientMessageToAll(COR_BOT, str);
115
	return 1;
116
}
117
118
#if USAR_ZCMD 0
119
	public OnPlayerCommandText(playerid, cmdtext[])
120
	{
121
	    if(strcmp(cmdtext, "/ativargaucho", true) == 0)
122
	    {
123
	        if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "Você precisa logar na Rcon para usar este comando");
124
	        BotAtivado = true;
125
	        SendClientMessage(playerid, 0xFFAA0596, "Bot Gaucho Ativado Com Sucesso");
126
	        format(str, sizeof(str), "O Admin %s Ativou o bot 'Gaucho'", Nome(playerid));
127
	        SendClientMessageToAll(0xAA459196, str);
128
	        return 1;
129
		}
130
		if(strcmp(cmdtext, "/desativargaucho", true) == 0)
131
		{
132
		    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "Você precisa logar na Rcon para usar este comando");
133
	        BotAtivado = false;
134
	        SendClientMessage(playerid, 0xFFAA0596, "Bot Gaucho Desativado Com Sucesso");
135
	        format(str, sizeof(str), "O Admin %s Desativou o bot 'Gaucho'", Nome(playerid));
136
	        SendClientMessageToAll(0xAA459196, str);
137
	        return 1;
138
		}
139
		return 0;
140
	}
141
#endif
142
#if USAR_ZCMD 1
143
	CMD:ativargaucho(playerid, params[])
144
	{
145
	    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "Você precisa logar na Rcon para usar este comando");
146
     	BotAtivado = true;
147
	    SendClientMessage(playerid, 0xFFAA0596, "Bot Gaucho Ativado Com Sucesso");
148
     	format(str, sizeof(str), "O Admin %s Ativou o bot 'Gaucho'", Nome(playerid));
149
     	SendClientMessageToAll(0xAA459196, str);
150
     	return 1;
151
	}
152
	CMD:desativargaucho(playerid, params[])
153
	{
154
 		if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "Você precisa logar na Rcon para usar este comando");
155
   		BotAtivado = false;
156
   		SendClientMessage(playerid, 0xFFAA0596, "Bot Gaucho Desativado Com Sucesso");
157
   		format(str, sizeof(str), "O Admin %s Desativou o bot 'Gaucho'", Nome(playerid));
158
   		SendClientMessageToAll(0xAA459196, str);
159
   		return 1;
160
	}
161
#endif