http://yoko.netroof.net/forum/viewtopic.php?t=605
Author or poster:_________
totus newadmin@mail.ru ICQ 75300300
BETEP Flash_4444@List.ru ICQ 233461603
Tested on:_______________
DreamWorld www.uo.od.ua
Dragon World (v0.55i) http://www.drw.ru
Must work:_______________
Sphere emu
Customization required:____
No
Description:______________
(синтакс постера соблюдён)
Скрипт реконектор(Автоматический перезаход в Ультиму если вы "вылетели" с шарда).Очень удобно если к примеру шард на котором вы играете не стабилен и проиcходят постоянные "Отключения" сферы. Скрипт заходит вашим героем заново на шард и в отдельном окошке пишет время "вылета" и "перезахода".
Скрипт запускаестя подскриптом Reconnector... (MakeTime - это часть скрипта которая отвечает за определение времени перезахода,так что ее не надо запускать).Для работы скрипта нужно чтобы у вас был прописан пароль(стояла галочка на Save Password) и аккаунт в стартовом окне Ультимы. Скрипт "Пассивен"(Все время включен,и не тормозит или не мешает работе других скриптов).
Скрипт может отключится.
Возможные причины:
Единственная причина по которой он может выключится это наверное "Зависон" инжекта.
Yoko comment:___________
Напоминаю для тех кто в клубе, если вы сделали Save Password то любой кто имеет досту к компьтеру может взять сохранённый пароль.
Так же примечание, чтобы такие скрипты (использующие мышь) работали успешно крайне желательно чтобы окно ультимы было активным (самым верхним).
________________________
Code: Select all
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