Page 1 of 1
крафт шринок
Posted: 2007-12-07 15:06:00
by Sp
как из этого:
sub TMana()
alchemy('0x0F87', 6, "'Total Mana'")
end sub
сделать так что чар шринки крафтал...
Posted: 2007-12-08 00:00:34
by -=JoKeR=-
гЫ...из "этого" никак
Posted: 2007-12-08 04:25:02
by stickman
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(300)
wend
wend
gong(2)
end sub
sub makeSHRINK()
alchemy('0x0F78', 10, "'Shrink'")
end sub