Перейти к содержанию

Очень нужен стат силер


Рекомендуемые сообщения


mes "How many Status Point you want to purchase ?";
mes "1 Point = 300,000 Zeny.";
mes "You have "+Zeny+" Zeny , can purchase "+( Zeny / 300000 )+" Points.";
input .@i,0,( Zeny / 300000 );
mes "You purchased "+.@i+" Points.";
set StatusPoint,StatusPoint + 1;
set Zeny,Zeny - ( 300000 * .@i );
close;

  • Upvote 1
Ссылка на комментарий
Поделиться на другие сайты


mes "How many Status Point you want to purchase ?";
mes "1 Point = 300,000 Zeny.";
mes "You have "+Zeny+" Zeny , can purchase "+( Zeny / 300000 )+" Points.";
input .@i,0,( Zeny / 300000 );
mes "You purchased "+.@i+" Points.";
set StatusPoint,StatusPoint + 1;
set Zeny,Zeny - ( 300000 * .@i );
close;

А можно полный скрипт выложить...а то даже не понятно где этот стат силер,зарание благодарю

Ссылка на комментарий
Поделиться на другие сайты

пиздец.

Да что с тобой! Надо помогать новичкам! Все такими были! Парень же хочет создать свой сервер! А это сайт поддержки таких людей!

  • Upvote 1
Ссылка на комментарий
Поделиться на другие сайты

prontera,157,195,4 script Stat Seller 733,{

mes "How many Status Point you want to purchase ?";

mes "1 Point = 300,000 Zeny.";

mes "You have "+Zeny+" Zeny , can purchase "+( Zeny / 300000 )+" Points.";

input .@i,0,( Zeny / 300000 );

mes "You purchased "+.@i+" Points.";

set StatusPoint,StatusPoint + 1;

set Zeny,Zeny - ( 300000 * .@i );

close;

полагаю если я так сделаю то должен он работать? ну у вы почемуто не работает!!! Поправьте Пожалуйсто

Ссылка на комментарий
Поделиться на другие сайты


set StatusPoint,StatusPoint + 1;
set Zeny,Zeny - ( 300000 * .@i );

Развод (=

полагаю если я так сделаю то должен он работать? ну у вы почемуто не работает!!! Поправьте Пожалуйсто

Изменено пользователем Jarek
  • Upvote 3
Ссылка на комментарий
Поделиться на другие сайты


prontera,150,150,5 script Points 63,{
mes "How many Status Point you want to purchase ?";
mes "1000 Point = 300,000 Zeny.";
if (Zeny<300000) { mes "No Zeny."; close; }
set Zeny,zeny-300000;
atcommand strcharinfo(0) + ":@stpoint 1000";
set StatPot,StatPot + 1;
close;
}

Вот тебе рабочий нпц, дам совет читай папку doc в афине и смотри как что делаеться там по примерам. Если ты такое понять не можешь забуть про форум и занимайся своими делами дальше, серв не для тебя.

Изменено пользователем Gans
  • Downvote 3
Ссылка на комментарий
Поделиться на другие сайты

1. Это говнокод с использованием аткомманды

2. set Zeny,zeny+300000*@a; я еще и наварюсь покупая статы?

3. set StatPot,StatPot + 1*@a; а давайте еще 1 на 1 умножать

  • Upvote 3
Ссылка на комментарий
Поделиться на другие сайты

да кароче походу тут нечего не найдешь...нормального Холявы нет...

даже и етот нпс ставил он не ставиться почемуто даже в папку с хилером пихал

  • Downvote 3
Ссылка на комментарий
Поделиться на другие сайты

я создал в папке Сostom фаил statssiller.txt засунул туда скрипт вот то что выше

потом пошол scripts_custom.conf туда прописал npc: npc/custom/statssiller.txt перезапустил азену захожу в игру нпс нет!

  • Downvote 1
Ссылка на комментарий
Поделиться на другие сайты

а чо почему так? да нет ощибок небыло

смори имя файла мб любое не сморя какой скрипт в тхт находиться если я напиши petux.txt в папке костом и засуну в этот petux.txt скрипт хилера и пропишу путь scripts_custom.conf npc: npc/custom/petux.txt у меня должен появиться нпс хилера? или петуха? -d

  • Downvote 1
Ссылка на комментарий
Поделиться на другие сайты

  • 4 недели спустя...

//===== eAthena Script =======================================

//= Stats Seller

//===== By: ==================================================

//= DeadChild

//===== Current Version: =====================================

//= 1.0

//===== Compatible With: =====================================

//= Any eAthena Version

//===== Description: =========================================

//= Stats Seller

//===== Additional Comments: =================================

//= Have fun with it ^^

//============================================================

prontera,147,169,7 script StatSeller 86,{

set @price, 1000;

mes "[sTP/SKP Seller]";

mes "Hi, I'm the STP/SKP Seller";

mes "It cost 1,000z each point";

mes "which one you wanna buy?";

next;

menu "Status Point",ST,"Skill Point",SK,"No thanks I'm fine",EXIT;

ST:

mes "[sTP/SKP Seller]";

mes "What do you want to buy?";

next;

menu "Str",STR,"Agi",AGI,"Vit",VIT,"Int",INT,"Dex",DEX,"Luk",LUK;

SK:

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (zeny < (@quantity * @price)) goto NZ;

mes "[sTP/SKP Seller]";

mes "Done";

set zeny, zeny - (@quantity * @price);

set SkillPoint, SkillPoint + @quantity;

close;

STR:

mes "[sTP/SKP Seller]";

mes "Hold on...";

next;

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bStr,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[sTP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

AGI:

mes "[sTP/SKP Seller]";

mes "Hold on...";

next;

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bAgi,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[sTP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

VIT:

mes "[sTP/SKP Seller]";

mes "Hold on...";

next;

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bVit,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[sTP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

INT:

mes "[sTP/SKP Seller]";

mes "Hold on...";

next;

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bInt,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[sTP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

DEX:

mes "[sTP/SKP Seller]";

mes "Hold on...";

next;

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bDex,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[sTP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

LUK:

mes "[sTP/SKP Seller]";

mes "Hold on...";

next;

mes "[sTP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bLuk,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[sTP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

WT:

mes "[sTP/SKP Seller]";

mes "Please don't waste my time";

close;

TM:

mes "[sTP/SKP Seller]";

mes "Sorry but you can only get 999 Status Point";

close;

NZ:

mes "[sTP/SKP Seller]";

mes "Sorry but you do not have enough zeny.";

close;

EXIT:

mes "[sTP/SKP Seller]";

mes "Okay then...";

close;

}

npc/script_custom/ пишеш npc: npc/custom/Название.txt

Заходиш в игру пишеш @loadnpc ncp/custom/Название.txt

Потом @warp prontera 147,169

Изменено пользователем Helios^
  • Downvote 1
Ссылка на комментарий
Поделиться на другие сайты


prontera,155,180,4 script Stat Seller 115,{
mes "[ Мастер Умений ]";
mes "Выбирайте:";
switch(select("Купить Статы\Скиллы:Сбросить Статы\Скиллы:Выход")) {
case 1:
switch(select("Купить Статы:Купить Skill Points:Выйти")){
case 2:
mes "1 скилл поинт = 300.000 [zeny]";
if(select("Купить:Выход") == 2){
close;
}
mes "Введите количество скилл поинтов,которое желаете купить:";
input @s;
set @zeny,300000 * @s;
mes "Общая сумма:";
mes ""+@zeny+" Zeny";
mes "Вас это устраивает?";
switch(select("Да:Нет")){
case 1:
if(Zeny < @Zeny){
mes "К сожалению,у вас нет необходимой суммы денег!";
close;
}
mes "Поздравляю с покупкой!";
set SkillPoint,SkillPoint+@s;
set zeny,zeny - @zeny;
close;
case 2:
close;
}
case 1:
mes "1 стат поинт = 200.000 [zeny]";
mes "Какой желаете купить?";
switch(select("STR:AGI:VIT:INT:DEX:LUK:Выйти")){
case 1:
set @st,bStr;
set @st_s$,"str";
break;
case 2:
set @st,bAgi;
set @st_s$,"agi";
break;
case 3:
set @st,bVit;
set @st_s$,"vit";
break;
case 4:
set @st,bInt;
set @st_s$,"int";
break;
case 5:
set @st,bDex;
set @st_s$,"dex";
break;
case 6:
set @st,bLuk;
set @st_s$,"luk";
break;
default:
close;
}
next;
mes "[ Мастер Умений ]";
mes "Введите количество стат поинтов,которое желаете купить:";
input @s;
set @zeny,200000 * @s;
set @stats,@st + @s;
next;
mes "[ Мастер Умений ]";
mes "Общая сумма:";
mes ""+@zeny+" Zeny";
mes "Вас это устраивает?";
switch(select("Да:Нет")){
case 1:
if(Zeny < @zeny){
mes "К сожалению,у вас нет необходимой суммы денег!";
close;
}
if((readparam(@st)+@s) > 300){ //тут устанавливаете лимит статов, если максимальное кол-во родного стата равно 150, то ставите значение 150.
mes "Вы не можете купить [ "+@s+" ] статов";
mes "Лимит 1 стата = 300.";
close;
}
mes "Поздравляю с покупкой!";
atcommand "@"+@st_s$+" "+@s;
set zeny,zeny - @zeny;
close;
case 2:
close;
}
case 3:
close;
}
case 2:
mes "Сбросить Статы: 5kk [zeny]";
mes "Сбросить Скилы: 5kk [zeny]";
mes "Сбросить всё: 9kk [zeny]";
mes "Удалить Skill: 1kk [zeny]";
switch(select("Сбросить Скилы","Сбросить Статы","Сбросить Всё","Удалить SkillPoints","Выйти")){
case 1:
if (Zeny < 5000000){
mes "Извините, но у вас недостаточно денег...";
close;
}
else {
mes "Удачи...";
set Zeny,Zeny-5000000;
ResetSkill;
close;
}
case 2:
if (Zeny < 5000000){
mes "Извините, но у вас недостаточно денег...";
close;
}
else {
mes "Удачи...";
set Zeny,Zeny-5000000;
ResetStatus;
close;
}
case 3:
if (Zeny < 9000000) {
mes "Извините, но у вас недостаточно денег...";
close;
}
else {
mes "Удачи...";
set Zeny,Zeny-9000000;
ResetSkill;
ResetStatus;
close;
}
case 4:
if (Zeny < 1000000){
mes "Извините, но у вас недостаточно денег...";
close;
}
else {
mes "Вот и всё, удачи...";
set Zeny,Zeny-1000000;
set SkillPoint, 0;
close;
}
case 5:
close;
}
case 3:
close;
}
}

Полностью рабочая версия со всеми табами в тхт файле.

http://ea-support.ws/index.php?/files/file/9-/

Ссылка на комментарий
Поделиться на другие сайты

×
×
  • Создать...
Яндекс.Метрика