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
Ошибка - Invalid number of arguments - armshield