Yoko

All sides of Injection
It is currently 2026-01-18 18:24:33

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 17 posts ] 
  Print view Previous topic | Next topic 
Author Message
KuKuRuZ@
PostPosted: 2005-05-11 13:34:52 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Вот такенная проблемка возникла.
Своял я скрипт на БК чтоб он лики делал. Берёт с сундука 6 логов и одну нитку(у нас на шарде дается лук из этих ресурсов) он крафтиться и падает обратно в сундук. Но проблемка в том, что сундук не безграничен (255 итемов). Мне нужно чтоб он искал в сундуке мишки и складывал туда луки, пока не дойдет до 255 луков в мешке, потом он их начинает складывать в другой мешок (мешков в сундуке целая куча).

Вот мой скрипт:

Quote:
sub bowcraft()
VAR Sunduk = '0x400D2C79'
VAR Logi = '0x1BDD'
VAR Spool = '0x0FA0'
VAR Bow = '0x13B1'
VAR Kolvo = 6
VAR Kolvo2 = 1
VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
###############################################################

If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
Return

else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
Endif
##############################################################
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
Return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend

##############################################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
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( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub


Зарание спасиба!!! Очень нужно!


Last edited by KuKuRuZ@ on 2005-05-11 13:37:07, edited 1 time in total.

Top
   
Reply with quote  
Sfagnum
PostPosted: 2005-05-11 13:36:40 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
KuKuRuZ@ wrote:
Очень нужно!
если б нужно было б поискал бы аналогичные скрипты. ищи по necklace
Top
   
Reply with quote  
KuKuRuZ@
PostPosted: 2005-05-11 13:54:42 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Sfagnum wrote:
KuKuRuZ@ wrote:
Очень нужно!
если б нужно было б поискал бы аналогичные скрипты. ищи по necklace


А бес перетаскивание мешков можно? Хотя в скрипте непонял совсем не чего. Я тока учусь...

Вот что у меня получилось тока непашет :)

Quote:
sub bowcraft()
VAR Sunduk = '0x400D2C79'
VAR Logi = '0x1BDD'
VAR Spool = '0x0FA0'
VAR Bow = '0x13B1'
VAR Bag = '0x0E76'
VAR Kolvo = 6
VAR Kolvo2 = 1
VAR k = 0, j, dagger
var BagSer, i=0, fizl=0, control=5, time, z
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
###############################################################

If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
Return

else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
Endif
##############################################################
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
Return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend

##############################################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
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( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, 'Bag' )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
wend
UO.Print( 'Bow moved' )
if UO.InJournal("Too many items") then
NewBag()
endif
Endif
Wend
end sub

sub NewBag()
Open('Sunduk')
UO.FindType('Bag', -1, 'Sunduk')
UO.Print('Ok')
if UO.FindCount() < 1 then
end if
BagSer=UO.GetSerial('finditem')
wait(1000)
end sub
Top
   
Reply with quote  
KuKuRuZ@
 Post subject:
PostPosted: 2005-05-11 14:03:08 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Сделайте пжалста! А то совсем не соображаю...
Top
   
Reply with quote  
KuKuRuZ@
PostPosted: 2005-05-11 23:33:04 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Sfagnum wrote:


Вот что у меня получилось. Но вот он только всё время выводит ошибку и ссылается на BagSer в 84 строке (Line 84: Veriable undefined - BagSer) BagSer=UO.GetSerial( 'finditem' )

Вот скрипт который получился....

Quote:
sub bowcraft()
VAR Sunduk = '0x400D2C79'
VAR Sunduk2 = '0x4009B2BC'
VAR Logi = '0x1BDD'
VAR Spool = '0x0FA0'
VAR Bow = '0x13B1'
VAR Bag = '0x0E76'
VAR Kolvo = 6
VAR Kolvo2 = 1
VAR k = 0, j, dagger
var BagSer, i=0, fizl=0, control=5, time, z
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
###############################################################
NewBag()
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, 'Sunduk' )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
Return

else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
Endif
##############################################################
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
Return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend

