http://yoko.netroof.net/forum/viewtopic.php?t=4619&start=0&postdays=0&postorder=asc&highlight=%E2%FB%EA%EB%E0%E4%FB%E2%E0%ED%E8%E5+%EA%E0%F0%F2
там есть все, даже под ДРВ
Code:
sub buy()
VAR vend, ven='vendor'
UO.IgnoreReset()
UO.Set('finddistance','10')
UO.FindType(-1,-1,'ground')
while UO.FindCount()
if uo.isNPC('finditem') then
UO.Click('finditem')
ven=UO.GetName('finditem')
uo.buy('25',ven)
wait(3500)
endif
UO.FindType(-1,-1,'ground')
UO.Ignore('finditem')
wend
end sub
sub buymr()
VAR vend, ven='vendor'
UO.IgnoreReset()
UO.Set('finddistance','10')
UO.FindType(-1,-1,'ground')
while UO.FindCount()
if uo.isNPC('finditem') then
UO.Click('finditem')
ven=UO.GetName('finditem')
uo.buy('mr',ven)
wait(3500)
endif
UO.FindType(-1,-1,'ground')
UO.Ignore('finditem')
wend
end sub
sub buybm()
VAR vend, ven='vendor'
UO.IgnoreReset()
UO.Set('finddistance','10')
UO.FindType(-1,-1,'ground')
while UO.FindCount()
if uo.isNPC('finditem') then
UO.Click('finditem')
ven=UO.GetName('finditem')
uo.buy('bm',ven)
wait(3500)
endif
UO.FindType(-1,-1,'ground')
UO.Ignore('finditem')
wend
end sub
sub buybp()
VAR vend, ven='vendor'
UO.IgnoreReset()
UO.Set('finddistance','10')
UO.FindType(-1,-1,'ground')
while UO.FindCount()
if uo.isNPC('finditem') then
UO.Click('finditem')
ven=UO.GetName('finditem')
uo.buy('bp',ven)
wait(3500)
endif
UO.FindType(-1,-1,'ground')
UO.Ignore('finditem')
wend
end sub
Code:
sub unload()
hiding()
UO.FindType(mapa, '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1',seifformap1)
CheckLag()
Wait(700)
UO.FindType(mapa,'-1','backpack')
wend
endsub
Code:
sub kolmap()
var k
var meshochek
uo.useobject(seifformap1)
uo.findtype(mapa,'-1',seifformap1)
if uo.findcount()>=200 then
uo.findtype(meshok,'-1',seifformap1)
meshochek=uo.getserial('finditem')
uo.moveitem('finditem','1','backpack')
k=0
while k<>200
UO.FindType(mapa,'0x0000',seifformap1)
UO.MoveItem('finditem','1',meshochek)
CheckLag()
wait(600)
k=k+1
wend
uo.findtype(meshok,'-1','backpack')
uo.moveitem('finditem','1',seifformap2)
endif
endsub