Перейти к содержанию
Наш Discord сервер: https://discord.gg/x53pHgq5qN ×
Форум шарда Middle-Earth

Kallish

Members
 Профиль  Обзор контента

  • Публикаций

    124

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

  • Посещение

Сообщения, опубликованные Kallish

  1. Опубликовано · Пожаловаться 

    Program Guards;
var 
t: TDateTime;

begin
while not Dead do
  begin 
   t:=now;
   Wait(3000);
   if InJournalBetweenTimes('is attacking you', t, now) > 0 then
    UOSay('.guards');
  end;  
end.

     

    Зов гвардов, очень полезно будет для ньюбов!

     

     

    Program Guards;
var 
t: TDateTime;

begin
while not Dead do
begin 
  t:=now;
   WaitJournalLine(t, 'is attacking you', 200000);
   if InJournalBetweenTimes('is attacking you', t, now) > 0 then
    UOSay('.guards');
  end;  
end.

  6. Опубликовано · Пожаловаться 

    sub horse3()
    var horse
    if not uo.objatlayer('Horse') then
        if uo.targeting() then
            uo.canceltarget()
        endif
        uo.addobject('horse')
        while uo.targeting() then
            uo.canceltarget()
        wend
        horse = uo.getserial('horse')
    else
        horse = uo.getserial(uo.objatlayer('Horse'))
    endif
    while True
        if not uo.objatlayer('Horse') then
            uo.useobject(Horse)
        endif
        wait(100)
    wend
end sub

     

    Скрипт который держит вас всегда в седле!=)

  8. Опубликовано · Пожаловаться

    игровая ситуация: Я прибегаю в окло, вижу три таргета - нужный мне я выделяю статусом и начинаю его бить, второй таргет начинает меня атаковать - все спелы, которые должны идти в таргет со статусом летят в последнего атакующего.#я так понимаю на ласт аттак происходит смена статуса.

    Что я хочу иметь в скрипте:

    1. Выделение статусом и закрепление таргета как таргета в ультиме, так и таргета по инжекту; с закреплением таргета через таргетнекст ультимовский.

    2. Если не возможно 1, кидать спеллы в ласт аттак и закрепление за ним таргета как в ультиме так и по инжекту.

    Код:

    sub Poison()

    VAR ManaNeed=9

    UO.Set('lasttarget','laststatus')

    if UO.Mana>=ManaNeed then

    UO.Cast('Poison','laststatus')

    else

    UO.Print("Low mana!!!")

    endif

  13. Опубликовано · Пожаловаться

    2 teloMan

    Когда я запускаю на локалке сервак, у меня в клиенте вар мод включается и выключается 1ним нажатием кнопки. На мидле приходится долбить по клавише, например когда мне нужно из под гв выползти ренжом, когда включен вар и 10 раз нажать на таб что бы его выключить это проблема. Когда я сижу в косях\парализ стреле, я жму как угарелый на все хил кнопки.

  14. Опубликовано · Пожаловаться

    Суть вобщем такая, если к примеру через клиент Уо забиндить макрос bind f1 say ,cast Heal self и зажать кнопку, то во время каста Heal будут тратиться реги в огромном количестве, нид фикс.

     

    p.s. как починить в клиенте вармод включается и выключается после 10тикратного нажатия на кнопку.

  16. Опубликовано · Пожаловаться

    Короче поцоны лет 6 не играл, вернулся в УО! :rolleyes: Гамаю, в окло врываюсь каждый день! :draka: Адреналин! Если вы хотя бы на пару раз в неделю врываться будете заходить, мидла оживет! Старики, давайте тряхнем стариной, у меня оказывается порох-то есть ещё =)

  17. Опубликовано · Пожаловаться

    1. Разрешить продажу крафтовых вещей пусть в 1\2 от цены добытых из монстров.

    2. Разрешить продажу регов вендорам так же в 1\2 от цены продаваемых из добытых в монстрах регов.

    3. Скорость сбора регов увеличить на 20-30%.(ибо на 10 чаров хотя бы на 5-7 дней побегать, собрать по 10 к регов это примерно 20 часов)

    4. Уменьшить дроп шлаковых маг вещей, увеличить количество инвул\фортив\ повер, форс, ванк.

    5. Заселить т2 зону нормальными монстрами гв\ашен\барлоки\демоны половина т2 пустует.

    6. По части ламбера убрать 0 шанс на вырубку деревьев, т.е. вырубаемые деревья = скилу ламбера, а не так что вырубаемые деревья = всему скилу ламбера, чар стоит рубит, рубит шанс 0, шанс 0.

    7. Скорость удара маг посохом прировнять к скорости удара( не каста ) како-нибудь блек стафа.

    8. Почините уже стак вещей. ибо заколебало делать лог-аут.

    9. Верните садоводов как на ме1

    10. фертиль дёрт, сделать кликабельным для удобрения огорода(на 20% быстрей созревает).

    11. Сделать хилящие касты (Heal,Great Hea, Heal Wounds, Divine, Regeneration) несбиваемыми. Можно подумать на счет зеркала.

    12. Вернуть критикал хит в пвм.

    13. Какой прок от Raise Dead? Если даже именого дракона нельзя поднять. Раньше был хоть какой то профит от ДМА в пвм, щас как вульнермашину можно дма использовать!

    14. Дисбаланс в попадании, так например у клера 4 уровня с саншайн кутласом шанс попасть по арчеру 4 лвла с луком в руках 50% не бред-ли а? Шанс попасть у клера с обычного ванка без приписок по ГВ 35% бред галимый)

    15. Откорректировать систему кармы\фэйма, как так я за почти месяц игры не увидел ни одного глориус\дред лорда? И сам набить не смог!

    16. Раз уж сделали так, что в charinfo показывает статус голода, криминал\не криминал\нуб не нуб, то наверное стоит добавить количество килов?

    17. Copy-past анонсы в группу вконтакте, что бы у людей в новостях это высвечивалось и подогревало интерес к серверу.

    18. При высоком навыке ветеринарии друид может воскрешать игровые персонажи. Друид и так полностью стал суппортом, так давайте вернем ему ещё один не плохой бонус.

    19. .spellpan нужно разрешить сохранять в любом положении экрана.

    20. Sparring - убрать атаку минуту, че за наркоманство?! минуту бьет и слетает, было актуально раньше - щас нет. На монстрах в данжах ни кто качаться не будет, я вас уверяю - 1)лута нет достойного. 2) трапы на каждом шагу.

    21. Poison&resend может есть какие другие обходы для решения проблем с ресендом, имхо постоянно клеры особенно зависают и выйти из ресенда оч проблематично в пвп. я за месяц раз 7 отдался тупо в ресенде, не мог сдвинутся с места.

    22. На кой фиг нужны города андердарк& город ветров (Wind) если в них нельзя маркать руны? и капать там нельзя)))

    23. Ввести команду .hungry которая автоматически находит в бэкпаке съедобную еду и кушает (1 раз).

    24. Руда продается вендорам, логи - нет нафиг оно такое надо? смысл в гуд, хард, экселент логах? Разрешите их хотя бы в реколы переделывать!

    25. На кой черт сделали, что нельзя есть бананы? Добавило рпгшности?) Только гемор...

    26. Серпы\ньюджелм верните под заселение вендоров, и так уже городов почти не осталось!

    post-11930-1343481941_thumb.jpg

  20. Опубликовано · Пожаловаться

    2 Jackpot

     

    4.4. Убийство или нанесение вреда игрокам НПС - берсерками (Blade Spirits, Energy Vortex) в гард зоне. За данное правонарушение виновный будет посажен в тюрьму на срок 1-2 дня.

    Бить НПС не в гвард зоне не запрещено правилами => разрешено. Что мне стоит написать скрипт - один чар ложит 1 найтшейд на пол, второй чар его поднимает, кастует пойзон в хилера - умирает, ресается медитирует, берет 1 найтшейд - кастует в хилера. Так же я не нашел запрета в правилах на прокачку скиллов с использованием НПС.

     

    5.3 Вендора внутри дома, рядом с домом и в любом другом произвольном месте запрещены. Удаление вендора.

    Согласен.

    Вопрос исчерпан?

  24. Опубликовано · Пожаловаться 

    Program hiding_and_stealth;
