Реконнектор

Fire · Post by **Fire** » 2005-09-16 07:09:33

Когда стою на прокачке у меня, допустим, запушено 2 скрипта (1-й на определенный скилл, а 2-й - реконнектор)... но после того как выкидывает с УО и реконнектор заново конестится запускается только сам реконектор без скрипта на определенный скилл... Подскажите пожалуста как можно сделать так что бы после реконнекта ( с помошью реконнектора) запускались все скрипты которые были до дисконнеста...

Fire · Post by **Fire** » 2005-09-16 15:54:51

Что никто неможет подсказать?

Sfagnum · Post by **Sfagnum** » 2005-09-16 18:23:12

типа код твоего реконектора мы должны по звёздам прочитать, м? :roll:

Fire · Post by **Fire** » 2005-09-16 21:50:16

Sfagnum wrote:типа код твоего реконектора мы должны по звёздам прочитать, м?

А где этот код пишется?

P.S. я просто в этом не шарю...

Leo · Post by **Leo** » 2005-09-16 22:04:49

Fire wrote:А где этот код пишется?

P.S. я просто в этом не шарю...

Копируешь свой скрипт, выставляешь его тут , не забывая при этом использовать теги [cоde] и [/cоde].

Fire · Post by **Fire** » 2005-09-17 06:29:36

Code: Select all

sub main()
UO.Exec('terminate Reconnector')
  UO.Exec('exec Reconnector')
  wait(5000)

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')
            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

Вот...

Sfagnum · Post by **Sfagnum** » 2005-09-17 18:59:10

Fire wrote:

Code: Select all

sub main()
UO.Exec('terminate Reconnector')
  UO.Exec('exec Reconnector')
  wait(5000)

Вот...

навскидку всё правильно...
если кнчн ты просто обрезал скрипт а не такой и юзаешь

Fire · Post by **Fire** » 2005-09-20 17:36:28

Так мне и не ответили на поставленый вопрос... Как сделать так, что бы после реконекта запускался не только реконектор, а и те скрипты которые были запушены до реконекта?

Leo · Post by **Leo** » 2005-09-20 17:43:03

viewtopic.php?t=670

Fire · Post by **Fire** » 2005-09-21 14:09:50

Всем спасибо... Я уже разобрался...

st.Leshiy · Post by **st.Leshiy** » 2007-03-13 20:27:11

Fire wrote:Всем спасибо... Я уже разобрался...

скажи плз как сделал то

Nmy · Post by **Nmy** » 2007-03-13 21:53:22

командой

Code: Select all

exec('exec script')

или поставь галку у autostart
и зделай себе скрипт

Code: Select all

sub autostart()
...
end sub