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

Ask for help

Moderators: Murderator+, Murderator

Post Reply
caban
Posts: 7
Joined: 2008-10-02 20:50:15

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

Post by 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


Подскажите куда его вставить чтобы он реконектился, я его вставлял после функции проверки лага, но он почемуто не срабатывал. Помогите подскажите пожалуйста куда его вписывать?
Top
Tranceman
Posts: 16
Joined: 2007-02-19 05:38:54
Location: Riga
Contact:
Contact Tranceman

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

Post by Tranceman »

ti Save Password zdelaj v nastroikah Injecta
"Player OldparadiseXL"
Top
Eventualis
Posts: 123
Joined: 2008-03-03 22:49:34
Contact:
Contact Eventualis

Post by Eventualis »

у меня если хочу чара поменять приходится инжу перезапускать каждый раз, а у вас нет?
Top
caban
Posts: 7
Joined: 2008-10-02 20:50:15

Post by caban »

Сейв пасворд стоит.
Я спрашивал куда лучше реконект вписать к какую часть макроса
Top
Hairyness
Posts: 29
Joined: 2006-02-08 05:50:40
Location: third planet from sun
Contact:
Contact Hairyness

Post by 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


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

Return to “Help”