Автор: Mr.Freeman: Дата: 04.10.2011

prontera,164,169,3	script	Джонни	121,{



	set stat_coast, 500000;

	set skill_coast, 200000;

	set $name$, "Джонни";



	mes "["+$name$+"]";

	mes "Здраствуйте, "+strcharinfo(0)+".";

	mes "Я продавец статов и скиллов.";

	mes "Выберите, что вас интересует.";

	next;

	menu "Статы",S_Stat,"Скиллы",S_Skill,"Спасибо, не надо",S_Compl;



S_Stat:

	mes "["+$name$+"]";

	mes "Выберите какой стат вы хотите купить.";

	next;

	menu "Str",S_Str,"Agi",S_Agi,"Vit",S_Vit,"Int",S_Int,"Dex",S_Dex,"Luk",S_Luk;

	

S_Str:

	set stat, bStr;

	set $statq$, "Str";

	goto S_Buy_Stat;

S_Agi:

	set stat, bAgi;

	set $statq$, "Agi";

	goto S_Buy_Stat;

S_Vit:

	set stat, bVit;

	set $statq$, "Vit";

	goto S_Buy_Stat;

S_Int:

	set stat, bInt;

	set $statq$, "Int";

	goto S_Buy_Stat;

S_Dex:

	set stat, bDex;

	set $statq$, "Dex";

	goto S_Buy_Stat;

S_Luk:

	set stat, bLuk;

	set $statq$, "Luk";

	goto S_Buy_Stat;

	

S_Skill:

	mes "["+$name$+"]";

	mes "Какое колличество скилл поинтов вы хотите купить?";

	next;

	input b;

	set coast_skill_sell, b * skill_coast;

	if (Zeny < coast_skill_sell) {

	mes "Вам необходимо "+coast_skill_sell+" zeny.";

	} else {

	set SkillPoint,SkillPoint + b;

	goto S_Compl;

	}



S_Buy_Stat:

	mes "["+$name$+"]";

	mes "Какое колличество статов вы хотите купить?";

	next;

	input a;

	set $orstat,300 - readparam(stat);

	if ($orstat == 0) {mes "["+$name$+"]"; mes "Вы не можете купить больше статов в "+$statq$+"."; close;}

	if (a > $orstat) {

	mes "["+$name$+"]";

	mes "Вы не можете купить больше "+$orstat+" статов.";

	} else {

	set coast_stat_sell, a * stat_coast;

	if (Zeny < stat_coast) {

	mes "["+$name$+"]";

	mes "Вам необходимо "+coast_stat_sell+" zeny.";

	} else {

	mes "["+$name$+"]";

	mes "Вы хотите купить "+a+" статов в "+$statq$+".";

	mes "Вы уверены?";

	next;

	menu "^FF3355Нет^000000",S_No,"Да",S_Yes;

	S_Yes:

	set zeny,zeny - coast_stat_sell;

	statusup2 stat, a;

	S_No:

	goto S_Compl;

	}

	

S_Compl:

	mes "["+$name$+"]";

	mes "Спасибо, приходите еще.";

	close;

	}

}

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