Yoko

All sides of Injection
https://yoko.uokit.com/

DRW (2009) by Dark Enemy - Обсуждение, вопросы и ответы...

https://yoko.uokit.com/viewtopic.php?t=15146

Page 7 of 11

Posted: 2009-11-17 20:55:14
by Nmy
TarantuL wrote:Можно добавить в килл элемов, В отчет, скоко он руды с него поднял?)
А то я вообще не понимаю, убил, убежал или чё)

Code: Select all

sub checkelem()
   var n
   var flagvortex, Elemental, flaginvis
   Dim ore[2]
   ore[1]='0x19B8'
   ore[2]='0x19B9'
   uo.set('finddistance','3')
   uo.findtype('0x0010',-1,'ground')
   while uo.findcount()
      Elemental=uo.getserial('finditem')
      if checkcolor(Elemental)==1 then
         flagvortex=1
         if not flaginvis==1 then
            invis()
            flaginvis=1
         endif
         castvortex()
         uo.textopen()
         uo.textprint(uo.getname(Elemental)+' @ '+MakeTime())
         for n=0 to 10
            wait(1000)
            checkpk()
            if flagpk==1 then
               return
            endif
         next
      else
         uo.ignore(Elemental)
      endif
      uo.findtype('0x0010',-1,'ground')
   wend
   if flagvortex==1 then
      repeat
         checklag()
         while uo.mana<22
            wait(500)
         wend
         uo.waittargetobject('self')
         uo.cast('Mass Dispel')
         WaitForMana()
         wait(1000)
      until not uo.injournal('The spell fizzles')
      for n=1 to 2
         uo.findtype(ore[n],-1,'ground')
         while uo.findcount()
            uo.textprint(uo.getname('finditem'))
            uo.moveitem('finditem',-1,'backpack')
            checklag()
            wait(700)
            uo.findtype(ore[n],-1,'ground')
         wend
      next
      return 1
   endif
endsub

Posted: 2009-11-18 05:58:21
by TarantuL
сутки нон-стоп... я в шоке :o

Posted: 2009-11-18 06:50:41
by Tiny
спасибо...

Code: Select all

sub main() 
   while NOT UO.Dead() 
      if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then 
         uo.warmode(0) 
      endif 
      UO.WaitTargetObject('self') 
      UO.UseSkill('Evaluating Intelligence') 
      wait(5000) 
   wend 
endsub


дело было поздним вечером
Вроде посмотрел скрипты для ДРВ 2009
проблем быть не должно
нашёл то что нужно, включил скрипт пошёл спать...

на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...

И почему вы не хотите добавить первым во все свои труды приостановку скрипта при WorldSave...?
________
просто для меня не понятно всё это дело :(

Posted: 2009-11-18 08:21:29
by TarantuL
Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как 8)

Posted: 2009-11-18 09:33:15
by Mirage
Tiny wrote:на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...
(


TarantuL избавился от ошибки путем внедрения дуаллаунчера

Posted: 2009-11-18 09:45:29
by TarantuL
Mirage wrote:
Tiny wrote:на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...
(


TarantuL избавился от ошибки путем внедрения дуаллаунчера


не только. в первую очередь твой скрипт обкопа без

Code: Select all

go to

Posted: 2009-11-18 14:17:03
by TarantuL
TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как 8)



чёта я пришёл или как то так, но не одного слова в текстовом окне :lol: :lol: и окна даже нет.

Posted: 2009-11-18 15:18:05
by Mirage
TarantuL wrote:
TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как 8)



чёта я пришёл или как то так, но не одного слова в текстовом окне :lol: :lol: и окна даже нет.

Админы ДРВ пропалили тему и убрали элементалей. Теперь будут барлоги выкапываться. Бедные минеры. :)

Posted: 2009-11-18 15:26:50
by Nmy
Mirage wrote:
TarantuL wrote:
TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как 8)



чёта я пришёл или как то так, но не одного слова в текстовом окне :lol: :lol: и окна даже нет.

Админы ДРВ пропалили тему и убрали элементалей. Теперь будут барлоги выкапываться. Бедные минеры. :)


не пугай народ

Code: Select all

Obsidian Elemental @ 2:50:16 @ 9.11.18
Plutonium Elemental @ 3:01:36 @ 9.11.18
Dragon Elemental @ 5:48:07 @ 9.11.18
Dragon Elemental @ 5:48:28 @ 9.11.18
Dragon Elemental @ 5:49:44 @ 9.11.18
 @ 5:51:13 @ 9.11.18
