Автор: MrErShs: Дата: 04.10.2011
// ===== eAthena Script =======================================
// = Event Manager
// ===== By: ==================================================
// = Cruxiaer
// ===== Current Version: =====================================
// = 1.00
// ===== Compatible With: =====================================
// = eAthena 1.x
// ===== Description: =========================================
// = Exchange Event Points for item/equip/cash/zeny
// ===== How to use: ==========================================
// Event Points = EP || Cash Points = CP
// @EP2CP = CP received
// @EP2Z = Zeny received
// @exitem = exchange EP for this item ID
// @EP2Ex = EP required
// ===== Changelog: ===========================================
// 1.00 - First release
// 1.01 - Added some consumables and fixed NPC conversation
// ============================================================
prontera,164,174,4 script Event Manager::EManager 702,{
set @intEP, #EVENTPOINTS;
Home:
mes "[Event Manager]";
mes "У вас на счету ^336699" +#EVENTPOINTS+ "^000000 Ивент-очков. Что бы вы хотели сделать?";
menu "Ничего:Обменять их на эквип:Обменять их на очки:Обменять их на зени:Обменять их на расходные материалы",-;
if (@menu==1) goto Exit1;
if (@menu==2) goto Equip1;
if (@menu==3) goto Points1;
if (@menu==4) goto Zeny1;
if (@menu==5) goto Consu1;
Equip1:
next;
mes "[Event Manager]";
mes "Вы можете обменять ваши Ивент-очки (ИО) на эквип, однако мы предлагаем только ограниченный ассортимент оборудования. Что бы Вы хотели получить за ИО?";
menu "Ничего:Доспех:Оружее:Головной убор:Аксессуар",-;
if (@menu==1) goto Exit1;
if (@menu==2) goto EquipAr1;
if (@menu==3) goto EquipWe1;
if (@menu==4) goto EquipHe1;
if (@menu==5) goto EquipAc1;
EquipAr1:
next;
mes "[Event Manager]";
mes "Какую броню Вы хотите?";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
menu "Нет спасибо!:Доспехи Валькирии [1] - 50,000EP:Накидка Валькирии [1] - 50,000EP",-;
if (@menu==1) goto Exit1;
if (@menu==2) { set @exitem,2357;
set @EP2Ex,50000; }
if (@menu==3) { set @exitem,2524;
set @EP2Ex,50000; }
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Дай мне посмотреть ...";
set #EVENTPOINTS, #EVENTPOINTS-@EP2Ex;
getitem @exitem,1;
next;
mes "[Event Manager]";
mes "Вот твои доспехи, ^336699"+@EP2Ex+"^000000ИО были сняты.";
goto Exit1;
EquipWe1:
next;
mes "[Event Manager]";
mes "Какое оружие Вы хотите?";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
menu "Нет спасибо!:Violet Fear [2] - 25,000EP:Invoker of Death [2] - 25,000EP",-;
if (@menu==1) goto Exit1;
if (@menu==2) { set @exitem,1185;
set @EP2Ex,25000; }
if (@menu==3) { set @exitem,1186;
set @EP2Ex,25000; }
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Дай мне посмотреть ...";
set #EVENTPOINTS, #EVENTPOINTS-@EP2Ex;
getitem @exitem,1;
next;
mes "[Event Manager]";
mes "Это твое оружие, ^336699"+@EP2Ex+"^000000ИО было снято.";
goto Exit1;
EquipHe1:
next;
mes "[Event Manager]";
mes "Какой головной убор Вы ищете?";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
menu "Нет спасибо!:Lord Kaho's Horn - 50,000EP:Jumping Poring - 25,000EP",-;
if (@menu==1) goto Exit1;
if (@menu==2) { set @exitem,5013;
set @EP2Ex,50000; }
if (@menu==3) { set @exitem,5335;
set @EP2Ex,25000; }
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Дай мне посмотреть ...";
set #EVENTPOINTS, #EVENTPOINTS-@EP2Ex;
getitem @exitem,1;
next;
mes "[Event Manager]";
mes "Это твой головной убор, ^336699"+@EP2Ex+"^000000ИО было снято.";
goto Exit1;
EquipAc1:
next;
mes "[Event Manager]";
mes "Какой аксессуар Вы ищете??";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
menu "Нет спасибо!:Bradium Earring [1] - 25,000EP:Bradium Ring [1] - 25,000EP:Bradium Brooch [1] - 25,000EP",-;
if (@menu==1) goto Exit1;
if (@menu==2) { set @exitem,2788;
set @EP2Ex,25000; }
if (@menu==3) { set @exitem,2789;
set @EP2Ex,25000; }
if (@menu==4) { set @exitem,2790;
set @EP2Ex,25000; }
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Дай мне посмотреть ...";
set #EVENTPOINTS, #EVENTPOINTS-@EP2Ex;
getitem @exitem,1;
next;
mes "[Event Manager]";
mes "Это твой аксессуар, ^336699"+@EP2Ex+"^000000ИО было снято.";
goto Exit1;
Points1:
next;
mes "[Event Manager]";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
mes "Вы можете обменять свои Ивент-очки(ИО), на Кэш-очки(КО). Сколько очков вы хотите обменять??";
menu "Нет спасибо!:1000ИО на 250КО:2000ИО на 550КО:3000ИО на 850КО:4000ИО на 1150ИО:5000КО на 1450КО:10000ИО на 3200КО",-;
if (@menu==1) goto Exit1;
if (@menu==2) {
set @EP2CP,250;
set @EP2Ex,1000;
goto Points2;
}
if (@menu==3) {
set @EP2CP,550;
set @EP2Ex,2000;
goto Points2;
}
if (@menu==4) {
set @EP2CP,850;
set @EP2Ex,3000;
goto Points2;
}
if (@menu==5) {
set @EP2CP,1150;
set @EP2Ex,4000;
goto Points2;
}
if (@menu==6) {
set @EP2CP,1450;
set @EP2Ex,5000;
goto Points2;
}
if (@menu==7) {
set @EP2CP,3200;
set @EP2Ex,10000;
goto Points2;
}
Points2:
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Вы успешно обменяли ваши Ивент-очки на ^336699"+@EP2CP+"^000000 Кэш-очки.";
set #CASHPOINTS, #CASHPOINTS+@EP2CP;
set #EVENTPOINTS, #EVENTPOINTS-@EP2Ex;
logmes "Начальные ИО: "+@intEP+", Обменянные ИО: "+@EP2Ex+", Получил КО: "+@EP2CP;
goto Exit1;
Zeny1:
next;
mes "[Event Manager]";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
mes "Вы можете обменять ваши Ивент-очки(ИО) на Зени. Сколько очков Вы хотите обменять?";
menu "Нет спасибо!:500ИО на 1,000,000z:1000ИО на 2,500,000z:1500ИО на 4,000,000z:2000ИО на 5,500,000z:4000ИО на 13,000,000z:8000ИО на 28,000,000z",-;
if (@menu==1) goto Exit1;
if (@menu==2) {
set @EP2Z,1000000;
set @EP2Ex,500;
goto Zeny2;
}
if (@menu==3) {
set @EP2Z,2500000;
set @EP2Ex,1000;
goto Zeny2;
}
if (@menu==4) {
set @EP2Z,4000000;
set @EP2Ex,1500;
goto Zeny2;
}
if (@menu==5) {
set @EP2Z,5500000;
set @EP2Ex,2000;
goto Zeny2;
}
if (@menu==6) {
set @EP2Z,13000000;
set @EP2Ex,4000;
goto Zeny2;
}
if (@menu==7) {
set @EP2Z,28000000;
set @EP2Ex,8000;
goto Zeny2;
}
Zeny2:
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Вы успешно обменяли Ваши Ивент-очки на ^336699"+@EP2Z+"^000000z.";
set Zeny, Zeny+@EP2Z;
set #EVENTPOINTS, #EVENTPOINTS-@EP2Ex;
logmes "Initial EP: "+@intEP+", EP exchanged: "+@EP2Ex+", Zeny received: "+@EP2Z;
goto Exit1;
Consu1:
next;
mes "[Event Manager]";
mes "Вы имеете ^336699"+#EVENTPOINTS+"^000000 Ивент-очков.";
mes "Вы можете обменять ваши Ивент-очки (ИО), на расходные материалы. Какие расходные материалы Вы хотите обменять?";
menu "Нет спасибо!:Elite Siege Supply Box - 100ИО:Poison Bottle - 100ИО",-;
if (@menu==1) goto Exit1;
if (@menu==2) { set @exitem,14003;
set @EP2Ex,100; }
if (@menu==3) { set @exitem,678;
set @EP2Ex,100; }
if (#EVENTPOINTS<@EP2Ex) goto NotEnough;
next;
mes "[Event Manager]";
mes "Сколько вы хотите обменять?";
input @input;
if (@input<1) goto Invalid;
set @EPR, @input*@EP2Ex;
if (@EPR>#EVENTPOINTS) goto NotEnough;
next;
mes "[Event Manager]";
mes "Дай мне посмотреть ...";
set #EVENTPOINTS, #EVENTPOINTS-@EPR;
getitem @exitem,@input;
next;
mes "[Event Manager]";
mes "Это ваш аксессуар, ^336699"+@EPR+"^000000ИО были сняты.";
goto Exit1;
NoItem:
next;
mes "[Event Manager]";
mes "К сожалению, этот раздел еще не создан.";
next;
goto Home;
NotEnough:
next;
mes "[Event Manager]";
mes "Мои извинения, но у вас не достаточно Ивент-очков.";
next;
goto Home;
Exit1:
next;
mes "[Event Manager]";
mes "Благодарим Вас за Ваш визит, Удачного дня!";
close;
Exit2:
next;
mes "[Event Manager]";
mes "Ваш вклад был не в силе, пожалуйста, попробуйте еще раз.";
next;
goto Home;
}Автор: : Дата: 01.01.1970