alchemy GH
Posted: 2009-09-26 13:28:08
ктонить дайте плиз скрипт чтобы брал ресурсы варил Греат Хеал и складывал в сундук и так пока ресурсы не кончатся ! 
поиск или фулл выхаHeBbIHocuM wrote:ктонить дайте плиз скрипт чтобы брал ресурсы варил Греат Хеал и складывал в сундук и так пока ресурсы не кончатся !
Code: Select all
Sub Alchemy(type,quantity,name)
var i,k
var msg1='put'
var msg2='toss'
for i=0 to quantity
uo.FindType(type,'-1','backpack')
if uo.FindCount() then
uo.DeleteJournal()
k=0
uo.WaitMenu('What',name)
uo.UseType(type)
repeat
wait(100)
k=k+1
until uo.InJournal(msg1) || uo.InJournal(msg2) || (k>100)
wait(500)
end if
next
end sub
sub Create_Total_Mana()
Alchemy('0x0F87',25,'Total')
end sub
sub Create_Total_Refresh()
Alchemy('0x0F7A',10,'Total')
end sub
sub Create_Greater_Heal()
Alchemy('0x0F85',10,'Greater')
end subСкрипт понравился. Я как раз алхимию качаю =)Scripts Writer wrote:Небольшая процедурка написанная мною когда-то давно,- просто и без излишеств. Добор и выкладку я думаю труда добавить не составит.
Code: Select all
Sub Alchemy(type,quantity,name) var i,k var msg1='put' var msg2='toss' for i=0 to quantity uo.FindType(type,'-1','backpack') if uo.FindCount() then uo.DeleteJournal() k=0 uo.WaitMenu('What',name) uo.UseType(type) repeat wait(100) k=k+1 until uo.InJournal(msg1) || uo.InJournal(msg2) || (k>100) wait(500) end if next end sub sub Create_Total_Mana() Alchemy('0x0F87',25,'Total') end sub sub Create_Total_Refresh() Alchemy('0x0F7A',10,'Total') end sub sub Create_Greater_Heal() Alchemy('0x0F85',10,'Greater') end sub