| Yoko http://forum.yoko.com.ua/ |
|
| Тайлор под ЕП ..... http://forum.yoko.com.ua/viewtopic.php?f=20&t=2714 |
Page 1 of 1 |
| Author: | Oymal [ 2005-01-19 12:38:41 ] |
| Post subject: | Тайлор под ЕП ..... |
Этот скрипт я старался зделать под ЕП как мог все получилось правда когда сверху выходит окошко мне нужно нажать на Misc а потом на Пергамент я прописал названия но скрипт нетыкает в них и в итоге некрафтит... помогите молю. #################################################################### ; Teiloring. v.1.03b (c) Edred ; шкуры лежат на полу. sub teiloring() VAR Sunduk1 = '0x400DE333' ; Сериал сундука с пустыми мешками должно ьыть 10 VAR Sunduk2 = '0x402D8493' ; Сериал пустого сундука VAR Meshok = '0x0E76' ; Тип мешка которые в первом сундуке VAR Shkur = '0x1067' ; Тип кожицы VAR Kit = '0x0F9D' ; Тип инструмента тейлора VAR Parchment = '0x0E34' ; Тип пергамента VAR Kolvo = 200 ; Брать шкур, когда скрафтит возмет еще VAR MeshSer, j, ShkurSer, k While TRUE UO.FindType( Shkur, -1, 1 ) ; Ищем шкуры на полу If UO.FindCount() == 0 Then UO.Print("Leathers not found, script terminated") return Endif UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем логи в пак wait( 2000 ) UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1 MeshSer = UO.GetSerial( 'finditem' ) UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак wait( 2000 ) UO.MoveItem( MeshSer, 0, Sunduk2 ) wait( 2000 ) While UO.Count( Shkur ) > 1 ; Пока в паке есть шкуры UO.Print('Ostalos ' + Str( UO.Count( Shkur ) ) + ' shkur' ) UO.FindType( Shkur, -1, 'backpack' ) ShkurSer = UO.GetSerial( 'finditem' ) UO.CancelMenu() UO.DeleteJournal() UO.WaitMenu ("Misc", "Parchment") UO.WaitTargetObject( ShkurSer ) UO.UseType( Kit ) k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) k = k + 1 wait(500) wend ; Wait( 14000 ) ; Скрафтили пергамент ; Сразу переложим его в мешок if UO.Count( Parchment ) > 0 then UO.FindType( Parchment, -1, 'backpack' ) UO.MoveItem( 'finditem', 0, MeshSer ) wait( 2000 ) UO.Print( 'Parchment perelozhen' ) end if Wend Wend end sub |
|
| Author: | Kiro [ 2005-01-19 18:15:10 ] |
| Post subject: | |
http://yoko.netroof.net/help/help.php?l ... m=waitmenu |
|
| Author: | cruel [ 2005-01-22 08:33:37 ] |
| Post subject: | |
сам играю на ЕП - если надо стукни в аську - 276756709 , скрипт есть уже работающий. |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|