Помогите поправить скриптик

[Reaman]

Code: Select all

sub main2() 

VAR sunduk='0x40BBB188'; Сундук - логи, айрон 
VAR derevo='0x1BDD' 
VAR iron='0x1BEF' 

while not UO.Hidden() 


UO.UseSkill("Stealth") 
wait(4100) 
wend 

UO.UnSetCatchBag() 


wait(3000) 
UO.FindType( derevo, -1, sunduk ) 
UO.Grab( Str( 100 ), 'finditem' ) 
wait(5000) 



UO.FindType( iron, -1, sunduk ) 
UO.Grab( Str( 100 ), 'finditem' ) 
wait(5000) 
var time 
var maxtime=5000 
UO.Automenu('Tinkering','Tools') 
UO.Automenu('Tools','lockpick') 
UO.Set('finddistance','2') 
up() 
While True 
######################### 
UO.Findtype('0x1BEF','-1','backpack') 
if UO.Findcount('finditem') == 0 then 
up() 
endif 
UO.Findtype('0x1BDD','-1','backpack') 
if UO.Findcount('finditem') == 0 then 
up() 
endif 
######################### 
time=0 
CheckLag() 
UO.UseType('0x1EBC') 
Repeat 
time=time+100 
wait(100) 
Until UO.InJournal('put') or UO.InJournal('fail') or time>maxtime 
wend 
end sub 

Пробывал изменить сам поэтому может и напортачил где то, вроде все делает так как нужно, но после того как он потратит ресурс каторый в сумке ...повторно брать нехочет прошу помощи у знающих.

Раньше брал ресу с пола щас надо чтоб брал их из сундука .

Скрипт брал на сайте Антареса

[Nmy]

Code: Select all

sub Lockpicks()
VAR sunduk='0x40BBB188'
VAR derevo='0x1BDD'
VAR iron='0x1BEF'
VAR locks='?x????'
VAR k = 0

   While TRUE
 UO.FindType( derevo, -1,'backpack')
 if UO.Findcount('finditem') == 0 then
 UO.FindType( derevo, -1, sunduk )
 if UO.FindCount() then
 uo.moveitem('finditem','100','backpack')
 else
 uo.print('I cannot find any logs!')
 return
 end if
 end if

 UO.FindType( iron, -1,'backpack')
 if UO.Findcount('finditem') == 0 then
 UO.FindType( iron, -1, sunduk )
 if UO.FindCount() then
 uo.moveitem('finditem','100','backpack')
 else
 uo.print('I cannot find any iron ings!')
 return
 end if
 end if
 
UO.DeleteJournal()
UO.CancelMenu()
CheckLag()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick')
UO.UseType('0x1EBC')
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend

 UO.FindType( locks, -1,'backpack')
 If UO.GetQuantity('finditem') > 10 Then
 uo.moveitem('finditem',-1,'sunduk')
 end if

wend
end sub

[Reaman]

Он после того как зделает одну отмычку берет еще по 100 дерева и 100 айрона и некладет отмычки в сундук как зделает одну ...

[Nmy]

Он после того как зделает одну отмычку берет еще по 100 дерева и 100 айрона и некладет отмычки в сундук как зделает одну ...

пробуй

[Reaman]

Каждая зделаная отмычка прибовляет 100 логов и 100 айрона ...

в моем скрипте зделано все нормально но он не повторяет процедуру заного ...

[Nmy]

Каждая зделаная отмычка прибовляет 100 логов и 100 айрона ...

в моем скрипте зделано все нормально но он не повторяет процедуру заного ...

а щас ?
вопрос: скрипт каждую отмычку кидает или по 11 ?

[Reaman]

Вот щас уже все окей спосибо большое тока вот он их обратно в сундук неперекладывает а так все отлично работает ...

[Scripts Writer]

Code: Select all

 UO.FindType( locks, -1,'backpack') 
 If FindCount() Then 
   uo.moveitem('finditem',-1,sunduk) 
 end if 

Замени .

[Reaman]

заменил... теперь он стал все что лежит в сумке, выкидывать в этот сундук

[to4a]

хм... у маздая код правильный...
тип отмычки точно правильный? или так как в примере '?x????' ?)))

[Reaman]

тип нормальный стоит и всеравно он выкидывает не отмычки а тинкер тулз по паку метать начинает

[Nmy]

тип нормальный стоит и всеравно он выкидывает не отмычки а тинкер тулз по паку метать начинает

ищи проблемы у себя а не в скрипте

[Edred]

а тинкер тулз по паку метать начинает

Пауза после мува маленькая. Нет проверки на лаг или сэйв мира.

[Reaman]

UO.FindType( locks, -1,'backpack')
If FindCount() Then
uo.moveitem('finditem',-1,sunduk)
wait (1000)
end if

Начал отмычки перекладывать, и с ними же тинкер тулз перекладывать начал

[Edred]

Начал отмычки перекладывать, и с ними же тинкер тулз перекладывать начал

sunduk либо недоступен, либо не прописан в начале скрипта, либо ни разу не открывался в этой игровой сессии.

[Reaman]

Поковырялся минут 15 и запахал Спосибо большое вам !
Извените за глупость всем спосибо !

P.S.

UO.FindType( locks, -1,'backpack')
If UO.FindCount() Then
uo.moveitem('finditem',-1,sunduk)
end if

Дописать надо было просто.