Популярный пост nomn Опубликовано 2 мая, 2012 Популярный пост Жалоба Поделиться Опубликовано 2 мая, 2012 (изменено) Когда-то для себя писал. Цитата Обменивает 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 40 Ссылка на комментарий Поделиться на другие сайты Поделиться
botka4aet Опубликовано 2 мая, 2012 Жалоба Поделиться Опубликовано 2 мая, 2012 С совпадением, конечно, жесткоНо спасибо Ссылка на комментарий Поделиться на другие сайты Поделиться
nomn Опубликовано 2 мая, 2012 Автор Жалоба Поделиться Опубликовано 2 мая, 2012 С совпадением, конечно, жестко Но спасибо Что? Ссылка на комментарий Поделиться на другие сайты Поделиться
kadze Опубликовано 2 мая, 2012 Жалоба Поделиться Опубликовано 2 мая, 2012 У меня сделан выбор карты менюшкой,но кому как удобней.Not bad.Я думаю на многих хайрейт серверах теперь появится этот обменник) Ссылка на комментарий Поделиться на другие сайты Поделиться
nomn Опубликовано 2 мая, 2012 Автор Жалоба Поделиться Опубликовано 2 мая, 2012 Скрипт 2010года. Я только отступы выставил. Сейчас уже вижу что кое-что можно было бы и подправить xDp.s. на хайрейтах играют лентяи, им лениво искать в менюшке)))) Ссылка на комментарий Поделиться на другие сайты Поделиться
kadze Опубликовано 2 мая, 2012 Жалоба Поделиться Опубликовано 2 мая, 2012 Лениво искать в менюшке,но не лениво пролистывать 20 окон сообщения?) Ссылка на комментарий Поделиться на другие сайты Поделиться
nomn Опубликовано 2 мая, 2012 Автор Жалоба Поделиться Опубликовано 2 мая, 2012 Лениво искать в менюшке,но не лениво пролистывать 20 окон сообщения?) 20 окон? Омг. Окно выскакивает только когда мвп карта нашлась (за раз максимум 3 раза) и в самом конце, если 3 карты не набралось. Т.е. максимально как не крути 3 окна Внимательнее читай скрипт! Ссылка на комментарий Поделиться на другие сайты Поделиться
kadze Опубликовано 2 мая, 2012 Жалоба Поделиться Опубликовано 2 мая, 2012 20 окон было образное выражение =) не воспринимай все буквально Ссылка на комментарий Поделиться на другие сайты Поделиться
nomn Опубликовано 3 мая, 2012 Автор Жалоба Поделиться Опубликовано 3 мая, 2012 даешь скрипт в массы. до 20постов понизил. 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
medlmen Опубликовано 14 июля, 2012 Жалоба Поделиться Опубликовано 14 июля, 2012 Спс огромное. Ссылка на комментарий Поделиться на другие сайты Поделиться
Dextrius Опубликовано 31 августа, 2012 Жалоба Поделиться Опубликовано 31 августа, 2012 (изменено) А как заставить его менять МВП карты на ТЦГ? Изменено 31 августа, 2012 пользователем Dextrius Ссылка на комментарий Поделиться на другие сайты Поделиться
nomn Опубликовано 31 августа, 2012 Автор Жалоба Поделиться Опубликовано 31 августа, 2012 Вот так: 6 Ссылка на комментарий Поделиться на другие сайты Поделиться
Dextrius Опубликовано 31 августа, 2012 Жалоба Поделиться Опубликовано 31 августа, 2012 Но тогда теряется смысл, оно меняет случайную из 3-х карт, а мне нужно, чтоб меняло сразу все мвп карты из интвентаря Ссылка на комментарий Поделиться на другие сайты Поделиться
Серёга Бобылев Опубликовано 31 августа, 2012 Жалоба Поделиться Опубликовано 31 августа, 2012 У меня есть такой,напиши в лс я скину. Ссылка на комментарий Поделиться на другие сайты Поделиться
Dextrius Опубликовано 1 сентября, 2012 Жалоба Поделиться Опубликовано 1 сентября, 2012 Написал Ссылка на комментарий Поделиться на другие сайты Поделиться
Fizik Опубликовано 16 июня, 2016 Жалоба Поделиться Опубликовано 16 июня, 2016 Я вот только одного не понимаю, после того как Sanasol Обновил форум, Все скрипты что давно лежат у меня не видны... Этот обменник... раньше я его здесь видел, щас он мне понадобился... Но его нету.... Где он не понятно, Если есть у кого нибудь скиньте пожалуйста Ссылка на комментарий Поделиться на другие сайты Поделиться
Grimmjow Опубликовано 16 июня, 2016 Жалоба Поделиться Опубликовано 16 июня, 2016 (изменено) . Изменено 15 августа, 2017 пользователем Grimmjow Ссылка на комментарий Поделиться на другие сайты Поделиться
Victor Опубликовано 16 июня, 2016 Жалоба Поделиться Опубликовано 16 июня, 2016 (изменено) Скрытый текст //===== 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 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения