+GhosT+ wrote:Помогите юзал поиск нету такова
Не могу наитиKynep wrote:+GhosT+ wrote:Помогите юзал поиск нету такова
Не обманывай, есть, я писал, ищи лучше.
! Ищю уже по автору(тоесть тебе) серавно нефига не могу наити ! Плз кинь сылку или скрипт !Code: Select all
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 subCode: Select all
sub kukla()
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+GhosT+ wrote:Спс конешно ! Но я хачу чтоб кукла еще стрелы скидывала в ящик ! а арчер подбирал из ящика !