|
|
|
Mining
| |
| MaG1StR_Yoda | Дата: Пятница, 26.06.2020, 20:08 | Сообщение # 1 |
 Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| ##macroc by Ignore
#Запускаем макрос возле банка
var cont='0x43EE76FF' #айди сумки, в банке, куда ложить руду
var rune='0x43EE7110' #айди рунбука(в рунбуке 2 руны,1ая в пещеру, 2ая в банк)
Var Pickaxe=0x0E85 # Pichaxe
Var Ore=0x19B9
Var Ingot=0x1BF2
Var Iron=0x0000
var Text1= 'far away'
var Text2= 'no ore here'
var Text4= 'see it'
sub mine()
var x, y
recall()
wait(1000)
while 1<2
for x=-2 to 2
for y=-2 to 2
weight()
uo.deleteJournal()
UO.WaitTargetTile("1341" ,STR(uo.getx()+x), STR(uo.gety()-y), 0)
uo.usetype(0x0E85)
repeat
Wait(1000)
if UO.InJournal ('Cancelled') or UO.Dead() then
UO.Say ('.macro off')
UO.Warmode(true)
endif
#Until UO.Journal(0)==Text1 or UO.Journal(0)==Text2 or UO.Journal(0)==Text3 or UO.Journal(0)==Text4
Until UO.InJournal('far away') or UO.InJournal('no ore here') or UO.InJournal('dead') or UO.InJournal('see it')or UO.InJournal('Сохранение Игрового Мира завершено.')or UO.InJournal('Вы уже делаете')or UO.InJournal('place to mine')or UO.InJournal('already doing')
wait(4000)
next
next
uo.press()
uo.press()
uo.press()
uo.press()
wend
end sub
sub weight()
var wei
wei = ( UO.Str * 4 ) - 50
if UO.Weight > wei then
recallhome()
wait(500)
exist()
wait(500)
regi()
wait(1000)
recall()
wait(1000)
end if
end sub
sub NoTarget()
if UO.Waiting() then
UO.CancelTarget()
endif
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
endsub
sub recall()
var oldX=UO.GetX()
var oldY=UO.GetY()
repeat
NoTarget()
regi()
if uo.mana < 12 then
repeat
uo.UseSkill('Meditation')
wait(5100)
until uo.mana > 12
end if
UO.UseObject(rune)
CheckLag()
UO.LClick(341,15)
wait(1500)
UO.LClick(83,168)
wait(4000)
CheckLag()
until oldX<>UO.GetX() OR oldY<>UO.GetY()
regi()
end sub
sub recallhome()
var oldX=UO.GetX()
var oldY=UO.GetY()
repeat
NoTarget()
if uo.mana < 12 then
repeat
uo.UseSkill('Meditation')
wait(5100)
until uo.mana > 12
end if
UO.UseObject(rune)
CheckLag()
UO.LClick(341,15)
wait(1500)
UO.LClick(252,174)
wait(4000)
CheckLag()
until oldX<>UO.GetX() OR oldY<>UO.GetY()
UO.say ('bank')
end sub
sub Exist()
uo.useobject(Cont)
wait(1000)
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
DIM Ore[5]
Ore[0]=0x19B9 #ores
Ore[1]=0x14ED #mapes
Ore[2]=0x1BF2 #ingots
Ore[3]=0x1BEC #gold
Ore[4]=0x0F25 #ambers
UO.SetReceivingContainer(Cont)
wait(500)
For a=0 to 4
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1000)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub regi()
UO.FindType(0x0F7B,'-1','backpack')
if UO.GetQuantity('finditem') < 3 then
UO.FindType('0x0F7B', '-1', cont)
if UO.GetQuantity('finditem') > 0 then
UO.grab('10' ,'finditem')
else
wait(500)
uo.print('нет регов')
uo.say(',terminate all')
end if
CheckLag()
Wait(700)
end if
UO.FindType(0x0F86,'-1','backpack')
if UO.GetQuantity('finditem') < 3 then
UO.FindType('0x0F86', '-1', cont)
if UO.GetQuantity('finditem') > 0 then
UO.grab('10' ,'finditem')
else
wait(500)
uo.print('нет регов')
uo.say(',terminate all')
end if
CheckLag()
Wait(700)
end if
UO.FindType(0x0F7A,'-1','backpack')
if UO.GetQuantity('finditem') < 3 then
UO.FindType('0x0F7A', '-1', cont)
if UO.GetQuantity('finditem') > 0 then
UO.grab('10' ,'finditem')
end if
CheckLag()
Wait(700)
end if
end sub
sub Kirka()
While uo.Dead() == 0
UO.usetype(0x0E85)
Wait(5000)
UO.Say('all guard')
UO.waittargetself()
Wait(5000)
Wend
End sub
sub rudaperekidivanie()
While uo.Dead() == 0
var Sunduk = '0x57B8F15F' # Сериал сундука
var Scroll = '0x19B9' # тотл
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '1', 'finditem' )
UO.FindType(0x19B9, -1, -1 )
UO.MoveItem( 'finditem', 0, 0x57B8F15F ) # Сериал сундука кега
wait(100)
UO.usetype(0x19B9)
wait(1000)
Wend
End sub
sub atakkriak()
repeat
While uo.life < uo.str
uo.playwav('ringout.wav')
Wait(250)
uo.playwav('ringout.wav')
Wait(250)
uo.playwav('ringout.wav')
Wait(250)
uo.playwav('ringout.wav')
Wait(250)
UO.Print( "Zaebalo , script terminated" )
Wait(10000)
wend
until UO.Dead()
end sub
sub guard()
var f,g
f=0
g=0
UO.Exec('terminate mine')
UO.Say ('.macro off')
wait(10000)
UO.Warmode(1)
UO.Arm('1')
wait(200)
UO.Set( 'finddistance' , '5' )
UO.FindType('0x000E',-1,1)
if UO.FindCount() then
repeat
UO.Attack('finditem')
wait(1500)
f=f+1
until UO.InJournal ('corpse') or UO.Dead() or f>=60
endif
UO.FindType('0x0033',-1,1)
if UO.FindCount() then
repeat
UO.Attack('finditem')
wait(1500)
g=g+1
until UO.InJournal ('corpse') or UO.Dead() or g>=60
endif
wait(2000)
UO.DisArm()
UO.Exec('exec mine')
end sub
|
| |
| |
| MaG1StR_Yoda | Дата: Пятница, 26.06.2020, 20:31 | Сообщение # 2 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| Вариант просто вокруг себя
-----------------------------------
Var Pickaxe=0x0F39 # Pichaxe
Var Ore=0x19B9
Var Ingot=0x1BF2
Var Iron=0x0000
var Text1= 'far away'
var Text2= 'no ore here'
var Text4= 'see it'
sub mine()
var x, y
wait(1000)
while 1<2
for x=-2 to 2
for y=-2 to 2
uo.deleteJournal()
UO.WaitTargetTile("1341" ,STR(uo.getx()+x), STR(uo.gety()-y), 0)
uo.usetype(0x0F39)
repeat
Wait(1000)
#Until UO.Journal(0)==Text1 or UO.Journal(0)==Text2 or UO.Journal(0)==Text3 or UO.Journal(0)==Text4
Until UO.InJournal('far away') or UO.InJournal('no ore here') or UO.InJournal('dead') or UO.InJournal('see it')or UO.InJournal('Nio?aiaiea Ea?iaiai Ie?a caaa?oaii.')or UO.InJournal('Au o?a aaeaaoa')or UO.InJournal('place to mine')or UO.InJournal('already doing')
wait(4000)
next
next
uo.press()
uo.press()
uo.press()
uo.press()
wend
end sub
|
| |
| |
| Гость | Дата: Воскресенье, 02.08.2020, 13:50 | Сообщение # 3 |
|
Группа: Гости
| ##macroc by Ignore
#Запускаем макрос возле банка
var cont='0x41EDCAF0' #айди сумки, в банке, куда ложить руду
Var Pickaxe=0x0E85 # Pichaxe
Var Ore=0x19B9
Var Ingot=0x1BF2
Var Iron=0x0000
var Text1= 'far away'
var Text2= 'no ore here'
var Text4= 'see it'
var x, y
sub mine()
Uo.exec("set norbcheck 1")
uo.exec("set norbcalc 1")
uo.print('Viberi Runebook')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
recall()
wait(1000)
while 1<2
for x=-2 to 2
for y=-2 to 2
weight()
uo.deleteJournal()
UO.WaitTargetTile("1341" ,STR(uo.getx()+x), STR(uo.gety()-y), 0)
uo.usetype(0x0E85)
repeat
Wait(1000)
if UO.InJournal ('Cancelled') or UO.Dead() then
UO.Say ('.macro off')
UO.Warmode(true)
endif
#Until UO.Journal(0)==Text1 or UO.Journal(0)==Text2 or UO.Journal(0)==Text3 or UO.Journal(0)==Text4
Until UO.InJournal('far away') or UO.InJournal('no ore here') or UO.InJournal('dead') or UO.InJournal('see it')or UO.InJournal('Сохранение Игрового Мира завершено.')or UO.InJournal('Вы уже делаете')or UO.InJournal('place to mine')or UO.InJournal('already doing')
wait(4000)
next
next
uo.press()
uo.press()
uo.press()
uo.press()
wend
end sub
sub weight()
var wei
wei = ( UO.Str * 4 ) - 50
if UO.Weight > wei then
recallhome()
wait(500)
exist()
wait(500)
regi()
wait(1000)
recall()
wait(1000)
end if
end sub
sub NoTarget()
if UO.Waiting() then
UO.CancelTarget()
endif
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
endsub
sub recall()
var oldX=UO.GetX()
var oldY=UO.GetY()
repeat
NoTarget()
regi()
if uo.mana < 12 then
repeat
uo.UseSkill('Meditation')
wait(5100)
until uo.mana > 12
end if
uo.exec("recall Runebook 2") #0x4410ED52
wait(4000)
CheckLag()
until oldX<>UO.GetX() OR oldY<>UO.GetY()
regi()
end sub
sub recallhome()
var oldX=UO.GetX()
var oldY=UO.GetY()
repeat
NoTarget()
if uo.mana < 12 then
repeat
uo.UseSkill('Meditation')
wait(5100)
until uo.mana > 12
end if
uo.exec("recall Runebook 4") #0x4410ED52
wait(4000)
CheckLag()
until oldX<>UO.GetX() OR oldY<>UO.GetY()
UO.say ('bank')
end sub
sub Exist()
uo.useobject(Cont)
wait(1000)
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
DIM Ore[5]
Ore[0]=0x19B9 #ores
Ore[1]=0x14ED #mapes
Ore[2]=0x1BF2 #ingots
Ore[3]=0x1BEC #gold
Ore[4]=0x0F25 #ambers
UO.SetReceivingContainer(Cont)
wait(500)
For a=0 to 4
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1000)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub regi()
UO.FindType(0x0F7B,'-1','backpack')
if UO.GetQuantity('finditem') < 3 then
UO.FindType('0x0F7B', '-1', cont)
if UO.GetQuantity('finditem') > 0 then
UO.grab('10' ,'finditem')
else
wait(500)
uo.print('нет регов')
uo.say(',terminate all')
end if
CheckLag()
Wait(700)
end if
UO.FindType(0x0F86,'-1','backpack')
if UO.GetQuantity('finditem') < 3 then
UO.FindType('0x0F86', '-1', cont)
if UO.GetQuantity('finditem') > 0 then
UO.grab('10' ,'finditem')
else
wait(500)
uo.print('нет регов')
uo.say(',terminate all')
end if
CheckLag()
Wait(700)
end if
UO.FindType(0x0F7A,'-1','backpack')
if UO.GetQuantity('finditem') < 3 then
UO.FindType('0x0F7A', '-1', cont)
if UO.GetQuantity('finditem') > 0 then
UO.grab('10' ,'finditem')
end if
CheckLag()
Wait(700)
end if
end sub
sub Kirka()
While uo.Dead() == 0
UO.usetype(0x0E85)
Wait(5000)
UO.Say('all guard')
UO.waittargetself()
Wait(5000)
Wend
End sub
sub rudaperekidivanie()
While uo.Dead() == 0
var Sunduk = '0x41EDCAF0' # Сериал сундука
var Scroll = '0x19B9' # тотл
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '1', 'finditem' )
UO.FindType(0x19B9, -1, -1 )
UO.MoveItem( 'finditem', 0, 0x41EDCAF0 ) # Сериал сундука кега
wait(100)
UO.usetype(0x19B9)
wait(1000)
Wend
End sub
sub atakkriak()
repeat
While uo.life < uo.str
uo.playwav('ringout.wav')
Wait(250)
uo.playwav('ringout.wav')
Wait(250)
uo.playwav('ringout.wav')
Wait(250)
uo.playwav('ringout.wav')
Wait(250)
UO.Print( "Zaebalo , script terminated" )
Wait(10000)
wend
until UO.Dead()
end sub
sub guard()
var f,g
f=0
g=0
UO.Exec('terminate mine')
UO.Say ('.macro off')
wait(10000)
UO.Warmode(1)
UO.Arm('1')
wait(200)
UO.Set( 'finddistance' , '5' )
UO.FindType('0x000E',-1,1)
if UO.FindCount() then
repeat
UO.Attack('finditem')
wait(1500)
f=f+1
until UO.InJournal ('corpse') or UO.Dead() or f>=60
endif
UO.FindType('0x0033',-1,1)
if UO.FindCount() then
repeat
UO.Attack('finditem')
wait(1500)
g=g+1
until UO.InJournal ('corpse') or UO.Dead() or g>=60
endif
wait(2000)
UO.DisArm()
UO.Exec('exec mine')
end sub
Точно такой же как и 1 скрипт, но не надо прописывать ID рунбука и координаты рун. Запускаете скрипт, появляется прицел - нажимаете на рунбук - макрос запущен!
Обязательно запускайте с открытым сундуком (в котором реги лежат). Иначе может не работать.
Сериал сундука меняйте на свой
Реги бросайте тудаже куда будете руду скидывать.
Нужна помощь - skype +972538979516 - Матвей.
Удачи.
|
| |
| |
| Ибрагим | Дата: Пятница, 12.03.2021, 07:40 | Сообщение # 4 |
|
Группа: Гости
| Function STR not found ругается. как ее объявить ? это координаты кажется ?
|
| |
| |
| MaG1StR_Yoda | Дата: Суббота, 13.03.2021, 11:01 | Сообщение # 5 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| Цитата Ибрагим (  ) Function STR not found ругается. как ее объявить ? это координаты кажется ?
Который мой вариант первый , он точно рабочий , и вокруг себя я проверял еще давно - тоже должен работать.... Остальные, которые выложили остальные - уже хз
|
| |
| |
|
