Pomagitje help :)
Posted: 2005-03-04 15:24:36
Vot ja nepoimu vzjal ja script na bs cr daggers
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
UO.UseType(0x1BEF)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x401191DD)
Endif
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x400824E7') wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
Vsjo kane6no horosho script pashit toka ja neponemaju po4emu ja vot doko4al do 38% bs uzhe 2 k irona iztratil i neproka4alasj ne na 0,1 help pliz neprodvigajitca skill 6to delatj ??
sub BlacksmithyIM()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
UO.UseType(0x1BEF)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend
If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 EndIf
UO.FindType('0x0F51',-1,'backpack')
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x401191DD)
Endif
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x400824E7') wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
Vsjo kane6no horosho script pashit toka ja neponemaju po4emu ja vot doko4al do 38% bs uzhe 2 k irona iztratil i neproka4alasj ne na 0,1 help pliz neprodvigajitca skill 6to delatj ??