var
i:integer;
d:Cardinal;
TimeSay : TDateTime;
procedure Hungry(NeededLevel : Integer); {проверка голода от Миралекса!!!}
var HArray : array [0..10] of String;
    CurrentLevel : Integer;
    HasError : Boolean;
    TimeSayHungry : TDateTime;
    FoodID : Cardinal;
    i,c,difference : Integer;
begin
if (NeededLevel < 0) or (NeededLevel > 10) then Exit;
   HArray[0] := 'You are absolutely stuffed!';
   HArray[1] := 'You are stuffed';
   HArray[2] := 'hungry at all';
   HArray[3] := 'You are a little hungry';
   HArray[4] := 'You are somewhat hungry';
   HArray[5] := 'You are REALLY hungry';
   HArray[6] := 'Your stomash hurts';
   HArray[7] := 'Your stomash hurts and you feel dizzy';
   HArray[8] := 'You are starving';
   HArray[9] := 'You are almost dying of hunger';
   HArray[10] := 'You are DYING of hunger...';
HasError := true;
TimeSayHungry := Now;
UOSay('.hungry');
wait(100);
i:=0;
while i < 100 do
   begin
   for c := 0 to 10 do
   if InJournalBetweenTimes(HArray[c],TimeSayHungry,Now) >= 0 then
   begin
   CurrentLevel := c;
   HasError := false;
   i := 100;
   end;
   wait(100);
   i := i + 1;
   end;
if HasError then
   begin
   AddToSystemJournal('Error with Hungry: Lag? Conection error? Something else?');
   Exit;
   end;
difference := CurrentLevel - NeededLevel;
if difference > 0 then for i := 1 to difference do
   begin
   wait(5000)
   FoodID := FindType($097B,backpack);
   if FoodID <> $00 then UseObject(FoodID)
   else AddToSystemJournal('No Food');
   wait(200);
   end;
end;

begin
i:=0;
while i<1000 do
   begin
   TimeSay := Now;
   while InJournalBetweenTimes('You have hidden yourself well',TimeSay,Now)<0 do
   begin    
      useskill('Hiding');
        wait(2000);
   end;
   TimeSay := Now;
   while (InJournalBetweenTimes('You have revealed yourself!',TimeSay,Now)<0) and 
   (InJournalBetweenTimes('You must be hidden to use stealth',TimeSay,Now) <0) do
   begin
      if InJournalBetweenTimes('You have revealed yourself!',TimeSay,Now)<0 then i:=500;
      if InJournalBetweenTimes('You must be hidden to use stealth',TimeSay,Now)<0 then i:=500;
      useskill('Stealth');
      wait(2000);
   end;
       Hungry(1);
   end;
end.

    Может кто на примере этого скрипта, сделать скрипт, качающий все остальные скилы)

×
×
  • Создать...