- dead - @ 5:51:14 @ 9.11.18
Gorgan Elemental @ 7:05:22 @ 9.11.18
Gorgan Elemental @ 7:05:43 @ 9.11.18
Vulcan Elemental @ 7:26:05 @ 9.11.18
Vulcan Elemental @ 7:26:26 @ 9.11.18
Steel Elemental @ 11:32:01 @ 9.11.18
Fuckmachine @ 12:27:53 @ 9.11.18

Posted: 2009-11-18 15:28:01
by Nmy
Tiny wrote:спасибо...

Code: Select all

sub main() 
   while NOT UO.Dead() 
      if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then 
         uo.warmode(0) 
      endif 
      UO.WaitTargetObject('self') 
      UO.UseSkill('Evaluating Intelligence') 
      wait(5000) 
   wend 
endsub


дело было поздним вечером
Вроде посмотрел скрипты для ДРВ 2009
проблем быть не должно
нашёл то что нужно, включил скрипт пошёл спать...

на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...

И почему вы не хотите добавить первым во все свои труды приостановку скрипта при WorldSave...?
________
просто для меня не понятно всё это дело :(


ок пересмотрю все лоры и добавлю чеклаг это спасет

Posted: 2009-11-18 15:53:56
by Mirage
Не подумайте что я придираюсь - мне просто реально интересно.

Code: Select all

        while uo.mana<22 ; вот ЭТО зачем тут? Мана копится сама разве?
            wait(500)
         wend

зачем в касте ворта пауза цикличная пока маны меньше 13 и 20 с чемто? Если сделать ЕСЛИ маны столько то И нет элема и ПК то медитируем или пьем тоталку и кастуем ворта дальше.

Могу ошибиться. но помоему алгоритм каста вортексов немного не в порядке.

У автора:
до тех пор пока есть элем
кастуем вортекса
в касте идет каст со свитка если мало маны или каст с книги если маны много ЗАТЕМ проверка маны
Если не ошибаюсь каст ворта достаточно маноемкое заклинание и если например вызвать 2 то на 3 может маны не хватить. НО проверка то стоит ПОСЛЕ каста а не перед.

PS
из косметики можно ввести 2 функции для "взять item\положить item" и использовать в скрипте просто GET(type)\PUT(type)

Code: Select all

sub main()
put(ore1, sund)
put(ore2, sund)
put(ore3, sund)
put(ore4, sund)
get(eda, backpack, 1, 50)
eda()
put(eda, sund)
get(kirka, backpack, 2, 1)
get(kirka, backpack, 2, 1)
end sub

Sub GET(item, cont, min, max)          ;    предмет, откуда, минимум, сколько брать
   If UO.Count( item ) < min Then
      #       UO.Print("Кончилось сырье в рукзаке")
      UO.FindType( item, '-1', cont )
      if UO.FindCount() > 0 Then
         #        UO.Print('Сырья в сундуке: ' + Str( UO.FindCount( item ) ) )
         uo.moveitem('finditem', max, 'backpack')
         checklag()
      else
         #           UO.Print( 'Полностью кончилось сырье' )
         UO.CancelMenu()
         return
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
      UO.MoveItem( 'finditem', 0, cont )
      checklag()
   wend
end sub


PPS вы только не подумайте что я придираюсь или просто так болтаю - могу предложить свои решения некоторых проблем. А так скрипт классный (жаль не для моего шарда) :)

Posted: 2009-11-18 16:29:50
by Nmy
Так как у моего минера 180 маны, я не обращал внимание на такие вещи, но проблема в том, если кастуеш 2й или 3й раз и маны не хватает, то ты не можешь медитировать тк елем тебя убьет. если будет реальна нужда брать тотал маны, это можно дописать

Code: Select all

sub castvortex()
   repeat
      checklag()
      uo.waittargettile('1341',str(uo.getx()),str(uo.gety()),str(uo.getz()))
ставим прицел
      uo.findtype('0x1F66',-1,'backpack')
ищем скрол
      if uo.findcount() then
если есть скрол и маны больше 12 юзаем скролл или ждем
         while uo.mana<13
            wait(500)
         wend
         uo.useobject('finditem')
      else
скролл не нашли, ждем ману или кастуем магию
         while uo.mana<27
            wait(500)
         wend
         uo.cast('Energy Vortex')
      endif