##############################################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
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( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', '0', 'BagSer' )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
if UO.InJournal("Too many items") then
NewBag()
endif

wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub

sub Open(Container)
UO.DeleteJournal()
UO.UseObject(Container)
wait(500)
end sub

sub NewBag()
Open('Sunduk')
Open('Sunduk2')
UO.FindType('Bag', -1, 'Sunduk')
UO.Print('Ok')
if UO.FindCount() < 1 then
end if
BagSer=UO.GetSerial('finditem')
UO.MoveItem('BagSer', 0, 'Sunduk2')
wait(1000)
end sub
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2005-05-12 02:27:50 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Нуу, то, что он путает строки - я заметил давно, может вовсе и не та ошибка, о которой тв всех заставляешь думать :)

По поводу перекида кхм..
Code:
var btype = 0x0000#Тип сумки.
var bag = uo.findtype(btype)
...
....

if uo.getName() lalala  = 255 then
uo.ignore(bag)
bag = uo.findtype(btype)
endif

...
....

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-12 08:05:46 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Destruction wrote:
Нуу, то, что он путает строки - я заметил давно, может вовсе и не та ошибка, о которой тв всех заставляешь думать :)

По поводу перекида кхм..
Code:
var btype = 0x0000#Тип сумки.
var bag = uo.findtype(btype)
...
....

if uo.getName() lalala  = 255 then
uo.ignore(bag)
bag = uo.findtype(btype)
endif

...
....
не путай человека. с этим там всё норм ошибка тут:
Code:
 UO.MoveItem('BagSer', 0, 'Sunduk2')
надо:
Code:
UO.MoveItem(BagSer, 0, 'Sunduk2')
т.к. это переменная, а не объект.
Top
   
Reply with quote  
KuKuRuZ@
 Post subject:
PostPosted: 2005-05-12 08:42:51 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Sfagnum wrote:
не путай человека. с этим там всё норм ошибка тут:
Code:
 UO.MoveItem('BagSer', 0, 'Sunduk2')
надо:
Code:
UO.MoveItem(BagSer, 0, 'Sunduk2')
т.к. это переменная, а не объект.

Теперь таже ошибка тока в этой строке которую ты написал. Line 85: Veriable undefined - BagSer
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-12 08:56:13 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
ну есстественно :)
Code:
VAR Bag = '0x0E76'
var BagSer
эти переменные вынеси из процедуры - они должны быть видны по всему скрипту, а не только в 1ой прцедуре. ;)
и тут:
Code:
UO.FindType('Bag', -1, 'Sunduk')
аналогичная вышеописаной ошибка.

ЗЫ будь внимательнее при копировании кусков скрипта. ничего просто так не делается ;)
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2005-05-12 09:10:35 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Sfagnum wrote:
Destruction wrote:
Нуу, то, что он путает строки - я заметил давно, может вовсе и не та ошибка, о которой тв всех заставляешь думать :)

По поводу перекида кхм..
Code:
var btype = 0x0000#Тип сумки.
var bag = uo.findtype(btype)
...
....

if uo.getName() lalala  = 255 then
uo.ignore(bag)
bag = uo.findtype(btype)
endif

...
....
не путай человека. с этим там всё норм ошибка тут:
Code:
 UO.MoveItem('BagSer', 0, 'Sunduk2')
надо:
Code:
UO.MoveItem(BagSer, 0, 'Sunduk2')
т.к. это переменная, а не объект.


Ну я хз, я чужое кхм, так и хочется сказать про экскрименты... не очень люблю читать, вот прочел первый пост и написал решение, самое простое тип :evil:

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060
Top
   
Reply with quote  
KuKuRuZ@
 Post subject:
PostPosted: 2005-05-12 09:34:33 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
New Error :)

Теперь нехочет логи падла брать :) Грит логи нот фаунд, хотя раньше брал!
Quote:
var BagSer
VAR Bag = '0x0E76'
sub bowcraft()
VAR Sunduk = '0x400D2C79'
VAR Sunduk2 = '0x4009B2BC'
VAR Logi = '0x1BDD'
VAR Spool = '0x0FA0'
VAR Bow = '0x13B1'
VAR Kolvo = 6
VAR Kolvo2 = 1
VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
###############################################################
While TRUE
NewBag()
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, 'Sunduk' )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
Return

