Сообщений в теме: 9

[XPlayer]

ГМы можите зделать что б у стилиста при листании цвета можно было бы и назад возврощатся,и когда вводишь в ручную номер цвета после него можно было дальше листать что бы было удобней а то доходишь до 200номера а назад никак)буду очень благодарен если зделаете))зарание спасибо!!

[ипанутЙА КРЕВЕДКО]

prontera.gat,169,180,1 script Стилист 122,{

set @name$,"[^FF8000Стилист^000000]";
setarray @max[1],420,70,23; // Number of cloths, haircolors, hairstyles in client
setarray @blacklist[0],0,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 touch
set @style,0;

mes @name$;
mes "Я могу изменить ваш внешний вид, если пожелаете.";
mes " ";
mes "Просто выберите, что вы хотите поменять:";
next;
set @s,select("Цвет одежды",
"Цвет волос",
"Прическу");

if( @s==1) {
mes @name$;
mes "Для этого нам потребуется:";
mes "1 000 000 зени";
next;
if (zeny < 1000000) {
mes @name$;
mes "У вас не хватает ингридиентов";
close;
}
mes @name$;
mes "Похоже все в норме, начнем покраску.";
set zeny,zeny-1000000;
}

if( @s==2) {
mes @name$;
mes "Для этого нам потребуется:";
mes "100 Clover";
mes "100 Fluf";
next;
if (countitem(705) < 100 || countitem(914) < 100 ) {
mes @name$;
mes "У вас не хватает ингридиентов";
close;
}
mes @name$;
mes "Похоже все в норме, начнем покраску.";
delitem 705,100;
delitem 914,100;
}

if( @s==3) {
mes @name$;
mes "Для этого нам потребуется:";
mes "100 000 zeny";
next;
if (zeny < 100000 ) {
mes @name$;
mes "У вас не хватает ингридиентов";
close;
}
mes @name$;
mes "Похоже все в норме, начнем покраску.";
set zeny,zeny-100000;
}

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

L_save:
next;
mes @name$;
mes "Выберите слот, в который записать:";
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 "Выберите слот, из которого загрузить:";
set @x, select("Slot 1 - [" +@revert[1]+ "]",
"Slot 2 - [" +@revert[2]+ "]",
"Slot 3 - [" +@revert[3]+ "]");

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

[ипанутЙА КРЕВЕДКО]

заинтересует поправите

[ипанутЙА КРЕВЕДКО]

и кстати у меня есть много интересных скриптиков кому надо обращайтесь 417-665-728

[ипанутЙА КРЕВЕДКО]

тогда сделайте меня хэлперам по скриптам xD у мя тож много написанных

[Havy]

sdf

[admin]

Сделаю на этой неделе чтобы можно было начинать с конкретного номера, думаю этого будет достаточно, если забуду - напомните. И про квестовые скилы тож...

[goof]

XPlayer (14 мая 2009 - 01:16) писал:

ГМы можите зделать что б у стилиста при листании цвета можно было бы и назад возврощатся...

Havy (21 июня 2011 - 19:08) писал:

sdf

admin (21 июня 2011 - 21:12) писал:

Сделаю на этой неделе чтобы можно было начинать с конкретного номера, думаю этого будет достаточно, если забуду - напомните. И про квестовые скилы тож...

спасибо Havy за псто что ли xD

[Master Judas]

goof (21 июня 2011 - 21:20) писал:

спасибо Havy за псто что ли xD

Ха. Ну да. Так это и работает, хеви набивай посты в нужных темах)

[admin]

Ага Ну вообще давно пора было )))