2Зёма:
Если хаммер - то значит макрос,
а если макрос то проoе хелиться в данном случае на пилоте, либо uo loop
Макрос на фишинг(fishing), с проверкой полома удочек,проверкой СВ.Если нет удочки окно с уо закрываеться,
дабы чара не кильнули и он не умер от голода.
Режет обувку на кожу,все остальное кроме БП и магик фиш выкидывает себе под ноги.
В сумку кладем ножницы,несколько удочек и жаренную рыбу.
Запускаем скрипт и идем спать.
!!!-> Чара ставить так чтоб вода была сверху и слева.Скрипт рабочий.проверено от 14.10.2006
sub main()
uo.exec("disarm")
var xs,ys,y,x,tile
while not uo.dead()
if UO.Count("0x0DBF")== 0 then
uo.say("Удочки нету! Нахаляву не работаю")
uo.say(",closeuo")
end if
xs=Uo.GetX()
ys=Uo.GetY()
for x=xs-5 to xs+5
for y=ys-5 to ys+5
uo.deletejournal()
Tile= GetTileWater(x, y)
if Tile then
while not uo.injournal("any fish|fish there|complete")
uo.deletejournal()
wait(100)
havka()
SW()
Boots()
uo.WaitTargetTile(Tile, x, y, 0)
uo.usetype('0x0DBF')
nolomka()
SW()
dropp()
while not uo.injournal("That is too far away|The skies|fish there|biting|You catch|any fish|location|walrus comes by to|You find|complete")
wend
wend
end if
next
next
wend
UO.Print()
end sub
sub GetTileWater(x, y)
for var i=6039 to 6045
if uo.privategettile(x, y, -1, i, i) then
return i
end if
next
Return 0
end sub
sub havka()
if UO.Count("0x097B")>0 then
UO.usetype ("0x097B")
Wait(1000)
else
UO.Print("Еда закончилась……помру-)")
end if
end sub
sub SW()
if UO.InJournal("Saving World State|Saving Game State Now") then
repeat
wait(200)
until uo.injournal("Saving World State complete|Done saving")
end if
uo.Click('backpack')
repeat
wait(200)
until uo.InJournal("Backpack")
wait(1000)
end sub
sub Boots()
DIM Boot[8]
;режет обувку на кожу
Boot[0] = 0x170A
Boot[1] = 0x170B
Boot[2] = 0x170C
Boot[3] = 0x170D
Boot[4] = 0x170E
Boot[5] = 0x170F
Boot[6] = 0x1710
Boot[7] = 0x1711
VAR i
For i = 0 To 7
UO.FindType( Boot[i], '-1', 'backpack')
if UO.FindCount() > 0 Then
UO.WaitTargetobject( 'finditem' )
UO.UseType(0x0F9E) #ножницы
repeat
wait(100)
until uo.injournal("You could")
End if
next
end sub
sub dropp()
DIM mycop[6]
;выкидывает выловленный мусор себе подноги
mycop[0] = 0x09CD #рыба
mycop[1] = 0x09CE #рыба
mycop[2] = 0x09CC #рыба
mycop[3] = 0x099F #sos бутылка
mycop[4] = 0x0DC8 #сеть
mycop[5] = 0x14ED #карта сокровищ
VAR i
For i = 0 To 5
UO.FindType( mycop[i], '-1', 'backpack')
if UO.FindCount() > 0 Then
UO.WaitTargetobject( 'finditem' )
UO.drop()
wait(2000)
End if
next
end sub
sub nolomka()
wait(2000)
if uo.injournal("have to equip that to go") then
main()
end if
end sub
Тракинг (tracking)
Хавает опять же жаренныю рыбу
sub main()
WHILE not uo.dead()
havka()
SW()
UO.Exec("useskill Tracking")
uo.deletejournal()
repeat
until uo.injournal("Points")
wait(1000)
If uo.injournal("fail") then
SW()
wait(10000)
SW()
wend
else
UO.RClick(275,46)
wait(10000)
end if
wend
end sub
sub SW()
if UO.InJournal("Saving World State|Saving Game State Now") then
repeat
wait(200)
until uo.injournal("Saving World State complete")
end if
uo.Click('backpack')
repeat
wait(200)
until uo.InJournal("Backpack")
wait(1000)
end sub
sub havka()
if UO.Count("0x097B")>0 then #жаренная рыбка -)
UO.usetype ("0x097B")
Wait(700)
else
UO.Print("Еда закончилась……помру-)")
end if
end sub
скрипт рабочий, если нет то мешает кривизна рук
Fast recall без регов
sub tel()
UO.Exec("disarm")
UO.Exec("usetype '0x0EFA'")
Wait(100)
UO.LClick(65,81) #координата руны в буке(определяеться в окне редактирование скрипта в инже-кнопкой сверху)
wait(100)
UO.LClick(65,81)
UO.Say("In Vas Por")
UO.Say("Wis Qas")
end sub
Шитье (Tailoring)
full power не ексепт
Скрипт рабочий,правда траблит когда крафтит ексепт шапку и выскакивает прицел на камень.
В сумку класть набор для шитья и повер кожу, и рыбу на хавку.
sub main()
sv()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Tunic'")
UO.Exec("waittargettype 0x1078") #power кожа
UO.Exec("useobject '^0x0F9D'") #набор для шитья
all()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Leggings'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Sleeves'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Gloves' ")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Gorget'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.Exec("waitmenu 'Choose' 'leather' 'What' 'Cap'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
craftum()
wait(1000)
uo.canceltarget()
wait(1000)
uo.canceltarget()
UO.Exec("waitmenu 'Choose' 'female' 'What' 'Bustier'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.Exec("waitmenu 'Choose' 'female' 'What' 'Leather Skirt'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.Exec("waitmenu 'Choose' 'shoes' 'What' 'Sandals'")
UO.Exec("waittargettype 0x1078")
UO.Exec("useobject '^0x0F9D'")
all()
UO.print('full комплект сшил, начинаю снова')
main()
endif
end sub
sub Info()
uo.Print('Осталось ' + str(uo.Count('0x1078')) + ' кожи в сумке')
end sub
sub havka()
if UO.Count("0x097B")>0 then
UO.usetype ("0x097B")
Wait(700)
else
UO.Print("Еда закончилась……помру-)")
end if
end sub
sub craftum()
uo.deletejournal()
repeat
wait(1000)
until uo.injournal("You")
end if
end sub
sub sv()
if uo.injournal("Saving World State") then
uo.deletejournal()
repeat
wait(5000)
until uo.injournal("Saving World State complete")
UO.Print("Сохранение кончилось продолжаю скрипт")
end if
end sub
sub all()
craftum()
havka()
Info()
sv()
end sub