ждем завиршение каста
      WaitForMana()
кастуем пока нету физла
   until not uo.injournal('The spell fizzles')
endsub

Posted: 2009-11-18 22:55:09
by stickman
Nmy wrote:
Mirage wrote:
TarantuL wrote:
TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как 8)



чёта я пришёл или как то так, но не одного слова в текстовом окне :lol: :lol: и окна даже нет.

Админы ДРВ пропалили тему и убрали элементалей. Теперь будут барлоги выкапываться. Бедные минеры. :)


не пугай народ

Obsidian Elemental @ 2:50:16 @ 9.11.18
Plutonium Elemental @ 3:01:36 @ 9.11.18
Dragon Elemental @ 5:48:07 @ 9.11.18
Dragon Elemental @ 5:48:28 @ 9.11.18
Dragon Elemental @ 5:49:44 @ 9.11.18
@ 5:51:13 @ 9.11.18
- dead - @ 5:51:14 @ 9.11.18
Gorgan Elemental @ 7:05:22 @ 9.11.18
Gorgan Elemental @ 7:05:43 @ 9.11.18
Vulcan Elemental @ 7:26:05 @ 9.11.18
Vulcan Elemental @ 7:26:26 @ 9.11.18
Steel Elemental @ 11:32:01 @ 9.11.18
Fuckmachine @ 12:27:53 @ 9.11.18


он такой бесявый чел, ет чтото ))

Posted: 2009-11-19 00:16:14
by Nmy
http://drw.ru/forum/showthread.php?t=12529

Это когда я начал копать на скрипте. Рун уже было где то 40, шахт примерно на шахту 2-3 руны, это 13-20 шахт :lol:

Щас заметил - игроков больше,но по шахтам меньше бегают т.к. шанс меня убить крайне мал - это надо под vas ort grav забегать в каждую шахту, надеется что я там :lol:

Posted: 2009-11-19 14:54:39
by Nmy
добавил тинкер для стелса и поправил мининг - убийство елема ждет теперь не 11 секунд а 16

Posted: 2009-11-19 15:00:17
by Nmy
попробую отследить почему другой раз когда кастует елем - елем попадает в скалу на верху

Posted: 2009-11-19 15:31:51
by Mirage
,resend вставь перед прицелом.

Program Tinkering;
чего то ты не в тему :lol:

Posted: 2009-11-19 22:12:43
by TarantuL
МОжет стоит сделать в мининге, чтобы замарченную новую руну в пещеру сразу относил в сейф? просто такие вещи на вес золота.. проще потратить 6 регов и 2 прыжка, имхо :roll:

или, раз такое дело, в рунбуку кидал :oops:

Posted: 2009-11-20 08:13:10
by TarantuL

Code: Select all

while uo.findcount()
            uo.textprint(uo.getname('finditem'))
            uo.moveitem('finditem',-1,'backpack')


Как я понял, тут нужно либо добавить чтобы кликал на найденное, либо какую-то галку в инжекте выставить, ибо у меня пустой строчкой в Логе отображается...
Ну и вообще, всегда, в инжекте, когда посредством ,info что-то пытаешься вынюхать, пока не кликнешь на айтем, в строчке Name= будет пустота.

Posted: 2009-11-20 09:26:42
by TarantuL
Интересную штучку (всем известную, но всё же) сделал из твоего скрипта на куклу... Тут еще хайд, без потери во времени на юз куклы.. То бишь должна расти ловкость еще))) Но это будет интересно только новичкам, или бото-качателям.

Code: Select all

sub main()
   uo.addobject('doll')
   while uo.targeting()
      wait(500)
   wend
   while 1
      uo.useskill( 'Hiding' )
   wait(2501)
          checklag()
      uo.useobject('doll')
      wait(1851)
      if uo.str>99 then
         uo.findtype( -1 , -1 ,'backpack')
         uo.deletejournal()
         uo.click('finditem')
         wait(1500)
         if uo.injournal('of Curse') then
            uo.useobject('finditem')
         else
            if uo.journal(0)<>"" then
               uo.ignore('finditem')
            endif
         endif
      endif
      if uo.dead() then
         uo.playwav("C:\Program Files\Dragon World\Ultima Online\music\FlyinOff.wav")
      endif
   wend
end sub 


sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub
All times are UTC+02:00
Page 7 of 11

Powered by phpBB® Forum Software © phpBB Limited