Yoko
http://forum.yoko.com.ua/

Помогите разобраться плз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13536		 Page 1 of 1
Author:  Kukus [ 2008-04-24 20:49:18 ]
Post subject:  Помогите разобраться плз
Народ помогите разобраться плз, вот такой вот скриптик, но он меню доводит до дагера но не выбирает его ((


sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords & Blades','dagger')
uo.UseType('0x13E3')
UO.UseType(0x1BF2) ;Èíãè àéðîíà

while NOT UO.InJournal("You put") AND NOT UO.InJournal("Âû òàê è íå ñìîãëè")
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(0x4015FD5F) ; Ôîðæ
Endif

UO.FindType('0x1BF2',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BF2','0x0000','0x4007EF99') ;Cóíäóê ñ èíãàìè
wait(1000)
UO.Grab('600','finditem')
Endif
wait(1000)
wend
end sub


а так все замечательно =) правда он инги ещё не хочет брать из сундука, но это не так страшно(PS играю на оскоме)

Заранее спс
Author:  Dron D. [ 2008-04-25 01:18:48 ]
Post subject: 
Если не ошибаюсь, то вроде там меню немного другие, внеси изменения в меню.
Author:  Kukus [ 2008-04-25 06:41:20 ]
Post subject: 
ну я кагбы внес, самое странное, что когда уходил поставил пилот, чтобы добивал меню до конца, а ща прихожу и он сам все норм делает =)))) дурдом ))))))) :lol:
Author:  Kukus [ 2008-04-25 23:30:11 ]
Post subject: 
Когда перешел на катаны появилась новая проблема, скрипт стал зацикливаться на делании(только стучит и ничего не производит) я вот думаю, возможно вот в это месте надо подправить немного или я не прав?
until UO.Timer()>=LastTimer+100
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/