/ ========================== Cooking sub cook() Var fire = '0x0DE3' Var fish = '0x097A' Var sunduk = '0x400BC509' # ID сундука с рыбой и хворостом Var hvorost = '0x0DE1' while not uo.dead() If UO.Count( fish ) < 1 Then UO.FindType( fish, '-1', sunduk ) If UO.FindCount() > 0 Then UO.Moveitem( 'finditem', '500', 'backpack' ) Checklag() Else return Endif Else wait(50) Endif UO.FindType( fire, '-1', 'ground' ) If UO.FindCount() > 0 Then While UO.FindCount() > 0 and UO.Count( fish ) > 0 UO.WaitTargetObject( 'finditem' ) UO.UseType( fish ) wait(1000) While not uo.injournal( 'Mmm|burn|The previous' ) wait(100) Wend UO.FindType( fire, '-1', 'ground' ) wend Else UO.FindType( hvorost, '-1', sunduk ) If UO.FindCount() > 0 Then UO.MoveItem('finditem','1','ground',UO.GetX()+1, UO.GetY()+1, UO.GetZ() ) wait(200) UO.UseObject( 'finditem' ) checklag() Else Return Endif Endif wend endsub
sub CheckLag() UO.DeleteJournal() UO.Click('backpack') repeat wait(500) until UO.InJournal('ackpack') end sub
/ ========================== Fishing var MaxFailure=6 # Кол-во фейловых попыток перед переходом к след тайлу sub main() var iX,iY for var iStep=0 to 1000 for iX=-6 to 6 for iY=-6 to 6 GetAllFish(UO.GetX()+iX,UO.GetY()+iY) next next next end sub Sub GetAllFish(iX,iY) var counter=0 repeat counter=counter+1 UO.DeleteJournal() UO.WaitTargetTile(0,iX,iY,0) UO.UseType('0x0DBF') while not UO.InJournal('You pull out') and not UO.InJournal('but fail to catch') and not UO.InJournal('no fish here') and not UO.InJournal('Try fishing in water') and not UO.InJournal('That is too far away') and not UO.InJournal('You are too quick') and not UO.InJournal('The item should') wait(1000) wend if UO.InJournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then return end if if UO.InJournal('You pull out') then counter=0 GetFish() end if until UO.Injournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>MaxFailure end sub Sub GetFish() UO.set('finddistance',0) UO.IgnoreReset() UO.Ignore('self') UO.FindType('0x352D',-1,'ground') UO.Ignore('finditem') UO.FindType(-1,-1,'ground') while UO.FindCount()>0 UO.WaitTargetObject('finditem') UO.UseType('0x13F6') UO.Ignore('finditem') wait(1500) UO.FindType(-1,-1,'ground') wend UO.Ignorereset() UO.Ignore('self') UO.FindType('0x352D',-1,'ground') UO.Ignore('finditem') UO.FindType(-1,-1,'ground') while UO.FindCount()>0 UO.Grab(0,'finditem') wait(1000) UO.FindType(-1,-1,'ground') wend UO.Ignorereset() end sub
/ ========================== Arms Lore sub arms() while not uo.dead() uo.useskill('Arms Lore') uo.waittargetlast() wait(2000) wend end sub
/ ========================== Hiding sub hide() while not uo.dead() uo.useskill('Hiding') wait(3000) wend end sub
/ ========================== Animal Lore sub an() while not uo.dead() uo.waittargetself() uo.useskill('Animal Lore') wait(1500) wend end sub
/ ========================== Item Identification sub id() while not uo.dead() uo.useskill('Item Identification') uo.waittargetlast() wait(1500) wend end sub
/ ========================== Detect Hidden sub detect() while not uo.dead() uo.useskill('Detect Hidden') wait(1200) wend end sub
/ ========================== Evaluating Intelligence sub eval() while not uo.dead() uo.useskill('Evaluating Intelligence') uo.waittargetself() wait(1500) wend end sub
/ ========================== Musicanship sub music() while not uo.dead() uo.usetype('0x0EB3') wait(1500) wend end sub
/ ========================== Stealth sub st() while not UO.Dead() st: UO.DeleteJournal() UO.UseSkill('Hiding') while not (UO.InJournal('seem') or UO.InJournal('hidden')) wait(200) wend if UO.InJournal('seem') then goto st endif while not UO.INJournal('revealed') UO.Press(35) UO.Press(35) UO.Press(35) UO.Press(33) UO.Press(33) UO.Press(33) wend wend end sub
/ ========================== Tracking sub track() uo.cancelmenu() uo.automenu("Tracking", "Anything") while not uo.dead() uo.deletejournal() uo.useskill('Tracking') repeat wait(200) until uo.injournal("You see no signs|You have lost|Tracking Cancelled") wend end sub
/ ========================== Tailoring sub tailor() while not uo.dead() UO.DeleteJournal() uo.cancelmenu() UO.automenu ('Cloth', 'Pattern') UO.waittargettype ('0x175D') UO.Usetype('0x0F9D') repeat wait(200) until UO.InJournal("You put|fail") wend end sub
/ ========================== Tinkering sub Tinkering() uo.cancelmenu() UO.automenu ('Tinkering', 'Tools') UO.automenu ('Tools', 'Empty Alchemist Bottle') while not uo.dead() UO.DeleteJournal() UO.Usetype('0x1EBC') repeat wait(200) until UO.InJournal("You put|Tinkering failed.") wend end sub
sub c() uo.cancelmenu() end sub
/ ========================== Bowcraft sub bow() while not uo.dead() UO.DeleteJournal() UO.automenu ('What do you', 'Bows') UO.automenu ('Bows', 'Bow') UO.waittargettype ('0x1BDD') UO.Usetype('0x0F51') repeat wait(200) until UO.InJournal("You put|fail") wend end sub
/ ========================== Blacksmithing sub bs() while not uo.dead() UO.DeleteJournal() UO.automenu ('Blacksmithing', 'Tongs') UO.waittargettype ('0x1BEF') UO.Usetype('0x13E3') repeat wait(200) until UO.InJournal("You put|fail") wend end sub
/ ========================== Smelth Iron sub Smelth() var bag , i , j , forge uo.findtype(0x0E76,-1,'backpack') if uo.findcount() > 0 then bag = uo.GetSerial('finditem') uo.print('Show me FORGE.') UO.exec('addobject forge') while UO.targeting() wait(200) wend uo.moveitem(bag,-1,'backpack','147','147','0') uo.useobject(bag) wait(1000) uo.findtype('0x19B9',-1,'backpack') uo.moveitem('fin ditem',-1,bag) wait(1000) while (uo.count('0x19B9') > 0) i = 12 j = 12 while (uo.count('0x19B9') > 0) and (uo.count('0x19BA') < 425) and (i < 145) and (j<145) uo.findtype('0x19B9',-1,bag) uo.moveitem('finditem','2','backpack',str(i),str(j),'0') wait(800) if i==140 then i = 4 j = j + 8 else i = i + 8 end if wend while uo.count('0x19BA') > 0 uo.usetype('0x19BA') wait(200) wend while uo.count('0x19B7') > 0 uo.findtype('0x19B7',-1,'backpack') uo.moveitem('finditem',-1,bag) wait(1000) wend wend uo.findtype('0x19B7',-1,bag) if uo.findcount() then uo.Grab(-1,'finditem') end if uo.findtype('0x19BA',-1,bag) if uo.findcount() then uo.Grab(-1,'finditem') end if uo.findtype('0x19B8',-1,bag) if uo.findcount() then uo.Grab(-1,'finditem') end if end if end sub
Mojoheadz’s LA-based label has been responsible for releases that have not only taken clubland by storm, but also the greater music universe.Check my review.. https://open.spotify.com/album/00mM0mHeaf5AYtUR4OHK7F
Бывает же такое! Вот в интернет просторах нарыл объявление http://rentrealtycrimea.com/dlitelno/page/2/ - сдам квартиры в Крыму Симферополь и впал в гнев. Кстати забыл поздороваться! В общем сдам 2 комнатную квартиру в Симферополе ,я зачитал и понял, что жизнь прекрасна – раз имеются такие магазины. Поэтому всем советую ссылку http://rentrealtycrimea.com с апартаментами в центре Крыма.
