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

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