else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
Endif
##############################################################
If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
Return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend

##############################################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
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( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', '0', 'BagSer' )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
if UO.InJournal("Too many items") then
NewBag()
endif

wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub

sub Open(Container)
UO.DeleteJournal()
UO.UseObject(Container)
wait(500)
end sub

sub NewBag()
Open('Sunduk')
Open('Sunduk2')
UO.FindType(Bag, -1, 'Sunduk')
UO.Print('Ok')
if UO.FindCount() < 1 then
end if
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, 'Sunduk2')
wait(1000)
end sub
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-12 09:36:25 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Destruction wrote:
Ну я хз, я чужое кхм, так и хочется сказать про экскрименты... не очень люблю читать, вот прочел первый пост и написал решение, самое простое тип :evil:
ну так и не вводи в заблуждение ;)
просто этот код тож не мой просто я его причёсывал и юзаю достаточно регулярно... поэтому в курсе...

2 KuKuRuZ@
Code:
if UO.FindCount() < 1 then
end if
этот изврат либо убери, либо верни к исходному варианту.
Top
   
Reply with quote  
KuKuRuZ@
 Post subject:
PostPosted: 2005-05-12 10:09:59 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
это не менят положения, всё равно логи брать не хочет :(
Top
   
Reply with quote  
KuKuRuZ@
 Post subject:
PostPosted: 2005-05-12 10:47:16 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Теперь такая ощибка. Он при каждом крафте лука берёт новую сумку и пихает туда лук...

Мне нужно чтоб он перемещал сумку и клал туда луки пока она не заполниться. потому как я немогу удержать все 255 луков...
Quote:

var BagSer
VAR Bag = '0x0E76' ## Òèï ñóìêè

###################################

sub bowcraft()

wait(500)
VAR Sunduk = '0x400D2C79' ## Ñåðèéíèê ñóíäóêà
VAR Sunduk2 = '0x4009B2BC' ## Ñåðèéíèê ñóíäóêà 2
VAR Logi = '0x1BDD' ## Òèï ëîãîâ

###############################################################################


VAR Spool = '0x0FA0' ## Òèï íèòîê

###############################################################################

VAR Bow = '0x13B1' ## Òèï ëóêîâ
VAR Kolvo = 6 ## Êîëè÷åñòâî ëîãîâ êîòîðîå áåð¸ì

###############################################################################

VAR Kolvo2 = 1 ## Êîëè÷åñòâî íèòîê êîòîðîå áåð¸ì

###############################################################################

VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )

## Òóò ìû áåð¸ì ëîãè
While TRUE
NewBag()
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Logi ) < Kolvo
wait(100)
wend
Endif
Endif
###############################################################################

If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend
###############################################################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
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( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, BagSer )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
if UO.InJournal("Too many items") then
NewBag()
endif
wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub

sub NewBag()
UO.UseObject('0x400D2C79')
UO.UseObject('0x4009B2BC')
UO.FindType(Bag, -1, '0x400D2C79')
UO.Print('Ok')
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, '0x4009B2BC')
wait(1000)
end sub
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-12 11:55:51 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
KuKuRuZ@ wrote:
Теперь такая ощибка. Он при каждом крафте лука берёт новую сумку и пихает туда лук...

Code:
While TRUE
NewBag()
местами поменяй

и повторяю для группы "Д", не подумайте что плохого, для "Думающих". не путай объекты и переменные!
Top
   
Reply with quote  
KuKuRuZ@
 Post subject:
PostPosted: 2005-05-13 07:22:25 
Offline

Joined: 2005-05-04 16:52:49
Posts: 14
Скрипт готов на готов на 90%, осталось наверное :) одна ошибка. Вот он крафтит, крафтит, в вот в мешке переполнение и он берёт новый мешок... а потом ещё ещё ещё... Пока не перетащит все мешки. Я имею ввиду то что он не крафтит, а просто в цыкле начинает перетаскивать мешки....

