Перейти к содержанию
Форум шарда Middle-Earth

Kallish

Members
  • Публикаций

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

  • Посещение

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

  1. Kallish

    Poconi go v ultima online!

    эргин ты главное уо скачай а там мы разрулим тебе как нить чара да шмотом поможем =\ батя уже начал играть в минок шахте копает лол =\
  2. Kallish

    Poconi go v ultima online!

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

    Программа Stealth

    П.С. лучше напишите макрос на кастера))) 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. Можно использовать без настройки переменных.
  7. Kallish

    Fishing [Injection]

    You cannot use that, боты вобще не режутся помоему )))))
  8. Kallish

    Программа Stealth

    nepret, у меня сдох один чар я не понял как ) да на инжекте уже по-привычней в спаринге качать.
  9. Kallish

    Программа Stealth

    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. Фишинг с берега работает у нас) Честно-стыреный с одного из форумов скрипт)
  10. Kallish

    Программа Stealth

    Создал двух файтеров, тесчу)
  11. Slider, на себя не наложи) а то уж пена ручьями льет
  12. Kallish

    онлайн поиск

    Брижит) Дорогая, здравствуй
  13. Ахаха) Слайдер, ты балаболишь, про шутку с коброй лолкин сам спрашивал меня откуда я её взял)))))))) Это ещё старая тема с баттлнета) Да и что это у нас на мидле конкурс на новые остроумные шутки? Ещё раз тебе тупому повторяю, я не конченый, как ты, мне плевать на тебя и твое инфантильное поведение я не делаю скрины, а то что ты багом с тайлами пытался меня убить - меня выморозило. Хотя че это я оправдываюсь перед кончеными))))) Научись правильно писать мой ник, раковый. У меня есть собственное мнение, развитая логика и ум. У меня нет хозяев, зато у тебя как видно есть, привязанность к стаду, потому что только гоп-связкой пытались меня выманить из дома, но ваш успех был помножен мной на 0. В отличии от тебя шапандзе способного курить, спать по будильнику просыпаться, что бы проверить шахты, я стараюсь наладить тимплей со своими согильдийцами. Тебя бы в научный институт имени Павлова отправить, рефлексы изучать и подружку твою французкую у которой рефлекс на каждую лошадь. Ты слайдер ущербный за свои же слова требуешь скрин, достойное поведение \"взрослого\" парня, корчишь тут из себя ангелочка, пытаясь выставить нас кончеными да. з.ы. как показала практика, эвэйд шмот с вас саябов, мы снимаем, что собственно подтверждает то, что логика и ум у нас есть, кстати что не сказать про вас, помнишь ночь перед тем как вы полутали нам виллу? 14 чаров ваших убили только хитростью, вот тогда мы ржали в рейдколе так, что у соседей свет загорался, сколько раз, вы тупо на одни и те же грабли наступали и дохли как немощи в крестах?)))))а? А вы подлутывали нашу виллу неоднократно чаром, у которого мэйлпасс в базе был и сетпассы не работают, что ещё раз подтверждаешь вашу крысиную природу.
  14. Мессир, да уже трудно остановиться, душой пофиг на него, но такую ересть пишет. p.s.Мы пытаемся понять истинное желание игроков. Заголовок темы.
  15. Полностью солгасен. И ещё под инкогнито поливать грязью родителей, как это делает слайдер. Хотя он сам просил Никотина с нами поговорить на эту тему. Хотя получал оскорбление в ответ на свое. Вот такое вот лицемерие.
  16. слайдер ты больной) я не сижу 15 часов за компом, уясни уже это. если чары в онлайне - это не означает, что я сижу у компа, или слежу за ними, не знаю как ты, но я за компом не только за уо сижу)) а ещё учусь на высшее образование, смотрю фильмы, читаю книги. Ты мне предлогаешь 1 против связки дк пур\арч ренджер выходить биться? да ты гопник полоумный) ты, да и все вы сайбб трусы, когда я вас не однократно звал на столб) У тебя слайдер пена изо-рта на моих майнеров, рыдаешь наверное только ты, при виде веса в трупе 2-3 тыщи^^. Я же спокойно удивлюсь твоему больному мозгу и мелочности. Ресну майнеров и поставлю заново и опять на них забью ибо профит от них больше потраченых на тебя слов)))). Не получится у тебя с твоей француженкой отыграться на мне, за нервы, которые вам испортили химик и лол) кстати слайдер, только ты плачешь мессиру за любое слово в твой адрес, в то время как я даже скриншоты не делаю, мне пофиг на тебя, конченый. лай поднимает кто-нибудь из вашей шайки ам&сайбб, вон слава сагрился когда я его рогой после анпора стабнул сразу завыл в чат. да и в окло я прихожу на захват. а честного пвп уже нет на мидле, ты сам говорил, в скайпе что решают окна и гордился там своим голым дк-подсосом с регами на кости. Умар прибегал на моего дма двумя друидами, не смог убить, зашел и подсосал файтером вот такой пример честного пвп мне запомнился с момента моего возвращения в сказочный мир ультимы. p.s. а непрету отдельный и огромный респект за то что пишет в теме стелс, и помогает он этим не только мне, а всем тем кто прочтет эту тему и будет ползьваться этим клиентом на нашем шарде.
  17. Slider вот не надо, не было меня в миноке, да. ) Лолкин нормальный парень и с женой по нормальному он общается, а то что ты слайдер, ибрагим остались морально на уровне развития 3го класса церковно-приходской школы, где детям в кайф доводить своих педагогов - так это ваши проблемы. Попробуйте реализоваться в реале А? Девушек себе найдите. Мне вообще фиолетово до ваших агров и лулзы ловить только с вас можно. p.s. Сейчас на балкон вышел - наблюдал картину: как фифа выгуливала маленькую собачку - которая лаяла на всех, а укусить не могла. Так чем то напоминает всю компанию сайбб с фифой во главе слайдера.
  18. Очередной пост ибрагима не обременен интеллектом) В школе наверное у тебя учителя добрые были, так ты их доводил) инстинкт поди приобрел) тут себя пытаешься реализовать?))))
  19. ИБРАГИМ переворачиваешь с ног на голову) в общем, не буду я с вами дискутировать, ибо донны вы в общении и не отличаете серьезные вещи(про мою кошку) от не серьезных, да и наверняка - вы не видели попсовую цитату из контакта про амфетамин, т.к. сидите за уо 24\7 и пенитесь на моих минеров))))) да ты силен по ту сторону монитора делать такие выводы. фигли.. ))))))) да и эмоций кроме недоумения когда дохнут мои минеры 3 к веса 1-4 штуки вышки) вы у меня вызвать не можете) и в чате я ловлю больше хохмы чем вы) так что сидите там обтекайте пеной за компом 24\7 на моих минеров) и копите 1-4 вышки на армор себе нормальный, может к новому году на ппк наскребете, а то валорит как то уж совсем не серьезно в окло))))) и не сижу я 15 часов за компом, уж мне то лучше знать. да и фармацевтикой это не называется, а фармацевтической технологией(подразделяется на технологию изготовления готовых лекарственных форм и серийному заводскому производству) так для общего развития. вобщем гл, хф, удачного фапания вкруг на валорит) Слайдер, тебя уже охарактеризовало то, что ты своим канцлером кидал своего пурмага с прикастом инваспора на нашего вора в хитлоке, который душил твоих чаров, как котят. Как бы ты не пытался подстебнуть меня, в моих глазах ты по определению убог и мрачен, собственно как и твои дружки согильдийцы которые с помощью утраченой базы полутали нашу вилу. Вы для меня все на одно лицо, саябы, и охарактеризовал вас так слайдер.
  20. Slider тебе лечиться давно пора 24*7 за компом сидеть и курить вредно, я тебе как мед работник рекомендую обратиться к наркологам, сейчас даже игровые зависимости поддаются лечению. У тебя уже приступы бешенства на моих минеров, пена изо-рта так и бежит )))))
  21. Slider, во первых слайдер, я шапки из обычной кожи не шью и голым дк в окло не подсосничаю. в валорите не бегаю это два, да и вообще голыми чарами не бегаю. виллу вы нам полутали ущербы - армор то подзакончился - это три. слова то не совсем новы - это четыре, трупоед. пять - по гудку будильника я не просыпаюсь, что бы идти вором убивать минеров. шесть - я не курю дурь как ты. семь - если и хожу вором, чекаю, ворую, не всегда, но убиваю. восемь - шахту охраняю в том числе и я. девять - с такой ангиной как у меня, ты, щенок, на стенки полез давно. и да "подстебывать" больного - удел убогих. з.ы. вы как трипак заразили амовцов, теперь часть их чаров тоже в вампир арморах врывается...
  22. Копаю не я, а скрипт. Зачем ты уже 4 года сидишь дома и рубишь в уо убогий))))))
  23. Kallish

    Изменение Resolution уо.

    Я знаю, наверняка есть удальцы которые поправили клиент 403 с высоким разрешением, будьте добры - дайте в народ. Имхо будет от этого большой толк!
×
×
  • Создать...