Хелп мининг
Moderators: Murderator+, Murderator
Хелп мининг
Дайте скрипт на переплавку руды по 1-ой штуке из бекпака плз
Code: Select all
sub Smelt()
VAR Ruda1 = '0x19B9' ; Тип руды
VAR Ruda2 = '0x19B8' ; Тип руды - 3 шт.
VAR Ruda3 = '0x19BA' ; Тип руды - 2 шт.
VAR Ruda4 = '0x19B7' ; Тип руды - 1 шт.
VAR Ing1 = '0x1BEF' ; Тип ингов металлов
VAR Ing2 = '0x1BF2' ; Тип ингов строймата
VAR MaxVes = 500 ; Максимальный вес пака
repeat
UO.Findtype( Ruda1, -1, 1 ) ; Ищем руду на земле
If UO.Findcount() == 0 Then
UO.Findtype( Ruda2, -1, 1 )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda3, -1, 1 )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda4, -1, 1 )
If UO.Findcount() == 0 Then
UO.Print( "No more ore for smelt..." )
Return
Endif
Endif
Endif
Endif
UO.Exec( "moveitem finditem 1" ) ; Тащим 1 в пак
Wait( 1000 )
UO.Useobject( 'finditem' ) ; переплавляем
Wait( 1000 )
If UO.Weight > MaxVes Then
; Максимальный вес пака превышен - разгружаемся
UO.Findtype( Ing1, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 1000 )
Endif
UO.Findtype( Ing2, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 1000 )
Endif
Endif
until NOT Uo.CountGround( Ruda1 ) AND NOT UO.CountGround( Ruda2 ) AND NOT UO.CountGround( Ruda3 ) AND NOT UO.CountGround( Ruda4 )
UO.Print( "No more ore for smelt..." )
endsub
Помогите со скриптом.. вообщем когда запускаешь в УО мне пишет:
Usage: useobject
object/lastobject/lasttarger/lastcontainer
Хелп плиз))
Usage: useobject
object/lastobject/lasttarger/lastcontainer
Хелп плиз))
Code: Select all
sub MiningAround2()
; MiningAround2() - вскапываем вокруг чара без АСМа
;
VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag
VAR MaxTime = 600 ; измеряется в 1/10 сек.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
VAR ms8 = "is destroyed*" ; кирка развалилась совсем
VAR ms9 = "ore at your feet." ; предположительно - элементаль
VAR ms10 = "There is nothing here to mine for."
VAR i, strpoint
VAR MaxVes = 600
VAR Kirka = '0x0E85' ; Тип Кирки
cx = UO.GetX()
cy = UO.GetY()
for tmpx = -2 to 2
for tmpy = -2 to 2
k = 0
pointX = cx + tmpx
pointY = cy + tmpy
repeat
DeleteJournal( ms1 )
DeleteJournal( ms2 )
DeleteJournal( ms3 )
DeleteJournal( ms4 )
DeleteJournal( ms5 )
DeleteJournal( ms6 )
DeleteJournal( ms7 )
DeleteJournal( ms8 )
DeleteJournal( ms9 )
t = UO.Timer() + MaxTime
k = k + 1
flag = 1
wait(300)
If UO.Waiting() Then
UO.CancelTarget()
Endif
UO.WaitTargetTile( 'all', str(pointX), str(PointY), '0' )
UO.UseObject(UO.ObjAtLayer('Lhand'))
repeat
wait(100)
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 UO.InJournal(ms8) OR UO.InJournal(ms9)OR UO.InJournal(ms10) OR (t < UO.Timer())
Endif
If UO.InJournal( ms9 ) Then
; вывалился элементаль...
return
Endif
If UO.Weight > MaxVes Then
; Вес превышен!
return
Endif
If UO.InJournal( ms8 ) Then
; кирка накрылась!
return
Endif
until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
next
next
endsub
;
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, ' ' )
DeleteJournal( string1 )
Endif
endsub
;
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(50)
until UO.InJournal( 'backpack' )
return
endsub Помогите со скриптом.. вообщем когда запускаешь в УО мне пишет:
Usage: useobject
object/lastobject/lasttarger/lastcontainer
Хелп плиз))
Usage: useobject
object/lastobject/lasttarger/lastcontainer
Хелп плиз))
Code: Select all
sub MiningAround2()
; MiningAround2() - вскапываем вокруг чара без АСМа
;
VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY, flag
VAR MaxTime = 600 ; измеряется в 1/10 сек.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
VAR ms8 = "is destroyed*" ; кирка развалилась совсем
VAR ms9 = "ore at your feet." ; предположительно - элементаль
VAR ms10 = "There is nothing here to mine for."
VAR i, strpoint
VAR MaxVes = 600
VAR Kirka = '0x0E85' ; Тип Кирки
cx = UO.GetX()
cy = UO.GetY()
for tmpx = -2 to 2
for tmpy = -2 to 2
k = 0
pointX = cx + tmpx
pointY = cy + tmpy
repeat
DeleteJournal( ms1 )
DeleteJournal( ms2 )
DeleteJournal( ms3 )
DeleteJournal( ms4 )
DeleteJournal( ms5 )
DeleteJournal( ms6 )
DeleteJournal( ms7 )
DeleteJournal( ms8 )
DeleteJournal( ms9 )
t = UO.Timer() + MaxTime
k = k + 1
flag = 1
wait(300)
If UO.Waiting() Then
UO.CancelTarget()
Endif
UO.WaitTargetTile( 'all', str(pointX), str(PointY), '0' )
UO.UseObject(UO.ObjAtLayer('Lhand'))
repeat
wait(100)
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 UO.InJournal(ms8) OR UO.InJournal(ms9)OR UO.InJournal(ms10) OR (t < UO.Timer())
Endif
If UO.InJournal( ms9 ) Then
; вывалился элементаль...
return
Endif
If UO.Weight > MaxVes Then
; Вес превышен!
return
Endif
If UO.InJournal( ms8 ) Then
; кирка накрылась!
return
Endif
until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
next
next
endsub
;
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, ' ' )
DeleteJournal( string1 )
Endif
endsub
;
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(50)
until UO.InJournal( 'backpack' )
return
endsub Лови на обкобку... токо тама где два цикла For поставь свои цифры..
у меня на шарде токо квадрат 4 на 4 обкапывается, так что цифры
от -2 до 2.. как у тебя не знаю
у меня на шарде токо квадрат 4 на 4 обкапывается, так что цифры
от -2 до 2.. как у тебя не знаю
Code: Select all
#########################################################################
sub maining()
var mx, my, mz, i, j
UO.print('Выберите рунку')
uo.exec('addobject rune')
while uo.targeting()
wait(100)
wend
start:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx-2 to mx+2
for j = my-2 to my+2
hidding()
UO.Print("Копаем в координатах: "+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") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.findman( -1 )
if uo.findcount() then
recal()
uo.exec('terminate mining')
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
uo.usetype('0x0E85')
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 (1000)
if uo.weight>600 then
recal()
endif
uo.findman( -1 )
if uo.findcount() then
recal()
uo.exec('terminate all')
endif
wend
wend
UO.DeleteJournal()
next
next
hidding()
uo.print("Вы закончили обкобку, передите на другое место и напишите: го")
while not uo.dead()
if uo.injournal("го") then
goto start
endif
uo.findman( -1 )
if uo.findcount() then
recal()
uo.exec('terminate all')
endif
wend
end sub
###########################################################################
sub hidding()
while not uo.Hidden()
uo.WarMode("0")
uo.print('Прячемся')
uo.UseSkill("Hiding")
wait(3500)
wend
end sub
###########################################################################
sub recal()
if uo.waiting() then
uo.canceltarget()
endif
uo.print ("Сьбываемся")
uo.waittargetobject('rune')
uo.cast('Recall')
wait(3500)
uo.exec('terminate all')
end sub
end sub