Помогите со скриптом (не реконетит)

Shevrik · Post by **Shevrik** » 2006-03-30 17:37:39

У меня есть такой скриптец на бегинг но он чо то не реконектит

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

Grin · Post by **Grin** » 2006-03-30 17:40:44

и чего не так?

Shevrik · Post by **Shevrik** » 2006-03-30 17:43:31

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

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

Grin · Post by **Grin** » 2006-03-30 17:46:56

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

Sfagnum · Post by **Sfagnum** » 2006-03-30 23:22:47

Shevrik wrote:
Grin wrote:и чего не так?
Мне друг сказал что он не хочет реконектить

бывает...

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

Destruction · Post by **Destruction** » 2006-03-31 00:04:47

Sfagnum wrote:
Shevrik wrote:
Grin wrote:и чего не так?
Мне друг сказал что он не хочет реконектить
бывает...

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

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

Shevrik · Post by **Shevrik** » 2006-03-31 09:11:10

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

Sfagnum · Post by **Sfagnum** » 2006-03-31 12:07:06

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

а это тебя не касается?

Shevrik · Post by **Shevrik** » 2006-03-31 16:14:40

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

есть немного

GimFlex · Post by **GimFlex** » 2006-03-31 16:34:36

Sfagnum · Post by **Sfagnum** » 2006-04-01 00:20:57

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

GimFlex · Post by **GimFlex** » 2006-04-01 08:11:23

Code: Select all

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