Page 1 of 1
Реконект, как сделать...
Posted: 2006-04-27 10:30:37
by Sanch
Имеется скрипт Ветерана на реконект, только вообще не догоняю что он делает, точнее как работает, не мог бы кто поопытнее подсобить, хочу сделать скрипт на рекконект, а именно, скрипт при юзании которого, будет делаться логаут, ждать пол часа, заходить обратно в уо. Это хочу впихнуть в свой скрипт на мининг, чтобы при появлении гма сразу выходить, ждать, потмо снова входить и копать дальше, тк за добычу чего либо на скрипте у нас банят
. Всех зарание благодарю за посильный хелп.
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
Posted: 2006-04-27 11:25:42
by Scripts Writer
Code: Select all
;UO.Exec('terminate all') ; Тут он выключает все имеющиееся скрипты
;UO.Exec('exec autoload') ; А тут он уже запускает.
Собственно, убери ; перед командами которые написал выше, которые тебе нужны, а потом:
Code: Select all
UO.Exec('exec autoload') ; в команде запуска скрипта,впиши название своего скрипта на мининг (exec mining)
Posted: 2006-04-27 17:21:42
by Sanch
Сори но че то я всеравно ничего не понял, скрипт который я отпостил работает совсем по другому принцепу.
Posted: 2006-04-27 18:06:01
by Scripts Writer
как я понял, Тебе надо доработать этот реконектор на выход из уо,вход в уо, и продолжение скрипта =\ хм
Posted: 2006-04-27 18:46:26
by yean
вот я задумался, окромя ,closeuo есть другой, менее радикальный, способ дисконнекта ??? не считая кучи lclick ?
Posted: 2006-04-27 21:29:38
by Sanch
вот я задумался, окромя ,closeuo есть другой, менее радикальный, способ дисконнекта ??? не считая кучи lclick ?
Гампы, тока я в них не силен, а то бы уже давно свой реконект написал и не парился бы, хотя я могу ошибаться.
как я понял, Тебе надо доработать этот реконектор на выход из уо,вход в уо, и продолжение скрипта =\ хм
Прям в точку
Posted: 2006-05-03 02:37:56
by Rijo
Ну все равно на мой взгялд самым радикальным способом уйти в логаут, это потыкаться lclick- ми и ждать допустим 300секунд. Хотя собсно что мешает ГМу встать в инвиз
?
Posted: 2006-05-03 09:18:18
by Sanch
Ну все равно на мой взгялд самым радикальным способом уйти в логаут, это потыкаться lclick- ми и ждать допустим 300секунд. Хотя собсно что мешает ГМу встать в инвиз ?
А то что мож мне по на надписи внизу экрана, тк я занят копкой, как определить координаты кнопок на экране, подскажите плс?