Ultima Online Antares

Sub PostsGuardsLootMod()
VAR LootBag='0x401BE48A'
VAR Flag, LastTimer, Body=UO.GetSerial('lastcorpse')

if UO.GetDistance(Body)>3 then
UO.Print('Труп далеко. подойди ближе')
return
endif

if OpenCont(Body) then
UO.set('quiet','1')
Flag=LootIt(LootBag,Body)
while Flag<>0
if OpenCont(Flag) then
UO.emptycontainer(0,Flag,LootBag)
wait(200)
UO.findtype('-1','-1',Flag)
while UO.FindCount()
wait(50)
UO.findtype('-1','-1',Flag)
wend
UO.hide(Flag)
endif
wait(50)
Flag=LootIt(LootBag,Body)
wend
UO.set('quiet','0')
else
UO.Print('Труп пуст')
endif

end sub

Sub LootIt(LootBag,Body)
VAR bag=0

UO.filterspeech('clear')
UO.filterspeech('add','Fast')
UO.filterspeech('on')

UO.findtype('0x0E76','-1',Body)
if UO.FindCount() then
bag=UO.GetSerial('finditem')
repeat
UO.moveitem(bag,'1','backpack','30','50','0')
wait(150)
until UO.ContainerOf(bag)<>Body
endif

UO.findtype('0x0F3F','-1',Body)
while UO.FindCount()
UO.moveitem('finditem','0',LootBag)
wait(150)
UO.findtype('0x0F3F','-1',Body)
wend

UO.findtype('0x1BFB','-1',Body)
while UO.FindCount()
UO.moveitem('finditem','0',LootBag)
wait(150)
UO.findtype('0x1BFB','-1',Body)
wend

UO.filterspeech('off')

if bag<>0 then
return bag
endif
return 0

end sub

###---ОТКРЫТЬ НЕПУСТОЙ КОНТЕЙНЕР

Sub OpenCont(Cont)
VAR LastTimer

if CheckCont(Cont) then
deljournal('Contains|до этого достать')
LastTimer=UO.Timer()
UO.useobject(Cont)
repeat
wait(70)
until UO.InJournal('Contains|до этого достать') || LastTimer+100<UO.Timer()
if UO.InJournal('Contains') then
return 1
else
return 0
endif
endif
return 0

end sub

###---ПРОВЕРИТЬ КОНТЕЙНЕР НА ПРЕДМЕТ =ПУСТОЙ-НЕПУСТОЙ=

Sub CheckCont(Cont)
VAR LastTimer

deljournal('items')
LastTimer=UO.Timer()
UO.click(Cont)
repeat
wait(70)
until UO.InJournal('items') || LastTimer+100<UO.Timer()

if UO.InJournal('(0 items') then
return 0
else
return 1
endif

end sub

Sub checklag()

deljournal("backpack|Backpack")
UO.click("backpack")
repeat
wait(70)
until UO.InJournal("backpack|Backpack")

end sub


Sub deljournal(msg)

while UO.InJournal(msg)
UO.SetJournalLine(UO.InJournal(msg)-1,"")
wend

end sub

sub pereklad_all()
   DIM R[179]
   VAR a
R[0]=0x0EED; gp
R[1]=0x0F7B; BM
R[2]=0x0F7A; BP
R[3]=0x0F84; GA
R[4]=0x0F85; GI
R[5]=0x0F86; MR
R[6]=0x0F88; NS
R[7]=0x0F8C; SA
R[8]=0x0F8D; SS
R[9]=0x0F90; Dead Woods
R[10]=0x0F7E; Sceleton Bones
R[11]=0x0F87; Eyes of newt
R[12]=0x1078; Hides
R[13]=0x1F66; Bolts
R[14]=0x0E34; Blanc Scroll
R[15]=0x0F25; Pieces of Amber
R[16]=0x0F16; Ametist
R[17]=0x0F20; Tourmaline
R[18]=0x0F26; Diamond
R[19]=0x0F30; Diamond
R[20]=0x0F8E; Serpent Scales
R[21]=0x14EB; Treassure Map
R[22]=0x0F79; Blackmoor
R[23]=0x1F67; SAD
R[24]=0x0F79; Blackmoor
R[25]=0x0F91; Wirn hart
R[26]=0x0F78; Bat
R[27]=0x204E; ?iaa
R[28]=0x1515; eeiea
R[29]=0x1B76; ueo -
R[30]=0x1414; ia??e
R[31]=0x1410; ?oee
R[32]=0x1C04; aini
R[33]=0x1411; iiae
R[34]=0x1413; ai?ei
R[35]=0x1412; oeai
R[36]=0x0F0C; aooueee
R[37]=0x0F0C; aooueee
R[38]=0x0F08; aooueee
R[39]=0x0F08; aooueee
R[40]=0x0F0C; aooueee
R[41]=0x1F5F; ne?ieu
R[42]=0x1F5F; ne?ieu
R[43]=0x1F5F; ne?ieu
R[44]=0x1F5F; ne?ieu
R[45]=0x1F5D;  
R[46]=0x0E76; Bag
R[47]=0x09B0; Pounch
R[48]=0x09B0; Pounch  
R[49]=0x204E; ?iaa
R[50]=0x1515; eeiea
R[51]=0x1B76; ueo
R[52]=0x1414; ia??e
R[53]=0x1410; ?oee
R[54]=0x1C04; aini
R[55]=0x1411; iiae
R[56]=0x1413; ai?ei
R[57]=0x1412; oeai
R[58]=0x204E; ?iaa
R[59]=0x1515; eeiea
R[60]=0x1B76; ueo
R[61]=0x1414; ia??e
R[62]=0x1410; ?oee
R[63]=0x1C04; aini
R[64]=0x1411; iiae
R[65]=0x1413; ai?ei
R[66]=0x1412; oeai
R[67]=0x204E; ?iaa
R[68]=0x1515; eeiea
R[69]=0x1B76; ueo
R[70]=0x1414; ia??e
R[71]=0x1410; ?oee
R[72]=0x1C04; aini
R[73]=0x1411; iiae
R[74]=0x1413; ai?ei
R[75]=0x1412; oeai
R[76]=0x0E21; aeiou
R[77]=0x13BA; aeeeia
R[78]=0x1406; iaena
R[79]=0x13B1; eoe
R[80]=0x0F4F; a?aaeao
R[81]=0x13FC; oy?aeue a?a
R[82]=0x13FE; eaoaia
R[83]=0x143E; aeaaa
R[84]=0x1F14; ?oia
R[85]=0x0F4C; aaieiie oiii?
R[86]=0x1B78; oeo aa?aai
R[87]=0x1541; iiaycea
R[88]=0x0E21; aeiou
R[89]=0x13BA; aeeeia
R[90]=0x1406; iaena
R[91]=0x13B1; eoe
R[92]=0x0F4F; a?aaeao
R[93]=0x13FC; oy?aeue a?a
R[94]=0x13FE; eaoaia
R[95]=0x143E; aeaaa
R[96]=0x1F68; ?oia
R[97]=0x0F4C; aaieiie oiii?
R[98]=0x1B78; oeo aa?aai
R[99]=0x1541; iiaycea
R[100]=0x1F61; aeiou
R[101]=0x13BA; aeeeia
R[102]=0x1406; iaena
R[103]=0x13B1; eoe
R[104]=0x0F4F; a?aaeao
R[105]=0x13FC; oy?aeue a?a
R[106]=0x13FE; eaoaia
R[107]=0x143E; aeaaa
R[108]=0x1F14; ?oia
R[109]=0x0F4C; aaieiie oiii?
R[110]=0x1B78; oeo aa?aai
R[111]=0x1541; iiaycea
R[112]=0x1F65; aeiou (e?iaaaua)
R[113]=0x0E20; aeiou (e?iaaaua)
R[114]=0x1549; ianea
R[115]=0x1BC4; i?aa? ueo
R[116]=0x1BC3; oain ueo
R[117]=0x1BC4; i?aa? ueo
R[118]=0x1BC3; oain ueo
R[119]=0x1BC4; i?aa? ueo
R[120]=0x1BC3; oain ueo
R[121]=0x13BD; neiaa?
R[122]=0x108A; eieuoi
R[123]=0x108A; eieuoi
R[124]=0x108A; eieuoi
R[125]=0x1B7A; e?oaeue ueo
R[126]=0x1549; ianea
R[127]=0x13BD; neiaa?
R[128]=0x13BD; neiaa?
R[129]=0x1549; ianea
R[130]=0x1440; oi?onie?
R[131]=0x1440; oi?onie?
R[132]=0x1440; oi?onie?
R[133]=0x1415; ioci
R[134]=0x1415; ioci
R[135]=0x14EF; deed
R[136]=0x0F62; spear
R[137]=0x1537; ypka
R[138]=0x14EF; deed
R[139]=0x1537; d23eed
R[140]=0x1F58; Invisib
R[141]=0x1F52; deed2
R[142]=0x1F63; deed3
R[143]=0x1F5A; deed32
R[144]=0x1F59; deed32322
R[145]=0x1F5B; deed3222222222
R[146]=0x1F47; deed323111
R[147]=0x1F69; dee
R[148]=0x1F64; de1
R[149]=0x1F60; de2
R[150]=0x1F4A; de3
R[151]=0x13B9; de4
R[152]=0x0F43; d1
R[153]=0x0F39; d2
R[154]=0x140E; d3
R[155]=0x0F5C; d4
R[156]=0x1442; d5
R[157]=0x152E; deed5
R[158]=0x1F6C; d12
R[159]=0x0E85; d11
R[160]=0x0F51; d123
R[161]=0x09F1; d113211
R[162]=0x1F6A; d1132
R[163]=0x1F6A; d11sda
R[164]=0x1F46; daa
R[165]=0x1F4D; dasd
R[166]=0x1F5E; d113211
R[167]=0x1F57; d113211
R[168]=0x1F62; d113211
R[169]=0x1057; d113211
R[170]=0x0F11; d113211
R[171]=0x13E3; d113211
R[172]=0x0F13; d113211
R[173]=0x0F18; d113211
R[174]=0x0F16; d113211
R[175]=0x0F17; d113211
R[176]=0x0F14; d113211
R[177]=0x0F15; d113211
R[178]=0x0F11; d113211
R[179]=0x0F10; d113211




UO.Exec('addobject otkuda')
   while UO.Targeting()
      wait(100)
   wend  
   UO.UseObject('otkuda')
   UO.Exec('addobject kuda')
   while UO.Targeting()
      wait(100)
   wend      
   for a=1 to 179
      UO.FindType(R[a],'-1','otkuda')
      If UO.FindCount() > 0 then
         repeat
            UO.MoveItem('finditem', '0', 'kuda')
            wait(1000)
            UO.FindType(R[a],'-1','otkuda')
         until not UO.FindCount()
      else
         wait(100)
      endif
   next
end sub