Page 1 of 1
Помогите плз =)
Posted: 2008-04-30 09:48:32
by Kukus
я вот все искал тут скрипт на карпентри, что бы он брал логи из сундука, потом крафтал, а потом полученное выкидывал в трешь, но нахожу такое только когда берет спола, помогите плз =)
Заранеие спс!
Posted: 2008-04-30 11:39:59
by Purgen
а ты найденый скриптик сюда положи, легче будет подправить
Posted: 2008-04-30 12:40:54
by Kukus
; Carpentry. v.1.14D (c) Edred
;
; Чар берет берет с пола логи, крафтит из них удочки и скидывает удочки
; в трэш. Если логи на полу кончились - выход.
; (Get logs from ground and craft fishing pole. Move fishing pole trash)
;
; v. 1.13D Special Edition (for Democratic)
; v. 1.14D Special Edition (for Chyzzzz): берем логи из сундука. Заодно
; немного причесываю скрипт и переходим на Automenu.
;
sub carpentryD()
VAR MyTrash = '0x4017439B' ; Сериал мусорки (ID of trash)
VAR Sunduk = '0x4017439B' ; Сериал сундука с логами
VAR Logi = '0x1BDD' ; Тип логов (logs type)
VAR Rubanok = '0x1031' ; Тип инструмента (carpentry tools type)
VAR Udochka = '0xDBF' ; Тип удочки (fishing pole type)
VAR Kolvo = 200 ; Брать логов (Count of logs for a one grab)
VAR j, k, sum = 0
UO.CancelMenu()
UO.AutoMenu ('Carpentry', 'Fishing Poles' )
UO.AutoMenu ('Fishing Poles', 'fishing pole' )
UO.UseObject( Sunduk )
wait(1000)
CheckLag()
While UO.SkillVal( 'Carpentry' ) < 1000
UO.FindType( Logi, '-1', Sunduk ) ; Ищем логи в сундуке
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем логи в пак
wait( 1000 )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
Endif
While UO.Count( Logi ) > 0
; Пока в паке есть логи
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
UO.DeleteJournal()
UO.UseType( Rubanok )
k = 0
repeat
k = k + 1
wait(500)
until UO.InJournal('You put') OR UO.InJournal('fail') OR ( k > 30 )
If UO.InJournal('You put') Then
sum = sum + 1
UO.Print( 'Crafted ' + str(sum) + ' fishing poles' )
Endif
while UO.Count( Udochka ) > 0
UO.FindType( Udochka )
UO.MoveItem( 'finditem', '0', MyTrash )
wait( 500 )
CheckLag()
Wend
Wend
Wend
endsub
Posted: 2008-04-30 13:13:29
by Purgen
он из сундука их и берёт
Posted: 2008-04-30 14:57:17
by Kukus
А вот его я походу и пропускал =)
Posted: 2008-04-30 15:07:09
by Kukus
ток у мну в этом скрипте после того как я поменял путь в меню с удочки на постушью палку пишит что в 11 сторче ошибка
10###UO.AutoMenu ('Carpentry', 'Weapons & Tools' )
11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )
Posted: 2008-04-30 15:52:34
by Purgen
Kukus wrote:11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )
Вот здесь чё-то не то. Проверь точно.
Попробуй с большой буквы написать..
ЗЫ. Просто играю на шарде без AutoMenu и поэтому не могу нормально помочь ( Последний раз сталкивался с AutoMenu в далёком 2005 году.
ЗЫЫ. Кстати если мне не изменяет память, то не обязательно писать всё слово целиком в Automenu. Попробуй написать
"epher"
А ещё, если не ошибаюсь, то названия можно там заменить цифрами. Попробуй
Posted: 2008-04-30 16:02:33
by Purgen
Всю инфу по этому вопросу можно найти
ТУТ
Posted: 2008-04-30 19:15:40
by Kukus
Спс попробую=) но помоему сокращениями нельзя, с бс у мну не работало=))
Posted: 2008-04-30 19:25:12
by Destruction
К слову: писать полностью название менюшки не то, что не обязательно - я бы саказал не нужно.
Posted: 2008-04-30 19:51:52
by Kukus
а я все пытаю научиться сам писать скрипты, но максимум что могу тк это каря настроить скрипт или добавить часть из одного скрипта в другой и то не всегда получается =(
Posted: 2008-04-30 20:04:47
by Kukus
Вы были правы надо было заменить название палки на crook
Спс огромное!!
