Ragnarok World
Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.
Ragnarok World

Помощь по вопросам игры Ragnarok Online, cкрипты, механика, установка и настройка своего сервера || The help concerning game Ragnarok Online, Scripts, mechanics, Installation and adjustment of the server.

Последние темы
» Два и более сервера Eathena || Two and more servers Eathena
Test Emperium EmptyПн Окт 10, 2011 12:39 am автор LeLush16

» Aвтокликер || Autohotkey
Test Emperium EmptyВт Фев 08, 2011 7:41 am автор mrbib

» ////Kobans
Test Emperium EmptyПн Окт 25, 2010 10:15 am автор osiki

» Nice Stylist =)
Test Emperium EmptyСр Мар 24, 2010 8:11 pm автор Kill Spirit

» Novice VS Zombie (RFYL)
Test Emperium EmptyСр Мар 24, 2010 8:10 pm автор Kill Spirit

» Disguise Event =\
Test Emperium EmptyСр Мар 24, 2010 8:09 pm автор Kill Spirit

» Stop The Clok
Test Emperium EmptyСр Мар 24, 2010 8:08 pm автор Kill Spirit

» Warper || LastWarp
Test Emperium EmptyСр Мар 24, 2010 8:07 pm автор Kill Spirit

» Насчет грфок
Test Emperium EmptyСр Мар 24, 2010 8:04 pm автор Kill Spirit

Кто сейчас на форуме
Сейчас посетителей на форуме: 1, из них зарегистрированных: 0, скрытых: 0 и гостей: 1

Нет

Больше всего посетителей (59) здесь было Ср Авг 09, 2017 11:30 am
Самые активные пользователи
Kill Spirit
Test Emperium I_vote_lcapTest Emperium I_voting_barTest Emperium I_vote_rcap 
osiki
Test Emperium I_vote_lcapTest Emperium I_voting_barTest Emperium I_vote_rcap 
mrbib
Test Emperium I_vote_lcapTest Emperium I_voting_barTest Emperium I_vote_rcap 
LeLush16
Test Emperium I_vote_lcapTest Emperium I_voting_barTest Emperium I_vote_rcap 


Test Emperium

Ragnarok World :: Ragnarok Online :: Скрипты (нпц) || Scripts (Npc)

Перейти вниз

Test Emperium Empty Test Emperium

Сообщение  Kill Spirit Пн Мар 08, 2010 8:35 pm

Код:
pvp_n_4-5   mapflag   restricted   5
pvp_n_4-5   mapflag   restricted   7
pvp_n_4-5   mapflag   nomemo
pvp_n_4-5   mapflag   noteleport
pvp_n_4-5   mapflag   noskill

