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/