помогите наити ошибку

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
durik
Posts: 11
Joined: 2004-06-25 10:55:37

помогите наити ошибку

Post by durik »

#BS

sub main()

While not UO.Dead()
UO.Exec("usetype 0x1bef") # использовать инги айрона
# можно и любые другие если поменять серийник
UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Ringmail Armor' 'ringmail gloves'")
Wait(7800); #
if UO.Count("0x13eb") > 1 then # UO.Waittargettype(0x13eb); #
UO.Drop();
endif
if UO.Count("0x1bef") < 6 then # Проверяем есть ли айрон в паке, если нет берем 6 инга
Uo.Exec("waittargetground 0x1bef") # куча айрона под ногами
Uo.exec("grab 6") # взять 6
wait(500)
end if
wend
end sub


помогите пжалуста наити ошибку...он выбираетармор...а дальше не выбирает...ringmail armor...хелп плзз
Lord Ruslan Nightmare
Expert!
Posts: 359
Joined: 2004-04-25 11:11:07
Contact:

Post by Lord Ruslan Nightmare »

UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Ringmail Armor' 'ringmail gloves'")
надо
UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Armor' 'Ringmail Armor' 'Ringmail Armor' 'ringmail gloves'")
или типа того.
Меню, выбор, снова меню, выбор, еще меню, еще выбор. А у тебя только первое меню - и дальше одни выборы.

И еще - не обязательно писать полностью строку. Можно только часть - так зачастую лучше
Без труда не выловишь и рыбку из пруда,
А без пруда не выловишь её и с трудом...
durik
Posts: 11
Joined: 2004-06-25 10:55:37

Post by durik »

#BS

sub main()

While not UO.Dead()
UO.Exec("usetype 0x1bef")
UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Armor' 'Ringmail Armor' 'Ring Mail armor' 'ringmail gloves'")
Wait(7800);
if UO.Count("0x1bef") < 6 then
Uo.Exec("waittargetground 0x1bef")
Uo.exec("grab 6")
wait(500)
end if
wend
end sub


вот такое вот получается...только почему то с земли аирон брать не хочет...я стёр чтоб выкидывал !
помоги с землёй
SVG
Posts: 73
Joined: 2004-04-15 14:50:06
Location: Moscow

Post by SVG »

Когда береш ни какого вайттаргета не нуна.
напиши просто
uo.exec("grab 6 ~0x1BEF")
Я где то рядом... 8)
durik
Posts: 11
Joined: 2004-06-25 10:55:37

Post by durik »

#BS

sub main()

While not UO.Dead()
UO.Exec("usetype 0x1bef")
UO.Exec("waitmenu 'Blacksmithing' 'Armor' 'Armor' 'Ringmail Armor' 'Ring Mail armor' 'ringmail gloves'")
Wait(7600);
if UO.Count("0x1bef") < 1 then
uo.exec("grab 10 ~0x1bef")
wait(500)
end if
wend
end sub


получилось такое..но брать с земли всёравно не хочет (((
Xpol
Posts: 14
Joined: 2004-05-04 00:06:57

Post by Xpol »

добавь uo.exec('set finddistance 2')
и все заработает :wink:
durik
Posts: 11
Joined: 2004-06-25 10:55:37

Post by durik »

спасибо...терь всё работает
Post Reply