Тема: У кого есть Emperium
У кого есть Emperium
Автор: SergeiX: Дата: 05.22.2009
Нпц такое когда заходиш можеш потестить за скок разбил имп и там пишут время и рекорд,cкиньте у кого есть плз
Автор: Skay: Дата: 05.22.2009
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,165,145,0 script Emperium Арена 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 "Ваша запись:";
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;
}оно ?
Автор: SergeiX: Дата: 05.22.2009
м он не работает хД)сорри буду знать)!
Автор: Cole McCormick: Дата: 05.22.2009
что неработает?
Автор: hajikov: Дата: 05.22.2009
Тоесть ты хочешь без всяких мучений получить полностью рабочий скрипт? Хоть ради приличия посиди немного и попробуй его "починить", а то вам только все готовое подавай.
Автор: Cole McCormick: Дата: 05.22.2009
либо скрин мап сервера либо сиди мучайсо)
Автор: ArTuR: Дата: 05.22.2009
Вот Ошибка ! Кто поможет исправить?)
Автор: ArTuR: Дата: 05.22.2009
Скрипт по идее работает но хотелось бы убрать ети варнинги и дебаги?) кто нить если знает как напишите пож)
Автор: Cole McCormick: Дата: 05.22.2009
правь 1 и 2 строчки, ошибки прописаных в скрипте мапфлагов.
Автор: SergeiX: Дата: 05.22.2009
Не как не пашет короче нпц всё работает заходиш на эту карту не импа нефига нету хД)и все кто попалу могут зайти на карту
Автор: SergeiX: Дата: 05.22.2009
sergeidead Если есть скинь норм рабочий
Автор: ArTuR: Дата: 05.23.2009
Мне бы Вот Это Исправить?
[Warning]: sv_unescape_c: empty escape sequenceй документ.txt
[Debug]: parse_simpleexpr: unexpected length 0 after unescape ("\" -> )
[Warning]: sv_unescape_c: empty escape sequence
[Debug]: parse_simpleexpr: unexpected length 0 after unescape ("\" -> )
Автор: ArTuR: Дата: 05.24.2009
Originally posted by АрТуР;10813
Мне бы Вот Это Исправить?
[Warning]: sv_unescape_c: empty escape sequenceй документ.txt
[Debug]: parse_simpleexpr: unexpected length 0 after unescape ("\" -> )
[Warning]: sv_unescape_c: empty escape sequence
[Debug]: parse_simpleexpr: unexpected length 0 after unescape ("\" -> )
ну что никто незнает?