prontera,171,181,4 script Стилист 122,{ // Retrieving bound vaules from current config for maximum flexibility // Note: when min_hair_style is set to 0 in config, eAthena resets it to 1. set @min_hair_style,getbattleflag("min_hair_style"); set @max_hair_style,getbattleflag("max_hair_style"); set @min_hair_color,getbattleflag("min_hair_color"); set @max_hair_color,getbattleflag("max_hair_color"); set @min_cloth_color,getbattleflag("min_cloth_color"); set @max_cloth_color,getbattleflag("max_cloth_color"); // Correcting slot count; avalilable maximum is 8, // as string length is limited to 255 characters. if ($sty_slots < 1) set $sty_slots,3; else if ($sty_slots > 8) set $sty_slots,8; mes "[Стилист]"; mes "Приветствую тебя воин."; mes "Я могу тебя чуть-чуть улутшить"; mes "Сделаем тебя смешнее"; mes "Мм красивый ты и так."; mes "Но я сделаю тебя лутше"; mes "Начнём пожалуй."; next; LStart: // Main menu set @s$,""; set @s$,"Изменить мой стиль:Загрузить мой стиль:Сохранить мой стиль:"; if (getgmlevel() > 89) set @s$,@s$+"[GM] Кол-во слотов:"; set @s$,@s$+"Спасибо пока!"; switch(select(@s$)) { case 1: mes "[Стилист]"; mes "Начнём пожалуй?"; next; LRepeat: // Here we go again switch(select("Изменить мою причу:Цвет волос другой:Цвет одежды другой:В начало.")) { case 1: callfunc "F_StyleBrowse",1,@min_hair_style,@min_hair_style,@max_hair_style; break; case 2: callfunc "F_StyleBrowse",6,@min_hair_color,@min_hair_color,@max_hair_color; break; case 3: callfunc "F_StyleBrowse",7,@min_cloth_color,@min_cloth_color,@max_cloth_color; break; case 4: mes "[Стилист]"; mes "Что?"; mes "Ладно."; next; goto LStart; break; } goto LRepeat; break; case 2: callfunc "F_StyleLoad"; goto LStart; break; case 3: callfunc "F_StyleSave"; goto LStart; break; case 4: if (getgmlevel() > 39) { mes "[Стилист]"; mes "Скока слотов?"; next; input @n; set $sty_slots,@n; close; } } mes "[Стилист]"; mes "Всё увидимся в другой раз."; close; } function script F_StyleBrowse { set @name$[1],"hairstyle"; set @name$[6],"hair color"; set @name$[7],"clothes color"; set @type,getarg(0); set @n,getarg(1); set @min,getarg(2); set @max,getarg(3); set @t,getlook(@type); mes "[Стилист]"; mes "Итак ты хочеш поменять "+@name$[@type]; mes "Выбирай себе."; next; LRepeat: // Here we go again setlook @type,@n; if (@n < @max) set @s$,"Дальше "+@name$[@type]+":"; else set @s$,"Первую "+@name$[@type]+":"; if (@n > @min) set @s$,@s$+"Предыдущую "+@name$[@type]+":"; else set @s$,@s$+"Последнюю "+@name$[@type]+":"; set @s$,@s$+"Мне '^000088"+@n+"'^000000 нравиться...:Я выбиру сам...:Неет, дай мою обратно."; switch(select(@s$)) { case 1: if (@n < @max) set @n,@n+1; else set @n,@min; goto LRepeat; return; case 2: if (@n > @min) set @n,@n-1; else set @n,@max; goto LRepeat; return; case 3: mes "[Стилист]"; mes "Прекрасный выбор "+@name$[@type]+"."; next; return; case 4: mes "[Стилист]"; mes "Выбери номер с ^000088"+@min+"^000000 до ^880000"+@max+"^000000."; next; input @i; if (@i >= @min && @i <= @max) { set @n,@i; mes "[Стилист]"; mes "Прекрасный выбор."; next; } else { mes "[Стилист]"; mes "Ой, я ввёл не тот номер."; next; } goto LRepeat; return; case 5: mes "[Стилист]"; mes "На тебе обратно"; next; specialeffect2 253; setlook @type,@t; return; } } function script F_StyleLoad { mes "[Стилист]"; mes "Выбери слот откуда загрузить."; next; set @s$,""; for( set @i,1; @i<=$sty_slots; set @i,@i+1) set @s$,@s$+"Slot "+@i+" (HS["+getd("sty_"+@i+"hs")+"] HC["+getd("sty_"+@i+"hc")+"] CC["+getd("sty_"+@i+"cc")+"]):"; set @s$,@s$+"Нет спасибо."; set @n,select(@s$); if (@n <= $sty_slots) { setlook 1,getd("sty_"+@n+"hs"); setlook 6,getd("sty_"+@n+"hc"); setlook 7,getd("sty_"+@n+"cc"); specialeffect2 454; mes "[Стилист]"; mes "На."; next; } else { mes "[Стилист]"; mes "Без проблем."; next; } return; } function script F_StyleSave { mes "[Стилист]"; mes "Куда сохраним?."; next; set @s$,""; for( set @i,1; @i<=$sty_slots; set @i,@i+1) set @s$,@s$+"Slot "+@i+" (HS["+getd("sty_"+@i+"hs")+"] HC["+getd("sty_"+@i+"hc")+"] CC["+getd("sty_"+@i+"cc")+"]):"; set @s$,@s$+"Нет спасибо."; set @n,select(@s$); if (@n <= $sty_slots) { setd "sty_"+@n+"hs",getlook(1); setd "sty_"+@n+"hc",getlook(6); setd "sty_"+@n+"cc",getlook(7); specialeffect2 244; mes "[Стилист]"; mes "Всё отлично."; next; } else { mes "[Стилист]"; mes "Без проблем."; next; } return; }