Quote:
var BagSer
VAR Bag = '0x0E76' ## Òèï ñóìêè

###################################

sub bowcraft()

wait(500)
VAR Sunduk = '0x400D2C79' ## Ñåðèéíèê ñóíäóêà
VAR Sunduk2 = '0x4009B2BC' ## Ñåðèéíèê ñóíäóêà 2
VAR Logi = '0x1BDD' ## Òèï ëîãîâ

###############################################################################

ôóíêöèþ
VAR Spool = '0x0FA0' ## Òèï íèòîê

###############################################################################

VAR Bow = '0x13B1' ## Òèï ëóêîâ
VAR Kolvo = 6 ## Êîëè÷åñòâî ëîãîâ êîòîðîå áåð¸ì

###############################################################################


VAR Kolvo2 = 1 ## Êîëè÷åñòâî íèòîê êîòîðîå áåð¸ì

###############################################################################

VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )

## Òóò ìû áåð¸ì ëîãè
NewBag()
UO.FindType( Bow, -1, -1 )
uo.moveitem('finditem',0,BagSer)
While TRUE
if uo.count(Logi) <> 6 then
uo.findtype('0x1BDD', -1, -1)
UO.MoveItem( 'finditem', 0, Sunduk )
endif
wait(500)
If UO.Count( Logi ) == 0 Then
UO.FindType( Logi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)

wend
Endif
Endif
###############################################################################

If UO.Count( Spool ) == 0 Then
UO.FindType( Spool, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Spool not found, script terminated")
return
Endif
Endif
UO.Grab( Str( Kolvo2 ), 'finditem' )
wait(500)
while UO.Count( Spool ) < Kolvo2
wait(100)
wend
###############################################################################
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
UO.WaitMenu ('What do you want to carve', 'bow' )
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( Bow ) > 0 then
UO.FindType( Bow, -1, -1 )
UO.MoveItem( 'finditem', 0, BagSer )
wait(500)
while UO.Count( Bow ) > 0
wait(100)
if UO.InJournal("Too many items") then
NewBag()
UO.FindType( Bow, -1, -1 )
uo.moveitem('finditem',0,BagSer)
endif
wend
UO.Print( 'Bow moved' )
Endif
Wend
end sub

sub NewBag()
UO.UseObject('0x400D2C79')
UO.UseObject('0x4009B2BC')
UO.FindType('0x0E76', -1, '0x400D2C79')
UO.Print('Ok')
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, '0x4009B2BC')
wait(1000)
end sub
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-05-13 08:20:02 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
KuKuRuZ@ wrote:
Скрипт готов на готов на 90%, осталось наверное :) одна ошибка. Вот он крафтит, крафтит, в вот в мешке переполнение и он берёт новый мешок... а потом ещё ещё ещё... Пока не перетащит все мешки. Я имею ввиду то что он не крафтит, а просто в цыкле начинает перетаскивать мешки....

Code:
If UO.Count( Bow ) > 0 then 
UO.FindType( Bow, -1, -1 ) 
UO.MoveItem( 'finditem', 0, BagSer ) 
wait(500) 
while UO.Count( Bow ) > 0 
wait(100) 
if UO.InJournal("Too many items") then 
NewBag()
UO.FindType( Bow, -1, -1 )
uo.moveitem('finditem',0,BagSer)
endif
wend 
UO.Print( 'Bow moved' ) 
Endif
ну ты и переврал скрипт то....
замени на это выделенный кусок.
Code:
   while UO.Count( Bow ) > 0
      UO.FindType( Bow, -1, -1 )
      UO.DeleteJournal()
      UO.MoveItem( 'finditem', 0, BagSer )
      wait(500)
      if UO.InJournal("Too many items") then
         NewBag()
      endif
   UO.Print( 'Bow moved' )
   wend
а проблема у тебя была из-за того что ты не удалял сообщение "Too many items" из журнала.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 17 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 3 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

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited