Автор: DiS[IP]: Дата: 12.08.2010

[FONT=Lucida Console]Большинство скриптов на покупку и продажу монет написаны очень убого,поэтому я решил написать свою версию этого NPC.
Цены монет правятся в массивах.В массиве @DISID цена покупки,в массиве @DISIPID цена продажи.


[/FONT]

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

// = - [НПС] 'Монеты'

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

// = - Скрипт написал DiS[IP] (ICQ:629407014)

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

// = - Описание: Покупка/Продажа монет

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

// = - Если вы хотите разместить где-либо этот скрипт,то не 

// = - забывайте указывать копирайты,уважайте чужой труд.

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



prontera,133,167,5      script  Монеты  811,{

mes "[^FF8000Монеты^000000]";

mes "Привет,"+strcharinfo(0)+"!";

mes "Я продаю монеты,а также скупаю их.";

mes "Что желаете?";

switch(select("Покупка:Продажа:Выход")){

case 1:

mes "[^FF8000Монеты^000000]";

set @dis,1;

goto dissan;

break;

case 2:

mes "[^FF8000Монеты^000000]";

set @dis,2;

goto dissan;

break;

case 3:

close;

}       

dissan:

set @disip,select("Bronze Coin",

                  "Silver Coin",

                  "Gold Coin",

                  "Platinum Coin",

                  "Mithril Coin");

setarray @DISID[0],673,1000,

                   675,10000,

                   671,100000,

                   677,1000000,

                   674,10000000;

setarray @DISIPID[0],1000,673,

                     10000,675,

                     100000,671,

                     1000000,677,

                     10000000,674;

set @disip,@disip - 1;

next;

mes "[^FF8000Монеты^000000]";

if(@dis == 1){ mes "Хм,я продам тебе эту монету за:"; } else { mes "Я куплю у тебя эту монету за:"; }

mes "^FF0000"+@DISID[@disip*2+1]+"^000000 ^0000FFZeny^000000.";

if(select("Да,я согласен:Нет,спасибо")==2){ close; }

if(@dis==1){

if(Zeny<@DISID[@disip*2+1]){ next; mes "[^FF8000Монеты^000000]"; mes "А где деньги?Приходи когда будут!"; close; }

set Zeny,Zeny-@DISID[@disip*2+1];

getitem @DISID[@disip*2],1;

close;

} else {

if(countitem(@DISIPID[@disip*2+1])<1){ next; mes "[^FF8000Монеты^000000]"; mes "А где монета?Приходи когда будет!"; close; }

delitem @DISIPID[@disip*2+1],1;

set Zeny,Zeny+@DISIPID[@disip*2];

close;

}

}

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