Page 1 of 1
Уважаемые игроки прошу о помощи.
Posted: 2006-08-25 07:33:55
by Promotion
Всем привет.
Первый раз установил yoko injection.
И решил написать простенький скрипт:
В кантейнире ищет руду, перекладывает 1 руды себе в пак, потом опять находит её в паке и двойным кликом плавит. Но почему то он не плавит двойным кликом. Объясните в чём проблема, пожалуйста.
Code: Select all
Sub main()
uo.findtype(0x19B9,0x0000,'0x401E0227')
uo.moveitem('finditem','1','backpack')
wait(100)
uo.findtype(0x19B7,0x0000,'0x401FDA9E')
uo.LDblClick('finditem')
wait 100
end sub
Posted: 2006-08-25 07:42:16
by slonopotam
Зачем ид писать в findtype ?
тип - 0x19B9
цвет - 0x0000
ид - 0x401E0227
оставь только тип
Code: Select all
UO.Findtype('0x19B9', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B8', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19BA', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B7', '-1','backpack')
If UO.Findcount() == 0 Then
Posted: 2006-08-25 07:44:27
by Promotion
Меня больше интересует вторая часть.
Первая нормально работает.
Как сделать, чтобы он плавил 1 руду, лежащий в паке...?
Posted: 2006-08-25 07:44:57
by slonopotam
Какой шард?
Posted: 2006-08-25 07:49:40
by slonopotam
Вот скрипт на мининг и плавку по 1. Незнаю какой шард и подойдет ли мининг, но переплавка точно подойдет.
Code: Select all
sub minround()
VAR Kirka = '0x0E85' ; тип кирки
VAR MaxVes = 9999999999999 ; указать макс. вес
VAR TileNum = '1339' ; ******
VAR x, y, t, k
VAR MaxTime = 1000 ; ******
VAR ms1 = "There is nothing here to mine for"
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"
for y=-2 to 2
for x=-2 to 2
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
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
sub smelting()
repeat
UO.Findtype('0x19B9', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B8', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19BA', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B7', '-1','backpack')
If UO.Findcount() == 0 Then
return
Endif
Endif
Endif
Endif
UO.moveitem('finditem','1','backpack',44,121,0 )
Wait(100)
UO.UseType('0x19B7')
Wait(100)
until uo.findcount()== 0
end sub
Posted: 2006-08-25 08:06:38
by Promotion
Спасибо !
Re: Уважаемые игроки прошу о помощи.
Posted: 2006-08-25 08:50:19
by Edred
Posted: 2006-08-27 17:45:47
by Promotion
Спасибо всем.
2 slonopotam
мне хватило 10 строчек )
П.С. пишите скрипт сами и будет вам счастье.