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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

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

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

Заранее спс
Dron D.
Posts: 190
Joined: 2004-12-13 01:27:00

Post by Dron D. »

Если не ошибаюсь, то вроде там меню немного другие, внеси изменения в меню.
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

ну я кагбы внес, самое странное, что когда уходил поставил пилот, чтобы добивал меню до конца, а ща прихожу и он сам все норм делает =)))) дурдом ))))))) :lol:
Kukus
Posts: 12
Joined: 2008-04-24 20:43:46

Post by Kukus »

Когда перешел на катаны появилась новая проблема, скрипт стал зацикливаться на делании(только стучит и ничего не производит) я вот думаю, возможно вот в это месте надо подправить немного или я не прав?
until UO.Timer()>=LastTimer+100
Post Reply