| Yoko http://forum.yoko.com.ua/ |
|
| Обьяснте в чем ошибся! http://forum.yoko.com.ua/viewtopic.php?f=20&t=673 |
Page 1 of 1 |
| Author: | AD [ 2004-06-26 02:52:31 ] |
| Post subject: | Обьяснте в чем ошибся! |
Вот скрипт на бс sub BlacksmithyIM() VAR Exit=0, LastTimer while Exit<>1 UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Weapons','Swords','dagger') ; Что куем UO.UseType(0x1BEF) ; Инги айрона while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(500) wend If UO.InJournal("You have failed") then repeat wait(100) until UO.Timer()>=LastTimer+100 ; Время создания дагера EndIf UO.FindType('0x0F51',-1,'backpack') wait(500) If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x407B4504) ; Форж Endif wait(1000) wend end sub А загвоздка в том что когда стало бс 40,8 у меня появилась новая табличка а именно 'Blacksmithing','Weapons','Swords',----Maces & Hammers вот немогу понять как переделать скрипт чтоб он делал Maces Пробовал вот так 'Blacksmithing','Weapons','Maces','Mace' не получилось , пробовал 'Blacksmithing','Weapons','Maces & Hammers','Mace' не получаетса вот прошу показать как надо сделать? Заранее благодорен! |
|
| Author: | BETEPAH [ 2004-06-26 09:11:59 ] |
| Post subject: | |
UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools'staff') Заметь чтобы нормаль заработала система таблицы надо при переходе повторить название таблицы ,тоесть 1)'Carpentry','Weapons & Tools' ---- 1 таблица 2)'Weapons & Tools'staff') ----- 2 таблица Вот что ответил на похожий топик Lord Ruslan Nightmare UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Ringmail Armor' 'ringmail gloves'") надо UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Armor' 'Ringmail Armor' 'Ringmail Armor' 'ringmail gloves'") или типа того. Меню, выбор, снова меню, выбор, еще меню, еще выбор. А у тебя только первое меню - и дальше одни выборы. И еще - не обязательно писать полностью строку. Можно только часть - так зачастую лучше |
|
| Author: | AD [ 2004-06-26 16:06:15 ] |
| Post subject: | !! |
Тоесть UO.WaitMenu('Blacksmithing','Weapons','Weaponts','Maces','Maces','Mace') Но он застревает на таблице Weapons , где наресован ме4(Sword & Blades) и Мейс(Maces & Hammers)- мож R не правильно пешу?? А мож в чем другом ошибся? Заранее благодарен! |
|
| Author: | M0ke [ 2004-06-26 18:49:03 ] |
| Post subject: | Re: !! |
AD wrote: Тоесть
UO.WaitMenu('Blacksmithing','Weapons','Weaponts','Maces','Maces','Mace') Но он застревает на таблице Weapons , где наресован ме4(Sword & Blades) и Мейс(Maces & Hammers)- мож R не правильно пешу?? А мож в чем другом ошибся? Заранее благодарен! А Мой скриптик то ) |
|
| Author: | BETEPAH [ 2004-06-26 20:29:24 ] |
| Post subject: | |
Думаешь ты все правельно ........Пишешь неправельно |
|
| Author: | Lord Ruslan Nightmare [ 2004-06-26 20:58:22 ] |
| Post subject: | |
Обычно заголовки меню такие же, как последний выбор (т.е.. если ты выбрал Armor, то след. меню будет называться Armor) - но это не правило! Бывают и косяки (например - название с маленькой буквы, или вообще другое название). Надо следить внимательно. |
|
| Author: | AD [ 2004-06-27 08:39:22 ] |
| Post subject: | !! |
Ну а как мне правельно напесать?? Заранее благодарен! |
|
| Author: | BETEPAH [ 2004-06-27 10:10:16 ] |
| Post subject: | |
##################################################### ### Blacksmitchy Script Vor Iron Metal v. 1.00. ### ### ### ### Copyright & tested by cOoler on DRW Shard. ### ### ### ### Oficial DRW Shards site - http://www.drw.ru ### ############################################### sub BlacksmithyIM() VAR Exit=0, LastTimer while Exit<>1 UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Weapons','Weapons','Maces & Hammers','Maces & Hammers','mace') ;Что куем UO.UseType(0x1BEF) ;Инги айрона while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(500) wend If UO.InJournal("You have failed") then repeat wait(100) until UO.Timer()>=LastTimer+100 ;Время создания дагера EndIf UO.FindType('0x0F51',-1,'backpack') wait(500) If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x4012B5AC) ; Форж Endif UO.FindType('0x1BEF',-1,'backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x4004CAE1') ;Cундук с ингами wait(1000) UO.Grab('1000','finditem') Endif wait(1000) wend end sub |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|