Não consigo retirar o erro

[kyoshi]

prontera.gat,135,203,5    script    New item trader    4_M_RUSMAN1,{

mes "^00FF00[Custom Dealer]^000000";
mes "Olá "+strcharinfo(0)+"!";
mes "Eu sou o novo Custom Dealer";
mes "Eu posso trocar itens customizados em troca de DMs.";
mes "Por Favor selecione uma categoria abaixo:";
menu "Custom Hats",Hat1,"Usaveis",Usaveis1,"Vale VIP",valevip,"Change Name",changename;
Hat1:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Por Favor selecione abaixo uma de minhas tabelas:";
next;
menu "No maximo 5DMs",hats5,"No maximo 10DMs",hats10,"No maximo 15DMs",hats15,"No maximo 20DMs",hats20,"No maximo 25DMs",hats25,"Nenhum",nads;
next;
hats5:
mes "^00FF00[Custom Dealer]^000000";
mes "Muito Bem esse é o setor de 5DMs.";
mes "Por favor selecione o item que voce deseja obter:";
menu "Bloody branch",bloody;
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 5DMs por 15 Bloody branchs?";
next;
bloody:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Bloody Branch.";
next;
if(countitem(18785)<5)goto n_bloody;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu 15 Bloody Branchs.";
delitem 18785,5;
getitem 12103,15;
close;

n_bloody:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

hats10:
mes "^00FF00[Custom Dealer]^000000";
mes "Muito Bem esse é o setor de 10DMs.";
mes "Por favor selecione o item que voce deseja obter:";
menu "Royalty Romantic Leaf[1]",leaf,"Royalty Romantic Flower[1]",flower,"Yoyo Tail[1]",yoyo,"Skeggiold Hat[1]",skeggiold,"Chii Ears[1]",chii,"Twin Bunnies[1]",twin,"Modern Glasses[1]",modern;
next;
leaf:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Royalty Romantic Leaf [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Royalty Romantic Leaf [1].";
next;
if(countitem(18785)<10)goto n_leaf;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Royalty Romantic Leaf [1].";
delitem 18785,10;
getitem 18784,1;
close;

n_leaf:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

flower:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Royalty Romantic Flower [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Royalty Romantic Flower [1].";
next;
if(countitem(18785)<10)goto n_flower;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Royalty Romantic Flower [1].";
delitem 18785,10;
getitem 18783,1;
close;

n_flower:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

yoyo:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Yoyo Tail [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Yoyo Tail [1].";
next;
if(countitem(18785)<10)goto n_yoyo;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Yoyo Tail [1].";
delitem 18785,10;
getitem 18262,1;
close;

n_yoyo:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

skeggiold:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Skeggiold Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Skeggiold Hat [1].";
next;
if(countitem(18785)<10)goto n_skeggiold;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Skeggiold Hat [1].";
delitem 18785,10;
getitem 18763,1;
close;

n_skeggiold:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

chii:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Chii Ears [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Royalty Chii Ears [1].";
next;
if(countitem(18785)<10)goto n_chii;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Chii Ears [1].";
delitem 18785,10;
getitem 18757,1;
close;

n_chii:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

twin:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Twin Bunnies [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Twin Bunnies [1].";
next;
if(countitem(18785)<10)goto n_twin;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Twin Bunnies [1].";
delitem 18785,10;
getitem 18734,1;
close;

n_twin:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

modern:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 10DMs por Modern Glasses [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Modern Glasses [1].";
next;
if(countitem(18785)<10)goto n_modern;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Modern Glasses [1].";
delitem 18785,10;
getitem 18778,1;
close;

n_modern:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

hats15:
mes "^00FF00[Custom Dealer]^000000";
mes "Muito Bem esse é o setor de 15DMs.";
mes "Por favor selecione o item que voce deseja obter:";
menu "Moonlight Hat[1]",moon,"Ghostring Hat[1]",ghostring,"Dowry[1]",dowry,"White Hat[1]",white,"Bandana de Konoha[1]",konoha,"Bandana de Itachi[1]",itachi,"Zodiac Belt[1]",zodiac,"Black Mask[1]",mask,"Blue Flower[1]",blue,"Observation Wings[1]",observation,"Sage Ring[1]",sage;
next;
moon:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Moonlight Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Moonlight Hat [1].";
next;
if(countitem(18785)<15)goto n_moon;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Moonlight Hat [1].";
delitem 18785,15;
getitem 18766,1;
close;

n_moon:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

ghostring:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Ghostring Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Ghostring Hat [1].";
next;
if(countitem(18785)<15)goto n_ghostring;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Ghostring Hat [1].";
delitem 18785,15;
getitem 18762,1;
close;

n_ghostring:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

dowry:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Dowry [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Dowry [1].";
next;
if(countitem(18785)<15)goto n_dowry;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Dowry [1].";
delitem 18785,15;
getitem 18760,1;
close;

n_dowry:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

white:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por White Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu White Hat [1].";
next;
if(countitem(18785)<15)goto n_white;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu White Hat [1].";
delitem 18785,15;
getitem 18773,1;
close;

n_white:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

konoha:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Bandana de Konoha [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Bandana de Konoha [1].";
next;
if(countitem(18785)<15)goto n_konoha;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Bandana de Konoha [1].";
delitem 18785,15;
getitem 18400,1;
close;

n_konoha:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

itachi:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Bandana de Itachi [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Bandana de Itachi [1].";
next;
if(countitem(18785)<15)goto n_itachi;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Bandana de Itachi [1].";
delitem 18785,15;
getitem 18401,1;
close;

n_itachi:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

zodiac:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Zodiac Belt [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Zodiac Belt [1].";
next;
if(countitem(18785)<15)goto n_zodiac;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Zodiac Belt [1].";
delitem 18785,15;
getitem 18774,1;
close;

n_zodiac:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";

mask:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Black Mask [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Black Mask [1].";
next;
if(countitem(18785)<15)goto n_mask;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Black Mask [1].";
delitem 18785,15;
getitem 18753,1;
close;

n_mask:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

blue:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Blue Flower [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Blue Flower [1].";
next;
if(countitem(18785)<15)goto n_blue;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Blue Flower [1].";
delitem 18785,15;
getitem 18782,1;
close;

n_blue:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

observation:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Observation Wings [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Observation Wings [1].";
next;
if(countitem(18785)<15)goto n_observation;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Observation Wings [1].";
delitem 18785,15;
getitem 18767,1;
close;

n_observation:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

sage:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 15DMs por Sage Ring [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Sage Ring [1].";
next;
if(countitem(18785)<15)goto n_sage;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Sage Ring [1].";
delitem 18785,15;
getitem 18770,1;
close;

n_sage:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

hats20:
mes "^00FF00[Custom Dealer]^000000";
mes "Muito Bem esse é o setor de 20DMs.";
mes "Por favor selecione o item que voce deseja obter:";
menu "Angel Bless[1]",angel,"Arc Angeling Hat[1]",arc,"Black Pirate Hat[1]",pirate,"Black Jester Hat[1]",jester,"Goldeling Hat[1]",goldeling,"Majestic Fox Hat[1]",majestic,"Red Bunny Hat[1]",redbunny,"Sky Helm[1]",sky,"Royalty Wings of Victory[1]",victory;
next;
angel:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Angel Bless [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Angel Bless [1].";
next;
if(countitem(18785)<20)goto n_angel;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Angel Bless [1].";
delitem 18785,20;
getitem 18402,1;
close;

n_angel:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

arc:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Arc Angeling Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Arc Angeling Hat [1].";
next;
if(countitem(18785)<20)goto n_arc;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Arc Angeling Hat [1].";
delitem 18785,20;
getitem 18777,1;
close;

n_arc:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

pirate:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Black Pirate Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Black Pirate Hat [1].";
next;
if(countitem(18785)<20)goto n_pirate;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Black Pirate Hat [1].";
delitem 18785,20;
getitem 18754,1;
close;

n_pirate:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

jester:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Black Jester Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Black Jester Hat [1].";
next;
if(countitem(18785)<20)goto n_jester;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Black Jester Hat [1].";
delitem 18785,20;
getitem 18759,1;
close;

n_jester:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

goldeling:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Goldeling Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Goldeling Hat [1].";
next;
if(countitem(18785)<20)goto n_goldeling;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Goldeling Hat [1].";
delitem 18785,20;
getitem 18764,1;
close;

n_goldeling:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

majestic:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Majestic Fox Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Majestic Fox Hat [1].";
next;
if(countitem(18785)<20)goto n_majestic;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Majestic Fox Hat [1].";
delitem 18785,20;
getitem 18765,1;
close;

n_majestic:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

redbunny:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Red Bunny Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Red Bunny Hat [1].";
next;
if(countitem(18785)<20)goto n_redbunny;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Red Bunny Hat [1].";
delitem 18785,20;
getitem 18768,1;
close;

n_redbunny:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";

sky:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Sky Helm [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Sky Helm [1].";
next;
if(countitem(18785)<20)goto n_sky;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Sky Helm [1].";
delitem 18785,20;
getitem 18771,1;
close;

n_sky:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

victory:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 20DMs por Royalty Wings of Victory?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Royalty Wings of Victory [1].";
next;
if(countitem(18785)<20)goto n_victory;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Royalty Wings of Victory [1].";
delitem 18785,20;
getitem 18769,1;
close;

n_victory:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

hats25:
mes "^00FF00[Custom Dealer]^000000";
mes "Muito Bem esse é o setor de 25DMs.";
mes "Por favor selecione o item que voce deseja obter:";
menu "Royalty Sun God Helm[1]",sgh,"Helmo Maya[1]",maya,"Helmo Negro[1]",negro,"Black Ribbon[1]",ribbon,"Pingu Cap[1]",pingu,"Travellers Hat[1]",travell,"Panda Ears[1]",panda,"Fox Ears[1]",fox,"Bope Cap[1]",bope,"Dark Helmet of Orc Hero[1]",orc;
next;
sgh:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Royalty Sun God Helm [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Royalty Sun God Helm [1].";
next;
if(countitem(18785)<25)goto n_sgh;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Royalty Sun God Helm [1].";
delitem 18785,25;
getitem 18775,1;
close;

n_sgh:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

maya:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Helmo Maya [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Helmo Maya [1].";
next;
if(countitem(18785)<25)goto n_maya;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Helmo Maya [1].";
delitem 18785,25;
getitem 18738,1;
close;

n_maya:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

negro:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Helmo Negro [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Helmo Negro [1].";
next;
if(countitem(18785)<25)goto n_negro;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Helmo Negro [1].";
delitem 18785,25;
getitem 18758,1;
close;

n_negro:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

ribbon:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Black Ribbon [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Black Ribbon [1].";
next;
if(countitem(18785)<25)goto n_ribbon;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Black Ribbon [1].";
delitem 18785,25;
getitem 18755,1;
close;

n_ribbon:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

pingu:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Pingu Cap [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Pingu Cap [1].";
next;
if(countitem(18785)<25)goto n_pingu;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Pingu Cap [1].";
delitem 18785,25;
getitem 18780,1;
close;

n_pingu:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

travell:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Majestic Travellers Hat [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Travellers Hat [1].";
next;
if(countitem(18785)<25)goto n_travell;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Majestic Travellers Hat [1].";
delitem 18785,25;
getitem 18752,1;
close;

n_travell:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

panda:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Panda Ears [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Panda Ears [1].";
next;
if(countitem(18785)<25)goto n_panda;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Panda Ears [1].";
delitem 18785,25;
getitem 18779,1;
close;

n_panda:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";

fox:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Fox Ears [1]?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Fox Ears [1].";
next;
if(countitem(18785)<25)goto n_fox;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Fox Ears [1].";
delitem 18785,25;
getitem 18761,1;
close;

n_fox:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

bope:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Bope Cap?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Bope Cap [1].";
next;
if(countitem(18785)<25)goto n_bope;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Bope Cap [1].";
delitem 18785,25;
getitem 18756,1;
close;

n_bope:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

orc:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 25DMs por Dark Helmet of Orc Hero?";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê escolheu Dark Helmet of Orc Hero [1].";
next;
if(countitem(18785)<25)goto n_orc;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu Dark Helmet of Orc Hero [1].";
delitem 18785,25;
getitem 18776,1;
close;

n_orc:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

Usaveis1:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Selecione abaixo qual pacote de itens usaveis voçê gostaria de adquirir:";
next;
menu "50 Yggdrasil Berrys (1DM)",drasil,"100 Yggdrasil Seeds (1DM)",seed;
drasil:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 1DM por 50 Yggdrasil Berrys?";
next;
menu "Sim, quero trocar.",letsyes,"Não, não quero trocar",letsnao;
letsyes:
next;
if(countitem(18785)<1)goto n_berry;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu 50 Frutos de Yggdrasil Berrys.";
delitem 18785,1;
getitem 607,50;
close;

n_berry:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

letsnao:
mes "^00FF00[Custom Dealer]^000000";
mes "Ok... Volte a falar comigo  quando mudar de idéia =)";
close;

seed:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Gostaria de trocar 1DM por 100 Yggdrasil Seeds?";
next;
menu "Sim, quero trocar.",letsyess,"Não, não quero trocar",letsnaoo;
letsyess:
next;
if(countitem(18785)<1)goto n_seed;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei fazer a troca.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu 100 Frutos de Yggdrasil Seeds.";
delitem 18785,1;
getitem 608,100;
close;

n_seed:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

letsnaoo:
mes "^00FF00[Custom Dealer]^000000";
mes "Ok... Volte a falar comigo  quando mudar de idéia =)";
close;

close;

valevip:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Vejo que voçê está querendo ser um player VIP.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Tenho 02 Tickets VIP, um de 30 dias e outro de 15 dias.";
mes "Qual deles irá querer?";
next;
menu "O de 30 dias",trinta,"O de 15 dias",quinze,"Nenhum no momento",nadsnao;
next;
trinta:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê deseja comprar 1 Vale VIP(30 dias VIP) por 8 Dark Moons?";
next;
menu "Desejo Comprar o Vale VIP",yvip,"Não, não quero comprar o vale VIP",nvip;
yvip:
next;
if(countitem(18785)<8)goto n_vip;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei lhe dar o Vale VIP pelas 8DMs.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu o Vale VIP (30 Dias).";
delitem 18785,8;
getitem 18403,1;
close;

n_vip:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

nvip:
mes "^00FF00[Custom Dealer]^000000";
mes "Ok... Volte a falar comigo  quando mudar de idéia =)";
close;

quinze:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê deseja comprar 1 Vale VIP(15 dias VIP) por 4 Dark Moons?";
next;
menu "Desejo Comprar o Vale VIP",yovip,"Não, não quero comprar o vale VIP",novip;
yovip:
next;
if(countitem(18785)<4)goto no_vip;
mes "^00FF00[Custom Dealer]^000000";
mes "Ok irei lhe dar o Vale VIP pelas 4DMs.";
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Voçê adquiriu o Vale VIP (15 Dias).";
delitem 18785,4;
getitem 18584,1;
close;

no_vip:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

novip:
mes "^00FF00[Custom Dealer]^000000";
mes "Ok... Volte a falar comigo  quando mudar de idéia =)";
close;

nadsnao:
mes "^00FF00[Custom Dealer]^000000";
mes "Ok... Volte a falar comigo  quando mudar de idéia =)";
close;

nads:
mes "^00FF00[Custom Dealer]^000000";
mes "Se quiser saber mais sobre Dark Moons, visite nosso site!";
mes "Não deixe de colaborar!";
mes "www.ragnareborn.com.br";
close;

changename:
next;
mes "^00FF00[Custom Dealer]^000000";
mes "Agora voçê pode alterar seu nick.";
mes "Chegou o 'Change Name', com ele voçê pode alterar seu nick.";
mes "Preço Promocional: 5 Dark Moons.";
mes "O que deseja fazer?";
next;
menu "Sim, quero um.",letsgo,"Não, Obrigado.",letsno;

letsgo:

            if(getgmlevel() > 98)
            {
                mes "O que gostaria de fazer?";
                switch(select("- Listar útimas trocas:- Verificar Nicks trocados de uma conta:- Verificar Nicks trocados de um char:Menu do Jogador"))
                {
                    case 1:                            
                            query_sql "SELECT `char_id`, `account_id`, `antigo`, `novo` FROM `nick_antigo` ORDER BY `id` desc",.@charid,.@accid,.@antigo$,.@novo$;
                        
                            dispbottom "======= Lista de Alterações =======";
                            dispbottom "Id do Char | Id da Conta | Nicks";
                            for(set @i,0; @i < getarraysize(.@charid); set @i,@i+1)
                            {
                                dispbottom .@charid[@i]+" | "+.@accid[@i]+" | "+.@antigo$[@i]+" > Trocou para > "+.@novo$[@i];
                            }
                            close();
                    case 2:
                            mes "Por favor, me informe o Id da conta que deseja verificar:";
                            input .@acc;
                            
                            query_sql "SELECT `char_id`, `account_id`, `antigo`, `novo` FROM `nick_antigo` WHERE `account_id` = '"+.@acc+"' ORDER BY `id` desc",.@charid,.@accid,.@antigo$,.@novo$;
                            
                            dispbottom "======= Lista de Alterações  da conta "+.@acc+" =======";
                            dispbottom "Id do Char | Id da Conta | Nicks";
                            for(set @i,0; @i < getarraysize(.@charid); set @i,@i+1)
                            {
                                dispbottom .@charid[@i]+" | "+.@accid[@i]+" | "+.@antigo$[@i]+" > Trocou para > "+.@novo$[@i];
                            }
                            close();
                    case 3:
                            mes "De que formar gostaria de filtarar os resultados?";
                            switch(select("Procurar pelo ID do Char:Procurar por nick"))
                            {
                                case 1:
                                        mes "Por favor, informe o id do personagem:";
                                         input .@idchar;
                                        
                                        query_sql "SELECT `char_id`, `account_id`, `antigo`, `novo` FROM `nick_antigo` WHERE `char_id` = '"+.@idchar+"' ORDER BY `id` desc",.@charid,.@accid,.@antigo$,.@novo$;
                                        
                                        dispbottom "======= Lista de Alterações  da conta "+.@acc+" =======";
                                        dispbottom "Id do Char | Id da Conta | Nicks";
                                        for(set @i,0; @i < getarraysize(.@charid); set @i,@i+1)
                                        {
                                            dispbottom .@charid[@i]+" | "+.@accid[@i]+" | "+.@antigo$[@i]+" > Trocou para >"+.@novo$[@i];
                                        }
                                        close();
                                case 2:
                                        mes "Por favor, informe o nick antigo:";
                                         input .@old$;
                                        
                                        query_sql "SELECT `char_id`, `account_id`, `antigo`, `novo` FROM `nick_antigo` WHERE `antigo` = '"+.@old$+"' OR `novo` = '"+.@old$+"' ORDER BY `id` desc",.@charid,.@accid,.@antigo$,.@novo$;
                                        
                                        dispbottom "======= Lista de Alterações  da conta "+.@acc+" =======";
                                        dispbottom "Id do Char | Id da Conta | Nicks";
                                        for(set @i,0; @i < getarraysize(.@charid); set @i,@i+1)
                                        {
                                            dispbottom .@charid[@i]+" | "+.@accid[@i]+" | "+.@antigo$[@i]+" > Trocou para > "+.@novo$[@i];
                                        }
                                        close();
                            }
                    case 4:
                }
            }
            
            if(countitem(18785)<5)goto n_dms;
            
            mes "^00FF00[Custom Dealer]^000000";
            mes "Digite o nick que deseja na caixa:";
            mes "PS: Serão aceitos nicks com 4~24 caracteres!";
            input .@nick$;
            if(getstrlen(.@nick$) < 4 || getstrlen(.@nick$) > 24)
            {
                next;
                mes "^00FF00[Custom Dealer]^000000";
                mes "Numero de Caracteres acima ou abaixo do permitido.";
                close;
            }
            query_sql "SELECT `name` FROM `char` WHERE `name`= '"+.@nick$+"'", .@exist$;
            next;
            if (.@exist$[0]!="")
            {
                mes "^00FF00[Custom Dealer]^000000";
                mes "Me desculpe mais me parece que esse nome ja existe.";
                mes "Tente outro nome.";
                close;
            }
            mes "^00FF00[Custom Dealer]^000000";
            mes "Tem certeza que deseja mudar de nick?";
            if(select("Sim:Não")==2) close;
            next;

            set .@oldnick$,strcharinfo(0);
            mes "^00FF00[Custom Dealer]^000000";
            mes "Seu nome foi alterado com sucesso!";
            mes "Por motivos de segurança você será desconectado em seguida.";

            query_sql "UPDATE `char` SET `name` = '"+.@nick$+"' WHERE `char_id` = '"+getcharid(0)+"'";
            query_sql "INSERT INTO `nick_antigo` VALUES ('NULL','"+getcharid(0)+"','"+getcharid(3)+"','"+.@oldnick$+"', '"+.@nick$+"')";
            
            if(getcharid(2) != 0)
            {
                query_sql "UPDATE `guild_member` set `name` = '"+.@nick$+"' WHERE `char_id` = "+getcharid(0)+"";
                
                set .@GID,getcharid(2);
                if(strcharinfo(0)==getguildmaster(.@GID)) query_sql "UPDATE `guild` set `master` = '"+.@nick$+"' WHERE `char_id` = "+getcharid(0)+"";
            }

            close2();
            atcommand "@kick "+strcharinfo(0);
            end();

letsno:
mes "^00FF00[Custom Dealer]^000000";
mes "Ok... Volte quando necessitar do Change Name.";

n_dms:
mes "^00FF00[Custom Dealer]^000000";
mes "Para maiores informções sobre como adquirir Dark Moons";
mes "Acesse www.ragnareborn.com.br";
close;

}