Yoko
http://forum.yoko.com.ua/

Помогите плз =)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13558		 Page 1 of 1
Author:  Kukus [ 2008-04-30 09:48:32 ]
Post subject:  Помогите плз =)
я вот все искал тут скрипт на карпентри, что бы он брал логи из сундука, потом крафтал, а потом полученное выкидывал в трешь, но нахожу такое только когда берет спола, помогите плз =)

Заранеие спс!
Author:  Purgen [ 2008-04-30 11:39:59 ]
Post subject: 
а ты найденый скриптик сюда положи, легче будет подправить
Author:  Kukus [ 2008-04-30 12:40:54 ]
Post subject: 
; 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
Author:  Purgen [ 2008-04-30 13:13:29 ]
Post subject: 
он из сундука их и берёт :roll:
Author:  Kukus [ 2008-04-30 14:57:17 ]
Post subject: 
А вот его я походу и пропускал =)
Author:  Kukus [ 2008-04-30 15:07:09 ]
Post subject: 
ток у мну в этом скрипте после того как я поменял путь в меню с удочки на постушью палку пишит что в 11 сторче ошибка
10###UO.AutoMenu ('Carpentry', 'Weapons & Tools' )
11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )
Author:  Purgen [ 2008-04-30 15:52:34 ]
Post subject: 
Kukus wrote:
11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )

Вот здесь чё-то не то. Проверь точно.
Попробуй с большой буквы написать..

ЗЫ. Просто играю на шарде без AutoMenu и поэтому не могу нормально помочь ( Последний раз сталкивался с AutoMenu в далёком 2005 году.


ЗЫЫ. Кстати если мне не изменяет память, то не обязательно писать всё слово целиком в Automenu. Попробуй написать "epher"
А ещё, если не ошибаюсь, то названия можно там заменить цифрами. Попробуй :wink:
Author:  Purgen [ 2008-04-30 16:02:33 ]
Post subject: 
Всю инфу по этому вопросу можно найти ТУТ
Author:  Kukus [ 2008-04-30 19:15:40 ]
Post subject: 
Спс попробую=) но помоему сокращениями нельзя, с бс у мну не работало=))
Author:  Destruction [ 2008-04-30 19:25:12 ]
Post subject: 
К слову: писать полностью название менюшки не то, что не обязательно - я бы саказал не нужно.
Author:  Kukus [ 2008-04-30 19:51:52 ]
Post subject: 
а я все пытаю научиться сам писать скрипты, но максимум что могу тк это каря настроить скрипт или добавить часть из одного скрипта в другой и то не всегда получается =(
Author:  Kukus [ 2008-04-30 20:04:47 ]
Post subject: 
Вы были правы надо было заменить название палки на crook

Спс огромное!! :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/