Уважаемые игроки прошу о помощи.

[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

[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

[Promotion]

Меня больше интересует вторая часть.
Первая нормально работает.
Как сделать, чтобы он плавил 1 руду, лежащий в паке...?

[slonopotam]

Какой шард?

[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

[Promotion]

Спасибо !

[Edred]

Code: Select all

  uo.LDblClick('finditem')

заменить на

Code: Select all

UO.UseObject( 'finditem' )

[Promotion]

Спасибо всем.

2 slonopotam
мне хватило 10 строчек )

П.С. пишите скрипт сами и будет вам счастье.