prontera,131,173,0   script   Империум Арена   1288,{

set @time, $empbrk_record;
set @m, @time / 60000;
set @time, @time - (@m * 60000);
set @s, @time /1000;
set @time, @time - (@s * 1000);

mes "[Emperium]";
mes "Официальная Запись ^5050A0"+$empbrk_record$+"^000000";
mes " ^000080"+@m+"^000000m ^000080"+@s+"^000000s ^000080"+@time+"^000000ms";

set @time, empbrk_record;
set @m, @time / 60000;
set @time, @time - (@m * 60000);
set @s, @time /1000;
set @time, @time - (@s * 1000);
mes "HighRO ([Вы должны быть зарегистрированы и подключены, чтобы видеть эту ссылку]
mes "Ваша запись:";
mes " ^000080"+@m+"^000000m ^000080"+@s+"^000000s ^000080"+@time+"^000000ms";

mes "Вы хотите попробовать установить рекорд?";
next;
if (getgmlevel()>99) {mes "^FF0000/!\ ^000000Гм меню ^509050Active ^FF0000/!\^000000"; menu "Стандартное меню",-,"Reset",L_reset,"Exit",L_exit;}
menu
"Да",-,"Нет",L_exit,"Ресет",L_resc;
cleararray .arena$[0],"",4;
mes "[Тест]";
if (getareausers("pvp_n_4-5",94,128,105,139)) mes "Имп n° ^0000DF1 ^FF0000 Занятый^000000";
else{ mes "Emp n° ^0000DF1 ^00A000 Свободный^000000"; set .arena$[0],"^0000DFEmperium^000000";}
if (getareausers("pvp_n_4-5",60,94,71,105)) mes "Имп n° ^B05D002 ^FF0000 Занятый^000000";
else{ mes "Emp n° ^B05D002 ^00A000 Свободный^000000"; set .arena$[1],"^B05D00Emperium^000000";}
if (getareausers("pvp_n_4-5",94,60,105,71)) mes "Имп n° ^B00FB03 ^FF0000 Busy^000000";
else{ mes "Emp n° ^90AF003 ^00A000 Свободный^000000"; set .arena$[2],"^90AF00Emperium^000000";}
if (getareausers("pvp_n_4-5",128,94,139,105)) mes "Имп n° ^50AF004 ^FF0000 Занятый^000000";
else{ mes "Emp n° ^500F004 ^00A000 Свободный^000000"; set .arena$[3],"^500F00Emperium^000000";}
next;
getmapxy(@mpempbrk$,@empbrkx,@empbrky,0,strcharinfo(0));
switch (select(.arena$[0],.arena$[1],.arena$[2],.arena$[3],"Esci")){

case 1:
if (getareausers("pvp_n_4-5",60,94,71,105) == 0){
warp "pvp_n_4-5",99,128;
killmonster "pvp_n_4-5","EmpBrk#1::OnThisMobDeath";
initnpctimer "EmpBrk#1";}
break;

case 2:
if (getareausers("pvp_n_4-5",60,94,71,105) == 0){
warp "pvp_n_4-5",68,99;
killmonster "pvp_n_4-5","EmpBrk#2::OnThisMobDeath";
initnpctimer "EmpBrk#2";}
break;

case 3:
if (getareausers("pvp_n_4-5",94,60,105,71) == 0){
warp "pvp_n_4-5",100,68;
killmonster "pvp_n_4-5","EmpBrk#3::OnThisMobDeath";
initnpctimer "EmpBrk#3";}
break;

case 4:
if (getareausers("pvp_n_4-5",128,94,139,105) == 0){
warp "pvp_n_4-5",130,99;
killmonster "pvp_n_4-5","EmpBrk#4::OnThisMobDeath";
initnpctimer "EmpBrk#4";}
break;

default:
close;

}
charCommand strcharinfo(0)+":#alive "+strcharinfo(0);
close;

L_reset:
mes "[Империум]";
mes "Вы хотите сделать ресет записей??";
menu "Да",-,"Нет",L_exit;
set $empbrk_record, 0;
set $empbrk_record$, 0;
close;
L_resc:
mes "[Империум]";
mes "Уверены что хотите удалить ваш рекорд";
menu "Да",-,"Нет",L_exit;
set empbrk_record, 0;
L_exit:
close;

}

-   script   EmpBrk#1   -1,{

OnTimer3000:
if (.end == 1) { warpchar "prontera",158,188,.charid;
stopnpctimer;
set .end, 0;
}
end;

OnTimer5000:
set .x1,94;
set .y1,128;
set .x2,105;
set .y2,139;
set .xe,100;
set .ye,134;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Готовься сломать Emperium",0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;

OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;

OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;

OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;

OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;

OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Руби!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#1::OnThisMobDeath";
end;

OnThisMobDeath:
stopnpctimer "EmpBrk#1";
set .time, getnpctimer(0,"EmpBrk#1")/2;
set .time, .time - 12000;
if (.time < empbrk_record || empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Новая Собственная Запись!!!",0;
set empbrk_record, .time;

}
if (.time < $empbrk_record || $empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Новая официальная запись!!!",0;
set $empbrk_record, .time;
set $empbrk_record$,strcharinfo(0);
}
set .m, .time / 60000;
set .time, .time - (.m * 60000);
set .s, .time /1000;
set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Ваше время "+.m+"m "+.s+"s "+.time+"ms",0;
set .end,1;
set .charid,getcharid(0);
initnpctimer;
end;
}
pvp_n_4-5,99,125,0   script   EmpBrk#1_touch   -1,2,1,{

OnTouch:
killmonster "pvp_n_4-5","EmpBrk#1::OnThisMobDeath";
mes "[EmpBrk]";
mes "Вы не можете выходить из небольшого участка";
close2;
warp @mpempbrk$,@empbrkx,@empbrky;
close;

}

-   script   EmpBrk#2   -1,{


OnTimer3000:
if (.end == 1) { warpchar "prontera",158,188,.charid;
stopnpctimer;
set .end, 0;
}
end;

OnTimer5000:
set .x1,60;
set .y1,94;
set .x2,71;
set .y2,105;
set .xe,65;
set .ye,99;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Готовься сломать Emperium",0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;

OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;

OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;

OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;

OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;

OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Руби!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#2::OnThisMobDeath";
end;

