Yoko
http://forum.yoko.com.ua/

Уважаемые игроки прошу о помощи.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8614		 Page 1 of 1
Author:  Promotion [ 2006-08-25 07:33:55 ]
Post subject:  Уважаемые игроки прошу о помощи.
Всем привет.
Первый раз установил yoko injection.
И решил написать простенький скрипт:
В кантейнире ищет руду, перекладывает 1 руды себе в пак, потом опять находит её в паке и двойным кликом плавит. Но почему то он не плавит двойным кликом. Объясните в чём проблема, пожалуйста.
Code:
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
Author:  slonopotam [ 2006-08-25 07:42:16 ]
Post subject: 
Зачем ид писать в findtype ?
тип - 0x19B9
цвет - 0x0000
ид - 0x401E0227

оставь только тип


Code:
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
Author:  Promotion [ 2006-08-25 07:44:27 ]
Post subject: 
Меня больше интересует вторая часть.
Первая нормально работает.
Как сделать, чтобы он плавил 1 руду, лежащий в паке...?
Author:  slonopotam [ 2006-08-25 07:44:57 ]
Post subject: 
Какой шард?
Author:  slonopotam [ 2006-08-25 07:49:40 ]
Post subject: 
Вот скрипт на мининг и плавку по 1. Незнаю какой шард и подойдет ли мининг, но переплавка точно подойдет.
Code:
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
Author:  Promotion [ 2006-08-25 08:06:38 ]
Post subject: 
Спасибо !
Author:  Edred [ 2006-08-25 08:50:19 ]
Post subject:  Re: Уважаемые игроки прошу о помощи.
Promotion wrote:
Code:
  uo.LDblClick('finditem')



заменить на

Code:
UO.UseObject( 'finditem' )
Author:  Promotion [ 2006-08-27 17:45:47 ]
Post subject: 
Спасибо всем.

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

П.С. пишите скрипт сами и будет вам счастье.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/