Dante Опубликовано 13 ноября, 2011 Жалоба Поделиться Опубликовано 13 ноября, 2011 Всем привет, у каво есть скрипт империум, типа заходишь на арену та ма стоят импы, и тестишь своего имполома как он пилит быстро или нет просто тестовая империум арена для имполомов у каво есть? Ссылка на комментарий Поделиться на другие сайты Поделиться
nejiko Опубликовано 13 ноября, 2011 Жалоба Поделиться Опубликовано 13 ноября, 2011 (изменено) ппц а по искать сложно?!Вот держиVVVОткрыть спойлер!sec_in02,11,20,4 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;} Изменено 13 ноября, 2011 пользователем nejiko Ссылка на комментарий Поделиться на другие сайты Поделиться
nejiko Опубликовано 13 ноября, 2011 Жалоба Поделиться Опубликовано 13 ноября, 2011 скрипт тот что ты искал? 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
Dante Опубликовано 14 ноября, 2011 Автор Жалоба Поделиться Опубликовано 14 ноября, 2011 скрипт тот что ты искал?Щяс проверим... Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения