Помогите плз =)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Помогите плз =)

Post by Kukus »

я вот все искал тут скрипт на карпентри, что бы он брал логи из сундука, потом крафтал, а потом полученное выкидывал в трешь, но нахожу такое только когда берет спола, помогите плз =)

Заранеие спс!
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

а ты найденый скриптик сюда положи, легче будет подправить
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post 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
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

он из сундука их и берёт :roll:
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

А вот его я походу и пропускал =)
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

ток у мну в этом скрипте после того как я поменял путь в меню с удочки на постушью палку пишит что в 11 сторче ошибка
10###UO.AutoMenu ('Carpentry', 'Weapons & Tools' )
11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

Kukus wrote:11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )

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

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


ЗЫЫ. Кстати если мне не изменяет память, то не обязательно писать всё слово целиком в Automenu. Попробуй написать "epher"
А ещё, если не ошибаюсь, то названия можно там заменить цифрами. Попробуй :wink:
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

Всю инфу по этому вопросу можно найти ТУТ
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

Спс попробую=) но помоему сокращениями нельзя, с бс у мну не работало=))
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

К слову: писать полностью название менюшки не то, что не обязательно - я бы саказал не нужно.
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

а я все пытаю научиться сам писать скрипты, но максимум что могу тк это каря настроить скрипт или добавить часть из одного скрипта в другой и то не всегда получается =(
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

Вы были правы надо было заменить название палки на crook

Спс огромное!! :D
Post Reply