Yoko
http://forum.yoko.com.ua/

Арчери на напарнике =)
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13129		 Page 1 of 2
Author:  Nominee [ 2008-01-26 13:33:26 ]
Post subject:  Арчери на напарнике =)
Идея скрипта такая - Когда у напарника меньше 30 ХП он орёт например Stop мой чар останавливается, напарник хиляется, когда ХП = 170 напарник орёт Go мой чар начинает в него стрелять и так далее. Пытался сделать но ещё не освоил комнады с журналом. Помогите, будут очень признателен
Author:  Kynep [ 2008-01-26 13:41:15 ]
Post subject:  Re: Арчери на напарнике =)
Nominee wrote:
Идея скрипта такая - Когда у напарника меньше 30 ХП он орёт например Stop мой чар останавливается, напарник хиляется, когда ХП = 170 напарник орёт Go мой чар начинает в него стрелять и так далее. Пытался сделать но ещё не освоил комнады с журналом. Помогите, будут очень признателен


Ну дык выложи наработки, а мы посмотрим, если че поправим. А так, берешь любой скрипт на спарринг и правишь под себя.
Author:  Nominee [ 2008-01-26 13:45:11 ]
Post subject: 
Это предназначено напарнику

sub Monotyk()
var shield = '0x1B76'

while not UO.Dead()
If UO.Life < 60 then
UO.Say("HP")
UO.Bandageself()
wait(100)
UO.Equipt('Lhand',shield)
wait(4000)
endif
If UO.Life > 190 then
UO.Say("Ready")
return
endif

wend
end sub


Но пашет слбовато а мне как сделать что бы когда чар орал ХП мой тормозил, а когда Реди - начинал атачить
Author:  Kynep [ 2008-01-26 14:05:07 ]
Post subject: 
Nominee wrote:
Это предназначено напарнику

Но пашет слбовато а мне как сделать что бы когда чар орал ХП мой тормозил, а когда Реди - начинал атачить


Ну во первых, поправь немнога свой скрипт примерно так:
Code:
sub Monotyk()
   var shield = '0x1B76'
   var banka = ' ' #ID банки для бинтов
   var streli = ' '   #Тип стрел

   while not UO.Dead()
      If UO.Life < 60 then
         UO.Say("HP")
         repeat
            cheklag()
            UO.Bandageself()
            wait(4000)
         until UO.Life == UO.STR
         UO.Equipt('Lhand',shield)
         wait(2000)
         UO.FindType('0x0E20', '-1', 'backpack')
            If UO.FindCount() > 0 then
               UO.waittargetobject(banka)
               wait(100)
               CheckLag()
               UO.usetype('0x0E20')
               Wait(2000)
            else
               wait(100)
            end if
         UO.FindType(streli, '-1', 'backpack')
            If UO.FindCount() > 0 then
               cheklag()
               UO.DropHere('finditem')
               wait(200)
            else
               wait(100)
            end if
         wait(2000)
         UO.Say("Ready")   
      else
         wait(100)
      endif
   wend
end sub

Sub cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
      repeat
         wait(100)
      until UO.InJournal('backpack')
end sub


Теперь выкладывай второй, не сцы мне они нафиг не нужны. поправлю, можешь удалить. Не хочешь выкладывать, в этом скрипте есть пример работы с журналом, юзай! :twisted:
Author:  Nominee [ 2008-01-26 15:54:43 ]
Post subject: 
В том то и прикол, что не знаю я как 2-й оборудовать ) Подскажи плз
Author:  Kynep [ 2008-01-26 16:11:49 ]
Post subject: 
Nominee wrote:
В том то и прикол, что не знаю я как 2-й оборудовать ) Подскажи плз


Code:
sub Archer()
   VAR char = ' ' #ID атакуемого чара
   VAR streli = ' ' #Тип стрел
   while not UO.Dead()
      UO.WarMode(1)
      wait(1000)
      UO.Attack(char)
      UO.DeleteJournal()
      repeat
         wait(100)
      until UO.InJournal('HP')
      UO.WarMode(0)
      wait(1000)
      UO.FindType(streli, '-1', 'ground')
      If UO.FindCount() > 0 then
         cheklag()
         UO.MoveItem('finditem', '0', 'backpack')
      else
         wait(100)
      end if
      
      UO.DeleteJournal()
      repeat
         wait(100)
      until UO.InJournal('Ready')
   wend
