Пажалуйста памагите!!!
Posted: 2007-06-04 12:10:12
Памагите даделать сцп так чтоб он паднимал фсе итемы кроми рыбы!
Code: Select all
sub AFKLoot1()
If uo.getglobal('AFKLoot')=='On' then
uo.setglobal('AFKLoot',0)
uo.print(' !!! -= AFKLoot Terminated =- !!! ')
uo.exec('terminate AFKLoot')
else
uo.setglobal('AFKLoot','On')
uo.print(' !!! -= AFKLooting =- !!! ')
endif
uo.set('finddistance','3')
uo.exec('addobject bag')
while uo.targeting()
wait(100)
wend
while uo.weight < uo.str*22
UO.FindType( -1 , -1 ,'ground')
while UO.FindCount()
uo.moveitem('finditem', 0 ,'bag')
uo.ignore('finditem')
Wait(500)
CheckLag()
UO.FindType( -1 , -1 ,'ground')
wend
wait(100)
wend
uo.setglobal('AFKLoot',0)
end sub
Code: Select all
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub