Page 1 of 1

Помогите разобраться плз

Posted: 2008-04-24 20:49:18
by Kukus
Народ помогите разобраться плз, вот такой вот скриптик, но он меню доводит до дагера но не выбирает его ((


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 играю на оскоме)

Заранее спс

Posted: 2008-04-25 01:18:48
by Dron D.
Если не ошибаюсь, то вроде там меню немного другие, внеси изменения в меню.

Posted: 2008-04-25 06:41:20
by Kukus
ну я кагбы внес, самое странное, что когда уходил поставил пилот, чтобы добивал меню до конца, а ща прихожу и он сам все норм делает =)))) дурдом ))))))) :lol:

Posted: 2008-04-25 23:30:11
by Kukus
Когда перешел на катаны появилась новая проблема, скрипт стал зацикливаться на делании(только стучит и ничего не производит) я вот думаю, возможно вот в это месте надо подправить немного или я не прав?
until UO.Timer()>=LastTimer+100