Yoko

All sides of Injection
It is currently 2025-11-05 19:40:49

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 12 posts ] 
  Print view Previous topic | Next topic 
Author Message
Kukus
PostPosted: 2008-04-30 09:48:32 
Offline

Joined: 2008-04-24 20:43:46
Posts: 12
я вот все искал тут скрипт на карпентри, что бы он брал логи из сундука, потом крафтал, а потом полученное выкидывал в трешь, но нахожу такое только когда берет спола, помогите плз =)

Заранеие спс!
Top
   
Reply with quote  
Purgen
 Post subject:
PostPosted: 2008-04-30 11:39:59 
Offline
User avatar

Joined: 2005-04-04 18:23:12
Posts: 187
а ты найденый скриптик сюда положи, легче будет подправить
Top
   
Reply with quote  
Kukus
 Post subject:
PostPosted: 2008-04-30 12:40:54 
Offline

Joined: 2008-04-24 20:43:46
Posts: 12
; 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


Top
   
Reply with quote  
Purgen
 Post subject:
PostPosted: 2008-04-30 13:13:29 
Offline
User avatar

Joined: 2005-04-04 18:23:12
Posts: 187
он из сундука их и берёт :roll:
Top
   
Reply with quote  
Kukus
 Post subject:
PostPosted: 2008-04-30 14:57:17 
Offline

Joined: 2008-04-24 20:43:46
Posts: 12
А вот его я походу и пропускал =)
Top
   
Reply with quote  
Kukus
 Post subject:
PostPosted: 2008-04-30 15:07:09 
Offline

Joined: 2008-04-24 20:43:46
Posts: 12
ток у мну в этом скрипте после того как я поменял путь в меню с удочки на постушью палку пишит что в 11 сторче ошибка
10###UO.AutoMenu ('Carpentry', 'Weapons & Tools' )
11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )
Top
   
Reply with quote  
Purgen
 Post subject:
PostPosted: 2008-04-30 15:52:34 
Offline
User avatar

Joined: 2005-04-04 18:23:12
Posts: 187
Kukus wrote:
11###UO.AutoMenu ('Weapons & Tools', 'shepherd's crook' )

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

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


ЗЫЫ. Кстати если мне не изменяет память, то не обязательно писать всё слово целиком в Automenu. Попробуй написать "epher"
А ещё, если не ошибаюсь, то названия можно там заменить цифрами. Попробуй :wink:
Top
   
Reply with quote  
Purgen
 Post subject:
PostPosted: 2008-04-30 16:02:33 
Offline
User avatar

Joined: 2005-04-04 18:23:12
Posts: 187
Всю инфу по этому вопросу можно найти ТУТ
Top
   
Reply with quote  
Kukus
 Post subject:
PostPosted: 2008-04-30 19:15:40 
Offline

Joined: 2008-04-24 20:43:46
Posts: 12
Спс попробую=) но помоему сокращениями нельзя, с бс у мну не работало=))
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2008-04-30 19:25:12 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
К слову: писать полностью название менюшки не то, что не обязательно - я бы саказал не нужно.

_________________
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.
Skype: d119060
Top
   
Reply with quote  
Kukus
 Post subject:
PostPosted: 2008-04-30 19:51:52 
Offline

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

Joined: 2008-04-24 20:43:46
Posts: 12
Вы были правы надо было заменить название палки на crook

Спс огромное!! :D
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 12 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 8 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited