LcXDKd5n

1//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2//%%           _____    _____   _____   _____   _____    _   _____   _   _            %%
3//%%          |  _  \  /  _  \ |  _  \ | ____| |  _  \  | | /  ___| | | / /           %%
4//%%          | |_| |  | | | | | | | | | |__   | |_| |  | | | |     | |/ /            %%
5//%%          |  _  /  | | | | | | | | |  __|  |  _  /  | | | |     | |\ \            %%
6//%%          | | \ \  | |_| | | |_| | | |___  | | \ \  | | | |___  | | \ \           %%
7//%%          |_|  \_\ \_____/ |_____/ |_____| |_|  \_\ |_| \_____| |_|  \_\          %%
8//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9//%%==================================================================================%%
10//%% | Desenvolvido Por [ADM] Roderick | Cronus | Por Favor, Não Retire Os Créditos | %%
11//%%==================================================================================%%
12//%% INSERIR A TABELA ABAIXO NO BANCO DE DADOS SQL:    				      %%
13//%%                                                                                  %%
14//%%  DROP TABLE IF EXISTS `redlist`;						      %%
15//%%  CREATE TABLE `redlist` (			  				      %%
16//%%  `id` int(11) unsigned NOT NULL auto_increment,				      %%
17//%%  `account` int(11) unsigned NOT NULL default '0',				      %%
18//%%  `ip` varchar(100) NOT NULL default '',					      %%
19//%%  PRIMARY KEY (`id`)							      %%
20//%%  )ENGINE=MyISAM;								      %%
21//%%										      %%
22//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
23-	script	packiniciante	-1,{
24
25	OnPCLoginEvent:
26
27setarray @itens[0],607,678,605,715; //Aqui você adiciona o ID dos itens 
28setarray @qtd[0],3,4,1,10;	//Aqui você colocará a quantidade de cada um
29
30
31
32query_sql ("select last_ip from login where account_id='"+getcharid(3)+"'",@ip$);
33query_sql ("select ip from redlist where ip='"+@ip$+"'",@exist$);
34if (@exist$!=@ip$){
35query_sql("insert into `redlist` (account,ip) values ('"+getcharid(3)+"', '"+@ip$+"')");
36}
37else {
38set #jarecebeu,1;
39end;
40}
41if (#jarecebeu == 1) goto Negado;
42	
43	
44mes "^00FF00 Bem Vindo^000000 ao ^FF0000SeuServer-RO ^000000";
45mes "";
46mes "Vejo que você é novo por aqui, então vou te dar o Pack Iniciante!!";
47mes "Você receberá no Pack, os seguintes itens:";
48next;
49for (set .@i,0; .@i<getarraysize(@itens); set .@i,.@i+1){
50	set .@nome$, .@nome$+getitemname(@itens[.@i]);
51		mes "[^FF0000"+@qtd[.@i]+"^000000] ^0000FF"+.@nome$+"^000000";
52	set .@nome$,"";
53}
54next;
55for (set .@i,0; .@i<getarraysize(@itens); set .@i,.@i+1){
56	getitem @itens[.@i],@qtd[.@i];
57}
58set #jarecebeu,1;
59next;
60mes "Prontinho, faça bom uso!! ^^";
61close;
62end;
63
64Negado:
65end;
66
67}