Автор: Hatzel: Дата: 02.09.2009
Вот такой вот своеобразный пвп-ивент.
Написан не мной, я лишь перевел, и кое что добавил\изменил\исправил.
Система такова:
Создается автоматом 2 *пати*, появляются в определенных местах на карте, ну и собсно Lets Fight =).
//===== eAthena Script =========================================
//= Counter Strike Mod.
//===== By: ====================================================
//= Suko ([EMAIL="Suko-@hotmail.de"]Suko-@hotmail.de[/EMAIL])
//===== Translite\modding: ===============================================
// - Telets
//==============================================================
prontera.gat,0,0,0 script OnPCLoadMapEvent -1,{
if(!reallook) end;
setlook 7, reallook;
set reallook, 0;
end;
}
prontera.gat,160,176,4 script Counter Strike Battle 769,{
// Имя НПЦ (Меняем только здесь, далее автоматом пропишет)
set @npcname$,"[^FF8000CS Battle Mod^000000]";
// Это мы не трогаем
set @Counter,0;
// Это мы не трогаем
set @Terrorist,0;
if(!(Class == Job_Gunslinger))
{
mes @npcname$;
mes "Пускаем только Gunslinger.";
close;
}
mes @npcname$;
mes "Привет " + strcharinfo(0) + ", Здесь ты можешь подать заявку на регистрацию в Counter Strike.";
next;
if(select("Выход","Продолжить") == 1)
{
mes @npcname$;
mes "Ха-ха-ха! Ты проиграл~";
close;
} else {
mes @npcname$;
mes "Пожалуйста, выбери команду.";
next;
if(select("Terrorists","Counter-Terrorists") == 1) {
set CS_MOD$,"Terrorist";
mes @npcname$;
mes "Ты выбрал команду Terrorists!";
next;
mes "Выбери карту.";
set reallook,getlook(7);
setlook 7,@Terrorist;
if(select("de_newbie ["+getmapusers("pvp_n_1-1")+"]","fy_agit ["+getmapusers("z_agit")+"]") == 1) {
mes @npcname$;
mes "Уверен?";
if(select("Да!!","Неа...")== 2) {
setlook 7,reallook;
cutin "",255;
}
close2;
warp "pvp_n_1-1",101,178;
end;
} else {
mes @npcname$;
mes "Уверен?";
if(select("Да!!","Неа...")== 2) {
setlook 7,reallook;
cutin "",255;
close;
}
close2;
warp "z_agit",23,109;
end;
}
} else {
set CS_MOD$,"Counter";
mes @npcname$;
mes "Вы выбрали команду Counter-Terrorists!";
mes "Выбери карту.";
set reallook,getlook(7);
setlook 7,@Counter;
if(select("de_newbie ["+getmapusers("pvp_n_1-1")+"]","fy_agit ["+getmapusers("z_agit")+"]") == 1) {
mes @npcname$;
mes "Уверен?";
if(select("Да!!","Неа...")== 2) {
setlook 7,reallook;
cutin "",255;
close;
}
close2;
warp "pvp_n_1-1",97,15;
end;
} else {
mes @npcname$;
mes "Уверен?";
if(select("Да!!","Неа...")== 2) {
setlook 7,reallook;
cutin "",255;
close;
}
close2;
warp "z_agit",23,34;
end;
}
}
}
}
//==============================================================================
// Флаги
//==============================================================================
pvp_n_1-1.gat mapflag nomemo
pvp_n_1-1.gat mapflag nosave SavePoint
pvp_n_1-1.gat mapflag nopenalty
pvp_n_1-1.gat mapflag nobranch
pvp_n_1-1.gat mapflag noexp
z_agit.gat mapflag nomemo
z_agit.gat mapflag nosave SavePoint
z_agit.gat mapflag nopenalty
z_agit.gat mapflag nobranch
z_agit.gat mapflag noexp
z_agit.gat mapflag pvpАвтор: : Дата: 01.01.1970