Автор: T??????: Дата: 01.08.2010

//Сделано Тарасиком

prontera,144,178,6	script	Мистер Х	995,{

mes "Здраствуйте "+strcharinfo(0)+"!";

mes "Я могу дать вам ОКА за вашы ^FF0000карты^000000";

next;

mes "^0012FFвыбирайте, что ты хочтите сделать^000000";

menu "Обменять карты",i,"Нехочу нечего",N;

i:

next;

mes	"^0012FF10 карт = 1 ОКА^000000";

mes	"^0012FFЕсли вы принесете мне больше  я заокруглю к 10...^000000";

next;

set @j,0;

for( set @i,4001; @i<4442; set @i,@i+1){

if (countitem(@i)>0){

set @index[@j],@i;

set @count[@j],countitem(@i);

set .@amount,.@amount+countitem(@i);

set @j,@j+1;

}

}

mes "Я могу поменять вашы ^0000FF"+.@amount+"^000000 карт на ^0000FF"+.@amount/10+"^000000 ОКА?";

if(select("Yes:No")==2) close;

if( .@amount < 10){

mes "Достань карты, а потом приходи!";

close;

}

for( set @i,0; @i<@j; set @i,@i+1){

delitem @index[@i],@count[@i];

}

getitem 616,.@amount/10;

close;

N:

mes "Удачи";

close;

}

Автор: nomn: Дата: 01.08.2010

напиши чей скрипт брал за основу. не вежливо говорить, что это ты написал. когда твоих тут пару строк.

Автор: MaxxWell: Дата: 01.10.2010

хз сам писал или нет, но неплохое нпц=)

Автор: Tарасик: Дата: 01.12.2010

Цитата Raff;18108:
напиши чей скрипт брал за основу. не вежливо говорить, что это ты написал. когда твоих тут пару строк.

Автор: JaneAir: Дата: 01.12.2010

Это больше подойдет под лов рейты) на хай рейтах нету смысла их делать) понравилось..аригато)

Автор: Renegade: Дата: 01.13.2010

10 карт= 10 ОКА? О_о Это не опечатка?

Автор: dimjke: Дата: 01.02.2011

А как сделать так, чтобы менять можно было только мвп карты на альбомы?

Автор: [OneLife]: Дата: 01.02.2011

for( set @i,4001; @i<4442; set @i,@i+1){
Думаю что вместо 4001 и 4442 написать иды от начала и до конца мвп карт

Автор: Evil: Дата: 01.08.2011

Плохая реализация, берет все карты, а дает только 1 ока за каждые 10 карт, все излишки пропадают.