| Yoko http://forum.yoko.com.ua/ |
|
| помогите со скриптом БС http://forum.yoko.com.ua/viewtopic.php?f=3&t=3367 |
Page 1 of 1 |
| Author: | Forester [ 2005-03-12 03:54:22 ] |
| Post subject: | помогите со скриптом БС |
скачал скрипт с вашего сайта поменял ID как там и сказано ..оно пишет что не может найти придмет..чо не так я делаю? вот скрипт с поправками для моих воржи и сундука 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(0x402F1767) ; ???? Endif UO.FindType('0x1BEF',-1,'backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x402CFA21') ;C????? ? ?????? wait(1000) UO.Grab('1000','finditem') Endif wait(1000) wend end sub |
|
| Author: | KrafteR [ 2005-03-12 14:10:02 ] |
| Post subject: | Re: помогите со скриптом БС |
Forester wrote: скачал скрипт с вашего сайта поменял ID как там и сказано ..оно пишет что не может найти придмет..чо не так я делаю? вот скрипт с поправками для моих воржи и сундука
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(0x402F1767) ; ???? Endif UO.FindType('0x1BEF',-1,'backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x402CFA21') ;C????? ? ?????? wait(1000) UO.Grab('1000','finditem') Endif wait(1000) wend end sub Линк откуда качал кинь, буд добр. |
|
| Author: | Forester [ 2005-03-18 11:11:25 ] |
| Post subject: | |
извиняюсь щза задержку небыло инета воо линк http://yoko.netroof.net/forum/viewtopic.php?t=689 |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|