Автор: JaneAir: Дата: 01.13.2010
Видел на некоторых серваках нпц , в котором 2-е функции , Изготовить и Покрасить.Может кто-то дать пример как такого нпц написать?Сам не додумаюсь , так как скрипт написал свой только один...и то по примеру...заранне аригато..
Автор: JaneAir: Дата: 01.14.2010
prontera,139,176,5 script Примерочная 70,{
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;
}