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

Kallish

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

  • Публикаций

    124

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

  • Посещение

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

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

    Айс кожа актуальна только для кача, ни кто её не носит в пвм\пвп. Да и сама ловкость(приобретенная с помощью шмота) не дает не какого эффекта кроме прибавки к скорости. Что я предлагаю, поменять бонус айс кожи, сделать вместо +5 ловкости - +5 к хиту. Это будет очень актуально для таких классов как паладин\дескнайт\клеры\авежеры и другие классы. Так же это будет неким балансом в пвп - актуальность фулл эвайдов останется только в пвм, в пвп же придется искать баланс профита уворота и таких статов как армор, резист. Предлогаю так же увеличить на 5-7 хит таким классам как паладин, все клеры(авенг,дарк,лайт) все маги. Появится актуальность айс данжа, айс острова( сейчас представляет айс данж интерес только из-за барлока и кучки вампиров) айс остров и сам данж на айс острове не представляет никакого интереса в пвм(проходить до самого конца ради скелетал дрейка и барика(даже ставить гейтера туда влом)). Опять таки это внесет некую динамику в масс-пвп-сетапы.

     

     

     

    p.s. идеальным вариантом мне кажется сделать +3 хита и 3 ловкости.

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

    П.С. лучше напишите макрос на кастера)))

    program cast;
const
sunduk = $4499C893;
var 
r,i : integer;
s : string;
MissingReg : cardinal;
Reags : array[1..8] of cardinal;
ctime : TDateTime;

{$Include 'all.inc'}


function timer(var acttimer:integer;actafter:integer):boolean;
begin
   result:=false;
   acttimer:=acttimer+1;
   if acttimer>=actafter then
   begin
      acttimer:=0;
      result:=true;       
   end;
end;

procedure CheckJournal;
begin
if InJournalBetweenTimes('Cast!', ctime, Now) <> -1 then 
    begin
    WaitTargetObject(LineID);
    cast('Bless');
    wait(3000);
    WaitTargetObject(LineID);
    cast('Protection');
    exit;
    end;
if InJournalBetweenTimes('Ress!', ctime, Now) <> -1 then
    begin    
    WaitTargetObject(LineID);
    cast('Resurrection');
    wait(1000);     
    exit;
    end;
if InJournalBetweenTimes('help', ctime, Now) <> -1 then
    begin
    uosay('Скажи мне "cast!"- c большой буквы');
    wait(100);
    uosay('Скажи мне "ress!"- c большой буквы');
    wait(100);
    uosay('Скажи мне "bless!"- c большой буквы');
    wait(100);
    uosay('Скажи мне "prot!"- c большой буквы');
    wait(100);
    UseSkill('Spirit Speak');
    exit;
    end;
if InJournalBetweenTimes('Bless!', ctime, Now) <> -1 then 
    begin
    WaitTargetObject(LineID);
    cast('Bless');
    exit;
    end;
if InJournalBetweenTimes('Prot!', ctime, Now) <> -1 then 
    begin
    WaitTargetObject(LineID);
    cast('Protection');
    exit;
    end;
end;

function CheckReags : boolean;
begin
Result := True;
Reags[1] := $0F7B // BloodMosss
Reags[2] := $0F7A // BlackPearls
Reags[3] := $0F84 // Garlick
Reags[4] := $0F85 // Ginseng
Reags[5] := $0F86 // Madrake Roots
Reags[6] := $0F88 // NightShades
Reags[7] := $0F8C // Sulphuruos Ashs
Reags[8] := $0F8D // Spider Silks
for r := 1  to 8  do
    begin 
    findtype(Reags[r],BackPack);
    if findcount = 0 then  
        begin
        MissingReg := Reags[r];
        Result := False;
        end; 
    end;
end;

procedure Waiting;
begin
if MissingReg = $0F7B then s := 'BloodMosss';
if MissingReg = $0F7A then s := 'BlackPearls';
if MissingReg = $0F84 then s := 'Garlick';
if MissingReg = $0F85 then s := 'Ginseng';
if MissingReg = $0F86 then s := 'Madrake Roots';
if MissingReg = $0F88 then s := 'NightShades';
if MissingReg = $0F8C then s := 'Sulphuruos Ashs';
if MissingReg = $0F8D then s := 'Spider Silks';
AddToSystemJournal('KoH4uJIucb ' + s);
while (not CheckReags) do
    begin 
    ctime := now;
    wait(10000);
    if InJournalBetweenTimes('dispel!|hunt!|macro!', ctime, Now) <> -1 then uosay('KoH4uJIucb ' + s );
    uosay(' ');
    findtype(MissingReg,sunduk);
    if findcount > 0 then MoveItems(sunduk, MissingReg, $FFFF, backpack, 0, 0, 0, 500);
    end; 
