Автор: Kill Spirit: Дата: 12.08.2010

Реализация: Kill Spirit

prontera,151,193,4	script	Продавец	94,{

switch(select("Купить скилл поинты:Купить статусы:Выйти")){

case 1:

mes "1 скилл = ^339225100.000 зени^000000"; 

next; 

if(select("Купить:Выход") == 2) close;

next;

mes "Введите количество скилов,которое желаете купить:"; 

input @s; 

set @zeny,100000 * @s; 

set @stats,@st + @s; 

if(Zeny < @Zeny){mes "К сожалению,у вас нет необходимой суммы денег!";close;}

set SkillPoint,SkillPoint+@s;

set zeny,zeny - @zeny; 

close;

case 2:

mes "1 стат = ^339225300.000 зени^000000"; 

next; 

if(select("Купить:Выход")==2){close;}

next;

mes "Выбирайте"; 

next; 

switch(select("STR:AGI:VIT:INT:DEX:LUK:Выйти")) 

{ 

case 1: set @st,readparam(bStr); set @st_s$,"str"; break; 

case 2: set @st,readparam(bAgi); set @st_s$,"agi"; break; 

case 3: set @st,readparam(bVit); set @st_s$,"vit"; break; 

case 4: set @st,readparam(bInt); set @st_s$,"int"; break; 

case 5: set @st,readparam(bDex); set @st_s$,"dex"; break; 

case 6: set @st,readparam(bLuk); set @st_s$,"luk"; break; 

default: close; 

} 

mes "Введите количество статов,которое желаете купить:"; 

input @s; 

set @zeny,300000 * @s; 

set @stats,@st + @s; 

if(@stats>300){mes "Вы не можете купить больше 300 статов!";close;}

if(Zeny < @Zeny){mes "К сожалению,у вас нет необходимой суммы денег!";close;}

atcommand "@"+@st_s$+" "+@s; 

set zeny,zeny - @zeny; 

close;

}

}

Полностью рабочий, стоит на моём сервере.

Автор: Kill Spirit: Дата: 12.08.2010

Цитата Мяфк;27215:
А без аткомманд слабо?

Уже исправил, кроме статов, статы незнаю как.

Автор: Мяфк: Дата: 12.09.2010

В доки надо чаще заглядывать..

*statusup ;



This command will bump a specified stat of the invoking character up by one 

permanently. Stats are to be given as number, but you can use these constants to 

replace them:



bStr -  Strength

bVit -  Vitality

bInt -  Intelligence

bAgi -  Agility

bDex -  Dexterity

bLuk -  Luck