Code: Select all
sub Dress()
If UO.Dead() Then
UO.Print("You are Dead")
Return
End If
var n
Dim Select[4]
Select[0] = 3
Select[1] = '1' ; Бинты
Select[2] = '12' ; Химия 2
Select[3] = '3' ; Реги
Dim Item[4]
Item[0] = 3
Item[1] = '0x0E21'
Item[2] = '0x09B0'
Item[3] = '0x0E76'
If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
UO.Set('norbcalc','1')
UO.SetGlobal('NorbcalcCheck','yes')
End If
If UO.GetGlobal('DressCheck')<>'on' Then
UO.SetGlobal('DressCheck','on')
If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
UO.UseObject('backpack')
Wait(1000)
End If
If UO.CountGround('0x0ED4','0x08BB') and UO.CountGround('0x0ED4','0x079B') Then
If NOT UO.ObjAtLayer('Torso') Then
UO.Recall('0x4001361C','7') ; Армор(Композит)
REPEAT
Wait(100)
uo.recall('0x4001AA8A','4')
wait(300)
UO.LClick(213,264)
REPEAT
wait(50)
Until UO.ObjAtLayer('Torso')
End If
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x40013766','8') ; Лама
REPEAT
Wait(300)
Until UO.ObjAtLayer('Horse')
End If
For n = 1 TO Select[0]
If UO.Count(Item[n])==0 Then
UO.Recall('0x40013766',Select[n])
UO.DeleteJournal()
REPEAT
Wait(300)
Until UO.InJournal("You put")
End If
Next
Uo.UseType('0x1F06')
wait(50)
Uo.UseType('0x1F08')
wait(50)
Uo.UseType('0x1FFD')
wait(50)
Uo.UseType('0x1F0B')
wait(50)
Uo.Msg('.arm')
Uo.Msg('Keep The Change...')
UO.Print('Done!')
Else
UO.Print("I don't see equipment stone!")
End If
UO.SetGlobal('DressCheck','off')
Else
UO.Print("Wait")
End If
end sub вот ети строки я написал чтобы лук брал, но немог придумать как правелно, дело в том чтбы взать лук у стоуна нада два раза меню нажымать, а ЛКлик всё парит, когда лаг он неберёт и ваще ненравится мне ЛКликuo.recall('0x4001AA8A','4')
wait(300)
UO.LClick(213,264)
REPEAT
wait(50)
хачу чтобу он всё брал быстро а ЛКлик всё парит... изправте плз скрипт... если ето возможно...