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

Помогите со скриптом (не реконетит)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7199
Page 1 of 1

Author:  Shevrik [ 2006-03-30 17:37:39 ]
Post subject:  Помогите со скриптом (не реконетит)

У меня есть такой скриптец на бегинг но он чо то не реконектит
Code:
sub Begging() 
var count=0
uo.print('totem')
uo.exec('addobject TOT')
uo.Exec('terminate Reconnector')
uo.Exec('exec Reconnector')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
uo.waittargetobject('TOT')
UO.Useskill('Begging')   
wait(11000)
until UO.Dead()
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')
           UO.Exec('exec main')
           UO.TextOpen()
           UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
           RFlag = 1
           ReconnectTime = '0'
        endif
  Until false
end sub

Author:  Grin [ 2006-03-30 17:40:44 ]
Post subject: 

и чего не так?

Author:  Shevrik [ 2006-03-30 17:43:31 ]
Post subject: 

Grin wrote:
и чего не так?

Мне друг сказал что он не хочет реконектить

Author:  Grin [ 2006-03-30 17:46:56 ]
Post subject: 

ждите реконекчиков;)

Author:  Sfagnum [ 2006-03-30 23:22:47 ]
Post subject: 

Shevrik wrote:
Grin wrote:
и чего не так?

Мне друг сказал что он не хочет реконектить
бывает...

и млЯть кто тебя научил так топики называть!?!?! :evil:

Author:  Destruction [ 2006-03-31 00:04:47 ]
Post subject: 

Sfagnum wrote:
Shevrik wrote:
Grin wrote:
и чего не так?

Мне друг сказал что он не хочет реконектить
бывает...

и млЯть кто тебя научил так топики называть!?!?! :evil:

Кто учил - хз, но мне пришлось помочь.

Author:  Shevrik [ 2006-03-31 09:11:10 ]
Post subject: 

Никто меня не учил так называть!
что в голову первым пришло то и написал

Author:  Sfagnum [ 2006-03-31 12:07:06 ]
Post subject: 

Shevrik wrote:
Никто меня не учил так называть!
что в голову первым пришло то и написал
а это тебя не касается? :roll:

Author:  Shevrik [ 2006-03-31 16:14:40 ]
Post subject: 

Sfagnum wrote:
Shevrik wrote:
Никто меня не учил так называть!
что в голову первым пришло то и написал
а это тебя не касается? :roll:

есть немного :)

Author:  GimFlex [ 2006-03-31 16:34:36 ]
Post subject: 

:arrow:

Author:  Sfagnum [ 2006-04-01 00:20:57 ]
Post subject: 

хех ток ща врубился то...
MakeTime() - такой процедуры нет чтоль у тебя?
или просто забыл?

Author:  GimFlex [ 2006-04-01 08:11:23 ]
Post subject: 

Code:
sub Begging() 
var count=0
uo.print('totem')
uo.exec('addobject TOT')
uo.Exec('terminate Reconnector')
uo.Exec('exec Reconnector')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
uo.waittargetobject('TOT')
UO.Useskill('Begging')   
wait(11000)
until UO.Dead()
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 Begging')
           UO.Exec('exec Begging')
           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/