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

Recconector
http://forum.yoko.com.ua/viewtopic.php?f=20&t=24		 Page 1 of 1
Author:  Kazoo [ 2004-04-06 17:57:06 ]
Post subject:  Recconector
все работает ! авто сеив пасворд должен быть вклученым
Code:
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('acountname')
               Wait(3000)
               UO.Say('password')
               Wait(3000)
               UO.Say('nickname')
               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:  Fenx [ 2004-04-10 15:02:47 ]
Post subject: 
А если при реконнекте ижект говорит что не тот пасс, а при этом в поле пасса звёздочек в 2 раза больше чем должно быть, что делать?
Author:  Kazoo [ 2004-04-10 17:42:46 ]
Post subject: 
зделай саве пассворд !
и сотри там где ацц пасс и чар и все пойдет !
Author:  Fenx [ 2004-04-16 17:10:09 ]
Post subject: 
ОК, всё запохало)))
Author:  Kazoo [ 2004-04-17 02:39:39 ]
Post subject: 
я рад =)
Author:  totus [ 2004-04-17 23:17:16 ]
Post subject:  Свинство.
Можно, как минимум, оставлять копирайты.
Скрипт мой.
Я его выкладывал только на http://www.uo.od.ua/board
В оригинале вообще выглядит так:
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/