Page 1 of 1
Помогите поправить скриптик
Posted: 2006-06-18 18:17:46
by 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
Пробывал изменить сам поэтому может и напортачил где то, вроде все делает так как нужно, но после того как он потратит ресурс каторый в сумке ...повторно брать нехочет прошу помощи у знающих.
Раньше брал ресу с пола щас надо чтоб брал их из сундука .
Скрипт брал на сайте Антареса
Posted: 2006-06-18 19:40:53
by 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
Posted: 2006-06-18 20:39:56
by Reaman
Он после того как зделает одну отмычку берет еще по 100 дерева и 100 айрона и некладет отмычки в сундук как зделает одну ...
Posted: 2006-06-18 20:50:58
by Nmy
Reaman wrote:Он после того как зделает одну отмычку берет еще по 100 дерева и 100 айрона и некладет отмычки в сундук как зделает одну ...
пробуй
Posted: 2006-06-18 20:58:42
by Reaman
Каждая зделаная отмычка прибовляет 100 логов и 100 айрона ...
в моем скрипте зделано все нормально но он не повторяет процедуру заного ...
Posted: 2006-06-18 22:20:46
by Nmy
Reaman wrote:Каждая зделаная отмычка прибовляет 100 логов и 100 айрона ...
в моем скрипте зделано все нормально но он не повторяет процедуру заного ...
а щас ?
вопрос: скрипт каждую отмычку кидает или по 11 ?
Posted: 2006-06-19 00:17:34
by Reaman
Вот щас уже все окей спосибо большое тока вот он их обратно в сундук неперекладывает а так все отлично работает ...
Posted: 2006-06-19 09:18:03
by Scripts Writer
Code: Select all
UO.FindType( locks, -1,'backpack')
If FindCount() Then
uo.moveitem('finditem',-1,sunduk)
end if
Замени .
Posted: 2006-06-19 13:35:22
by Reaman
заменил... теперь он стал все что лежит в сумке, выкидывать в этот сундук
Posted: 2006-06-19 13:58:12
by to4a
хм... у маздая код правильный...
тип отмычки точно правильный? или так как в примере '?x????' ?)))
Posted: 2006-06-19 21:28:48
by Reaman
тип нормальный стоит и всеравно он выкидывает не отмычки а тинкер тулз по паку метать начинает
Posted: 2006-06-19 21:30:46
by Nmy
Reaman wrote:тип нормальный стоит и всеравно он выкидывает не отмычки а тинкер тулз по паку метать начинает
ищи проблемы у себя а не в скрипте
Posted: 2006-06-19 21:34:44
by Edred
Reaman wrote:а тинкер тулз по паку метать начинает
Пауза после мува маленькая. Нет проверки на лаг или сэйв мира.
Posted: 2006-06-20 20:14:13
by Reaman
UO.FindType( locks, -1,'backpack')
If FindCount() Then
uo.moveitem('finditem',-1,sunduk)
wait (1000)
end if
Начал отмычки перекладывать, и с ними же тинкер тулз перекладывать начал
Posted: 2006-06-20 23:50:19
by Edred
Reaman wrote:Начал отмычки перекладывать, и с ними же тинкер тулз перекладывать начал
sunduk либо недоступен, либо не прописан в начале скрипта, либо ни разу не открывался в этой игровой сессии.
Posted: 2006-06-23 08:28:56
by Reaman
Поковырялся минут 15 и запахал Спосибо большое вам !
Извените за глупость всем спосибо !
P.S.
UO.FindType( locks, -1,'backpack')
If UO.FindCount() Then
uo.moveitem('finditem',-1,sunduk)
end if
Дописать надо было просто.