Стилистик

[WhitePower]

Люди у кого есть стилист скиньте плз искал на форуме не нашол заранее большое спс

[nomn]

В афине есть стандартный.

[nejiko]

Держи Русского Стилиста!

prontera.gat,168,179,1	script	Стилист	429,{

set .@name$,"[^FF8000Стилист ^^^000000]";
setarray .@max[1],600,251,50;
setarray .@blacklist[0],188,143,261,27;

cutin "jpn_mid01",2;
setarray .@type[1],7,6,1;
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 "Выбранный стиль вне диапазона.";
cutin "jpn_mid01",255;
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 - Одежда " +.@style+ " была удалена.";
set .@style, .@style - 1;
goto L_menuloop;
} else if (.@style == .@blacklist[.@f] && .@s == 1) {
message strcharinfo(0),"GM Message - Одежда " +.@style+ " была удалена.";
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),"Достигнут Предел";
}

// MINIMUM MENU ==============================================================
if (.@style == 0) {
set .@prev,.@max[.@s];
message strcharinfo(0),"Начнём сначала";
}

// 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 "Выберите, к какому стилю Вы хотели бы перейти:";
next;
input .@style;
if (.@style < 0 || .@style > .@max[.@s]) {
mes .@name$;
mes "Выбранный стиль вне диапазона.";
cutin "jpn_mid01",255;
close;
}
goto L_menuloop;

L_save:
next;
mes .@name$;
mes "Выберите, Слот для сохранения:";
set .@x, select("Слот 1 - [" +@revert[1]+ "]",
"Слот 2 - [" +@revert[2]+ "]",
"Слот 3 - [" +@revert[3]+ "]");

setarray @revert[.@x], .@style;
goto L_menuloop;

L_load:
next;
mes .@name$;
mes "Выберите, Слот для восстановления:";
set .@x, select("Слот 1 - [" +@revert[1]+ "]",
"Слот 2 - [" +@revert[2]+ "]",
"Слот 3 - [" +@revert[3]+ "]");

set .@style, @revert[.@x];
goto L_menuloop;
}

Изменено 8 июня, 2012 пользователем nejiko

[WhitePower]

спасиба большое ешё хотел спросить как лехче всего добавить чтоб барыги могли торговать за TCG ?

Изменено 8 июня, 2012 пользователем WhitePower

[nejiko]

не вижу спасибку)

Вот держи Тыць или вот Тыць

Изменено 8 июня, 2012 пользователем nejiko

[sindro]

ммм чото цвета не меняються а как сделать чтоб по больше цветов было?

[botka4aet]

ммм чото цвета не меняються а как сделать чтоб по больше цветов было?

дифать икзе

[nomn]

ммм чото цвета не меняються а как сделать чтоб по больше цветов было?

так цвета не меняются, или их мало?

Если не меняются, то выше моего поста тебе дали ответ,

если мало - скачай себе грф с покрасками и в clien.conf измени параметры,

касающиеся цветов и причесок.