### Контейнеры ### VAR Meshok = '0x0E76'; тип мешка VAR Deed = '0x14EF'; свиток ресурсов VAR body = '0x2006'; труп (не разделанный) ################## ### Инструменты ### VAR Dagger = '0x0F51'; кинжал (резка трупа) VAR Scissors = '0x0F9E'; ножницы ################## ### Сырье ### VAR hides = '0x1078'; шкура животного VAR leather = '0x1067'; готовая кожа ################## ### Вспомогательные константы ### VAR lootwait = 50; пауза VAR printcolour = '1069'; цвет сообщений ################## ### Переменные ### VAR MeshSer, d, LastTimer, timemove VAR Type, TType, Type1, Type2, Color, SourceContainer, TargetContainer VAR corpse, a, hair, reg, colhides ################## Sub autostart() Lootrunning() UO.filterspeech('clear') UO.filterspeech('add','[Surprize ! Fast loot detected!]') ; сообщение при фастлуте. UO.filterspeech('on') end sub Sub REZ() UO.Set('quiet','1') uo.set('finddistance', '3') ;uo.ignorereset() uo.findtype(body, -1, 'ground') if uo.findcount() and Uo.GetDistance( 'finditem' ) < 3 then var x = uo.GetGraphic(uo.ObjAtLayer('Rhand')) var y = uo.GetGraphic(uo.ObjAtLayer('Lhand')) uo.warmode(0) wait(500) corpse = uo.getSerial("finditem") UO.WaitTargetObject(corpse) UO.UseType(dagger) wait(500) uo.Equipt('Rhand',x) uo.Equipt('Lhand',y) if x <> uo.GetGraphic(uo.ObjAtLayer('Rhand')) or y <> uo.GetGraphic(uo.ObjAtLayer('Lhand')) then UO.UseType(x) wait(100) UO.UseType(y) wait(100) endif Loot() uo.warmode(1) endif UO.Set('quiet','0') end sub sub Lootrunning() uo.setGlobal('running',1) end sub Sub Loot() ;uo.ignorereset() DIM G[7] G[1] = '0x0EED' ; деньги G[2] = '0x0E76' ; мешки G[3] = '0x09AA' ; пандоры G[4] = '0x1BFB' ; болты G[5] = '0x0F3F' ; стрелы G[6] = '0x1087' ; серьги G[7] = '0x108A' ; кольца UO.Set('quiet','1') if val(uo.getGlobal('running'))==1 then uo.setGlobal('running',2) uo.set('finddistance', '3') corpse = '0x00000000' corpse = findcorps() if corpse<>'0xffffffff' and corpse<>'0x00000000' then IF uo.findcount() and Uo.GetDistance( 'finditem' ) <= 4 then uo.deletejournal() uo.useobject(corpse) wait(300) if NOT uo.injournal("You can't do it here") then GrabLoot(corpse) IgnorHair(corpse) ;Ignor(corpse) PUTLoot('-1', '-1', corpse, 'backpack','','','') endif UO.Hide(corpse) UO.Ignore(corpse) endif else For a=1 to 7 PUTLoot(G[a], '-1', 'ground', 'backpack',30,150,0) next endif Scissors() uo.setGlobal('running',1) endif UO.Set('quiet','0') end sub Sub findcorps() DIM body[2] body[1] = '0x0ECA' ; кости body[2] = '0x2006' ; тело For a = 1 to 2 UO.FindType(body[a], -1, 'ground') if UO.FindCount() then return uo.getSerial('finditem') endif next end sub Sub IgnorHair(corpse) For hair = 0x203B to 0x204D UO.FindType(hair, -1, corpse) if UO.FindCount() then UO.Ignore('finditem') endif next end sub Sub Ignor(corpse) For reg = 0xF7A to 0xF7B UO.FindType(reg, -1, corpse) if UO.FindCount() then UO.Ignore('finditem') endif next For reg = 0xF84 to 0xF86 UO.FindType(reg, -1, corpse) if UO.FindCount() then UO.Ignore('finditem') endif next For reg = 0xF88 to 0xF88 UO.FindType(reg, -1, corpse) if UO.FindCount() then UO.Ignore('finditem') endif next For reg = 0xF8C to 0xF8D UO.FindType(reg, -1, corpse) if UO.FindCount() then UO.Ignore('finditem') endif next end sub Sub GrabLoot(corps) var pack = 'backpack' ;uo.charprint(printcolour,'лутим типы') PUTLoot('0x1869', '0', corps, pack,'','','') ; ЭНЧАНТ шарики PUTLoot('0x09AA', '0x0834', corps, pack,'','','') ; Пандора 10 Лв. PUTLoot('0x09AA', '0x0833', corps, pack,'','','') ; Пандора 9 Лв. PUTLoot('0x09AA', '0x0832', corps, pack,'','','') ; Пандора 8 Лв. PUTLoot('0x09AA', '0x08EA', corps, pack,'','','') ; Пандора 7 Лв. PUTLoot('0x09AA', '0x08C1', corps, pack,'','','') ; Пандора 6 Лв. PUTLoot('0x13B1', '0x099F', corps, pack,'150','170','0'); Exc.Rangers Bow PUTLoot('0x13B1', '0x05D8', corps, pack,'150','160','0'); Rangers bow PUTLoot('0x0A3E', '0', corps, pack,'160','170','0') ; шкатулка PUTLoot(-1, '0x086C', corps, pack,'','','') ; хантер вещи PUTLoot(-1, '0x099F', corps, pack,'','','') ; ренжер вещи PUTLoot(-1, '0x0358', corps, pack,'','','') ; рат вещи PUTLoot2(0x1869, 0x1870, '-1', corps, pack,'','','') ; шарики PUTLoot('0x0EED', '0', corps, pack,'','','') ; золото PUTLoot2(0x1E88, 0x1E89, '-1', corps, pack,'','','') ; мясо драконов и демонов PUTLoot2(0x1E8E, 0x1E8F, '-1', corps, pack,'','','') ; жаренное мясо драконов и демонов PUTLoot('0x09B5', '0', corps, pack,'','','') ; змеиные яйца PUTLoot('0x0EE3', '0', corps, pack,'','','') ; паутинка PUTLoot2(0x1085, 0x108b, '-1', corps, pack,'','','') ; бижутерия PUTLoot2(0x1f05, 0x1f0a, '-1', corps, pack,'','','') ; бижутерия PUTLoot2(0xf0f, 0xf30, '-1', corps, pack,'','','') ; камни PUTLoot2(0x1f5d, 0x1f6c, '0', corps, pack,'','','') ; scroll 7-8 PUTLoot(-1, '0x0991', corps, pack,'','','') ; руины PUTLoot('0x9aa', '-1', corps, pack,10,170,0) ; пандоры PUTLoot(-1, '0x0482', corps, pack,'','','') ; серебрянные вещи end sub Sub Scissors() If UO.Hidden() and UO.Count ( Scissors ) > 0 Then UO.FindType(hides, -1, 'backpack') While UO.FindCount() colhides = uo.getColor('finditem') UO.WaitTargetObject('finditem') uo.usetype( Scissors ) wait(300) UO.FindType(leather, colhides, 'backpack') if UO.FindCount() then UO.MoveItem('finditem', 0, 'backpack', 30, 150, 0) wait(300) endif UO.FindType(hides, -1, 'backpack') wend EndIf end sub Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z) ;uo.ignorereset() for TType = Type1 to Type2 PUTLoot(TType, Color, SourceContainer, TargetContainer,X,Y,Z) next end sub Sub PUTLoot(Type, Color, SourceContainer, TargetContainer,X,Y,Z) ;uo.ignorereset() UO.FindType(Type, Color, SourceContainer) while UO.FindCount() if (TargetContainer=='ground') then uo.MoveItem('finditem',0,TargetContainer,uo.GetX('self'),uo.GetY('self'),uo.GetZ('self')) else timemove=UO.Timer() while UO.ContainerOf( UO.GetSerial('finditem') )==SourceContainer && timemove+20>UO.Timer() uo.MoveItem('finditem',0,TargetContainer,X,Y,Z) wait(lootwait) wend end if UO.FindType(Type, Color, SourceContainer) wend end sub Sub DeleteJournal(msg) While UO.InJournal(msg) UO.SetJournalLine(UO.InJournal(msg) - 1,'') wend end sub Sub checklag() DeleteJournal("ackpack") UO.Click("backpack") repeat wait(100) until UO.InJournal("ackpack") end sub