VINT wrote:
Поиск я юзать умею , и ещё раз скажу что макроса такого что мне нужно не нашел! макрос ветерана не подходит потому как у нас в одном мешке может быть максимум 255 айтемов! это нужен скрипт либо с большим количеством мешочков либо с продажей, а таких скриптов по поиску нет!!!!!
Code:
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 итемов наделывал шел продавать в магазин
Все по старинке