Recconector
Posted: 2004-05-07 16:14:49
Sometimes during macroing my uo use to disconnect, is there any way to have an automatic recconection with injection or somethig else?
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 main')
UO.Exec('exec main')
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 subCode: Select all
#----------------
UO.TextOpen()
UO.TextPrint('Скрипт стартовал: '+MakeTime())
UO.Exec('terminate Reconnector')
UO.Exec('exec Reconnector')
#----------------да ну... с какой стати?hzch wrote:а ведь и бананом по голове можно получить за uo.serverprint
эта бадяга, насколько я знаю, в логах отображается. Посмотрит админ и... одним инжектером меньше...))
ServerPrint не засечь, он не отличается от нормальной речи. Если админ хотел бы тебя побанить он бы это давно сделал за не вполне корректный MoveItem.hzch wrote:а ведь и бананом по голове можно получить за uo.serverprint
эта бадяга, насколько я знаю, в логах отображается. Посмотрит админ и... одним инжектером меньше...))