UO.UseObject('lastcorpse') if UO.GetQuantity('lastcorpse') then UO.SetArm('temp') UO.WaitTargetObject('lastcorpse') UO.UseType('0x0F51') ;dagger wait(1000) UO.Arm('temp') wait(1000) endif for i=0 to 93 repeat uo.findtype(fastloot[i],'-1','lastcorpse') if uo.findcount()>0 then CheckLag() uo.waittargetObject('finditem') uo.grab() wait(550) endif until uo.findcount()==0 next uo.print('===================================') uo.print('!!!!!!!LOOTING COMPLETED!!!!!!!!!') uo.print('===================================') uo.exec("set finddistance 14")
YokoInjection CodeSweeper Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
UO.UseObject('lastcorpse') if UO.GetQuantity('lastcorpse') then UO.SetArm('temp') UO.WaitTargetObject('lastcorpse') UO.UseType('0x0F51') ;dagger wait(1000) UO.Arm('temp') wait(1000) endif for i=0 to 93 repeat uo.findtype(fastloot[i],'-1','ground') if uo.findcount()>0 then CheckLag() uo.waittargetObject('finditem') UO.Grab("0","finditem") wait(550) endif until uo.findcount()==0 next uo.print('===================================') uo.print('!!!!!!!LOOTING COMPLETED!!!!!!!!!') uo.print('===================================') uo.exec("set finddistance 14") end sub sub CheckLag() uo.DeleteJournal() uo.Click('backpack') repeat wait(500) until uo.InJournal('backpack') end sub
sub fastloot2() VAR WaitTime=500 VAR Exit=0, i uo.exec("set finddistance 3") dim fastloot[94]
...
UO.UseObject('lastcorpse') if UO.GetQuantity('lastcorpse') then UO.SetArm('temp') UO.WaitTargetObject('lastcorpse') UO.UseType('0x0F51') ;dagger wait(1000) UO.Arm('temp') wait(1000) endif for i=0 to 93 repeat uo.findtype(fastloot[i],'-1','ground') if uo.findcount()>0 then CheckLag() UO.MoveItem('finditem',-1,'backpack') wait(550) endif until uo.findcount()==0 next uo.print('===================================') uo.print('!!!!!!!LOOTING COMPLETED!!!!!!!!!') uo.print('===================================') uo.exec("set finddistance 14") end sub sub CheckLag() uo.DeleteJournal() uo.Click('backpack') repeat wait(500) until uo.InJournal('backpack') end sub