Yoko

Code: Select all

sub poisk()
uo.print('Script proveraet chto nahodetsja v levoj ruke i esli pusto - odevaet shield iz bp')
uo.print('(c)erka')

Dim shield[8]
shield[0] = '0x1B72'
shield[1] = '0x1B73'
shield[2] = '0x1BC3'
shield[3] = '0x1B76'
shield[4] = '0x1B74'
shield[5] = '0x1B7B'
shield[6] = '0x1BC4'
shield[7] = '0x1B79'
shield[8] = '0x1B7A'

var i, tshield, fshield = 0

for i = 0 to 8
if fshield == 1 then
wait(10)
endif
if fshield == 0 then
uo.findtype( shield[i] )
if uo.findcount() then 
tshield = uo.getserial( 'finditem' )
Armshield( tshield )
endif
endsub

sub Armshield( Shield )
If uo.getgraphic( uo.objatlayer( 'Lhand' ) ) == Shield then
return 
else
uo.equipt( 'Lhand', Shield )
repeat 
wait(100) 
until uo.getgraphic( uo.objatlayer( 'Lhand' ) ) == Shield
endif
endsub