Помогите Плизз с Бс'ом

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
inter12345
Posts: 3
Joined: 2005-05-23 22:06:14

Помогите Плизз с Бс'ом

Post by inter12345 »

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Maces','Maces','smith') ;×òî êóåì
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(0x401C1DEC) ; Ôîðæ
Endif

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


почемуто инги не берет из сундука , инги кончаются он открывает менюшку с дагером ! мне надо кувать молотки ... помогите плиззз ! Парни заранее спосибо.... :D
Solaire
Posts: 163
Joined: 2005-05-21 07:12:12
Location: DRW

Post by Solaire »

Так у тебя он в сундуке не инги, а хз что ищет. Ты тип-то нужный поставь. :wink:
inter12345
Posts: 3
Joined: 2005-05-23 22:06:14

Post by inter12345 »

Покажи что надо исправить ! плизз где?? :(
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:

Post by I'm »

А на молоток надо скоко ингов? =)
Я почемуто полагаю что напротив той строки должно быть что-то написанно...
И если неизменяет память так примерно выглядил скрипт куллера только у того была шапка с пояснениями...
Post Reply