Telum 0 Жалоба Опубликовано 23 мая, 2008 Ув. жители, подскажите нубу как написать макрос на автовход в ультиму в случаи если произошел дисконект, и появилось сообщение @Connection Lost@???? Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
mont 0 Жалоба Опубликовано 4 июля, 2008 gv.clan.su там есть. поищи) Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты
Leaf 0 Жалоба Опубликовано 7 июля, 2008 sub Reconnector1() 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) WEnd Wait(3000) if (RFlag == 0) and (ReconnectTime <> '0') Then UO.TextOpen() UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) RFlag = 1 ReconnectTime = '0' endif Until false end sub sub Reconnector2() 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(396,208) UO.LClick(616,459) WEnd Wait(3000) if (RFlag == 0) and (ReconnectTime <> '0') Then UO.TextOpen() UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) RFlag = 1 ReconnectTime = '0' endif Until false end sub sub Reconnector3() 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(358,248) UO.LClick(616,459) WEnd Wait(3000) if (RFlag == 0) and (ReconnectTime <> '0') Then 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 собственно запускать реконнектор 1 для первого чара на акке 2 для второго 3 - ну вы сами догадились sub MakeTime() служебная запущать не надо Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты