Помогите добавить реконект в скрипт

[caban]

Есть скрипт кача хила на курсе. Нужно вписать в него Функию реконекта, так как толи из-за заполнения журнала толи боков сервака очень часто конлостит.

Code: Select all

sub Healing()
  var STR=180 #Реальная сила чара
  var item='0x13F6' #Тип курсы
  var wash='0x401DE8CA' #Айди тазика с водой
  var bloody='0x0E20' #Тип грязных бинтов
  var food='0x09EC' #Тып еды которую будет хавать
  var k, i 
  while not uo.Dead() && uo.SkillVal('Healing',1) < 1000
    if uo.life < STR then
      goto BeginHeal
    end if
    uo.FindType(item,'-1','backpack')
    if uo.FindCount() then
      uo.UseObject('finditem')
      repeat
        wait(250)
        CheckLag()
      until uo.life <= STR -1
      BeginHeal:
      uo.UnDress()
      repeat
        k = 0
        if uo.life <> STR then
          uo.BandageSelf()
          wait(3500)
        end if
      until uo.life == STR 
      uo.FindType(bloody,'-1','backpack')
      if uo.FindCount() && uo.GetQuantity('finditem') >= 30 then
        uo.WaitTargetObject(wash)
        uo.UseObject('finditem')
        CheckLag()
        for i = 0 to 10
          uo.UseType(food)
          wait(1000)
        next
      end if
    else
      if not uo.FindCount() then
        uo.CloseUo()
        uo.exec('terminate all')       
      else
        wait(500)
      end if
    end if
  wend
end sub

sub CheckLag()
  uo.DeleteJournal('backpack')
  uo.Click('backpack')
  repeat
    wait(100)
  until uo.InJournal('backpack')
end sub 

и реконект.

Code: Select all

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
wait(1000)
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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

Подскажите куда его вставить чтобы он реконектился, я его вставлял после функции проверки лага, но он почемуто не срабатывал. Помогите подскажите пожалуйста куда его вписывать?

[Tranceman]

ti Save Password zdelaj v nastroikah Injecta

[Eventualis]

у меня если хочу чара поменять приходится инжу перезапускать каждый раз, а у вас нет?

[caban]

Сейв пасворд стоит.
Я спрашивал куда лучше реконект вписать к какую часть макроса

[Hairyness]

sub Healing()
var STR=180 #Реальная сила чара
var item='0x13F6' #Тип курсы
var wash='0x401DE8CA' #Айди тазика с водой
var bloody='0x0E20' #Тип грязных бинтов
var food='0x09EC' #Тып еды которую будет хавать
var k, i
uo.exec(Reconnector)
while not uo.Dead() && uo.SkillVal('Healing',1) < 1000
if uo.life < STR then
goto BeginHeal
end if
uo.FindType(item,'-1','backpack')
if uo.FindCount() then
uo.UseObject('finditem')
repeat
wait(250)
CheckLag()
until uo.life <= STR -1
BeginHeal:
uo.UnDress()
repeat
k = 0
if uo.life <> STR then
uo.BandageSelf()
wait(3500)
end if
until uo.life == STR
uo.FindType(bloody,'-1','backpack')
if uo.FindCount() && uo.GetQuantity('finditem') >= 30 then
uo.WaitTargetObject(wash)
uo.UseObject('finditem')
CheckLag()
for i = 0 to 10
uo.UseType(food)
wait(1000)
next
end if
else
if not uo.FindCount() then
uo.CloseUo()
uo.exec('terminate all')
else
wait(500)
end if
end if
wend
end sub

sub CheckLag()
uo.DeleteJournal('backpack')
uo.Click('backpack')
repeat
wait(100)
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(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
wait(1000)
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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


Я думаю, что так, но может я что-то с синтаксисом напутал...по сути можно запускать реконектор ручками при запуске скрипта на хилинг