MvP обменник

[nomn]

Когда-то для себя писал.

Цитата

Обменивает 3 любых MvP карты (заданы в массиве) на одну случайную из того же массива.

При этом можно приносить по одной карте, защита от "случайного" поглащения нужной мвп карты.

//===== eAthena Script =======================================
// Обменник MvP карт
//===== Автор ================================================
// nomn. ICQ 898022
//===== Текущая версия =======================================
// 1.0
//===== Совместимость ========================================
// All eA
//===== Описание =============================================
// Меняет 3 любых МвП карты на одну из заданных МвП карт (рандомно)
//===== Изменения ============================================
// v1.0 - Релиз.

prontera,192,168,4      script  Обмен MVP Карт  405,{

        mes "[Обмен Карт]";
        
        if (mvp_exchange > 2)
        {
                mes "Готов получить свою карту?";
                
                if (select("Да","Нет") == 2)
                {
                        mes "Ок. Приходи как надумаешь.";
                        close;
                }
                
                next;
                mes "[Обмен Карт]";
                set @tmp_card, $mvp_cards[rand(getarraysize($mvp_cards))];
                mes "Ты получаешь:";
                mes "^A512E3"+getitemname(@tmp_card)+"^000000";
                getitem @tmp_card, 1;
                set mvp_exchange, 0;
                close;
        }
        
        mes "Привет, я обмениваю MvP карты.";
        
        if (mvp_exchange > 0)
        {
                mes "Сейчас у меня ^A512E3"+mvp_exchange+" из 3^000000 твоих карт.";
        }
        
        mes "Чем могу помочь?";
        switch(select("Обменять","^A512E3Информация^000000","Ничем")){
        
                case 1:
                        next;
                        mes "[Обмен Карт]";
                        mes "За 3 твоих MvP карты я выдам тебе какую-нибудь одну, из списка.";
                        mes "^A512E3Какую именно карту тебе дать выбираю я сам.^000000";
                        mes "Согласен?";
                        
                        if (select("Нет","Да") == 1)
                                close;

                        next;
                
                        for(set .@i,0; .@i < getarraysize($mvp_cards); set .@i, .@i+1)
                        {
                                if (countitem($mvp_cards[.@i]) > 0)
                                {
                                        mes "[Обмен Карт]";
                                        mes "Я нашел у тебя 1 ^A512E3"+getitemname($mvp_cards[.@i])+"^000000";
                                        mes "Засчитать?";
                                        
                                        if (select("Нет","Да") == 2)
                                        {
                                                delitem $mvp_cards[.@i], 1;
                                                set mvp_exchange, mvp_exchange + 1;
                                                if (mvp_exchange == 3)
                                                {
                                                        mes "Достаточно. Секунду...";
                                                        close;
                                                        break;
                                                }
                                        }
                                        next;
                                }
                        }
                        mes "[Обмен Карт]";
                        mes "MvP Карт не найдено!";
                        close;
                break;
                
                case 2:
                        next;
                        mes "[Обмен Карт]";
                        mes "Процедура обмена: Я осматриваю твой инвентарь и выбираю из него MvP карты, поодной.";
                        mes "Пока ты не принесешь мне ^A512E33 карты я не продолжу обмен.^000000";
                        mes "Т.е. можешь принести мне первую сегодня, вторую послезавтра, а третью хоть через неделю.";
                        mes "Как только все 3 карты у меня я выдаю тебе в замен одну другую. При этом она может совпасть с одной из тех, что ты мне сдал.";
                        if (select("Список возможных карт","Ясно. Пока.") == 2)
                                close;
                
                        next;
                        mes "[Обмен Карт]";
                        for(set .@i,0; .@i < getarraysize($mvp_cards); set .@i, .@i+1)
                                mes getitemname($mvp_cards[.@i]);
                                
                        close;
                break;
                
                case 3:
                        close;
                break;
        }
        end;
        
OnInit:
        setarray $mvp_cards[0], 4144,4147,4142,4132,4128,4143,4137,4123,4146,4131,4148,
        4121,4135,4318,4324,4168,4305,4276,4241,4134,4330,4263,4236,4302,4342,4372,4352,
        4374,4376,4386,4403,4407,4408,4419,4425,4430,4441;
        end;
}

 

Изменено 10 июля, 2017 пользователем nomn

[botka4aet]

С совпадением, конечно, жестко

Но спасибо

[nomn]

С совпадением, конечно, жестко

Но спасибо

Что?

[kadze]

У меня сделан выбор карты менюшкой,но кому как удобней.

Not bad.Я думаю на многих хайрейт серверах теперь появится этот обменник)

[nomn]

Скрипт 2010года. Я только отступы выставил. Сейчас уже вижу что кое-что можно было бы и подправить xD

p.s. на хайрейтах играют лентяи, им лениво искать в менюшке))))

[kadze]

Лениво искать в менюшке,но не лениво пролистывать 20 окон сообщения?)

[nomn]

Лениво искать в менюшке,но не лениво пролистывать 20 окон сообщения?)

20 окон? Омг.

Окно выскакивает только когда мвп карта нашлась (за раз максимум 3 раза) и в самом конце, если 3 карты не набралось.

