while not uo.dead()
uo.sayu("all release")
repeat
uo.deletejournal()
uo.waittargetobject(animal)
wait(50)
uo.usetype('0x13F8','0x07D5')
repeat
wait(10)
until uo.injournal("You fail to tame the creature.") or uo.injournal("It seems to accept you as master.") or uo.injournal("You can't see the creature.") or uo.injournal("You can't see the target") or uo.dead()
if uo.injournal("You can't see the target") then
uo.closeuo()
end if
if UO.Timer()>(LastTimer+3000) then
uo.usetype('0x097B','0x0000')
wait(1000)
LastTimer=UO.Timer()
end if
until uo.injournal("It seems to accept you as master.") or uo.dead()
if uo.skillval("Animal Taming",1)>=1000 then
uo.sayu("all come")
while uo.GetDistance(animal)>1
wait(100)
wend
uo.useobject(animal)
wait(1000)
uo.closeuo()
end if
wend
uo.closeuo()
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.Exec('terminate animal_taming')
wait(5000)
uo.Exec('exec animal_taming')
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
_________________ "Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
