· 9 years ago · Feb 05, 2017, 01:54 AM
1//|--- Nome ---------------------------------------------------|
2//| Set Iniciante |
3//|--- Autor --------------------------------------------------|
4//| HanzO |
5//| http://forum.brathena.org/index.php/user/2171-hanzo/ |
6//|--- CompatÃvel ---------------------------------------------|
7//| eA/brA/Cronus |
8//|--- Atualizações -------------------------------------------|
9//| v1.0 - Script criado .......................... 10/01/2017 |
10//| v1.1 - Adicionado escolhas de Sets ........... 11/01/2017 |
11//| v2.0 - Adicionado variável por Conta .......... 12/01/2017 |
12//| v2.1 - Adicionado variável por IP ............. 12/01/2017 |
13//|--- Descrição ----------------------------------------------|
14//| Script faz checagem de Conta e IP para doar itens aos |
15//| Jogadores iniciantes do Servidor. |
16//|--- Tabela SQL ---------------------------------------------|
17//| CREATE TABLE IF NOT EXISTS `set_iniciante` (
18//| `id` int(11) unsigned NOT NULL auto_increment,
19//| `account` int(11) unsigned NOT NULL default '0',
20//| `ip` varchar(100) NOT NULL default '0',
21//| PRIMARY KEY (`id`)
22//| )ENGINE=MyISAM;
23//|------------------------------------------------------------|
24//| Favor, não retire os créditos! |
25//|------------------------------------------------------------|
26prontera,151,184,5 script Set Iniciante 628,{
27
28 //=== Configurações ==============================
29 set .NomeNpc$,"[^0000ffSet Iniciante^000000]";
30 set .NomeServidor$,"Old Times RO";
31 //=== Itens Set Guild Str ========================
32 setarray .@SetStr[0],23005,23024,23029,23030,23003,2629,2629,12312,1230,13035,1205,1208,1108,1309;
33 setarray .@SetQtdStr[0],1,1,1,1,1,1,1,5,1,1,1,1,1,1;
34 //=== Itens Set Guild Vit ========================
35 setarray .@SetVit[0],23006,23010,23025,23026,23003,2630,2630,12312,1230,1505,1408,1228,1237,2114;
36 setarray .@SetQtdVit[0],1,1,1,1,1,1,5,1,1,1,1,1,1,1;
37 //=== Itens Set Guild Int ========================
38 setarray .@SetInt[0],23011,23021,23017,23015,23003,23001,23001,12312,1602,13302,2114;
39 setarray .@SetQtdInt[0],1,1,1,1,1,1,1,5,1,1,1;
40 //=== Itens Set Guild Dex ========================
41 setarray .@SetDex[0],23005,23024,23032,23018,23003,23002,23002,12312,1230,1705,1902,2114;
42 setarray .@SetQtdDex[0],1,1,1,1,1,1,1,5,1,1,1,1;
43 //================================================
44
45 mes .NomeNpc$;
46 mes "Olá ^0000ff"+strcharinfo(0)+"^000000. Seja bem "+(Sex?"bem vindo":"bem vinda")+" ao "+.NomeServidor$+"!";
47 mes "Me diga o que você deseja?";
48 switch(select("- ^0000ffReceber Set Iniciante^000000:- Tempo de duração:- ^0000ffInformações dos Sets^000000"))
49 {
50 next;
51 case 1:
52 mes .NomeNpc$;
53 mes "Qual Set você escolhe?";
54 switch(select("- ^0000ffForça^000000:- Vitalidade:- ^0000ffInteligência^000000:- Destreza"))
55 {
56 next;
57 case 1:
58 mes .NomeNpc$;
59 mes "Tem certeza que deseja escolher esse Set?";
60 mes "Nota: ^ff0000O mesmo é pra ser adquirido apenas 1x. Aqueles que burlarem essa norma terão as devidas consequências!^000000";
61 if(select("- ^0000ffSim^000000:- Não") == 2){ close; }
62 {
63 next;
64 query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",@IP$);
65 query_sql ("SELECT `ip` FROM `set_iniciante` WHERE `ip` = '"+@IP$+"'",@EXIST$);
66 if(@EXIST$ != @IP$){
67 query_sql ("INSERT INTO `set_iniciante` (account,ip) VALUES ('"+getcharid(3)+"','"+@IP$+"')");
68 } else {
69 set #japegou,1;
70 mes .NomeNpc$;
71 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
72 close;
73 end;
74 }
75 if(#japegou){
76 mes .NomeNpc$;
77 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
78 close;
79 }
80 /*for(set .@i,0; .@i < getarraysize(.@SetStr); set .@i,.@i+1){
81 getitem .@SetStr[.@i],.@SetQtdStr[.@i];
82 }*/
83 //=== Donates ====================================
84 rentitem 23005,2592000;
85 rentitem 23024,2592000;
86 rentitem 23030,2592000;
87 rentitem 23003,2592000;
88 rentitem 2629,2592000;
89 rentitem 2629,2592000;
90 //=== Armas ======================================
91 getitem 1230,1;
92 getitem 13035,1;
93 getitem 1205,1;
94 getitem 1208,1;
95 getitem 1108,1;
96 getitem 1309,1;
97 //=== Outros =====================================
98 getitem 22998,1;
99 getitem 12312,5;
100 //================================================
101 set #japegou,1;
102 mes .NomeNpc$;
103 mes "Pronto, aà estão os seus itens! Faça bom uso.";
104 close;
105 end;
106 }
107
108 case 2:
109 mes .NomeNpc$;
110 mes "Tem certeza que deseja escolher esse Set?";
111 mes "Nota: ^ff0000O mesmo é pra ser adquirido apenas 1x. Aqueles que burlarem essa norma terão as devidas consequências!^000000";
112 if(select("- ^0000ffSim^000000:- Não") == 2){ close; }
113 {
114 next;
115 query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",@IP$);
116 query_sql ("SELECT `ip` FROM `set_iniciante` WHERE `ip` = '"+@IP$+"'",@EXIST$);
117 if(@EXIST$ != @IP$){
118 query_sql ("INSERT INTO `set_iniciante` (account,ip) VALUES ('"+getcharid(3)+"','"+@IP$+"')");
119 } else {
120 set #japegou,1;
121 mes .NomeNpc$;
122 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
123 close;
124 end;
125 }
126 if(#japegou){
127 mes .NomeNpc$;
128 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
129 close;
130 }
131 /*for(set .@i,0; .@i < getarraysize(.@SetVit); set .@i,.@i+1){
132 getitem .@SetVit[.@i],.@SetQtdVit[.@i];
133 }*/
134 //=== Donates ====================================
135 rentitem 23005,2592000;
136 rentitem 23024,2592000;
137 rentitem 23030,2592000;
138 rentitem 23003,2592000;
139 rentitem 2629,2592000;
140 rentitem 2629,2592000;
141 //=== Armas ======================================
142 getitem 1230,1;
143 getitem 1505,1;
144 getitem 1408,1;
145 getitem 1228,1;
146 getitem 1237,1;
147 getitem 13302,1;
148 getitem 2114,1;
149 //=== Outros =====================================
150 getitem 22998,1;
151 getitem 12312,5;
152 //================================================
153 set #japegou,1;
154 mes .NomeNpc$;
155 mes "Pronto, aà estão os seus itens! Faça bom uso.";
156 close;
157 end;
158 }
159
160 case 3:
161 mes .NomeNpc$;
162 mes "Tem certeza que deseja escolher esse Set?";
163 mes "Nota: ^ff0000O mesmo é pra ser adquirido apenas 1x. Aqueles que burlarem essa norma terão as devidas consequências!^000000";
164 if(select("- ^0000ffSim^000000:- Não") == 2){ close; }
165 {
166 next;
167 query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",@IP$);
168 query_sql ("SELECT `ip` FROM `set_iniciante` WHERE `ip` = '"+@IP$+"'",@EXIST$);
169 if(@EXIST$ != @IP$){
170 query_sql ("INSERT INTO `set_iniciante` (account,ip) VALUES ('"+getcharid(3)+"','"+@IP$+"')");
171 } else {
172 set #japegou,1;
173 mes .NomeNpc$;
174 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
175 close;
176 end;
177 }
178 if(#japegou){
179 mes .NomeNpc$;
180 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
181 close;
182 }
183 /*for(set .@i,0; .@i < getarraysize(.@SetInt); set .@i,.@i+1){
184 getitem .@SetInt[.@i],.@SetQtdInt[.@i];
185 }*/
186 //=== Donates ====================================
187 rentitem 23005,2592000;
188 rentitem 23024,2592000;
189 rentitem 23030,2592000;
190 rentitem 23003,2592000;
191 rentitem 2629,2592000;
192 rentitem 2629,2592000;
193 //=== Armas ======================================
194 getitem 1602,1;
195 getitem 2114,1;
196 //=== Outros =====================================
197 getitem 22998,1;
198 getitem 12312,5;
199 //================================================
200 set #japegou,1;
201 mes .NomeNpc$;
202 mes "Pronto, aà estão os seus itens! Faça bom uso.";
203 close;
204 end;
205 }
206
207 case 4:
208 mes .NomeNpc$;
209 mes "Tem certeza que deseja escolher esse Set?";
210 mes "Nota: ^ff0000O mesmo é pra ser adquirido apenas 1x. Aqueles que burlarem essa norma terão as devidas consequências!^000000";
211 if(select("- ^0000ffSim^000000:- Não") == 2){ close; }
212 {
213 next;
214 query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",@IP$);
215 query_sql ("SELECT `ip` FROM `set_iniciante` WHERE `ip` = '"+@IP$+"'",@EXIST$);
216 if(@EXIST$ != @IP$){
217 query_sql ("INSERT INTO `set_iniciante` (account,ip) VALUES ('"+getcharid(3)+"','"+@IP$+"')");
218 } else {
219 set #japegou,1;
220 mes .NomeNpc$;
221 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
222 close;
223 end;
224 }
225 if(#japegou){
226 mes .NomeNpc$;
227 mes "Lamento ^0000ff"+strcharinfo(0)+"^000000 mas você já recebeu o seu Set!.";
228 close;
229 }
230 /*for(set .@i,0; .@i < getarraysize(.@SetDex); set .@i,.@i+1){
231 getitem .@SetDex[.@i],.@SetQtdDex[.@i];
232 }*/
233 //=== Donates ====================================
234 rentitem 23005,2592000;
235 rentitem 23024,2592000;
236 rentitem 23030,2592000;
237 rentitem 23003,2592000;
238 rentitem 2629,2592000;
239 rentitem 2629,2592000;
240 //=== Armas ======================================
241 getitem 1230,1;
242 getitem 1705,1;
243 getitem 1902,1;
244 getitem 2114,1;
245 //=== Outros =====================================
246 getitem 22998,1;
247 getitem 12312,5;
248 //================================================
249 set #japegou,1;
250 mes .NomeNpc$;
251 mes "Pronto, aà estão os seus itens! Faça bom uso.";
252 close;
253 end;
254 }
255 }
256
257 case 2:
258 mes .NomeNpc$;
259 mes "Todos os novatos do nosso Servidor tem direito a uma bonificação de Itens que irão durar 30 dias.";
260 close;
261
262 case 3:
263 mes .NomeNpc$;
264 mes "Escolha qual Set você deseja visualizar?";
265 switch(select("- ^0000ffForça^000000:- Vitalidade:- ^0000ffInteligência^000000:- Destreza"))
266 {
267 next;
268 case 1:
269 mes .NomeNpc$;
270 mes "O Set de Força é composto por:";
271 for(set .@i,0; .@i < getarraysize(.@SetStr); set .@i,.@i+1)
272 mes "- "+.@SetQtdStr[.@i]+" "+getitemname(.@SetStr[.@i])+"";
273 close;
274
275 case 2:
276 mes .NomeNpc$;
277 mes "O Set de Vitalidade é composto por:";
278 for(set .@i,0; .@i < getarraysize(.@SetVit); set .@i,.@i+1)
279 mes "- "+.@SetQtdVit[.@i]+" "+getitemname(.@SetVit[.@i])+"";
280 close;
281
282 case 3:
283 mes .NomeNpc$;
284 mes "O Set de Inteligência é composto por:";
285 for(set .@i,0; .@i < getarraysize(.@SetInt); set .@i,.@i+1)
286 mes "- "+.@SetQtdInt[.@i]+" "+getitemname(.@SetInt[.@i])+"";
287 close;
288
289 case 4:
290 mes .NomeNpc$;
291 mes "O Set de Destreza é composto por:";
292 for(set .@i,0; .@i < getarraysize(.@SetDex); set .@i,.@i+1)
293 mes "- "+.@SetQtdDex[.@i]+" "+getitemname(.@SetDex[.@i])+"";
294 close;
295 }
296 }
297}