Yoko :: Подправьте скрипт ! Спирит + реконект

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

Подправьте скрипт ! Спирит + реконект http://forum.yoko.com.ua/viewtopic.php?f=20&t=14478	Page 1 of 1

Author:

+GhosT+ [ 2009-02-27 07:15:10 ]

Post subject:

Подправьте скрипт ! Спирит + реконект

Вот есть скрипт на спирит и реконектор ! Я запускаю спирит и дисконект раздельно но они в одном скрипте ! Когда происходит дисконект , реконектор срабатывает но отключается скрипт на спирит и на реконектор ! тоесть после дисконекта уже нех не запускаеться ! подправьте плз !

Code:

sub spirit() 

UO.UseSkill('Spirit') 

while not UO.Dead() 

wait(100) 

if UO.InJournal("netherworld") then 

UO.DeleteJournal() 

UO.UseSkill('Spirit') 

endif

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 all') 
UO.Exec('exec autoload') 
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:

Kynep [ 2009-02-27 07:48:22 ]

Post subject:

Re: Подправьте скрипт ! Спирит + реконект

Code:

sub spirit()
   VAR count = 0
   UO.Exec('terminate Reconnector')
   wait(500)
   UO.Exec('exec Reconnector')
   wait(500)

   while not UO.Dead()       
      UO.DeleteJournal()
      UO.UseSkill('Spirit Speak')
      repeat
         wait(100)
         count = count+1
      until NOT UO.InJournal("You establish") OR NOT UO.InJournal("You fail") OR NOT UO.InJournal("perform") AND count<60
      wait(3000)
      count = 0
   wend
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 spirit')
         wait(5000)
         UO.Exec('exec spirit')
         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/