Yoko
http://forum.yoko.com.ua/

Реконнектор
http://forum.yoko.com.ua/viewtopic.php?f=3&t=5188		 Page 1 of 1
Author:  Fire [ 2005-09-16 07:09:33 ]
Post subject:  Реконнектор
Когда стою на прокачке у меня, допустим, запушено 2 скрипта (1-й на определенный скилл, а 2-й - реконнектор)... но после того как выкидывает с УО и реконнектор заново конестится запускается только сам реконектор без скрипта на определенный скилл... Подскажите пожалуста как можно сделать так что бы после реконнекта ( с помошью реконнектора) запускались все скрипты которые были до дисконнеста...
Author:  Fire [ 2005-09-16 15:54:51 ]
Post subject: 
Что никто неможет подсказать?
Author:  Sfagnum [ 2005-09-16 18:23:12 ]
Post subject: 
типа код твоего реконектора мы должны по звёздам прочитать, м? :roll:
Author:  Fire [ 2005-09-16 21:50:16 ]
Post subject: 
Sfagnum wrote:
типа код твоего реконектора мы должны по звёздам прочитать, м? :roll:


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

P.S. я просто в этом не шарю...
Author:  Leo [ 2005-09-16 22:04:49 ]
Post subject: 
Fire wrote:
А где этот код пишется?

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


Копируешь свой скрипт, выставляешь его тут , не забывая при этом использовать теги [cоde] и [/cоde].
Author:  Fire [ 2005-09-17 06:29:36 ]
Post subject: 
Code:
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



Вот...
Author:  Sfagnum [ 2005-09-17 18:59:10 ]
Post subject: 
Fire wrote:
Code:
sub main()
UO.Exec('terminate Reconnector')
  UO.Exec('exec Reconnector')
  wait(5000)



Вот...
навскидку всё правильно...
если кнчн ты просто обрезал скрипт а не такой и юзаешь ;)
Author:  Fire [ 2005-09-20 17:36:28 ]
Post subject: 
Так мне и не ответили на поставленый вопрос... Как сделать так, что бы после реконекта запускался не только реконектор, а и те скрипты которые были запушены до реконекта?
Author:  Leo [ 2005-09-20 17:43:03 ]
Post subject: 
viewtopic.php?t=670
Author:  Fire [ 2005-09-21 14:09:50 ]
Post subject: 
Всем спасибо... Я уже разобрался...
Author:  st.Leshiy [ 2007-03-13 20:27:11 ]
Post subject: 
Fire wrote:
Всем спасибо... Я уже разобрался...
скажи плз как сделал то :(
Author:  Nmy [ 2007-03-13 21:53:22 ]
Post subject: 
командой
Code:
exec('exec script')

или поставь галку у autostart
и зделай себе скрипт
Code:
sub autostart()
...
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/