end;

BEGIN
MissingReg := 0;
while (not dead) do
    begin 
    if (not CheckReags) then Waiting;
    ctime:=now;
    wait(1000);
        if timer(i,100) then 
        begin
        Hungry(1,backpack);
        uosay(' ');
        end;
    if TargetPresent then CancelTarget;
    CheckJournal;
    if mana < 35  then 
        begin
        wait(1000);
        useskill('Meditation');
        WaitJournalLine(now,'stop medit',30000);
                end;
    end;
END.

    Можно использовать без настройки переменных.

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

    Program My_Fishing_3;
{$Include 'all.inc'}

type
WaterRecord = Record
t,x,y,z,a: integer;
end;

var
WaterTile: array[0..50] of integer;
WaterPlace: array[0..500] of WaterRecord;
WaterCount: integer;
x,y,c,a,i: integer;
s: boolean;

const
mainbag = $58E2D123; //сумка с добычей
fishpole = $0DBF; //удочка(или сети)
dagger = $0F51; //дагер
Trash = $5A399B81; //Мусорка
cut = 0; //1-Резать рыбу(даггер в руки), 0-не резать

procedure CheckGold;
var bag : Cardinal;

Begin
repeat
Ignore(mainbag);
findtype($0e75,ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
bag := finditem;
useobject(bag);
wait(100);
MoveItem(findtype($0EED,bag), 0, mainbag, 0, 0, 0);
wait(100);
MoveItem(bag, 0, Trash, 0, 0, 0);
end;

until (FindCount < 1) or dead;
End;

procedure MoveSos;
begin
repeat
FindType($099F, backpack);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
wait(100);
MoveItem(finditem, 0, Trash, 0, 0, 0);
wait(100);
end;
until (FindCount < 1) or dead;
end;

procedure MoveMap;
begin
repeat
FindType($14ED, ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
wait(100);
MoveItem(finditem, 0, Trash, 0, 0, 0);
wait(100);
end;
until (FindCount < 1) or dead;
end;

procedure seaweed;
begin
repeat
FindType($0DBA, ground);
if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
wait(100);
MoveItem(finditem, 0, Trash, 0, 0, 0);
wait(100);
end;
until (FindCount < 1) or dead;
end;

procedure fishgrab;
begin
if FindType($09CC, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($09CD, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($09CE, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($09CF, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($14EB, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($0DD6, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($0DD7, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
if FindType($0DD8, ground) > 0 then
MoveItem(finditem, 0, mainbag, 0, 0, 0);
end;

procedure CheckDagger;
begin
if (cut = 1) and (RHandLayer<>dagger) then begin
Equipt(RHandLayer, dagger);
end;
if cut = 0 then begin
unequip(RHandLayer);
end;
end;

procedure CheckWaterTile;
var
t: integer;
LCount: integer;
TTile: TStaticCell;
begin
TTile:=ReadStaticsXY(x, y, WorldNum);
LCount:=GetLayerCount(x, y, WorldNum);
i:=0;
while i < LCount do
begin
for t:=0 to 6 do
begin
if TTile.Statics[0].Tile=WaterTile[t] then
begin
WaterPlace[c].t:=TTile.Statics[0].Tile;
WaterPlace[c].x:=x;
WaterPlace[c].y:=y;
WaterPlace[c].z:=TTile.Statics[0].z;
WaterPlace[c].a:=1;
c:=c+1;
end; 
end;
i:=i+1;
end; 
end;

procedure FindWaterTile;
begin
for x:=GetX(self)-7 to GetX(self)+7 do
for y:=GetY(self)-7 to GetY(self)+7 do
begin
CheckWaterTile;
end; 
WaterCount:=c-1;
end;

procedure Fishing;

begin
for a:=0 to WaterCount do
begin
if WaterPlace[a].a = 1 then begin
WaitTargetTile(WaterPlace[a].t, WaterPlace[a].x, WaterPlace[a].y, WaterPlace[a].z);
wait(3000);
if Length(LastJournalMessage)=34 then begin
WaterPlace[a].a:=0;
AddToSystemJournal('Заброкован таил');
ClearJournal;
end;
UseType(fishpole, 0);
if cut = 0 then begin
fishgrab;
end;
CheckGold;
MoveSos;
MoveMap;
seaweed;
end; 
end;
end;

begin

s:=true;

WaterTile[0]:=6040;
WaterTile[1]:=6039;
WaterTile[2]:=6041;
WaterTile[3]:=6043;
WaterTile[4]:=6044;
WaterTile[5]:=6042;
WaterTile[6]:=6044;


FindWaterTile;

AddToSystemJournal('Найдено тайлов для рыбалки: '+IntToStr(WaterCount));
while not Dead and s do begin
if cut = 1 then begin
CheckDagger;
end;
Fishing;
end;
end.

     

    Фишинг с берега работает у нас) Честно-стыреный с одного из форумов скрипт)

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

    Ахаха) Слайдер, ты балаболишь, про шутку с коброй лолкин сам спрашивал меня откуда я её взял)))))))) Это ещё старая тема с баттлнета) Да и что это у нас на мидле конкурс на новые остроумные шутки? Ещё раз тебе тупому повторяю, я не конченый, как ты, мне плевать на тебя и твое инфантильное поведение я не делаю скрины, а то что ты багом с тайлами пытался меня убить - меня выморозило. Хотя че это я оправдываюсь перед кончеными))))) Научись правильно писать мой ник, раковый. У меня есть собственное мнение, развитая логика и ум. У меня нет хозяев, зато у тебя как видно есть, привязанность к стаду, потому что только гоп-связкой пытались меня выманить из дома, но ваш успех был помножен мной на 0. В отличии от тебя шапандзе способного курить, спать по будильнику просыпаться, что бы проверить шахты, я стараюсь наладить тимплей со своими согильдийцами. Тебя бы в научный институт имени Павлова отправить, рефлексы изучать и подружку твою французкую у которой рефлекс на каждую лошадь.

     

     

    Ты слайдер ущербный за свои же слова требуешь скрин, достойное поведение \"взрослого\" парня, корчишь тут из себя ангелочка, пытаясь выставить нас кончеными да.

     

    з.ы. как показала практика, эвэйд шмот с вас саябов, мы снимаем, что собственно подтверждает то, что логика и ум у нас есть, кстати что не сказать про вас, помнишь ночь перед тем как вы полутали нам виллу? 14 чаров ваших убили только хитростью, вот тогда мы ржали в рейдколе так, что у соседей свет загорался, сколько раз, вы тупо на одни и те же грабли наступали и дохли как немощи в крестах?)))))а? А вы подлутывали нашу виллу неоднократно чаром, у которого мэйлпасс в базе был и сетпассы не работают, что ещё раз подтверждаешь вашу крысиную природу.

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

    Согласен здесь только с одним - в период, когда нет замесов в окло - игрокам скучно и практически нечего делать. Только бегать по монстрам и жестко макросить =\

    Полностью солгасен.

    И ещё под инкогнито поливать грязью родителей, как это делает слайдер. Хотя он сам просил Никотина с нами поговорить на эту тему. Хотя получал оскорбление в ответ на свое. Вот такое вот лицемерие.

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

    слайдер ты больной) я не сижу 15 часов за компом, уясни уже это. если чары в онлайне - это не означает, что я сижу у компа, или слежу за ними, не знаю как ты, но я за компом не только за уо сижу)) а ещё учусь на высшее образование, смотрю фильмы, читаю книги. Ты мне предлогаешь 1 против связки дк пур\арч ренджер выходить биться? да ты гопник полоумный) ты, да и все вы сайбб трусы, когда я вас не однократно звал на столб)

    У тебя слайдер пена изо-рта на моих майнеров, рыдаешь наверное только ты, при виде веса в трупе 2-3 тыщи^^. Я же спокойно удивлюсь твоему больному мозгу и мелочности. Ресну майнеров и поставлю заново и опять на них забью ибо профит от них больше потраченых на тебя слов)))). Не получится у тебя с твоей француженкой отыграться на мне, за нервы, которые вам испортили химик и лол)

     

    кстати слайдер, только ты плачешь мессиру за любое слово в твой адрес, в то время как я даже скриншоты не делаю, мне пофиг на тебя, конченый. лай поднимает кто-нибудь из вашей шайки ам&сайбб, вон слава сагрился когда я его рогой после анпора стабнул сразу завыл в чат. да и в окло я прихожу на захват. а честного пвп уже нет на мидле, ты сам говорил, в скайпе что решают окна и гордился там своим голым дк-подсосом с регами на кости. Умар прибегал на моего дма двумя друидами, не смог убить, зашел и подсосал файтером вот такой пример честного пвп мне запомнился с момента моего возвращения в сказочный мир ультимы.

     

    p.s. а непрету отдельный и огромный респект за то что пишет в теме стелс, и помогает он этим не только мне, а всем тем кто прочтет эту тему и будет ползьваться этим клиентом на нашем шарде.

     

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

    Slider вот не надо, не было меня в миноке, да. )

     

    Лолкин нормальный парень и с женой по нормальному он общается, а то что ты слайдер, ибрагим остались морально на уровне развития 3го класса церковно-приходской школы, где детям в кайф доводить своих педагогов - так это ваши проблемы. Попробуйте реализоваться в реале А? Девушек себе найдите. Мне вообще фиолетово до ваших агров и лулзы ловить только с вас можно.

     

    p.s. Сейчас на балкон вышел - наблюдал картину: как фифа выгуливала маленькую собачку - которая лаяла на всех, а укусить не могла. Так чем то напоминает всю компанию сайбб с фифой во главе слайдера.

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

    Очередной пост ибрагима не обременен интеллектом) В школе наверное у тебя учителя добрые были, так ты их доводил) инстинкт поди приобрел) тут себя пытаешься реализовать?))))

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

    ИБРАГИМ переворачиваешь с ног на голову) в общем, не буду я с вами дискутировать, ибо донны вы в общении и не отличаете серьезные вещи(про мою кошку) от не серьезных, да и наверняка - вы не видели попсовую цитату из контакта про амфетамин, т.к. сидите за уо 24\7 и пенитесь на моих минеров))))) да ты силен по ту сторону монитора делать такие выводы. фигли.. ))))))) да и эмоций кроме недоумения когда дохнут мои минеры 3 к веса 1-4 штуки вышки) вы у меня вызвать не можете) и в чате я ловлю больше хохмы чем вы) так что сидите там обтекайте пеной за компом 24\7 на моих минеров) и копите 1-4 вышки на армор себе нормальный, может к новому году на ппк наскребете, а то валорит как то уж совсем не серьезно в окло))))) и не сижу я 15 часов за компом, уж мне то лучше знать. да и фармацевтикой это не называется, а фармацевтической технологией(подразделяется на технологию изготовления готовых лекарственных форм и серийному заводскому производству) так для общего развития. вобщем гл, хф, удачного фапания вкруг на валорит)

    Слайдер, тебя уже охарактеризовало то, что ты своим канцлером кидал своего пурмага с прикастом инваспора на нашего вора в хитлоке, который душил твоих чаров, как котят. Как бы ты не пытался подстебнуть меня, в моих глазах ты по определению убог и мрачен, собственно как и твои дружки согильдийцы которые с помощью утраченой базы полутали нашу вилу. Вы для меня все на одно лицо, саябы, и охарактеризовал вас так слайдер.

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

    Slider тебе лечиться давно пора 24*7 за компом сидеть и курить вредно, я тебе как мед работник рекомендую обратиться к наркологам, сейчас даже игровые зависимости поддаются лечению. У тебя уже приступы бешенства на моих минеров, пена изо-рта так и бежит )))))

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

    Slider, во первых слайдер, я шапки из обычной кожи не шью и голым дк в окло не подсосничаю. в валорите не бегаю это два, да и вообще голыми чарами не бегаю.

    виллу вы нам полутали ущербы - армор то подзакончился - это три.

    слова то не совсем новы - это четыре, трупоед.

    пять - по гудку будильника я не просыпаюсь, что бы идти вором убивать минеров.

    шесть - я не курю дурь как ты.

    семь - если и хожу вором, чекаю, ворую, не всегда, но убиваю.

    восемь - шахту охраняю в том числе и я.

    девять - с такой ангиной как у меня, ты, щенок, на стенки полез давно. и да "подстебывать" больного - удел убогих.

     

     

    з.ы. вы как трипак заразили амовцов, теперь часть их чаров тоже в вампир арморах врывается...

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