
Напишите Скрипт
Moderators: Murderator+, Murderator
-
- Posts: 949
- Joined: 2011-05-23 00:33:30
Re: Напишите Скрипт
Может с типом тазика ошибся, или нужно что-то еще, например мыло. И код попроще
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
Re: Напишите Скрипт
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 наносит, что грозит смертью
-
- Posts: 949
- Joined: 2011-05-23 00:33:30
Re: Напишите Скрипт
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')
-
- Posts: 949
- Joined: 2011-05-23 00:33:30
Re: Напишите Скрипт
Лучше по пунктам опиши что он должен делать, не атака а весь скрипт, я новый сделаю, а то тут ересь непонятная.
Re: Напишите Скрипт
Incorrect User wrote:Лучше по пунктам опиши что он должен делать, не атака а весь скрипт, я новый сделаю, а то тут ересь непонятная.
Ну попробуй буду благодарен
на тебя кастуют блейд спирита ты его атачишь, хилишься, кричишь I am ready - цикл (плюс стирка грязных бинтов)
Re: Напишите Скрипт
кто мож знает в чате нажимаю точку выкидывает С: