sub DigTreasure() var idTMap, t,z = 0 uo.ignorereset() t = UO.Count('0x14EB','0x0000') uo.findtype('0x14EB','0x0000','backpack') while uo.findcount() > 0 #ToHide() idTMap = UO.GetSerial('finditem') uo.deletejournal() while not uo.injournal('treasure !') and not uo.injournal('in right direction') uo.canceltarget() CheckLagOff() UO.WaitTargetObject(idTMap) UO.UseType('0x0F39','0x0496') CheckLagOff() UO.WaitTargetTile('0',STR(UO.GetX()),STR(UO.GetY()),STR(UO.GetZ())) CheckLagOff() wend uo.ignore(idTMap) if uo.injournal('You found a treasure !') then z = z + 1 uo.print('> > > > > > > > > выкопал ' + str(z) + ' из просмотренных ' + str(t-uo.count('0x14EB','0x0000'))) end if uo.findtype('0x14EB','0x0000','backpack') wend uo.useobject('backpack') uo.canceltarget() uo.print('ну нихера себе нарыл') end sub
sub HideTGuards() UO.Set('finddistance','3') uo.findtype('-1','0x0845','ground') while uo.findcount() uo.waittargetobject('finditem') uo.exec('hide') uo.ignore('finditem') uo.findtype('-1','0x0845','ground') wend UO.set('finddistance','14') uo.ignorereset() end sub
sub castEarthquake() var m, tScroll = '0x1F65' var minMana = 20 uo.ignorereset() UO.Set('finddistance','14') uo.findtype('-1','0x0845','ground') while uo.findcount() UO.Exec('warmode 0') if minMana > uo.Mana then uo.usetype('0x0F0E','0x09DF') checkLag() end if m = uo.Mana uo.WaitTargetTile('0',STR(UO.GetX()),STR(UO.GetY()),str(uo.GetZ())) if uo.count(tScroll,'0x0000') then uo.usetype(tScroll,'0x0000') else return uo.print('Scrollы кирдыкнулись') end if while m <= uo.Mana and not uo.inJournal("Can't") and not uo.injournal('fizzle') wait(50) wend checklag() wait(1000) checklag() uo.findtype('-1','0x0845','ground') wend uo.canceltarget() end sub
sub grabTreasures() var tTreasure='0x09AB',cTreasure='0x045E',idT var CheckBags = true ;false/false var GetWeapon = true ;false/false var GetArmor = true ;true/false ;uo.ignorereset() if not uo.hidden() then UO.Exec('warmode 0') UO.UseSkill('Hiding') end if UO.set('finddistance','1') uo.findtype(tTreasure,cTreasure,'ground') while uo.findcount() > 0 idT = uo.getserial('finditem') if openCont(idT) then grabTreasureBags(idT,CheckBags,GetWeapon,GetArmor) grabTreasure(idT,GetWeapon,GetArmor) uo.waittargetobject(idT) uo.exec('hide') end if wait(750) uo.ignore(idT) uo.forget(idT) uo.findtype(tTreasure,cTreasure,'ground') wend UO.set('finddistance','14') end sub
Sub grabTreasureBags(idTres,ind,GetWeapon,GetArmor) var tBag,t if not ind then return end if wait(600) uo.findtype('0x0E76','0x0000',idTres) while uo.findcount() > 0 tBag = uo.getserial('finditem') openCont(tBag) uo.findtype('-1','-1',tBag) if uo.findcount() == 0 then uo.ignore(tBag) else while uo.findcount() > 0 t = checkArmor(uo.GetSerial('finditem'),GetArmor) if t == '-1' then t = checkWeapon(uo.GetSerial('finditem'),GetWeapon) end if if t == '0x00000000' or t == '-1' then uo.ignore('finditem') else uo.moveitem(t,'-1','bag') CheckLag() wait(550) end if uo.findtype('-1','-1',tBag) wend uo.ignore(tBag) end if uo.findtype('0x0E76','0x0000',idTres) wend end sub
Sub grabTreasure(idTres,GetWeapon,GetArmor) var qTypes = 50, i, z=1, t dim tloot[50] tLoot[0] = '0x0EED'#a gold tLoot[1] = '0x0F09'#Hair Dye tLoot[2] = '0x0F0E'#bottles tLoot[3] = '0x0F91'#Wyrm s Hearts tLoot[4] = '0x0F78'#Batwings tLoot[5] = '0x0F79'#Blackmoor tLoot[6] = '0x0F7C'#Bloodspawn tLoot[7] = '0x0F7D'#Vials of Blood tLoot[8] = '0x0F7E'#Bones tLoot[9] = '0x0F80'#Daemon Bones tLoot[10] = '0x0F81'#Fertile Dirt tLoot[11] = '0x0F82'#Dragon s Blood tLoot[12] = '0x0F87'#Eyes of Newt tLoot[13] = '0x0F8E'#Serpent s Scales tLoot[14] = '0x0F8F'#Volcanic Ash tLoot[15] = '0x0F90'#Dead Wood tLoot[16] = '0x0F13' tLoot[17] = '0x0F1A' tLoot[18] = '0x0F19' tLoot[19] = '0x0F15' tLoot[20] = '0x0F1B' tLoot[21] = '0x0F2D' tLoot[22] = '0x0F2B' tLoot[23] = '0x0F23' tLoot[24] = '0x0F25' tLoot[25] = '0x0F30' tLoot[26] = '0x0F27' tLoot[27] = '0x0F26' tLoot[28] = '0x0F20' tLoot[29] = '0x0F2F' tLoot[30] = '0x0F1F' tLoot[31] = '0x0F29' tLoot[32] = '0x0F17' tLoot[33] = '0x0F28' tLoot[34] = '0x0F10' tLoot[35] = '0x0F12' tLoot[36] = '0x0F16' tLoot[37] = '0x0F1E' tLoot[38] = '0x0F1D' tLoot[39] = '0x0F24' tLoot[40] = '0x0F2C' tLoot[41] = '0x0F11' tLoot[42] = '0x0F22' tLoot[43] = '0x0F2E' tLoot[44] = '0x0F1C' tLoot[45] = '0x0F18' tLoot[46] = '0x0F0F' tLoot[47] = '0x0F2A' tLoot[48] = '0x0F21' tLoot[49] = '0x0F14' for i = 0 to qTypes-1 UO.FindType(tLoot[i],'-1',idTres) while UO.FindCount() > 0 if z < 2 then z = z+1 else z = 0 CheckLag() wait(950) end if UO.MoveItem('finditem','-1','bag') Checklag() UO.FindType(tLoot[i],'-1',idTres) wend next uo.findtype('-1','-1',idTres) while uo.findcount() > 0 t = checkArmor(uo.GetSerial('finditem'),GetArmor) if t == '-1' then t = checkWeapon(uo.GetSerial('finditem'),false) end if if t == '0x00000000' or t == '-1' then uo.ignore('finditem') else uo.moveitem(t,'-1','backpack') CheckLag() wait(550) end if uo.findtype('-1','-1',idTres) wend end sub
Sub checkWeapon(id,GetWeapon) var qType = 23,i, tTemp = uo.GetGraphic(id) dim tWeapon[23] tWeapon[0] = '0x0F49' #an Axe tWeapon[1] = '0x0F4B' #a Double Axe tWeapon[2] = '0x0F5E' #a Broadsword tWeapon[3] = '0x0F60' #a Longsword tWeapon[4] = '0x13B5' #a Scimitar tWeapon[5] = '0x0F4D' #a Bardiche tWeapon[6] = '0x13B9' #a Viking Sword tWeapon[7] = '0x13FE' #a Katana tWeapon[8] = '0x143E' #a Halberd tWeapon[9] = '0x1440' #a Cutlass tWeapon[10] = '0x13FC' #a Heavy Crossbow tWeapon[11] = '0x13B1' #a Bow tWeapon[12] = '0x0F4F' #a Crossbow tWeapon[13] = '0x0F5C' #a Mace tWeapon[14] = '0x13B3' #a Club tWeapon[15] = '0x1406' #a War Mace tWeapon[16] = '0x1438' #a War Hammer tWeapon[17] = '0x143A' #a Maul tWeapon[18] = '0x143C' #a Hammer Pick tWeapon[19] = '0x0E87' #a Pitchfork of Force tWeapon[20] = '0x0F62' #a Spear tWeapon[21] = '0x1402' #a Short Spear tWeapon[22] = '0x1404' #a War Fork if not GetWeapon then return '-1' end if uo.DeleteJournal() for i = 0 to qType - 1 if tTemp == tWeapon[i] then if i > 4 and i < 9 then uo.click(id) CheckLagOff() if uo.injournal('of Power') then return id end if if uo.injournal('of Force') and i < 10 then return id end if end if return '0x00000000' end if next return '-1' end sub
Sub checkArmor(id,GetArmor) var qType = 18, qColor = 4, tTemp = uo.GetGraphic(id), cTemp = uo.GetColor(id),i,j dim cArmor[4] cArmor[0] = '0x0672' #of Defense cArmor[1] = '0x0549' #of Hardening cArmor[2] = '0x070D' #of Fortification cArmor[3] = '0x075F' #of Invulnerability dim tArmor[18] tArmor[0] = '0x13BE' #a Chainmail Leggings tArmor[1] = '0x13BB' #a Chainmail Coif tArmor[2] = '0x13BF' #a Chainmail Tunic tArmor[3] = '0x13EB' #a Ringmail Gloves tArmor[4] = '0x13EE' #a Ringmail Sleeves tArmor[5] = '0x13F0' #a Ringmail Leggings tArmor[6] = '0x1B73' #a Buckler tArmor[7] = '0x1B7B' #a Metal Shield tArmor[8] = '0x1B7A' #a Wooden Shield tArmor[9] = '0x1C04' #a Platemail tArmor[10] = '0x1B78' #a Kite Shield tArmor[11] = '0x1412' #a Plate Helm tArmor[12] = '0x1415' #a Platemail tArmor[13] = '0x1410' #a Platemail Arms tArmor[14] = '0x1414' #a Platemail Gauntlets tArmor[15] = '0x1413' #a Platemail Gorget tArmor[16] = '0x1411' #a Platemail Legs tArmor[17] = '0x1B76' #a Heater if not GetArmor then return '-1' end if if cTemp == cArmor[0] then return '0x00000000' end if for i = 0 to qType - 1 if tTemp == tArmor[i] then if i > 10 then for j = 0 to qColor - 1 if cTemp == cArmor[j] then return id end if next end if return '0x00000000' end if next return '-1' end sub
Sub openCont(id) uo.deletejournal() uo.useobject(id) checklagoff() wait(50) if uo.injournal("You can't") then return false else return true end if end sub
Sub ToHide() while not UO.Hidden() CheckLag() UO.Exec('warmode 0') UO.UseSkill('Hiding') repeat wait(200) until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preocopured') or UO.Dead() wend end Sub
Sub CheckLag() UO.DeleteJournal() UO.Click('backpack') repeat wait(50) until UO.InJournal('backpack') end Sub
Sub CheckLagOff() ; 411.21 DeleteJournal("backpack") UO.Click('backpack') repeat wait(50) until UO.InJournal("backpack") end Sub
Sub DeleteJournal(MsgText) ; 411.21 var MsgNumb=UO.InJournal(MsgText) while MsgNumb > 0 UO.SetJournalLine(MsgNumb-1, '') MsgNumb=UO.InJournal(MsgText) wend end Sub
sub TeleportSelf() UO.WaitTargetTile("400",str(uo.getx("self")+1),str(uo.gety("self")+1),str(uo.getz("self")-12)) UO.Cast("Teleport") end sub
hiding() For i=0 to 49 UO.FindType(tLoot[i], '-1', 'backpack') while UO.GetQuantity('finditem') > 0 UO.MoveItem('finditem','-1',sunduchok) CheckLag() Wait(700) UO.FindType(tLoot[i],'-1','backpack') wend Next
endsub
sub unloadNaritoePlates() VAR sunduchok='0x401FA44A' ## sunduk kuda klast arm VAR i DIM tLoot[50] tLoot[0] = '0x1412' tLoot[1] = '0x1410' tLoot[2] = '0x13EB' tLoot[3] = '0x1C04' tLoot[4] = '0x1411' tLoot[5] = '0x1B78' tLoot[6] = '0x1B76' tLoot[7] = '0x1413' tLoot[8] = '0x1414' tLoot[9] = '0x1415' tLoot[9] = '0x1415'
hiding() For i=0 to 9 UO.FindType(tLoot[i], '-1', 'backpack') while UO.GetQuantity('finditem') > 0 UO.MoveItem('finditem','-1',sunduchok) CheckLag() Wait(700) UO.FindType(tLoot[i],'-1','backpack') wend Next
endsub
sub hiding() UO.Warmode("0") while not UO.Hidden() UO.DeleteJournal() UO.UseSkill("Hiding") while NOT UO.InJournal("You") wait(1000) wend wend end sub
