prontera,150,150,5	script	Ferreiro 1.0	871,{

set @nome$,"[ Brendorox !]";

mes "Olá, eu sou o "+@nome$+"";
mes "Eu sou um ferreiro, bem Experiente.";
mes "Posso refinar seus itens até +10.";
mes "Gostaria de algo ?";
switch(select("Refinar todos meus itens:Desrefinar todos meus itens:Cancelar")) {

case 1:
mes @nome$;
mes "Vamos lá ..";
atcommand "@refine 0 10";
end;

case 2:
mes @nome$;
mes "Vamos lá ..";
atcommand "@refine 0 -10";
end;

case 3:
mes @name$;
mes "Até logo.";
close;

}