| Yoko http://forum.yoko.com.ua/ |
|
| кому не сложно простой скриптик на бс http://forum.yoko.com.ua/viewtopic.php?f=20&t=578 |
Page 1 of 1 |
| Author: | SuperStar [ 2004-06-16 17:47:22 ] |
| Post subject: | кому не сложно простой скриптик на бс |
чтоб кавал дагеры,без всяких перекидываний ножей и тд. и тп. просто положил инги айрон и пошел ковать дагеры. зарание Большое спасибо!!! |
|
| Author: | cruel [ 2004-06-19 07:19:23 ] |
| Post subject: | Скрипт на бс под ЕП |
sub checkaction() if UO.InJournal("BlackSmith c.e.p") then ## меседж когда удачно сделал вещь return 1 end if if UO.InJournal("fail") then ##меседж когда сфейлил return 1 end if end sub sub main() while 1 UO.DeleteJournal() UO.Exec("useobject ^0x1BEF"); ##тайп инготов UO.Exec("waitmenu 'Bronze Armor & Shields' (6)") ##назва менюшки , а цифра в дужках номер вещи while NOT checkaction() Wait(500) wend wend end sub |
|
| Author: | SuperStar [ 2004-06-21 11:25:38 ] |
| Post subject: | |
а можно по падробнее у меня чегото не пашет??? |
|
| Author: | M0ke [ 2004-06-21 17:01:31 ] |
| Post subject: | Re: кому не сложно простой скриптик на бс |
SuperStar wrote: чтоб кавал дагеры,без всяких перекидываний ножей и тд. и тп.
просто положил инги айрон и пошел ковать дагеры. зарание Большое спасибо!!! ;Скрипт на Blacksmithy Iron Daggers sub BlacksmithyIM() VAR Exit=0, LastTimer while Exit<>1 UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','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(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/ |
|