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) и кувал дальше и чтобы это все повторялось, пока с сундуке не закочатся инги..