Т.е. максимально как не крути 3 окна Внимательнее читай скрипт!

[kadze]

20 окон было образное выражение =) не воспринимай все буквально

[nomn]

даешь скрипт в массы. до 20постов понизил.

[medlmen]

Спс огромное.

[Dextrius]

А как заставить его менять МВП карты на ТЦГ?

Изменено 31 августа, 2012 пользователем Dextrius

[nomn]

Вот так:

[Dextrius]

Но тогда теряется смысл, оно меняет случайную из 3-х карт, а мне нужно, чтоб меняло сразу все мвп карты из интвентаря

[Серёга Бобылев]

У меня есть такой,напиши в лс я скину.

[Dextrius]

Написал

[Fizik]

Я вот только одного не понимаю, после того как Sanasol Обновил форум, Все скрипты что давно лежат у меня не видны... Этот обменник... раньше я его здесь видел, щас он мне понадобился... Но его нету.... Где он не понятно, Если есть у кого нибудь скиньте пожалуйста

[Grimmjow]

.

Изменено 15 августа, 2017 пользователем Grimmjow

[Victor]

 

Скрытый текст

//===== eAthena Script =======================================
// Обменник MvP карт
//===== Автор ================================================
// nomn. ICQ 898022
//===== Текущая версия =======================================
// 1.0
//===== Совместимость ========================================
// All eA
//===== Описание =============================================
// Меняет 3 любых МвП карты на одну из заданных МвП карт (рандомно)
//===== Изменения ============================================
// v1.0 - Релиз.

prontera,192,168,4      script  Обмен MVP Карт  405,{

        mes "[Обмен Карт]";
        
        if (mvp_exchange > 2)
        {
                mes "Готов получить свою карту?";
                
                if (select("Да","Нет") == 2)
                {
                        mes "Ок. Приходи как надумаешь.";
                        close;
                }
                
                next;
                mes "[Обмен Карт]";
                set @tmp_card, $mvp_cards[rand(getarraysize($mvp_cards))];
                mes "Ты получаешь:";
                mes "^A512E3"+getitemname(@tmp_card)+"^000000";
                getitem @tmp_card, 1;
                set mvp_exchange, 0;
                close;
        }
        
        mes "Привет, я обмениваю MvP карты.";
        
        if (mvp_exchange > 0)
        {
                mes "Сейчас у меня ^A512E3"+mvp_exchange+" из 3^000000 твоих карт.";
        }
        
        mes "Чем могу помочь?";
        switch(select("Обменять","^A512E3Информация^000000","Ничем")){
        
                case 1:
                        next;
                        mes "[Обмен Карт]";
                        mes "За 3 твоих MvP карты я выдам тебе какую-нибудь одну, из списка.";
                        mes "^A512E3Какую именно карту тебе дать выбираю я сам.^000000";
                        mes "Согласен?";
                        
                        if (select("Нет","Да") == 1)
                                close;

                        next;
                
                        for(set .@i,0; .@i < getarraysize($mvp_cards); set .@i, .@i+1)
                        {
                                if (countitem($mvp_cards[.@i]) > 0)
                                {
                                        mes "[Обмен Карт]";
                                        mes "Я нашел у тебя 1 ^A512E3"+getitemname($mvp_cards[.@i])+"^000000";
                                        mes "Засчитать?";
                                        
                                        if (select("Нет","Да") == 2)
                                        {
                                                delitem $mvp_cards[.@i], 1;
                                                set mvp_exchange, mvp_exchange + 1;
                                                if (mvp_exchange == 3)
                                                {
                                                        mes "Достаточно. Секунду...";
                                                        close;
                                                        break;
                                                }
                                        }
                                        next;
                                }
                        }
                        mes "[Обмен Карт]";
                        mes "MvP Карт не найдено!";
                        close;
                break;
                
                case 2:
                        next;
                        mes "[Обмен Карт]";
                        mes "Процедура обмена: Я осматриваю твой инвентарь и выбираю из него MvP карты, поодной.";
                        mes "Пока ты не принесешь мне ^A512E33 карты я не продолжу обмен.^000000";
                        mes "Т.е. можешь принести мне первую сегодня, вторую послезавтра, а третью хоть через неделю.";
                        mes "Как только все 3 карты у меня я выдаю тебе в замен одну другую. При этом она может совпасть с одной из тех, что ты мне сдал.";
                        if (select("Список возможных карт","Ясно. Пока.") == 2)
                                close;
                
                        next;
                        mes "[Обмен Карт]";
                        for(set .@i,0; .@i < getarraysize($mvp_cards); set .@i, .@i+1)
                                mes getitemname($mvp_cards[.@i]);
                                
                        close;
                break;
                
                case 3:
                        close;
                break;
        }
        end;
        
OnInit:
        setarray $mvp_cards[0], 4144,4147,4142,4132,4128,4143,4137,4123,4146,4131,4148,
        4121,4135,4318,4324,4168,4305,4276,4241,4134,4330,4263,4236,4302,4342,4372,4352,
        4374,4376,4386,4403,4407,4408,4419,4425,4430,4441;
        end;
}

 

 

Изменено 16 июня, 2016 пользователем Victor