Автор: Rectedo: Дата: 04.01.2010

Аналог темы http://rus-ea.ru/showthread.php?t=2161
От меня объединение и чуть чуть оптимизация кода...

prontera,150,150,0	script	Необычный продавец	57,{

if (skillstatseller > 9) {

	mes "[Продавец]";

	mes "Прости, "+ strcharinfo(0) +", но тебе я больше ничем помочь не могу.";

close;

} else {

set $skprice,2500000;

set $stprice,500000;

	mes "[Продавец]";

	mes "Привет, "+ strcharinfo(0) +", я торгую не обычными товарами. Могу продать тебе скилл поинты и стат поинты.";

L_ch:

next;

	menu "Я хочу скилл поинты",-,"Я хочу стат поинты",L_stat,"Мне не интересно",L_exit;

	mes "[Продавец]";

	mes "Хорошо, 1 скилл поинт стоит "+ $skprice +" зени.";

next;

	menu "Беру!",-,"Хочу что то другое",L_ch,"Ничего не хочу",L_exit;

	mes "[Продавец]";

	mes "Сколько хочешь?";

next;

	input @input;

	if (@input < 1) {

		mes "[Продавец]";

		mes "Что то я совсем понять не могу чего ты хочешь.";

		close;

	} else {

		set $price,($skprice*@input);

		mes "[Продавец]";

		mes "За "+ @input +" скил поинтов с  тебя получается "+ $price +" зенн.";

	next;

		menu "Вот",-,"Я передумал",L_fd;

		if (zeny < $price) {

			mes "[Продавец]";

			mes "Эээ... Не хватает у тебя... Ну приходи когда подзаработаешь.";

			close;

		} else {

			set zeny,zeny-$price;

			set skillpoint,skillpoint+@input;

			mes "[Продавец]";

			mes "Похоже все в порядке. Желаю приятного дня.";

			set skillstatseller,skillstatseller+1;

		close;

		L_fd:

			mes "[Продавец]";

			mes "Ну думай дальше...";

		close;

		}

	}

L_stat:

	mes "[Продавец]";

	mes "Хорошо, 1 стат поинт стоит "+ $stprice +" зени.";

next;

	menu "Беру!",-,"Хочу что то другое",L_ch,"Ничего не хочу",L_exit;

	mes "[Продавец]";

	mes "Сколько хочешь?";

next;

	input @input;

	if (@input < 1) {

		mes "[Продавец]";

		mes "Что то я совсем понять не могу чего ты хочешь.";

		close;

	} else {

		set $price,($stprice*@input);

		mes "[Продавец]";

		mes "За "+ @input +" стат поинтов с тебя получается "+ $price +" зенн.";

	next;

		menu "Вот",-,"Я передумал",L_dd;

		if (zeny < $price) {

			mes "[Продавец]";

			mes "Эээ... Не хватает у тебя... Ну приходи когда подзаработаешь.";

			close;

		} else {

			set zeny,zeny-$price;

			set statuspoint,statuspoint+@input;

			mes "[Продавец]";

			mes "Похоже все в порядке. Желаю приятного дня.";

			set skillstatseller,skillstatseller+1;

		close;

		L_dd:

			mes "[Продавец]";

			mes "Ну думай дальше...";

		close;

		}

	}

L_exit:

mes "[Продавец]";

mes "Ну тогда приходи, ты знаешь где меня найти.";

close;

}

}

Если пригодилось - тыкните "Спасибо".

Автор: : Дата: 01.01.1970