Напишите Скрипт

Ask for scripts here

Moderators: Murderator+, Murderator

brrr
Posts: 21
Joined: 2017-12-09 19:10:20

Re: Напишите Скрипт

Post by brrr »

в бекпаке ,беленькая круглая
Image
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Напишите Скрипт

Post by Incorrect User »

Может с типом тазика ошибся, или нужно что-то еще, например мыло. И код попроще

Code: Select all

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
brrr
Posts: 21
Joined: 2017-12-09 19:10:20

Re: Напишите Скрипт

Post by brrr »

Incorrect User wrote:Может с типом тазика ошибся, или нужно что-то еще, например мыло. И код попроще

Code: Select all

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 наносит, что грозит смертью
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Напишите Скрипт

Post by Incorrect User »

Есть же атака, что не так
brrr
Posts: 21
Joined: 2017-12-09 19:10:20

Re: Напишите Скрипт

Post by brrr »

Incorrect User wrote:Есть же атака, что не так
в какой строчке ты атаку нашёл?

Code: Select all

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: Select all

UO.Exec("set finddistance 15") 
repeat 
UO.FindType('0x023E','0000x0',1) 
If UO.FindCount('finditem')>0 then 
UO.Attack('finditem') 
Incorrect User
Posts: 949
Joined: 2011-05-23 00:33:30

Re: Напишите Скрипт

Post by Incorrect User »

Лучше по пунктам опиши что он должен делать, не атака а весь скрипт, я новый сделаю, а то тут ересь непонятная.
brrr
Posts: 21
Joined: 2017-12-09 19:10:20

Re: Напишите Скрипт

Post by brrr »

Incorrect User wrote:Лучше по пунктам опиши что он должен делать, не атака а весь скрипт, я новый сделаю, а то тут ересь непонятная.
Ну попробуй буду благодарен
на тебя кастуют блейд спирита ты его атачишь, хилишься, кричишь I am ready - цикл (плюс стирка грязных бинтов)
brrr
Posts: 21
Joined: 2017-12-09 19:10:20

Re: Напишите Скрипт

Post by brrr »

кто мож знает в чате нажимаю точку выкидывает С:
Post Reply