Code: Select all
#******************************#
#*********** 1.01 *************#
# Cooper & You Must Die #
#******************************#
#******************************#
sub Alchemy()
var eye=' ' ; Тип Eyes of Newt тут
var forpotion= 18000 ;Задержка на изготовление
var potion=' ' ; Тип Маны тут
var color=' ' ; Цвет Маны тут
var sunduk=' ' ; Откуда брать, и куда складывать
var bottle=' ' ;Тип бутылок
var i
while not uo.Dead()
uo.DeleteJournal()
uo.FindType(eye,'-1','my')
if uo.GetQuantity('finditem') > 10 then
uo.FindType(bottle,'-1','my')
if uo.GetQuantity('finditem') > 10 then
uo.WaitMenu('What sort of potion do you','Total Mana') тут
uo.UseType(eye)
wait(forpotion)
CheckLag()
i = 0
repeat
wait(100)
k = k + 1
until uo.InJournal('You put') OR uo.InJournal('You toss') or (k>50)
if uo.InJournal('You put') then
uo.DeleteJournal()
uo.FindType(potion,color,'backpack')
CheckLag()
while uo.FindCount()
uo.moveitem('finditem','10',sunduk)
wait(500)
wend
end if
else
uo.FindType(bottle,'-1',sunduk)
uo.moveitem('finditem','100')
wait(1000)
end if
else
uo.FindType(eye,'-1',sunduk)
uo.moveitem('finditem','100')
wait(1000)
end if
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub Ljudi plz kak prapisat stobi bi bral bolse odnogo tipa regov dapustim mne nada takie banki craftit gde nada bolse 4em adin reg ja prost ih crav4u ne dla skilla a dla seba stob begat i ho4etsa stob na no4 kinul prasnulsa a tam uze 3k banok ili bolse vot dapustim regi catorie mne nuzni dla 1 banki
3 Garlic, 3 Ginseng, 3 Mandrake Roots, 1 Magic bottle