Тема: Event Warper (перевод by Kill Spirit)

Назад

Event Warper (перевод by Kill Spirit)

Автор: Kill Spirit: Дата: 05.07.2010

Нашел на eAthena.ws Евент варпера (английского)

Cсылка на оригинал:

http://www.eathena.ws/board/ReleaseEvent-Warper-NPC-t204556.html


Так вот переведенный:

prontera,155,174,4 script Event Warper 939,{

if (getgmlevel()>=80){
check:
if($state==0){
goto off;
}
else{
goto on;
}
close;
//--------------STATE: OFF----------------------------------------------------
off:
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Статус Event Warper: ^FF0000Выключен^000000";
mes "^221122--------Настройки:--------^000000";
mes "Карта: "+$map$+" "+$x+" "+$y;
mes "Евент: "+$event$;
menu "Нечего",noon,"Включить",yeson,"Поставить эвент.",setplace,"Телепортироватся",yeswarp;

yeson:
set $state,1;
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Окей ^009900Включен^000000.";
delwaitingroom;
waitingroom "Эвент: "+$event$,0;
next;
goto check;

noon:
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Хорошо,пока!";
close;
//--------------STATE: ON----------------------------------------------------
on:
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Статус Event Warper: ^009900Включен^000000";
mes "^221122--------Настройки:--------^000000";
mes "Карта: "+$map$+" "+$x+" "+$y;
mes "Эвент: "+$event$;
menu "Нечего",nooff,"Выключить",yesoff,"Телепортироватся на эвент.",setplace,"Телепортироватся",yeswarp;

yesoff:
set $state,0;
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Oкей ^FF0000Выключен^000000.";
delwaitingroom;
waitingroom "Нету эвентов.",0;
next;
goto check;

nooff:
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Окей, пока!";
close;

setplace:
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Вы можете установить евент .";
mes "Установить?";
menu "Да",yes,"Нет.",no;

yes:
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Только удостоверьтесь, что у вас есть правильные координаты.";
mes "Это должна быть x координата, карта, y координата";
next;
change:
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Введите название карты";
mes "Пример: prontera";
input $map$;
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Введите х координату:";
mes "Пример: 150";
input $x;
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Введите у координату:";
mes "Пример: 150";
input $y;
next;
mes "Правильно "+$map$+" "+$x+" "+$y+" ?";
menu "Да.",-,"Я пожалуй изменю.",change;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Введите название эвента";
mes "Пример: RFYL";
input $event$;
next;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Окей, я открываю варп на эвент.";
next;
announce "Начался набор людей на "+$event$+" !",0;
sleep 15000;
announce "Продолжается набор людей на "+$event$+".Через 3 мин начало эвента !",0;
sleep 60000;
announce "Продолжается набор людей на "+$event$+".Через 2 мин начало эвента !",0;
sleep 60000;
announce "Продолжается набор людей на "+$event$+".Через 1 мин начало эвента !",0;
end;

no:
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Хорошо. Пока.";
close;
}
//----------------------Normal Player---------------------------------
else{
if($state<=0){
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "Простите, в настоящие время эвентов нету.";
emotion 17;
close;
}
else{
emotion 21;
mes "[^3333FFAphoticRO Event Warper^000000]";
mes "В данный момент есть евент!";
mes "Хотите присоеденится?";
menu "Да.",yeswarp,"Нет.",nowarp;

yeswarp:
atcommand "@warp "+$map$+" "+$x+" "+$y;
sc_end SC_ALL;
end;
nowarp:
close;
}}

//---------------------remote functions-------------------------NOTE: Not yet functional------------------------------
OnWhisperGlobal:
if (@whispervar0$=="|00Включен") {goto remoteon; close;}
if (@whispervar0$=="|00Выключен"){goto remoteoff; close;}
else dispbottom "Вы написали неправильно '"+@whispervar0+"'? вы можете написать только Включен или Выключен.";
end;

remoteon:
set $state,1;
dispbottom "Включенно.";
delwaitingroom;
waitingroom "Event: "+$event$,0;
end;

remoteoff:
set $state,0;
dispbottom "Выключенно";
delwaitingroom;
waitingroom "В данный момент, эвентов нет или они уже идут.",0;
end;

OnInit:
set $state,0;
delwaitingroom;
waitingroom "В данный момент, эвентов нет или они уже идут.",0;
end;
}




ПСЫ если чо, переводил сам, но с помощью этого XD http://www.translate.ru/

Автор: Kill Spirit: Дата: 05.08.2010

Цитата Dis[IP];22998:
[FONT=Lucida Console]О боже,скрипт ни о чем,но молодец,что перевел,пусть будет :)[/FONT]

Сегодня исправлю, варпер чисто для ручных эвентов таких как абра , пвп эвент с участием гма

Автор: Sanasol: Дата: 05.08.2010

//===== eAthena Unofficial Script ===========================================

//= Event Warper

//===== By: =================================================================

//= rad417

//===== Current Version: ====================================================

//= 2.2

//===== Tested With: ====================================================

//= Trunk, SVN 13366+

