Опять я! Алхимия злополучная!!!
Moderators: Murderator+, Murderator
Опять я! Алхимия злополучная!!!
Поиск я юзать умею , и ещё раз скажу что макроса такого что мне нужно не нашел! макрос ветерана не подходит потому как у нас в одном мешке может быть максимум 255 айтемов! это нужен скрипт либо с большим количеством мешочков либо с продажей, а таких скриптов по поиску нет!!!!!
1 - ВЕТЕР тут непричём если чтото непашет
2 - Отписать что должен делать макрос и его особенности нужные несудьба?
3 - Если видел макрос и он более меннее подходит - дал бы линк может ктото и согласился-бы помочь...
Так что делай выводы...

2 - Отписать что должен делать макрос и его особенности нужные несудьба?

3 - Если видел макрос и он более меннее подходит - дал бы линк может ктото и согласился-бы помочь...
Так что делай выводы...

Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
Re: Опять я! Алхимия злополучная!!!
VINT wrote:Поиск я юзать умею , и ещё раз скажу что макроса такого что мне нужно не нашел! макрос ветерана не подходит потому как у нас в одном мешке может быть максимум 255 айтемов! это нужен скрипт либо с большим количеством мешочков либо с продажей, а таких скриптов по поиску нет!!!!!
Code: Select all
sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
UO.DeleteJournal()
UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
UO.UseType(reagent)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(400)
wend
wend
end sub
sub dp()
alchemy('0x0F88', 8, "'Deadly Poison'")
end sub
sub invis()
alchemy('0x0F91', 4, "'Invisibility'")
end sub
sub tm()
alchemy('0x0F87', 6, "'Total Mana'")
end sub
sub gh()
alchemy('0x0F85', 7, "'Greater Heal'")
end sub
sub gc()
alchemy('0x0F84', 6, "'Greater Cure'")
end sub
sub ss()
alchemy('0x0F85', 1, "'Stoneskin'")
end sub
sub tr()
alchemy('0x0F7A', 6, "'Total Refresh'")
end sub
sub ge()
alchemy('0x0F8C', 10, "'Greater Explosion'")
end sub
sub sh()
alchemy('0x0F78', 10, "'Shrink'")
end sub
sub ag()
alchemy('0x0F7B', 1, "'Agility'")
end sub
sub ga()
alchemy('0x0F7B', 3, "'Greater Agility'")
end sub
sub gp()
alchemy('0x0F88', 4, "'Greater Poison'")
end sub
sub m()
alchemy('0x0F87',1, "'Mana'")
end sub
я качал алхимию на этом простеньком скрипте...реги должны быть в паке,как и бутылки.Кладет он готовые зелья туда же...И потом как 250 итемов наделывал шел продавать в магазин

Все по старинке
Береш обычный скрипт на алхимию.
И после каждого крафта потиона проверяешь количество бутылок в паке. uo.findtype('тип бутылки','цвет',backpack)
если количество найденых "бутылок" больше 250. if UO.GetQuantity('finditem')>250 then . Тогда делаем рекол на рунку в паке , рунка к вендору. uo.waittargetobject('Рунка к вендору') , uo.cast('Recall'). И начанаем продавать бутылочки по листу Sell пока бутылок не станет 0.
repeat
UO.sell('имя листа','имя вендора')
wait (1000)
until UO.GetQuantity('finditem') < 1
потом реколимся обратно домой и продолжаем скрипт на крафт.
Ресовал как говорится на коленках без проверок ....так что возможно и не звпешит ))
И после каждого крафта потиона проверяешь количество бутылок в паке. uo.findtype('тип бутылки','цвет',backpack)
если количество найденых "бутылок" больше 250. if UO.GetQuantity('finditem')>250 then . Тогда делаем рекол на рунку в паке , рунка к вендору. uo.waittargetobject('Рунка к вендору') , uo.cast('Recall'). И начанаем продавать бутылочки по листу Sell пока бутылок не станет 0.
repeat
UO.sell('имя листа','имя вендора')
wait (1000)
until UO.GetQuantity('finditem') < 1
потом реколимся обратно домой и продолжаем скрипт на крафт.
Ресовал как говорится на коленках без проверок ....так что возможно и не звпешит ))
Все просто.
BETEPAH ™
BETEPAH ™
У людей много чего есть, юзай поиск и найдёшь что ищешь...VINT wrote:Savage скинь скриптик не в падлу я же знаю у тебя есть))))))
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
а чтоб ехплоужены простые варил??? как сделать
а чтоб ехплоужены простые варил??? как сделать
Знаеш
я думаю
делать надо
что-то
тут:
Например поменять название.




Code: Select all
sub ge()
alchemy('0x0F8C', 10, "'Greater Explosion'")
end sub
Например поменять название.