sub bs()
VAR Exit=0, LastTimer, Forge='0x412787C1', Cont='0x414E3335', 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
wend
end sub
И у меня очень часто в отдельном окошке вылетает ошибка "Unhandled exception in parser", можно ли как-нибудь исправить ее? А то нормально не могу покачать БС, так как она вылетает постоянно.. =(
sub bs()
VAR Exit=0, LastTimer, ingots='0x1BF2'
UO.AutoMenu('Blacksmithing','Weapons');
UO.AutoMenu('Weapons','Swords');
UO.AutoMenu('Swords','katana');
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
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
wend
end sub
2 Sfagnum: сенк вроде помогло.. =)
Может вы тогда мне еще поможете, допишите скрипт, чтобы он реколился по руне, продавал однотипные предметы(катаны), возвращался, брал определенное кол-во ингов (500) и кувал дальше и чтобы это все повторялось, пока с сундуке не закочатся инги..
FenixXx wrote:2 Sfagnum: сенк вроде помогло.. =)
Может вы тогда мне еще поможете, допишите скрипт, чтобы он реколился по руне, продавал однотипные предметы(катаны), возвращался, брал определенное кол-во ингов (500) и кувал дальше и чтобы это все повторялось, пока с сундуке не закочатся инги..