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

Напишите Скрипт
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12392		 Page 2 of 2
Author:  brrr [ 2018-02-02 16:14:39 ]
Post subject:  Re: Напишите Скрипт
в бекпаке ,беленькая круглая
Image
Author:  Incorrect User [ 2018-02-02 16:27:33 ]
Post subject:  Re: Напишите Скрипт
Может с типом тазика ошибся, или нужно что-то еще, например мыло. И код попроще
Code:
sub clean_bandage()
   if not uo.count("0x0E21") then
      if uo.count("0x0E20") then
         uo.waittargettype("0x1008")
         uo.usetype("0x0E20")
         wait(1000)
      else
         uo.print("Net bintov!")
      end if
   end if
end sub
Author:  brrr [ 2018-02-02 17:33:19 ]
Post subject:  Re: Напишите Скрипт
Incorrect User wrote:
Может с типом тазика ошибся, или нужно что-то еще, например мыло. И код попроще
Code:
sub clean_bandage()
   if not uo.count("0x0E21") then
      if uo.count("0x0E20") then
         uo.waittargettype("0x1008")
         uo.usetype("0x0E20")
         wait(1000)
      else
         uo.print("Net bintov!")
      end if
   end if
end sub


в последнем скрипте нормально работает мойка, лучше мне атак спирита воткнуть помоги. А то пока чар спириту отвечать начинает, спирит ударов 4 наносит, что грозит смертью
Author:  Incorrect User [ 2018-02-02 17:49:35 ]
Post subject:  Re: Напишите Скрипт
Есть же атака, что не так
Author:  brrr [ 2018-02-02 18:00:02 ]
Post subject:  Re: Напишите Скрипт
Incorrect User wrote:
Есть же атака, что не так

в какой строчке ты атаку нашёл?
Code:
var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 
sub main() 

   clean_bandage()        <----------- РАЗ
   while NOT uo.Dead() 
      uo.DeleteJournal()  
   Wait(2000)
      if Uo.GetHP('self') < Uo.Str then 
         uo.SetArm('MyArm') 
         wait(100) 
         uo.DisArm() 
         while Uo.GetHP('self') < Uo.Str 
            uo.bandageself()  
            uo.DeleteJournal() 
            while NOT uo.Injournal('You') 
               wait(1000) 
               clean_bandage()     <-------- ДВАЗ
            wend 
            clean_bandage()      <------- ТРИЗ
         wend  
      endif
      uo.Arm('MyArm') 
      Uo.DeleteJournal() 
      CheckLag() 
      while Uo.GetHP('self') == Uo.Str 
         uo.say(msgReady) 
         wait(3000) 
      wend 
      uo.deletejournal() 
      while NOT Uo.Injournal(msgBladeDied) 
         If Uo.GetHP('self') < 20 then 
            uo.say(msgHelp) 
         endif 
         checkhp()
         wait(2000) 
      wend 
      Uo.DeleteJournal() 
   wend 
end sub 
sub CheckLag() 
   uo.DeleteJournal() 
   uo.Click('backpack') 
   repeat 
      wait(150) 
   until uo.InJournal('backpack') 
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub 
sub clean_bandage() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub


атака выглядит так

Code:
UO.Exec("set finddistance 15") 
repeat 
UO.FindType('0x023E','0000x0',1) 
If UO.FindCount('finditem')>0 then 
UO.Attack('finditem')
Author:  Incorrect User [ 2018-02-02 18:51:08 ]
Post subject:  Re: Напишите Скрипт
Лучше по пунктам опиши что он должен делать, не атака а весь скрипт, я новый сделаю, а то тут ересь непонятная.
Author:  brrr [ 2018-02-03 09:50:26 ]
Post subject:  Re: Напишите Скрипт
Incorrect User wrote:
Лучше по пунктам опиши что он должен делать, не атака а весь скрипт, я новый сделаю, а то тут ересь непонятная.

Ну попробуй буду благодарен
на тебя кастуют блейд спирита ты его атачишь, хилишься, кричишь I am ready - цикл (плюс стирка грязных бинтов)
Author:  brrr [ 2018-02-04 16:44:06 ]
Post subject:  Re: Напишите Скрипт
кто мож знает в чате нажимаю точку выкидывает С:
Page 2 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/