OnThisMobDeath:
stopnpctimer "EmpBrk#2";
set .time, getnpctimer(0,"EmpBrk#2")/2;
set .time, .time - 12000;
if (.time < empbrk_record || empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Ваш новый рекорд!!!",0;
set empbrk_record, .time;

}
if (.time < $empbrk_record || $empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Новая официальная запись!!!",0;
set $empbrk_record, .time;
set $empbrk_record$,strcharinfo(0);
}
set .m, .time / 60000;
set .time, .time - (.m * 60000);
set .s, .time /1000;
set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Ваше время "+.m+"m "+.s+"s "+.time+"ms",0;
set .end,1;
set .charid,getcharid(0);
initnpctimer;
end;
}
pvp_n_4-5,74,99,0   script   EmpBrk#2_touch   -1,1,2,{

OnTouch:
killmonster "pvp_n_4-5","EmpBrk#2::OnThisMobDeath";
mes "[EmpBrk]";
mes "Вы не можете выходить за небольшой участок";
close2;
warp @mpempbrk$,@empbrkx,@empbrky;
close;

}

-   script   EmpBrk#3   -1,{

OnTimer3000:
if (.end == 1) { warpchar "prontera",158,188,.charid;
stopnpctimer;
set .end, 0;
}
end;

OnTimer5000:
set .x1,94;
set .y1,60;
set .x2,105;
set .y2,71;
set .xe,99;
set .ye,65;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Готовься сломать Emperium",0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;

OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;

OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;

OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;

OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;

OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Руби!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#3::OnThisMobDeath";
end;

OnThisMobDeath:
stopnpctimer "EmpBrk#3";
set .time, getnpctimer(0,"EmpBrk#3")/2;
set .time, .time - 12000;
if (.time < empbrk_record || empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Новый ваш рекорд!!!",0;
set empbrk_record, .time;

}
if (.time < $empbrk_record || $empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Новая Официальная Запись!!!",0;
set $empbrk_record, .time;
set $empbrk_record$,strcharinfo(0);
}
set .m, .time / 60000;
set .time, .time - (.m * 60000);
set .s, .time /1000;
set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.time+"ms",0;
set .end,1;
set .charid,getcharid(0);
initnpctimer;
end;
}
pvp_n_4-5,100,74,0   script   EmpBrk#3_touch   -1,2,1,{

OnTouch:
killmonster "pvp_n_4-5","EmpBrk#3::OnThisMobDeath";
mes "[EmpBrk]";
mes "Вы не можете выходить за этот маленький участок";
close2;
warp @mpempbrk$,@empbrkx,@empbrky;
close;

}


-   script   EmpBrk#4   -1,{

OnTimer3000:
if (.end == 1) { warpchar "prontera",158,188,.charid;
stopnpctimer;
set .end, 0;
}
end;

OnTimer5000:
set .x1,128;
set .y1,94;
set .x2,139;
set .y2,105;
set .xe,134;
set .ye,99;

areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Готовься сломать Emperium",0;
end;

OnTimer7000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",0;
end;

OnTimer8000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",0;
end;

OnTimer9000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",0;
end;

OnTimer10000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",0;
end;

OnTimer11000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",0;
end;

OnTimer12000:
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Руби!!!",0;
monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#4::OnThisMobDeath";
end;

OnThisMobDeath:
stopnpctimer "EmpBrk#4";
set .time, getnpctimer(0,"EmpBrk#4")/2;
set .time, .time - 12000;
if (.time < empbrk_record || empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Собственная запись!!!",0;
set empbrk_record, .time;

}
if (.time < $empbrk_record || $empbrk_record == 0)
{
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Новая Официальная Запись!!!",0;
set $empbrk_record, .time;
set $empbrk_record$,strcharinfo(0);
}
set .m, .time / 60000;
set .time, .time - (.m * 60000);
set .s, .time /1000;
set .time, .time - (.s * 1000);
areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.time+"ms",0;
set .end,1;
set .charid,getcharid(0);
initnpctimer;
end;
}
pvp_n_4-5,125,100,0   script   EmpBrk#4_touch   -1,1,2,{

OnTouch:
killmonster "pvp_n_4-5","EmpBrk#4::OnThisMobDeath";
mes "[EmpBrk]";
mes "Вы не можете выходить за маленький участок.";
close2;
warp @mpempbrk$,@empbrkx,@empbrky;
close;

}
Kill Spirit
Kill Spirit
Администратор
Администратор

Сообщения : 34
Количество тем пользователя : 70
Дата регистрации : 2010-03-08

http://ragna-faq.forumgrad.ru

Вернуться к началу Перейти вниз

Вернуться к началу

Ragnarok World :: Ragnarok Online :: Скрипты (нпц) || Scripts (Npc)

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения