Автор: Eleidan: Дата: 06.13.2009

Написал для себя.

[HIDE="20"]//===== eAthena Script =======================================
//= TCG Dealer
//===== By: ==================================================
//= Eleidan (aka eSparrow)
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Система продажи и покупки TCG
//===== Additional Comments: =================================
//= 1.0 Первая версия, но багов не замечено [Eleidan]
//============================================================
prontera.gat,164,172,7 script TCG Диллер 120,{
mes "[TCG Диллер]";
mes "Приветствую тебя. Я могу продать или купить у тебя TCG карты.";
mes "Что нибудь интересует?";
next;
menu "Продать TCG",L_buy_tcg,"Купить TCG",L_sell_tcg,"Выход",-;
close;
L_buy_tcg:
set .tcg,countitem(7227);
mes "[TCG Диллер]";
mes "Хорошо.";
mes "У тебя в инвентаре ^43BD24" +(countitem(7227))+ "^000000 TCG карт.";
mes "Курс на продажу TCG : ^9D0004310.000.000 зени^000000";
mes "Сколько из них ты хочешь мне продать?";
next;
input @a;
if (@a > .tcg) goto L_no_tcg;
set .selltcg,@a * 310000000;
mes "[TCG Диллер]";
mes "С продажи ^43BD24" +(@a)+ "^000000 TCG карт ты получишь ^B7911E" +(.selltcg)+ "^000000 зени.";
mes "Ты уверен в том, что ты мне хочешь их продать?";
next;
menu "Да",L_seeell,"Я передумал",-;
close;
next;
L_seeell:
delitem 7227,@a;
set zeny,zeny + .selltcg;
mes "[TCG Диллер]";
mes "Хорошо. Сделка завершена.";
mes "Ты продал ^43BD24" +@a+ "^000000 TCG";
mes "И получил ^B7911E" +.selltcg+ "^000000 зени";
mes "Удачи.";
close;
L_sell_tcg:
set .tcg,countitem(7227);
mes "[TCG Диллер]";
mes "Хорошо.";
mes "У тебя в инвентаре ^43BD24" +(countitem(7227))+ "^000000 TCG карт.";
mes "Курс на покупку TCG : ^9D0004320.000.000 зени^000000";
mes "Сколько ты хочешь купить?";
next;
input @b;
set .buytcg,@b * 320000000;
if (zeny < .buytcg) goto L_no_zeny;
set .zeny,zeny - .buytcg;
mes "[TCG Диллер]";
mes "^43BD24" +(@B)+ "^000000 TCG будет стоить ^B7911E" +(.buytcg)+ "^000000 зени.";
mes "У тебя останется ^B7911E" +(.zeny)+ "^000000 зени.";
mes "Ты уверен в том, что ты хочешь совершить сделку?";
next;
menu "Да",L_buuuuy,"Я передумал",-;
close;
L_buuuuy:
getitem 7227,@b;
set zeny,zeny - .buytcg;
mes "[TCG Диллер]";
mes "Хорошо. Сделка завершена.";
mes "Ты купил ^43BD24" +@b+ "^000000 TCG";
mes "Осталось ^1A0C65" +(zeny)+"^000000 зени.";
mes "Теперь у тебя ^43BD24" +(countitem(7227))+ "^000000 TCG карт.";
mes "Удачи.";
close;
L_no_tcg:
mes "[TCG Диллер]";
mes "У вас недостаточно TCG.";
close;
L_no_zeny:
mes "[TCG Диллер]";
mes "У вас недостаточно зени.";
close;
}[/HIDE]
Очень удобный, есть вывод данных сколько ТЦГ в инвентаре, сколько хочешь купить, сколько потребуется Зени и сколько Зени останется.

Автор: sarges: Дата: 02.17.2011

да!

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

13.06.2009

КАПИТАН, ТВОЙ НОВЫЙ НИК sarges?

Автор: sarges: Дата: 02.17.2011

С чего ты эт взял кстати дай аську