Автор: TrojanX: Дата: 10.25.2009

Меняет сразу деньги на монетки или монетки на деньги)
[HTML]

prontera.gat,144,169,4 script Монечик 108,{
mes "[Coins]";
mes "Привет "+strcharinfo(0)+", я могу поменять деньги на монетки или монетки на деньги выбирай!";
menu "Обменять деньги на монетки",M1,"Обменять монетки на деньги",M2;
next;
M1:
mes "[Coins]";
mes "1kkk - Mithril Coin ";
mes "100kk - Golden Coin";
mes "500kk - Platinum Coin";
mes "50kk - Silver Coin";
mes "10kk - Bronze Coin";
next;
mes "Какую ты хочешь получить монетку?";
menu "Mithril Coin",M,"Golden Coin",G,"Platinum Coin",P,"Silver Coin",S,"Bronze Coin",B;
M:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 1000000000) goto NoZeny;
set Zeny,Zeny-1000000000;
getitem 674,1;
mes "[Coins]";
mes "Удачи";
close;
G:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 100000000) goto NoZeny;
set Zeny,Zeny-100000000;
getitem 671,1;
mes "[Coins]";
mes "Удачи";
close;
P:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 500000000) goto NoZeny;
set Zeny,Zeny-500000000;
getitem 677,1;
mes "[Coins]";
mes "Удачи";
close;
S:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 50000000) goto NoZeny;
set Zeny,Zeny-50000000;
getitem 675,1;
mes "[Coins]";
mes "Удачи";
close;
B:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
if (zeny < 10000000) goto NoZeny;
set Zeny,Zeny-10000000;
getitem 673,1;
mes "[Coins]";
mes "Удачи";
close;
M2:
mes "[Coins]";
mes "Mithril Coin - 1kkk";
mes "Golden Coin - 100kk";
mes "Platinum Coin - 500kk";
mes "Silver Coin - 50kk";
mes "Bronze Coin - 10kk";
mes "Какую монетку хочешь поменять на зени?";
menu "Mithril Coin",lM,"Golden Coin",lG,"Platinum Coin",lP,"Silver Coin",lS,"Bronze Coin",lB;
lM:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(674) < 1) goto NoItems;
delitem 674,1;
set Zeny,Zeny+1000000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lG:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(671) < 1) goto NoItems;
delitem 671,1;
set Zeny,Zeny+100000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lP:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(677) < 1) goto NoItems;
delitem 677,1;
set Zeny,Zeny+500000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lS:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(675) < 1) goto NoItems;
delitem 675,1;
set Zeny,Zeny+50000000;
mes "[Coins]";
mes "Вот ваши деньги, удачи";
close;
lB:
mes "[Coins]";
mes "Выбирай";
menu "Поменять",-,"Уйти",No;
if (countitem(673) < 1) goto NoItems;
delitem 673,1;
set Zeny,Zeny+10000000;
mes "[Coins]";
mes "Вот твои деньги, Удачи";
close;
NoItems:
mes "[Coins]";
mes ""+strcharinfo(0)+", у Вас нету монетки, уходите!";
close;
NoZeny:
mes "[Coins]";
mes "У тебя нету денег что бы забрать у меня монетку!";
close;
No:
close;
}

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

На примере метрилов:
M:
mes "[Coins]";
mes "Выбирай";
menu "Зделать",-,"Уйти",No;
input @a;
if (zeny < 1000000000*@a) goto NoZeny;
set Zeny,Zeny-1000000000*@a;
getitem 674,@a;
mes "[Coins]";
mes "Удачи";
close;