prontera,153,187,4 script Stylist 902,{

// 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 "[Stylish Stylist]";
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 "[Stylish Stylist]";
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 "[Stylish Stylist]";
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 "[Stylish Stylist]";
mes "Скока слотов?";
next;

input @n;
set $sty_slots,@n;
close;
}

}

mes "[Stylish Stylist]";
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 "[Stylish Stylist]";
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 "[Stylish Stylist]";
mes "Прекрасный выбор "+@name$[@type]+".";
next;
return;
case 4:
mes "[Stylish Stylist]";
mes "Выбери номер с ^000088"+@min+"^000000 до ^880000"+@max+"^000000.";
next;
input @i;
if (@i >= @min && @i <= @max) {
set @n,@i;
mes "[Stylish Stylist]";
mes "Прекрасный выбор.";
next;
}
else {
mes "[Stylish Stylist]";
mes "Ой, я ввёл не тот номер.";
next;
}
goto LRepeat;
return;
case 5:
mes "[Stylish Stylist]";
mes "На тебе обратно";
next;
specialeffect2 253;
setlook @type,@t;
return;
}

}

function script F_StyleLoad {

mes "[Stylish Stylist]";
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 "[Stylish Stylist]";
mes "На.";
next;
}
else {
mes "[Stylish Stylist]";
mes "Без проблем.";
next;
}

return;

}

function script F_StyleSave {

mes "[Stylish Stylist]";
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 "[Stylish Stylist]";
mes "Всё отлично.";
next;
}
else {
mes "[Stylish Stylist]";
mes "Без проблем.";
next;
}

return;

}