Patrol wrote:
Он мне ошибку пишет и сразу викидавет я даже не успеваю ожибку посматреть
хм
сча
Кароч это группа скриптов которыми недавно качал БС соответственно для айрона, олдкупера, дулкупера, купера и бронзы.
Рихтовать нада в зависимости от скила менюшку и тип итема что будешь крафтать
УДАЧИ
Code:
VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p
sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Blacksmithing','Shields')
uo.automenu('Shields','buckler')
uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
ToHide()
if UO.Timer()>(LastTimer+3000) then
if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...")
f=1
p=0
repeat
p=p+1
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
end if
uo.usetype('0x097B','0x0000')
wait(1000)
LastTimer=UO.Timer()
end if
if uo.count('0x1BEF','0x0000')<25 then
UO.FindType('0x1BEF','0x0000',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','1000','backpack')
wait(1000)
end if
if uo.count('0x1BEF','0x0000')<25 then
uo.closeuo()
end if
uo.deletejournal()
uo.usetype('0x1BEF','0x0000')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
if uo.count('0x1B73','0x0000')>0 then
uo.waittargettype('0x1B73','0x0000')
wait(50)
uo.deletejournal()
uo.useobject(Forge)
repeat
wait(10)
until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
end if
wend
end sub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (uo.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Blacksmithing')
wait(5000)
uo.Exec('exec Blacksmithing')
wait(5000)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub ToHide()
while not uo.hidden()
UO.DeleteJournal()
uo.useskill("Hiding")
repeat
wait(10)
until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
if UO.InJournal("You are preoccupied with thoughts of battle.") then
uo.exec("warmode 1")
wait(100)
uo.exec("warmode 0")
wait(100)
end if
wend
end sub
Code:
VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p
sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')
uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
ToHide()
if UO.Timer()>(LastTimer+3000) then
if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...")
f=1
p=0
repeat
p=p+1
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
end if
uo.usetype('0x097B','0x0000')
wait(1000)
LastTimer=UO.Timer()
end if
if uo.count('0x1BEF','0x0590')<8 then
UO.FindType('0x1BEF','0x0590',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','1000','backpack')
wait(1000)
cheklag()
end if
uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
if (uo.count('0x1BEF','0x0590')<8) or uo.skillval("Blacksmithing",1)>=1000 then
uo.closeuo()
end if
uo.deletejournal()
uo.usetype('0x1BEF','0x0590')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
if uo.count('0x1404','0x0590')>0 then
uo.waittargettype('0x1404','0x0590')
wait(50)
uo.deletejournal()
uo.useobject(Forge)
repeat
wait(10)
until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
end if
wend
end sub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (uo.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Blacksmithing')
wait(5000)
uo.Exec('exec Blacksmithing')
wait(5000)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub ToHide()
while not uo.hidden()
UO.DeleteJournal()
uo.useskill("Hiding")
repeat
wait(10)
until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
if UO.InJournal("You are preoccupied with thoughts of battle.") then
uo.exec("warmode 1")
wait(100)
uo.exec("warmode 0")
wait(100)
end if
wend
end sub
Code:
VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p
sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')
uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
ToHide()
if UO.Timer()>(LastTimer+3000) then
if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...")
f=1
p=0
repeat
p=p+1
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
end if
uo.usetype('0x097B','0x0000')
wait(1000)
LastTimer=UO.Timer()
end if
if uo.count('0x1BEF','0x060A')<8 then
UO.FindType('0x1BEF','0x060A',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','1000','backpack')
wait(1000)
cheklag()
end if
uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
if (uo.count('0x1BEF','0x060A')<8) or uo.skillval("Blacksmithing",1)>=1000 then
uo.closeuo()
end if
uo.deletejournal()
uo.usetype('0x1BEF','0x060A')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
if uo.count('0x1404','0x060A')>0 then
uo.waittargettype('0x1404','0x060A')
wait(50)
uo.deletejournal()
uo.useobject(Forge)
repeat
wait(10)
until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
end if
wend
end sub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (uo.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Blacksmithing')
wait(5000)
uo.Exec('exec Blacksmithing')
wait(5000)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub ToHide()
while not uo.hidden()
UO.DeleteJournal()
uo.useskill("Hiding")
repeat
wait(10)
until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
if UO.InJournal("You are preoccupied with thoughts of battle.") then
uo.exec("warmode 1")
wait(100)
uo.exec("warmode 0")
wait(100)
end if
wend
end sub
Code:
VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p
sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')
uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
ToHide()
if UO.Timer()>(LastTimer+3000) then
if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...")
f=1
p=0
repeat
p=p+1
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
end if
uo.usetype('0x097B','0x0000')
wait(1000)
LastTimer=UO.Timer()
end if
if uo.count('0x1BE3','0x0000')<20 then
UO.FindType('0x1BE3','0x0000',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','1000','backpack')
wait(1000)
cheklag()
end if
uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
if (uo.count('0x1BE3','0x0000')<20) or uo.skillval("Blacksmithing",1)>=1000 then
uo.closeuo()
end if
uo.deletejournal()
uo.usetype('0x1BE3','0x0000')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
if uo.count('0x1404','0x0088')>0 then
uo.waittargettype('0x1404','0x0088')
wait(50)
uo.deletejournal()
uo.useobject(Forge)
repeat
wait(10)
until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
end if
wend
end sub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (uo.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Blacksmithing')
wait(5000)
uo.Exec('exec Blacksmithing')
wait(5000)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub ToHide()
while not uo.hidden()
UO.DeleteJournal()
uo.useskill("Hiding")
repeat
wait(10)
until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
if UO.InJournal("You are preoccupied with thoughts of battle.") then
uo.exec("warmode 1")
wait(100)
uo.exec("warmode 0")
wait(100)
end if
wend
end sub
Code:
VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p
sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')
uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
ToHide()
if UO.Timer()>(LastTimer+3000) then
if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...")
f=1
p=0
repeat
p=p+1
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
end if
uo.usetype('0x097B','0x0000')
wait(1000)
LastTimer=UO.Timer()
end if
if uo.count('0x1BEF','0x0488')<20 then
UO.FindType('0x1BEF','0x0488',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','1000','backpack')
wait(1000)
cheklag()
end if
uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
if (uo.count('0x1BEF','0x0488')<20) or uo.skillval("Blacksmithing",1)>=1000 then
uo.closeuo()
end if
uo.deletejournal()
uo.usetype('0x1BEF','0x0488')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You have failed")
if uo.count('0x1404','0x0488')>0 then
uo.waittargettype('0x1404','0x0488')
wait(50)
uo.deletejournal()
uo.useobject(Forge)
repeat
wait(10)
until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
end if
wend
end sub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (uo.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(70000) # WorldSave Protection
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.Say('')
Wait(5000)
uo.LDblClick(357,164)
uo.LClick(616,459)
Wait(5000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
uo.RClick(196,193)
wait(2000)
uo.RClick(196,193)
wait(2000)
uo.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Blacksmithing')
wait(5000)
uo.Exec('exec Blacksmithing')
wait(5000)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
Sub ToHide()
while not uo.hidden()
UO.DeleteJournal()
uo.useskill("Hiding")
repeat
wait(10)
until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
if UO.InJournal("You are preoccupied with thoughts of battle.") then
uo.exec("warmode 1")
wait(100)
uo.exec("warmode 0")
wait(100)
end if
wend
end sub
Register
Login
FAQ
Search
