Автор: Kill Spirit: Дата: 06.06.2010
Автор оригинала Toxic Aka Hellflaem
Перевод by Kill Spirit :p
Сам скрипт:
new_1-1,53,137,4 script Emperium::empwar 723,{
set $npcname$,"[Emperium]";
mes $npcname$;
mes "Привет "+strcharinfo(0)+" что бы вы хотели?";
next;
switch(select("Записатся:Войти:Информация:Выйти")) {
case 1:
if (($state_match == 1) && ($@guildID1!=0) && ($@guildID2!=0) && (getguildname($@guildID1)!="null") && (getguildname($@guildID2)!="null")) {
mes $npcname$;
mes "Прости "+strcharinfo(0)+" , Две Гильдии уже записаны.";
close;
}
mes $npcname$;
mes "Привет "+strcharinfo(0)+" , Необходимо две гильдии";
mes "Хотели бы вы записатся?";
mes "Если да, то выбирите";
next;
switch(select("Гильдия 1:Гильдия 2:Отмена")) {
case 1:
// If a match is in play
if ($state_match == 1) {
mes $npcname$;
mes "Недоступно. Пожалуйста попробуйте еще раз через несколько минут!";
close;
}
// Does the player belong to a guild?
if (getcharid(2)==0) {
mes $npcname$;
mes "Вы не состоите в гильдии.";
close;
}
// If a team is already subscribed, and that team still exists
if (($@guildID1!=0) && (getguildname($@guildID1)!="null")) {
// if the player belongs to that team that's already subscribed
if ($@guildID1==getcharid(2)) {
mes $npcname$;
mes "Вы желаете удалить с состязания свою команду?";
next;
if (select("Да, мы хотим уйти с состязание.","Нет, мы остаемся.")==2) close;
// if the player wishes to unsubscribe their team
announce "Команда " + GetGuildName($@guildID1) + " расформировалась, мы нуждаемся в другой гильдии, просьба записатся!",bc_yellow|bc_map;
set $@guildID1, 0;
close;
}
mes $npcname$;
mes "Гильдия уже записана! Это - Команда "+getguildname($@guildID1)+".";
close;
}
// if there are no teams subscribed and that the subscriptions are open
mes $npcname$;
mes "Вы хотите записать гильдию?";
next;
if (select("Да, запишите пожалуйста.","Нет.")==2) close;
// Team subscription
if ($@guildID1==0 || (getguildname($@guildID1)=="null")) {
set $@guildID1, getcharid(2);
initnpctimer;
mes $npcname$;
mes "Гильдия записана";
announce "" + getguildname($@guildID1) + " записалась в Emperium War!",bc_yellow|bc_map;
doevent "empwar::OnSubscriptionguild";
close;
} else {
mes $npcname$;
mes "Я сожалею! Другая Гильдия записалась перед Вами...";
close;
}
end;
case 2:
// If a match is in play
if ($state_match == 1) {
mes $npcname$;
mes "Состязание уже началось, пожалуйста повторите позже!";
close;
}
// Does the player belong to a group?
if (getcharid(2)==0) {
mes $npcname$;
mes "Вы не состоите в гильдии.";
close;
}
// Is the group of the player subscribed as the other guild already?
if (getcharid(2)==$@guildID1) {
mes $npcname$;
mes "Приготовтесь померятся силой с другой гильдией";
mes "Большая " + GetGuildName($@guildID2) + "";
close;
}
// If a team is already subscribed, and that team still exists
if (($@guildID2!=0) && (getguildname($@guildID2)!="null")) {
// if the player belongs to that team that's already subscribed
if ($@guildID2==getcharid(2)) {
mes $npcname$;
mes "Вы желаете удалить с состязания свою гильдию?";
next;
if (select("Да","Нет")==2) close;
// if the player wishes to unsubscribe their team
announce "Команда "+getguildname($@guildID2)+" расформировалась, мы нуждаемся в другой гильдии, просьба записатся!",bc_yellow|bc_map;
set $@guildID2, 0;
close;
}
mes $npcname$;
mes "Гильдия уже записана! Это - Команда "+getguildname($@guildID2)+".";
close;
}
// if there are no teams subscribed and that the subscriptions are open
mes $npcname$;
mes "Вы хотите записать гильдию?";
next;
if (select("Да.","Нет.")==2) close;
// Team subscription
if ($@guildID2==0 || (getguildname($@guildID2)=="null")) {
set $@guildID2, getcharid(2);
initnpctimer;
mes $npcname$;
mes "Гильдия записана!";
announce ""+getguildname($@guildID2)+" записалась в Emperium War!",bc_yellow|bc_map;
doevent "empwar::OnSubscriptionguild";
close;
} else {
mes $npcname$;
mes "Я сожалею! Другая Гильдия записалась перед Вами...";
close;
}
end;
case 3:
mes $npcname$;
mes "Досвидания.";
close;
}//2nd switch
case 2:
if (($@guildID1!=0) && ($@guildID2!=0) && (getguildname($@guildID1)!="null") && (getguildname($@guildID2)!="null")) {
if ((getcharid(2)==$@guildID1) && ($state_match == 1)) {
savepoint "bat_a01",171,340;
set @gave,0;
set @gotheal,0;
warp "bat_a01.gat", 171, 340;
end;
}
if ((getcharid(2)==$@guildID2) && ($state_match == 1)) {
savepoint "bat_a01",155,48;
set @gave,0;
set @gotheal,0;
warp "bat_a01.gat", 155, 48;
end;
}
mes $npcname$;
mes "Состязание закончено.";
close;
}
mes $npcname$;
mes "Я могу отправить вас на локацию, как только будет записано две гильдии.";
close;
case 3:
mes $npcname$;
mes "Режим - GvG";
mes "Гильдия должна Убить Emperium другой гильдии 5 раз";
mes "Before the other guild does.";
mes "Если Ваша Гильдия выигрывает люди вашей гильдии";
mes "получат приз поговоря с одним из ( нпц ) *Выход*.";
mes "Удачи.";
close;
case 4:
mes $npcname$;
mes "Досвидания.";
close;
}//First switch
end;
OnSubscriptionguild:
if (($@guildID1!=0) && ($@guildID2!=0) && (getguildname($@guildID1)!="null") && (getguildname($@guildID2)!="null")) {
announce "Война за империум : У нас есть 2 записанные гильдии: "+getguildname($@guildID1)+" and "+getguildname($@guildID2)+".",bc_yellow|bc_map;
announce "Война за империум : Члены гильдий теперь могут войти.",bc_yellow|bc_map;
set $state_match, 1;
donpcevent "empwar::OnBegin";
}
end;
OnTimer800000:
if (($@guildID1!=0) && ($@guildID2!=0) && (getguildname($@guildID1)!="null") && (getguildname($@guildID2)!="null")) {
stopnpctimer;
end;
}
stopnpctimer;
set $@guildID2, 0;
set $@guildID1, 0;
end;
OnBegin:
if (.points2 >= 5) {
Announce "Война за империум завершилась!",8;
Announce "В войне за империум выйграла гильдия [" + GetGuildName($@guildID2) + "].",0;
set $@Ewgid,getcharid(2);
donpcevent "empwar::OnEnded";
end;
}
if (.points1 >= 5) {
Announce "Война за империум завершилась!",8;
Announce "В войне за империум выйграла гильдия [" + GetGuildName($@guildID1) + "] guild.",0;
set $@Ewgid,getcharid(2);
donpcevent "empwar::OnEnded";
end;
}
initnpctimer;
MapRespawnGuildID "bat_a01",$@Ewgid,7;
monster "bat_a01",173,346,"Emperium",1288,1,"empwar::OnEmpDead1";
monster "bat_a01",165,50,"Emperium",1288,1,"empwar::OnEmpDead2";
end;
OnEmpDead2:
if ( getcharid(2) == $@guildID2 ) {
stopnpctimer;
set .points2, .points2 -1;
dispbottom "Прекратите убивать свой собственный Emperium";
Announce "Гильдия [" + GetGuildName($@guildID2) + "] убила свой империум ( с гильдии снялись очки) теперь она имеет [" + .points2 + "] Очков!.",0;
goto OnBegin;
end;
} else {
stopnpctimer;
set .points1, .points1 +1 ;
Announce "[" + GetGuildName($@guildID1) + "] у гильдии есть [" + .points1 + "] Очков!.",0;
goto OnBegin;
}
end;
OnEmpDead1:
if ( getcharid(2) == $@guildID1 ) {
stopnpctimer;
set .points1, .points1 -1;
dispbottom "Прекратите убивать свой собственный Emperium";
Announce "Гильдия [" + GetGuildName($@guildID1) + "] убила свой империум ( с гильдии снялись очки) теперь она имеет [" + .points1 + "] Очков!.",0;
goto OnBegin;
end;
} else {
stopnpctimer;
set .points2, .points2 +1 ;
Announce "[" + GetGuildName($@guildID2) + "] у гильдии есть [" + .points2 + "] Очков!.",0;
goto OnBegin;
}
end;
OnEnded:
stopnpctimer;
set $state_match, 0;
set .points1, 0;
set .points2, 0;
set $@guildID2, 0;
set $@guildID1, 0;
killmonsterall "bat_a01";
end;
OnTime9000000:
Announce "Война за Emperium завершилась, побидителей нету",8;
set $@Ewgid, 0;
donpcevent "empwar::OnEnded";
end;
}
//Exit
bat_a01,149,351,5 script Exit::Ewexit 88,{
set $rewarditem, 7539;
if((getcharid(2) == $@Ewgid) && (@gave == 0)){
getitem $rewarditem,rand(10,50);
savepoint "new_1-1",51,106;
set @gave,1;
warp "new_1-1.gat", 51, 106;
end;
}
savepoint "new_1-1",51,106;
warp "new_1-1.gat", 51, 106;
end;
} // end of script
bat_a01,148,349,5 script Healer::Emphealer 742,{
if(@gotheal == 0) {
percentheal 100,100;
mes ""+strcharinfo(0)+",хил.";
set @gotheal, 1;
close;
}
mes ""+strcharinfo(0)+", вы здоровы.";
close;
}
//duplicates
bat_a01,363,266,6 duplicate(Ewexit) Exit#2 88,
bat_a01,353,60,6 duplicate(Ewexit) Exit#3 88,
bat_a01,138,57,6 duplicate(Ewexit) Exit#4 88,
bat_a01,142,57,6 duplicate(Emphealer) Healer#2 88,
bat_a01 mapflag gvg
bat_a01 mapflag nowarpto
bat_a01 mapflag nowarp
bat_a01 mapflag nosaveАвтор: Kill Spirit: Дата: 06.06.2010
case 3:
mes $npcname$;
mes "Режим - GvG";
mes "Гильдия должна Убить Emperium другой гильдии 5 раз";
mes "Before the other guild does.";
mes "Если Ваша Гильдия выигрывает люди вашей гильдии";
mes "получат приз поговоря с одним из ( нпц ) *Выход*.";
mes "Удачи.";
close;
Автор: Kill Spirit: Дата: 06.16.2010
АП!!! Выяснилось что это бтф
Автор: Renegade: Дата: 06.16.2010
бтф?
Автор: Kill Spirit: Дата: 06.16.2010
Да, мы тестили там ги на ги, ну типо бтф я в 1 посте сказал