Непонятная проблемка со скриптом на БС.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
MyPzuk
Posts: 2
Joined: 2006-02-23 14:48:43

Непонятная проблемка со скриптом на БС.

Post by MyPzuk »

Вобщем шард дрв.переделал скрипт на Расти работает ,переделал на олд копер работает,переделал на Дулл сопер и тут он клинит хх че ему не неравится :cry: .

Вот рабочий скрипт на олд копер



VAR Sunduk='0x40336062'
VAR Forge='0x400CE4CA'
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()
wait(100)

uo.automenu('Blacksmithing','Colored Armor & Weapons')
wait (100)
uo.automenu('Colored Armor & Weapons','Old Copper Armor')
wait (100)
uo.automenu('Old Copper Armor','Old Copper Plate Armor & Shields')
wait (100)
uo.automenu('Old Copper Plate Armor & Shields','Old Copper Buckler')
wait (100)

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...")


repeat

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','0x0590')
wait(1000)
LastTimer=UO.Timer()
end if

if uo.count('0x1BEF','0x0590')<25 then
UO.FindType('0x1BEF','0x0590',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','500','backpack')
wait(1000)
end if

if uo.count('0x1BEF','0x0590')<25 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('0x1B73','0x0590')>0 then
uo.waittargettype('0x1B73','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


А вот скрипт каторыи клинит на Дулл Копер.

VAR Sunduk='0x40336062'
VAR Forge='0x400CE4CA'
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()
wait(100)

uo.automenu('Blacksmithing','Colored Armor & Weapons')
wait (100)
uo.automenu('Colored Armor & Weapons','Dull Copper Armor')
wait (100)
uo.automenu('Dull Copper Armor','Dull Copper Plate Armor & Shield')
wait (100)
uo.automenu('Dull Copper Plate Armor & Shield','Dull Copper Buckler')
wait (100)

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...")


repeat

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','0x060A')
wait(1000)
LastTimer=UO.Timer()
end if

if uo.count('0x1BEF','0x060A')<25 then
UO.FindType('0x1BEF','0x060A',Sunduk)
wait(100)
cheklag()
uo.moveitem('finditem','500','backpack')
wait(1000)
end if

if uo.count('0x1BEF','0x060A')<25 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('0x1B73','0x060A')>0 then
uo.waittargettype('0x1B73','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


Подскожите в чем проблема.
Top
Smog
Posts: 15
Joined: 2006-02-12 08:43:08
Contact:
Contact Smog

Post by Smog »

Code: Select all

uo.automenu('Blacksmithing','Colored Armor & Weapons') 
wait (100) 
uo.automenu('Colored Armor & Weapons','Old Copper Armor') 
wait (100) 
uo.automenu('Old Copper Armor','Old Copper Plate Armor & Shields') 
wait (100) 
uo.automenu('Old Copper Plate Armor & Shields','Old Copper Buckler') 
wait (100)

В этом.
Разные меню крафта,посмотри как в игре и сделай по аналогии с этим.
Top
MyPzuk
Posts: 2
Joined: 2006-02-23 14:48:43

Post by MyPzuk »

Smog wrote:

Code: Select all

uo.automenu('Blacksmithing','Colored Armor & Weapons') 
wait (100) 
uo.automenu('Colored Armor & Weapons','Old Copper Armor') 
wait (100) 
uo.automenu('Old Copper Armor','Old Copper Plate Armor & Shields') 
wait (100) 
uo.automenu('Old Copper Plate Armor & Shields','Old Copper Buckler') 
wait (100)

В этом.
Разные меню крафта,посмотри как в игре и сделай по аналогии с этим.


Этот работает не работает следущий скрипт,все пробывал нечего не выходит
Top
Post Reply

Return to “Scripting Ore”