Проблема со скриптом

##################################################################### 
; 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

Top

Profile

Reply with quote

Ekkie

Post subject:

PostPosted: 2005-02-26 00:49:59

Offline

Joined: 2005-01-13 08:40:40
Posts: 56

некто незнает в чём проблема??=(((

Top

Profile

Reply with quote

AlexeyVorotnikov

Post subject:

PostPosted: 2005-02-26 01:48:39

Offline

Junior Expert

Joined: 2004-09-18 15:12:06
Posts: 138

Ekkie wrote:

некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:

Code:

Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub

Top

Profile

Reply with quote

Ekkie

Post subject:

PostPosted: 2005-02-26 12:44:49

Offline

Joined: 2005-01-13 08:40:40
Posts: 56

AlexeyVorotnikov wrote:

Ekkie wrote:

некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:

Code:

Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub

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

Top

Profile

Reply with quote

GimFlex

Post subject:

PostPosted: 2005-02-26 13:06:07

Offline

Expert!

Joined: 2005-01-07 13:22:19
Posts: 766

Ekkie wrote:

AlexeyVorotnikov wrote:

Ekkie wrote:

некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:

Code:

Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub

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

ой не могу ой умора просто вставь в свой скрипт вниз функцию чеклаг

Top

Profile

Reply with quote

Leks

Post subject: Re: Проблема со скриптом

PostPosted: 2005-02-28 06:02:25

Offline

Joined: 2004-11-06 12:56:58
Posts: 58
Location: Украина, Днепропетровск.

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

_________________
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 6 posts ]

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 8 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Yoko

Проблема со скриптом

Who is online