Yoko

All sides of Injection
It is currently 2024-03-28 15:33:21

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
 Post subject: Recconector
PostPosted: 2004-04-06 17:57:06 
Offline
User avatar

Joined: 2004-04-03 18:39:28
Posts: 173
все работает ! авто сеив пасворд должен быть вклученым
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


Top
   
 Post subject:
PostPosted: 2004-04-10 15:02:47 
Offline

Joined: 2004-04-10 14:58:07
Posts: 24
А если при реконнекте ижект говорит что не тот пасс, а при этом в поле пасса звёздочек в 2 раза больше чем должно быть, что делать?


Top
   
 Post subject:
PostPosted: 2004-04-10 17:42:46 
Offline
User avatar

Joined: 2004-04-03 18:39:28
Posts: 173
зделай саве пассворд !
и сотри там где ацц пасс и чар и все пойдет !


Top
   
 Post subject:
PostPosted: 2004-04-16 17:10:09 
Offline

Joined: 2004-04-10 14:58:07
Posts: 24
ОК, всё запохало)))


Top
   
 Post subject:
PostPosted: 2004-04-17 02:39:39 
Offline
User avatar

Joined: 2004-04-03 18:39:28
Posts: 173
я рад =)


Top
   
 Post subject: Свинство.
PostPosted: 2004-04-17 23:17:16 
Offline
User avatar

Joined: 2004-04-17 23:02:41
Posts: 48
Location: Odessa, Ukraine
Можно, как минимум, оставлять копирайты.
Скрипт мой.
Я его выкладывал только на 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

_________________
...thinking - 37% complete...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 15 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited