prontera,134,161,0    script    Примерочная    832,{
set $@name$,"[Примерщик]";
set @topview, getlook(4);
addtimer 1000, strnpcinfo(3)+"::OnLeave";
BEGIN:
mes $@name$;
mes "Здравствуй, "+strcharinfo(0)+".";
mes "Только у меня ты можешь примерить всякие шапочки!";
mes "Пожалуйста, введите ID предмета:";next;
input @id;
set @view, getiteminfo(@id,11);
atcommand "@changelook 1 " + @view;next;
mes $@name$;
mes "Хотите примерить что то ещё?";
if(select("Да,хочу", "Уйти") == 2) {close;}
goto BEGIN;
end;

OnLeave:
atcommand "@changelook 1 " + @topview;
close;
}