end sub

Sub cheklag()
   UO.DeleteJournal()
   UO.Click('backpack')
      repeat
         wait(100)
      until UO.InJournal('backpack')
end sub


Самый простой пример.
Author:  Nominee [ 2008-01-26 16:20:06 ]
Post subject: 
спс =) Сёдня вечерком затестю и отпишусь
Author:  Kynep [ 2008-01-26 16:22:06 ]
Post subject: 
Nominee wrote:
спс =) Сёдня вечерком затестю и отпишусь



Затести, мож где апечатку сделал, пишу в окне браузера на работе )

Немнога поправил скрипты, нашел недоработки. Тести
Author:  Ehidna [ 2008-01-27 06:05:19 ]
Post subject: 
Чустую груша буит падать ) проше поставить пару хилеров
Author:  Kynep [ 2008-01-27 08:22:02 ]
Post subject: 
Ehidna wrote:
Чустую груша буит падать ) проше поставить пару хилеров


С чего ты взял? Проверил, не падает.
Author:  Nominee [ 2008-01-27 11:30:47 ]
Post subject: 
Спс тебе, всё работает )))
Author:  Nominee [ 2008-01-27 11:42:37 ]
Post subject: 
А можешь ещё сделать, что бы после каждого подхила он мыл бинты? Заранее спасибо!
Author:  Kynep [ 2008-01-27 12:38:56 ]
Post subject: 
Nominee wrote:
А можешь ещё сделать, что бы после каждого подхила он мыл бинты? Заранее спасибо!


Поправил, смотри пост со скриптом, там надо ID банки для мытья вписать
Author:  Nominee [ 2008-01-27 14:08:18 ]
Post subject: 
Ты просто золотой человек ))))) И последнее - что бы напарник выкидывал стрелы коотрые у него в бекпаке очутятся =) Спасибо тебе огромное!!!
Author:  Kynep [ 2008-01-27 14:36:52 ]
Post subject: 
Nominee wrote:
Ты просто золотой человек ))))) И последнее - что бы напарник выкидывал стрелы коотрые у него в бекпаке очутятся =) Спасибо тебе огромное!!!



Поправил, не забудь вписать тип стрел. Кстати я то же на ДРВ играю :roll: это так, для справки. (намек понял? :oops: ) :roll:
Author:  Nominee [ 2008-01-27 14:43:39 ]
Post subject: 
Намёк понял =) Если дашь рунки к каким - то тварям - смогу бегать их тамить и давать тебе =) Большим пока обеспечить не могу, но как раскручюсь - про тебя не забуду =) МОжешь оставить аську - поговорим по этому поводу )
Author:  Nominee [ 2008-01-27 16:16:06 ]
Post subject: 
Кстати, скрипт напарника иногда сбивается, и он не говорил Реди, можно в мой вписать что то типа если нету такой фигни примерно 2 минуты то он начинал всё равно атачить? Что то типа until UO.InJournal('Ready') or UO.Timer = ,. только не помню как правильно прописывать
Author:  Kynep [ 2008-01-27 17:28:35 ]
Post subject: 
Nominee wrote:
Кстати, скрипт напарника иногда сбивается, и он не говорил Реди, можно в мой вписать что то типа если нету такой фигни примерно 2 минуты то он начинал всё равно атачить? Что то типа until UO.InJournal('Ready') or UO.Timer = ,. только не помню как правильно прописывать


Не многа поправил, пробуй. Не должен сбиваться теперь.
Author:  Ehidna [ 2008-02-09 13:00:24 ]
Post subject: 
Kynep

Поповоду мытья бинтов, можешь выложить вторую версию чтобы он мыл бинты в луже рядом с ним (1-2 тайла)
Author:  Kynep [ 2008-02-09 13:32:07 ]
Post subject: 
Ehidna wrote:
Kynep

Поповоду мытья бинтов, можешь выложить вторую версию чтобы он мыл бинты в луже рядом с ним (1-2 тайла)


Если все так же как и банкой, то вместо
Code:
UO.WaitTargetObject(banka)

Вставь:
Code:
UO.WaitTargetTile('0', x,y,z)
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/