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

Проблема со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3220		 Page 1 of 1
Author:  Ekkie [ 2005-02-26 00:11:43 ]
Post subject:  Проблема со скриптом
Короче всё идёт намана....
но в конце пишет : Line 29 : Function not found CHECKLAG
Поправте ПЛИЗ
Code:
##################################################################### 
; Bowcraft2. v.1.01b (c) Edred 
; 
; Чар берет из сундука шафты и перья, крафтит из них стрелы и 
; складывает эти стрелы в этот же сундук. 
; Если шафты или перья закончились - выход. 
; 
sub bowcraft2() 
   VAR Sunduk = '0x404CFAA3'       ; Сериал сундука 
   VAR Shafts = '0x1BD4'          ; Тип шафтов 
   VAR Feather = '0x1BD1'         ; Тип перьев 
   VAR Arrows = '0x0F3F'         ; Тип стрел 
   VAR Kolvo = 1               ; Брать шафтов для одного крафта 
   VAR k = 0, j 
   UO.CancelMenu() 
   UO.AutoMenu ('Select arrow type', 'arrow' ) 
   While TRUE 
      If UO.Count( Shafts ) == 0 Then 
         UO.FindType( Shafts, -1, Sunduk ) 
         If UO.FindCount() == 0 Then 
            UO.Print("Shafts not found, script terminated") 
            return 
         Endif 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait(500) 
         while UO.Count( Shafts ) < Kolvo 
            wait(100) 
         wend 
         CheckLag() 
      Endif 
      If UO.Count( Feather ) == 0 Then       
         UO.FindType( Feather, -1, Sunduk ) 
         If UO.FindCount() == 0 Then 
            UO.Print("Feather not found, script terminated") 
            return 
         Endif 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait(500) 
         while UO.Count( Feather ) < Kolvo 
            wait(100) 
         wend 
         CheckLag() 
      Endif 
      UO.DeleteJournal() 
      UO.UseType( Shafts ) 
      k = 0 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
         k = k + 1 
         wait(300) 
      wend 
      If UO.Count( Arrows ) > 0 then 
         UO.FindType( Arrows, -1, -1 ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait(500) 
         while UO.Count( Arrows ) > 0 
            wait(100) 
         wend 
         UO.Print( 'Arrows moved' ) 
      Endif 
   Wend 
end sub
Author:  Ekkie [ 2005-02-26 00:49:59 ]
Post subject: 
некто незнает в чём проблема??=(((
Author:  AlexeyVorotnikov [ 2005-02-26 01:48:39 ]
Post subject: 
Ekkie wrote:
некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:
Code:
Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub
Author:  Ekkie [ 2005-02-26 12:44:49 ]
Post subject: 
AlexeyVorotnikov wrote:
Ekkie wrote:
некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:
Code:
Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub

Можеш исправить скрипт?
Author:  GimFlex [ 2005-02-26 13:06:07 ]
Post subject: 
Ekkie wrote:
AlexeyVorotnikov wrote:
Ekkie wrote:
некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:
Code:
Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub

Можеш исправить скрипт?


ой не могу ой умора просто вставь в свой скрипт вниз функцию чеклаг
Author:  Leks [ 2005-02-28 06:02:25 ]
Post subject:  Re: Проблема со скриптом
Ekkie wrote:
Короче всё идёт намана....
но в конце пишет : Line 29 : Function not found CHECKLAG
Поправте ПЛИЗ
Code:
##################################################################### 
; Bowcraft2. v.1.01b (c) Edred 
; 
; Чар берет из сундука шафты и перья, крафтит из них стрелы и 
; складывает эти стрелы в этот же сундук. 
; Если шафты или перья закончились - выход. 
; 
sub bowcraft2() 
   VAR Sunduk = '0x404CFAA3'       ; Сериал сундука 
   VAR Shafts = '0x1BD4'          ; Тип шафтов 
   VAR Feather = '0x1BD1'         ; Тип перьев 
   VAR Arrows = '0x0F3F'         ; Тип стрел 
   VAR Kolvo = 1               ; Брать шафтов для одного крафта 
   VAR k = 0, j 
   UO.CancelMenu() 
   UO.AutoMenu ('Select arrow type', 'arrow' ) 
   While TRUE 
      If UO.Count( Shafts ) == 0 Then 
         UO.FindType( Shafts, -1, Sunduk ) 
         If UO.FindCount() == 0 Then 
            UO.Print("Shafts not found, script terminated") 
            return 
         Endif 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait(500) 
         while UO.Count( Shafts ) < Kolvo 
            wait(100) 
         wend 
         CheckLag() 
      Endif 
      If UO.Count( Feather ) == 0 Then       
         UO.FindType( Feather, -1, Sunduk ) 
         If UO.FindCount() == 0 Then 
            UO.Print("Feather not found, script terminated") 
            return 
         Endif 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait(500) 
         while UO.Count( Feather ) < Kolvo 
            wait(100) 
         wend 
         CheckLag() 
      Endif 
      UO.DeleteJournal() 
      UO.UseType( Shafts ) 
      k = 0 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
         k = k + 1 
         wait(300) 
      wend 
      If UO.Count( Arrows ) > 0 then 
         UO.FindType( Arrows, -1, -1 ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait(500) 
         while UO.Count( Arrows ) > 0 
            wait(100) 
         wend 
         UO.Print( 'Arrows moved' ) 
      Endif 
   Wend 
end sub


Code:

##################################################################### 
; Bowcraft2. v.1.01b (c) Edred 
; 
; Чар берет из сундука шафты и перья, крафтит из них стрелы и 
; складывает эти стрелы в этот же сундук. 
; Если шафты или перья закончились - выход. 
; 
sub bowcraft2() 
   VAR Sunduk = '0x404CFAA3'       ; Сериал сундука 
   VAR Shafts = '0x1BD4'          ; Тип шафтов 
   VAR Feather = '0x1BD1'         ; Тип перьев 
   VAR Arrows = '0x0F3F'         ; Тип стрел 
   VAR Kolvo = 1               ; Брать шафтов для одного крафта 
   VAR k = 0, j 
   UO.CancelMenu() 
   UO.AutoMenu ('Select arrow type', 'arrow' ) 
   While TRUE 
      If UO.Count( Shafts ) == 0 Then 
         UO.FindType( Shafts, -1, Sunduk ) 
         If UO.FindCount() == 0 Then 
            UO.Print("Shafts not found, script terminated") 
            return 
         Endif 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait(500) 
         while UO.Count( Shafts ) < Kolvo 
            wait(100) 
         wend 
         CheckLag() 
      Endif 
      If UO.Count( Feather ) == 0 Then       
         UO.FindType( Feather, -1, Sunduk ) 
         If UO.FindCount() == 0 Then 
            UO.Print("Feather not found, script terminated") 
            return 
         Endif 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait(500) 
         while UO.Count( Feather ) < Kolvo 
            wait(100) 
         wend 
         CheckLag() 
      Endif 
      UO.DeleteJournal() 
      UO.UseType( Shafts ) 
      k = 0 
      while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) 
         k = k + 1 
         wait(300) 
      wend 
      If UO.Count( Arrows ) > 0 then 
         UO.FindType( Arrows, -1, -1 ) 
         UO.MoveItem( 'finditem', 0, Sunduk ) 
         wait(500) 
         while UO.Count( Arrows ) > 0 
            wait(100) 
         wend 
         UO.Print( 'Arrows moved' ) 
      Endif 
   Wend 
end sub

sub CheckLag() 
IF UO.Waiting() > 0 THEN 
UO.Exec("canceltarget") 
END IF 
UO.DeleteJournal() 
UO.Click('backpack') 
REPEAT 
WAIT(50) 
UNTIL UO.InJournal('backpack') 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/