############################################################################################ #File info################################################################################## ############################################################################################ ;Copiraten: by ICe aka ICeCREAm # ; Mail: Hoob@narod.ru писать с пометкой UO # ; Icq: 222228147 писать с пометкой UO # ; WWW: http://hoob.narod.ru > # ;[; plz not sale outside for russia,for all questions call #911 or (Hoob@narod.ru) ask me;]# #############################################################(с) 2005 made in russia :) ####
sub Camping() var i,j var MX=uo.GetX() var MY=uo.GetY() var MZ=uo.GetZ() var time=uo.Time() uo.Print('Выбери Сундук с Хворостом: ') uo.Exec('addobject Chest') while uo.Targeting() wait(100) wend while not uo.Dead() for i=MX-3 to MX+3 for j=My-3 to MY+3 if uo.Count('0x0DE1')==0 then uo.FindType('0x0DE1',-1,'Chest') if uo.FindCount()>0 then uo.MoveItem('finditem','6') else return end if end if uo.FindType('0x0DE1',-1,'backpack') uo.MoveItem('finditem','1','ground',str(i),str(j),str(MZ)) CheckLag() wait(1000) uo.FindType('0x0DE1','0x0000','ground') while uo.FindCount()>0 repeat uo.UseObject('finditem') wait(500) CheckLag() until not uo.InJournal('You fail') wait(500) uo.FindType('0x0DE1','0x0000','ground') wend next next wend end sub
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