Немного скриптов от меня! Скрипты не мои! Собирал с друзей и форумов! Все протестированы на ДРВ
sub healing()
; ??????? ???????:
VAR bandage = '0x0E21' ;чистые бандаги
VAR bloodbandages = '0x0E20' ;грязные бандаги
VAR washbasin = '0x1008' ;мойка для бинтиков
VAR kursa = '0x401B6A25' ; рубашка простая ширт так помойму
VAR eda = '0x103B' ; драконье жареное мясцо
; тут не че не не меняем )---------------------------
Var Strength
Strength=UO.Life
UO.Print("/----------------------------\")
UO.Print("| НАЧИНАЕМ КАЧАТЬ ХИЛИНГ
|")
UO.Print("\----------------------------/")
repeat
CheckLag()
uo.usetype(eda)
UO.Print("Одеваем курсу ...")
uo.useobject(kursa)
UO.UseSkill('Spirit')
repeat
wait(200)
if UO.InJournal("netherworld") then
UO.DeleteJournal()
UO.UseSkill('Spirit')
endif
until UO.Life+1<Strength
UO.Print("Снимаем курсу ...")
CheckLag()
uo.undress()
while UO.Life<Strength and UO.Count(bandage)>0
UO.Print("Лечимся ...")
CheckLag()
UO.waittargetself()
UO.usetype(bandage)
wait(5000)
WEnd
wait(500)
while UO.Count('0x0E20')>0
UO.Print("Моем бинтики ...")
UO.waittargettype(washbasin)
UO.usetype('0x0E20')
wait(1000)
WEnd
until UO.Count(bandage)==0 AND UO.Count(bloodbandages)==0
UO.Print("Бандажики кончились
")
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
НА сворд
sub battle()
var t
UO.DeleteJournal()
UO.Setarm('arm')
UO.AutoMenu('What','Polar')
while NOT UO.Dead()
if UO.Life<UO.Str then
repeat
UO.Bandageself()
wait(5000)
if UO.InJournal("No bandages found") then
uo.closeuo()
endif
until UO.Life==UO.Str
endif
UO.Arm('arm')
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
t=0
repeat
wait(500)
t=t+1
if t>15 then
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
t=0
endif
UO.findtype('0x00d5','0xffff','ground')
until uo.FindCount()==1
repeat
wait(1000)
UO.Attack('finditem')
UO.findtype('0x00d5','0xffff','ground')
until uo.FindCount()==0
wend
end sub
ФИШИНГ
var mybag = "mybag"
uo.print("Where I must keep the fish? Select bag!")
uo.addobject(mybag)
wait(7000)
var lasttimer
sub pickup(ftype)
# uo.print("type: "+str(ftype))
uo.findtype(ftype,"-1","ground")
if uo.findcount() > 0 then
uo.moveitem("finditem", "0",mybag)
endif
wait(500)
end sub
sub checktimer()
if (uo.timer() - lasttimer) <= 20 then
uo.print(str(uo.timer() - lasttimer))
uo.print("You are fishing too fast! Waiting 5 seconds.")
wait(5000)
endif
lasttimer = uo.timer()
end sub
sub main()
var mx, my, mz, i, j
var isfishing, ixx, isheavy
var item = "item",ftype,ispickup
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
uo.exec("set distance 1")
# uo.setcatchbag("uo.my")
while not uo.dead()
for i = mx-6 to mx+6
for j = my-6 to my+6
uo.deletejournal()
UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j))
isfishing = 1
while not uo.injournal("can't fish") and not uo.injournal("no fish here") and not UO.InJournal("far away") and not UO.InJournal("in water") and isfishing
checktimer()
UO.DeleteJournal()
UO.Waittargettile("6044", str(i), str(j), str(mz))
UO.Usetype('0x0DBF')
ixx = 0
while not uo.injournal("can't fish") and not UO.InJournal("You pull out") and not UO.InJournal("You fish a while, but fail to catch anything.") and not UO.InJournal("far away") and not UO.InJournal("in water") and not UO.InJournal("no fish") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
if UO.InJournal("You pull out") then
# fish
for ftype = 0x09CD to 0x09CF
pickup(ftype)
next
pickup(0x0DD6)
pickup(0x09CC)
# maps
pickup(0x14EB)
# rare fish
pickup(0x0DD6);
endif
wend
UO.DeleteJournal()
next
next
wend
# UO.recall('0x40023FBD','2')
uo.print("*** Script ended ***")
end sub
Тейлор
sub taylor()
VAR Cloth='0x175D',ShewKit='0x0F9D',Shmot='0x1541',Scis='0x0F9E',Spool='0x0FA0'
VAR Meshok='0x401779db'
VAR Count=200, Band='0x0E21'
While TRUE
UO.FindType(Spool,-1,Meshok)
UO.WaitTargetObject('finditem')
UO.Grab('64')
wait(2000)
UO.FindType(Cloth,-1,Meshok)
UO.WaitTargetObject('finditem')
UO.Grab(STR(Count))
wait(2000)
While UO.GetQuantity('finditem')>4
UO.WaitMenu('Cloth','Misc.','Misc.','body sash')
UO.WaitTargetObject('finditem')
UO.UseType(ShewKit)
CheckLag()
Repeat
wait(1000)
Until UO.InJournal("You put") OR UO.InJournal("failed")
wait(2000)
UO.FindType(Shmot,'0x0000','backpack')
UO.WaitTargetObject('finditem')
UO.UseType(Scis)
CheckLag()
wait(2000)
UO.FindType(Band,-1,'backpack')
UO.Drop('20',0,0,0,'finditem')
UO.FindType(Cloth,-1,'backpack')
wait(1000)
Wend
Wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('backpack')
end sub
Мининг (вокруг себя) + в конце есть скрит на разгрузку
sub main()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x40033BC8) # ID лопаты или, чем ты, там, копаешь
na4:
; gotoxy(5136,1181) #точка копки
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my-4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait(500)
endif
wend
UO.DeleteJournal()
if uo.Weight>740 then # максимальный вес
loot()
goto na4
endif
next
next
until uo.dead()
end sub
sub unloadore()
VAR TempX,TempY,i,Exit
VAR UnloadX=5518, UnloadY=1434
VAR UnloadCont='0x401d7b11' # Ид сундука
DIM Ore[5]
TempX=UO.GetX()
TempY=UO.GetY()
While UO.GetEasyUO(99)=='1'
wait(3000)
Wend
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont) ; storecontainer
wait(500)
For i=0 to 3
Exit=0
repeat
UO.FindType(Ore[i])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
Боукрафт (на делание факелов)
sub Oak()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Oak Items'")
UO.Exec ("automenu 'Oak Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Red()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Red Tree Items'")
UO.Exec ("automenu 'Red Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Dark()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Dark Tree Items'")
UO.Exec ("automenu 'Dark Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Swamp()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Swamp Items'")
UO.Exec ("automenu 'Swamp Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Silver()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Silver Leaf Items'")
UO.Exec ("automenu 'Silver Leaf Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Keranit()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Keranit Items'")
UO.Exec ("automenu 'Keranit Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Perit()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Perit Items'")
UO.Exec ("automenu 'Perit Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Petrified()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Petrified Items'")
UO.Exec ("automenu 'Petrified Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Dragon()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Dragon Tree Items'")
UO.Exec ("automenu 'Dragon Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Vampire()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Vampire Tree Items'")
UO.Exec ("automenu 'Vampire Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Eridan()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Eridan Items'")
UO.Exec ("automenu 'Eridan Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Hellios()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Hellios Items'")
UO.Exec ("automenu 'Hellios Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Illusions()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Illusions Tree Items'")
UO.Exec ("automenu 'Illusions Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Crystal()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Crystal Items'")
UO.Exec ("automenu 'Crystal Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
sub Dead()
UO.Exec ("cancelmenu")
UO.Exec ("automenu 'What do you want to carve the wood into?' 'Dead Tree Items'")
UO.Exec ("automenu 'Dead Tree Items' 'torch'")
while uo.count('0x1BDD') > 1
UO.Exec ("waittargettype 0x1BDD")
UO.Exec ("usetype 0x0F51")
wait(5000)
Wend
end sub
Таминг
sub taming()
VAR Creature='0x00058786' ; #Ид животного
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject(Creature)
UO.UseType('0x13F8')
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
UO.Say('All release')
Endif
wend
Магия + Медитация
sub magery()
VAR LastTimer
while NOT UO.Dead()
UO.DeleteJournal()
CheckLag()
while UO.Mana>=10
UO.Cast('Poison','self')
wait(3000)
wend
while UO.Mana<UO.Int
LastTimer=UO.Timer()
UO.UseSkill('Meditation')
repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200
UO.DeleteJournal()
wait(2000)
wend
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub
Крафт бутылок( берет инги крафтит, кладет изделие берет снова инги)
sub makebottle()
VAR c,Cont='0x400232b7'
while NOT UO.Dead()
UO.FindType('0x1BEF','0x0000','backpack')
if UO.GetQuantity('finditem')<=10 then
UO.FindType('0x0F0E','0x0000','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer(Cont)
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x1BEF','0x0000',Cont)
wait(1000)
UO.Grab('1000','finditem')
wait(1000)
endif
CheckLag()
UO.Exec("waitmenu 'Tinkering' 'Tools' 'Tools' 'empty bottle'")
UO.UseType('0x1EBC') ; tinker tools
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed")
wait(300)
wend
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub