sub bs()
VAR Exit=0, LastTimer, Forge='0x4002A532', Cont='0x4011624D', ingots='0x1BF2' ; Ставим все свое
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.AutoMenu('Blacksmithing','Weapons');
UO.AutoMenu('Weapons','Swords');
UO.AutoMenu('Swords','katana'); Ну или меняем на даггеры, если надо
UO.UseType(ingots)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(100)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
EndIf
UO.FindType('a katana',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(Forge)
Endif
wend
end sub
Что писать в 8-ю строчку снизу(UO.FindType('a katana',-1,'backpack') ) вместо слова катана??? И как сделать что бы он после переплавки одевал на себя молоток заного?
Хелп...
Moderators: Murderator+, Murderator