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

Reaman · Post by **Reaman** » 2006-06-18 18:17:46

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 · Post by **Nmy** » 2006-06-18 19:40:53

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 · Post by **Reaman** » 2006-06-18 20:39:56

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

Nmy · Post by **Nmy** » 2006-06-18 20:50:58

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

пробуй

Reaman · Post by **Reaman** » 2006-06-18 20:58:42

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

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

Nmy · Post by **Nmy** » 2006-06-18 22:20:46

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

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

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

Reaman · Post by **Reaman** » 2006-06-19 00:17:34

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

Scripts Writer · Post by **Scripts Writer** » 2006-06-19 09:18:03

Code: Select all

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

Замени .

Reaman · Post by **Reaman** » 2006-06-19 13:35:22

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

to4a · Post by **to4a** » 2006-06-19 13:58:12

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

Reaman · Post by **Reaman** » 2006-06-19 21:28:48

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

Nmy · Post by **Nmy** » 2006-06-19 21:30:46

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

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

Edred · Post by **Edred** » 2006-06-19 21:34:44

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

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

Reaman · Post by **Reaman** » 2006-06-20 20:14:13

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

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

Edred · Post by **Edred** » 2006-06-20 23:50:19

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

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

Reaman · Post by **Reaman** » 2006-06-23 08:28:56

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

P.S.

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

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