##Injection - AutoLoot
sub loot()
repeat
UO.FindType("0x0EED","-1","lastcorpse") #Gold
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then
UO.Grab("0","finditem")
wait(500)
end if
UO.FindType("0x26B4","-1","lastcorpse") #Scales
UO.FindType("0x0E34","-1","lastcorpse") #MMF
UO.FindType("0x2258","-1","lastcorpse") #EYM
UO.FindType("0x283B","-1","lastcorpse") #ZIP
UO.FindType("0x0E34","-1","lastcorpse") #MMF
UO.FindType("0x0F0E","-1","lastcorpse") #WUF
UO.FindType("0x2258","-1","lastcorpse") #EYM
UO.FindType("0x2F5A","-1","lastcorpse") #GWR
UO.FindType("0x1410","-1","lastcorpse") #MSH
UO.FindType("0x1B76","-1","lastcorpse") #CIK
UO.FindType("0x1415","-1","lastcorpse") #HSH
UO.FindType("0x1413","-1","lastcorpse") #NSH
UO.FindType("0x1412","-1","lastcorpse") #OSH
UO.FindType("0x1414","-1","lastcorpse") #ISH
UO.FindType("0x1411","-1","lastcorpse") #LSH
UO.FindType("0x14ED","-1","lastcorpse") #RVH
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then
UO.Grab("0","finditem")
wait(500)
end if
UO.FindType("0x1C06","-1","lastcorpse") #Female Leather Armor
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then
UO.Grab("0","finditem")
wait(500)
end if
until false
end sub
##Injection - Heading-Stels
sub main()
while not UO.Dead()
while not UO.Hidden()
UO.Useskill("Hiding")
wait(3200)
wend
UO.Press(37,2,300)
wait(500)
UO.Press(39,2,300)
wait(500)
wend
end sub
##Injection - Tracking
sub main()
While not UO.Dead()
UO.UseSkill("Tracking");
wait(100);
UO.exec("waitmenu 'Tracking' 'Monsters'");
wait(200);
UO.exec("waitmenu 'Tracking' 'Monsters'");
wait(200);
UO.exec("waitmenu 'Tracking' 'Monsters'");
wait(200);
wend
end sub
0.05.2020
Добавить закладку
#1
##Injection - EvalutIntel
sub main()
While not UO.Dead()
UO.Exec("useskill 'Evaluating Intelligence' self");
wait(1800);
wend
end sub
##Injection - Armslore
sub main()
var count=0
uo.print('totem')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
uo.waittargetobject('TOT')
UO.Useskill('Arms Lore')
wait(1000)
until UO.Dead()
end sub
##Injection - Lumberjacking
sub hatch()
var printcolour = '1069'
var knopka = 67 ; укажи кнопку, на которую у тебя забит в опциях уо LastObject
UO.DeleteJournal()
UO.FindType('0x0f43','-1','backpack')
if UO.FindCount() > 0 then
uo.Usetype('0x0f43')
while uo.targeting()
wait(100)
wend
repeat
wait(300)
until uo.injournal('og') or uo.injournal('There is nothing') or uo.injournal('have no line') or uo.injournal('fail') or uo.injournal('see the target')
repeat
UO.DeleteJournal()
uo.Usetype('0x0f43')
uo.press(knopka)
repeat
wait(300)
until uo.injournal('og') or uo.injournal('There is nothing') or uo.injournal('have no line') or uo.injournal('fail') or uo.injournal('see the target')
until uo.injournal('There is nothing') or uo.injournal('have no line')
uo.charprint(printcolour, 'Готово!' )
else
uo.charprint(printcolour, 'Положи в пак 2 (!!!) топора' )
endif
end sub
30.05.2020
Добавить закладку
#1
##Injection - Fishing
var TryToHide=0 ## 1 - Включить хаид перед рыбалкои , 0 - Отключить.
var TakeFish=0 ## 1 - Собирать рыбку, 0 - Не нужна она нам.
var Chest="backpack" #Куда кладём рыбку?
sub main()
var mX=0, mY=0, mZ=0, i, j, r=0
mX=uo.getX("self")
mY=uo.getY("self")
mZ=uo.getZ("self")
uo.print('Olmer auto fishing 5x5 bot v.1.0')
uo.setreceivingcontainer(Chest)
for i = mX-5 to mX+5
for j = mY-5 to mY+5
if TryToHide==1 then
ToHide()
endif
uo.Print("Сейчас ловим: "+str(mx-i)+" "+str(my-j))
repeat
if uo.Dead() then
return
endif
uo.DeleteJournal()
uo.Waittargettile("0",str(i),str(j),'-5')
UsePole()
r=Wait4Result()
until r
next
next
GetFish()
uo.unsetreceivingcontainer(Chest)
end sub
Sub Wait4Result()
var allmsg='лишком далеко|лишком близко|ы что-то выловили|опробуйте порыбачить в другом месте|десь нет рыбы|ы не можете ловить рыбу здесь|ry fishing elsewher|here are no fish here|fish from where you are standing|ry fishing in water|ou cannot fish so close to yourself|ou have no line of sight to that location|hat is too far away|ou are too far away|ou pull out a|ou can not fish here|ou fish a while, but fail to catch anythin|ou are too close'
var finmsg='ы что-то выловили|ou pull out a|put the'
var i
for i=0 to 50
if uo.injournal(allmsg) then
if uo.injournal('е клюёт') or uo.injournal(finmsg) then
return 0
endif
return 1
endif
wait(1000)
next
return 0
end sub
Sub GetFish()
dim Fish[7]
Fish[0]='0x09CC'
Fish[1]='0x09CD'
Fish[2]='0x09CE'
Fish[3]='0x09CF'
Fish[4]='0x14EB'
Fish[5]='0x0DD6'
Fish[6]='0x0DD6'
var f
if TakeFish==1 then
uo.Print('Собираем рыбу.')
for f=0 to 6
uo.FindType(Fish[f],"-1","ground")
if uo.findcount() then
repeat
uo.grab('0',"finditem")
wait(500)
uo.FindType(Fish[f],"-1","ground")
until not uo.findcount()
endif
next
endif
end sub
Sub UsePole()
dim t[2]
t[0]='0x0DBF'
t[1]='0x0DC0'
var i,obj=''
obj=uo.objatlayer('Lhand')
if obj<>'' then
for i=0 to 1
if uo.getgraphic(obj)==t then
uo.useobject(obj)
return
endif
next
uo.moveitem(obj)
wait(100)
endif
for i=0 to 1
if uo.count(t) then
uo.usetype(t)
return
endif
next
uo.print('Нет удочки.')
end sub
sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4500)
wend
end sub
##Injection - Taming
sub Taming()
if uo.getglobal("Taming") == "On" then
uo.setglobal("Taming", "Off")
else
uo.setglobal("Taming", "On")
end if
if uo.getglobal("Taming") == "On" then
uo.deletejournal()
uo.warmode(0)
uo.print('Select Animal')
uo.addobject('animal')
while uo.targeting()
wait(100)
wend
else
return 0
end if
taming:
uo.warmode(0)
uo.useskill('Animal Taming')
uo.waittargetobject('animal')
while not uo.injournal("It seems to accept you as master|remembers you and accepts you|is already tame")
if uo.injournal('You fail to tame the creature.|You are too far away.|You can not see|You give up trying to tame the creature.') or uo.injournal("You can't see the target") then
uo.deletejournal()
goto taming
else if uo.getglobal("Taming") == "Off" then
return 0
end if
wait(1000)
wend
uo.setglobal("Taming", "Off")
end sub
##Injection - Mining
sub minround()
VAR Kirka = '0x0E85' ;Тип того чем будем копать
VAR MaxVes = 800 ; максимальнай вес минус 10-15 стоуов
VAR TileNum = '-1' ; Номер тайла
VAR x, y, t, k
VAR MaxTime = 100
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
endsub
##Injection - AutoHeal - bandage
sub main()
while not UO.Dead()
while UO.Life == UO.STR
wait (2000)
wend
while UO.Life < UO.STR
UO.Exec("bandageself")
wait (4200)
wend
wend
end sub
sub Animal_Taming()
while not uo.Dead()
uo.useskill('Animal Taming')
uo.waittargetobject('0x00003320') ;Вписываем ИД животного
wait(16000)
uo.say('All release')
wait(400)
wend
endsub
##Injection - Magery
sub main()
repeat
if UO.Life<(UO.Str*0.80) then
UO.bandageself()
wait(4000)
endif
If UO.mana>=5 Then
UO.Exec("cast 'Magic Arrow' self")
wait(2100)
Else
while uo.mana<(UO.INT)
UO.useskill('Meditation')
wait(10000)
wend
EndIf
until false
end sub