А где дописывать на прически а не на цвена одежды? Вот сам скрипт. prontera,168,179,4 script Стилист 763,{ set .@name$,"[^FF8000~СтИлИсТ~^000000]"; setarray .@max[1],350,250,40; // Number of cloths, haircolors, hairstyles in client setarray .@blacklist[0],188,143,261; // NPC will skip any cloth colors in this array. // Use for palettes that cause errors or just plain look bad. // Leave first value at 0 to disable. setarray .@type[1],7,6,1; // DO NOT EDIT set .@style,0; mes .@name$; mes "Здаров! Я могу изменить твой внешний вид!"; mes " "; mes "Выбирай что-бы хотел в себе изменить:"; next; set .@s,select("Цвет Одежды", "Цвет Прически", "Стиль Прически"); mes .@name$; mes "Как хочешь?"; next; menu "Поехали с начала",L_start, "Я знаю номер",-; // CHOOSE WHERE TO START ===================================================== mes .@name$; mes "Отлично,введи цифры между ^0000FF0 и " +.@max[.@s]+ "^000000."; next; input .@style; if (.@style < 0 || .@style > .@max[.@s]) { mes .@name$; mes "Style chosen is out of range."; close; } L_start: setarray @revert[1],getlook(.@type[.@s]),0,0; mes .@name$; mes "Начнём с ^007700" +.@style+ "^000000."; next; // BEGINNING OF STYLE MENU LOOP ================================================ L_menuloop: if (.@blacklist[0]) { for (set .@f,0; .@f < getarraysize(.@blacklist); set .@f,.@f+1) { if (.@style == .@blacklist[.@f] && .@previous == 1 && .@s == 1) { message strcharinfo(0),"GM Message - Cloth " +.@style+ " was removed."; set .@style, .@style - 1; goto L_menuloop; } else if (.@style == .@blacklist[.@f] && .@s == 1) { message strcharinfo(0),"GM Message - Cloth " +.@style+ " was removed."; set .@style, .@style +1; goto L_menuloop; } } } setlook .@type[.@s],.@style; mes "Ето номер стиля ^007700" +.@style+ "^000000."; set .@next, .@style + 1; set .@prev, .@style - 1; // MAXIMUM MENU if (.@style == .@max[.@s]) { set .@next,0; message strcharinfo(0),"Limit Reached"; } // MINIMUM MENU ============================================================== if (.@style == 0) { set .@prev,.@max[.@s]; message strcharinfo(0),"Beginning Reached"; } // PREVIOUS MENU ============================================================= if (.@previous) { menu "^FF0000Назад - " +.@prev+ "^000000",L_prev, "^0000FFДальше - " +.@next+ "^000000",L_next, "Перейти к...",L_jump, "Сохранить",L_save, "Загрузить",L_load; } // DEFAULT MENU ============================================================== menu "^0000FFДальше - " +.@next+ "^000000",L_next, "^FF0000Назад - " +.@prev+ "^000000",L_prev, "Перейти к...",L_jump, "Сохранить",L_save, "Загрузить",L_load; L_next: set .@previous,0; set .@style, .@next; goto L_menuloop; L_prev: set .@previous,1; set .@style, .@prev; goto L_menuloop; L_jump: next; mes .@name$; mes "Choose which style you'd like to jump to:"; next; input .@style; if (.@style < 0 || .@style > .@max[.@s]) { mes .@name$; mes "Style chosen is out of range."; close; } goto L_menuloop; L_save: next; mes .@name$; mes "Choose which slot you'd like to save to:"; set .@x, select("Slot 1 - [" +@revert[1]+ "]", "Slot 2 - [" +@revert[2]+ "]", "Slot 3 - [" +@revert[3]+ "]"); setarray @revert[.@x], .@style; goto L_menuloop; L_load: next; mes .@name$; mes "Choose which slot you'd like to load from:"; set .@x, select("Slot 1 - [" +@revert[1]+ "]", "Slot 2 - [" +@revert[2]+ "]", "Slot 3 - [" +@revert[3]+ "]"); set .@style, @revert[.@x]; goto L_menuloop; OnInit: waitingroom "Стилист",0; end; }