//===== Description: ========================================================

//= Warps players to event place

//===== Additional Comments: ================================================

//= For revisions, see the change log!

//= 1.0 Script created

//= 1.1 Added Test Warp for GMs 

//= 1.2 Added status PUB.

//= 2.0 Implemented an ON and OFF system and an indicator(PUB and npc),

//=     also started with remote funtions, but failed to implement

//=2.1 Added the line "sc_end SC_ALL;" for debuff upon warping :D(tnx ~AnnieRuru~, i read one of your post about this :D)

//=2.2 Finally implemented the remote function :D

//===========================================================================



prontera,155,174,4	script	Event Warper	939,{



if (getgmlevel()>=80){

check:

if($state==0){

goto off;

}

else{

goto on;

}

close;

//--------------STATE: OFF----------------------------------------------------

off:

mes "[^3333FFEvent Warper^000000]";

mes "Статус НПЦ: ^FF0000Выкл^000000";

mes "^221122--------Current Settings:--------^000000";

mes "Карта: "+$map$+" "+$x+" "+$y;

mes "Евент: "+$event$;

menu "Нечего",noon,"Включить",yeson,"Поставить Карту Евента",setplace,"Варп",yeswarp;



yeson:

set $state,1;

next;

mes "[^3333FFEvent Warper^000000]";

mes "ОК Сейчас НПЦ  ^009900Включен^000000.";

delwaitingroom;

waitingroom "Евент: "+$event$,0;

next;

goto check;



noon:

next;

mes "[^3333FFEvent Warper^000000]";

mes "Ok bye!";

close;

//--------------STATE: ON----------------------------------------------------

on:

mes "[^3333FF Event Warper^000000]";

mes "Статус НПЦ: ^009900Вкл^000000";

mes "^221122--------Current Settings:--------^000000";

mes "Карта: "+$map$+" "+$x+" "+$y;

mes "Евент: "+$event$;

menu "Нечего",noon,"Выключить",yesoff,"Поставить Карту Евента",setplace,"Варп",yeswarp;



yesoff:

set $state,0;

next;

mes "[^3333FFEvent Warper^000000]";

mes "НПЦ сейчас ^FF0000Выключен^000000.";

delwaitingroom;

waitingroom "Евентов Нет.",0;

next;

goto check;



nooff:

next;

mes "[^3333FFEvent Warper^000000]";

mes "Ok bye!";

close;



setplace:

next;

mes "[^3333FF Event Warper^000000]";

mes "You can set the event place here for easy access to players.";

mes "Set it?";

menu "Yes",yes,"No.",no;



yes:

next;

mes "[^3333FFEvent Warper^000000]";

mes "Just make sure you have the right coordinates.";

mes "It should be map x-coordinate y coordinate";

next;

change:

mes "[^3333FF Event Warper^000000]";

mes "Enter map name";

mes "example: prontera";

input $map$;

next;

mes "[^3333FF Event Warper^000000]";

mes "Enter the x-coordinate:";

mes "example: 150";

input $x;

next;

mes "[^3333FF Event Warper^000000]";

mes "Enter the y-coordinate:";

mes "example: 150";

input $y;

next;

mes "That is "+$map$+" "+$x+" "+$y+" right?";

menu "Yes.",-,"Let me change it.",change;

mes "[^3333FFAphoticRO Event Warper^000000]";

mes "Enter the Name of the EVENT:";

mes "example: RFYL";

input $event$;

next;

mes "[^3333FF Event Warper^000000]";

mes "Ok, I will warp the contestants there.";

close;

no:

mes "[^3333FF Event Warper^000000]";

mes "Ok. Bye.";

close;

}

//----------------------Normal Player---------------------------------

else{

if($state<=0){

mes "[^3333FF Event Warper^000000]";

mes "Сейчас Евентов Не проводится";

emotion 17;

close;

}

else{

emotion 21;

mes "[^3333FFEvent Warper^000000]";

mes "Сейчас Евент Включен";

mes "Ты пойдешь?";

menu "Да.",yeswarp,"Нет",nowarp;



yeswarp:

atcommand "@warp "+$map$+" "+$x+" "+$y;

sc_end SC_ALL;

end;

nowarp:

close;

}}



//---------------------remote functions-------------------------NOTE: Not yet functional------------------------------

OnWhisperGlobal:

if (@whispervar0$=="|00On") {goto remoteon; close;}

if (@whispervar0$=="|00Off"){goto remoteoff; close;}

else dispbottom "Invalid syntax, you typed '"+@whispervar0$+"'? you can only type On or Off.";

end;



remoteon:

set $state,1;

dispbottom "Ok it is now turned ON.";

delwaitingroom;

waitingroom "Event: "+$event$,0;

end;



remoteoff:

set $state,0;

dispbottom "Ok it is now turned OFF.";

delwaitingroom;

waitingroom "No Event.",0;

end;



OnInit:

set $state,0;

delwaitingroom;

waitingroom "No Event.",0;

end;

end;

}


Мой вариант. Лежит уже год переведенный. Перевена только часть для игроков.