Ruan22 Admin
Mensagens : 13 Data de inscrição : 14/12/2007 Idade : 37 Localização : Vitória - ES
| Assunto: Macro Reconect TLP Sex Jan 04, 2008 5:56 pm | |
| - Citação :
- Código:
Initevents ; ===================================================================== ; Nome: Macro de Reconnect V1.3 By Flanstorn ; Servidor: DmN Shard / TLP Shard ; ;Update: Macro Ajustado para ter 100% de eficiencia na TLP. ; ; ========================CONFIGURAÇÕES INICIAIS - Variáveis===================== Set %Reconectado 0 Set %Reconectando 0 ; ============================= PASSMENU DRAW ============================
Menu Clear Menu Window Title Reconnect Macro Menu Window Color $FF1144 Menu Window Size 260 125 Menu Hideeuo Menu Font Bgcolor $FF1144 Menu Font Color White Menu Font Size 10 Menu Font Style B Menu Font Name Tahoma Menu Text Texto1 50 5 Entre com seu Password: Menu Edit Senha 25 30 210 Menu Button SenhaOk 75 70 110 25 Ok Menu Text Texto1 77 100 Macro by Flanstorn Menu Show 145 140 Set #MenuButton N/A ; ============================= SETANDO SENHA =============================
Senha: If #MenuButton = Closed { Goto Fim } If #MenuButton = SenhaOK { Menu Get Senha Set %Password #MenuRes Set #Menures N/A Goto Load } Goto Senha ;-- } Goto Acao ;-- ; ============================= LOADMENU DRAW ============================ load: Menu Clear Menu Window Title Carregando... Menu Window Size 200 90 Menu Font Bgcolor $FF1144 Menu Font Color White Menu Font Size 6 Menu Text Texto1 0 60 ------------------------------------------------------------------------------------------ Menu Font Size 7 Menu Font Style u Menu Text Texto1 50 70 Macro by Flanstorn Menu Font Color Red Menu Font Size 10 Menu Font Style B Menu Font Name Tahoma Menu Text Texto1 30 30 | wait 3 Menu Text Texto1 30 30 || wait 3 Menu Text Texto1 30 30 ||| wait 3 Menu Text Texto1 30 30 |||| wait 3 Menu Text Texto1 30 30 ||||| wait 3 Menu Text Texto1 30 30 |||||| wait 3 Menu Text Texto1 30 30 ||||||| Menu Font Color Yellow Menu Text Texto1 79 30 | wait 3 Menu Text Texto1 79 30 || wait 3 Menu Text Texto1 79 30 ||| wait 3 Menu Text Texto1 79 30 |||| wait 3 Menu Text Texto1 79 30 ||||| wait 3 Menu Text Texto1 79 30 |||||| wait 3 Menu Text Texto1 79 30 ||||||| Menu Font Color Green Menu Text Texto1 128 30 | wait 3 Menu Text Texto1 128 30 || wait 3 Menu Text Texto1 128 30 ||| wait 3 Menu Text Texto1 128 30 |||| wait 3 Menu Text Texto1 128 30 ||||| wait 3 Menu Text Texto1 128 30 |||||| wait 3 Menu Window Title CONCLUIDO... Menu Text Texto1 30 30 |||||||||||||||||||| wait 20 SH (SoloYo)(06:28 AM) : ; =========================== ACTIVEMENU DRAW ============================ Acao:
Menu Clear Menu Window Title Conectado Menu Window Size 200 90 Menu Font Bgcolor $FF1144 Menu Font Color White Menu Font Size 10 Menu Font Style B Menu Font Name Tahoma Menu Text Texto1 30 1 Char: Menu Text Texto1 30 20 Tempo Online: Menu Text Texto1 30 40 Nº de Quedas: Menu Font Color Red Menu Text Texto1 68 1 #CharName Menu Text Texto2 122 20 #SCNT s Menu Text Texto1 125 40 %Reconectado Menu Font Color White Menu Font Size 6 Menu Text Texto1 0 60 ------------------------------------------------------------------------------------------ Menu Font Size 7 Menu Font Style u Menu Text Texto1 50 70 Macro by Flanstorn Menu Font Color Red Menu Font Size 10 Menu Font Style B ; ========================== CONNECTION SHECK ============================ AcaoReconnect: If #MenuButton = Closed { Goto Fim } If #Contkind <> STOB { If #Contkind <> CTU { If #Contkind <> ACFC { If #Contkind <> QUTB { if %Cont <> #SCNT { Set %Cont #SCNT Menu Delete Texto2 Menu Text Texto2 122 20 #SCNT s ; Goto Acao } Gosub Alert2 Goto AcaoReconnect } } } }
If #ContKind = STOB { Gosub Alert Gosub ReconnectLost } If #ContKind = CTU { Gosub Alert Gosub ReconnectPass } If #ContKind = ACFC { Gosub Alert Gosub ReconnectShard } If #ContKind = QUTB { Gosub Alert Gosub ReconnectChar } Goto AcaoReconnect SH (SoloYo)(06:28 AM) : ; ===================================================================== ; Nome: ReconnectLost ; Objetivos: Dar Enter no menu de Connection Lost ; ===================================================================== Sub ReconnectLost Wait 5 Key Enter Wait 5 wait 5s Return ; ===================================================================== ; Nome: ReconnectShard ; Objetivos: Dar Enter na tela de Conexão ( onde tem o campo de pass ) ; ===================================================================== Sub ReconnectShard Wait 5 Key Enter Wait 5 Return ; ===================================================================== ; Nome: ReconnectPass ; Objetivos: Digitar a senha Setada no campo Password ; ===================================================================== Sub ReconnectPass Wait 5 Click 400 400 Wait 5 Key Esc Wait 5 Msg a65135 Wait 1 Key Enter Wait 5 Return ; ===================================================================== ; Nome: ReconnectChar ; Objetivos: Seleciona o Char a ser utilizado "Default = Primeiro Char" ; ===================================================================== Sub ReconnectChar wait 5 click 363 166 d wait 10s click 158 158 r wait 1s click 158 158 r wait 5 Return ; ===================================================================== ; Nome: Alert ; Objetivos: Verifica se a senha digitada estava correta e altera o Display ; ===================================================================== Sub Alert If %Reconectando = 0 { Menu Window Title Conectando... Set %Reconectando 1 Set %Reconectado %Reconectado + 1 Menu Delete Texto1 Menu Delete Texto2 Menu Window Color $0000FF Menu Font Bgcolor $0000FF Menu Font Color White Menu Text Texto1 30 1 Char: Menu Text Texto1 30 20 Tempo Online: Menu Text Texto1 30 40 Nº de Quedas: Menu Font Color Green Menu Text Texto1 68 1 #CharName Menu Text Texto2 122 20 #SCNT s Menu Text Texto1 125 40 %Reconectado Menu Font Color White Menu Font Size 6 Menu Text Texto1 0 60 ------------------------------------------------------------------------------------------ Menu Font Size 7 Menu Font Style u Menu Text Texto1 50 70 Macro by Flanstorn Menu Font Color Red Menu Font Size 10 Menu Font Style B } wait 2s Return SH (SoloYo)(06:29 AM) : ; ===================================================================== ; Nome: ContDown ; Objetivos: Faz um Redraw na Janela atualizando o numero de Downs ; ===================================================================== Sub Alert2 If %Reconectando = 1 { Menu Window Title Conectado Set %Reconectando 0 Menu Delete Texto1 Menu Delete Texto2 Menu Window Color $FF1144 Menu Font Bgcolor $FF1144 Menu Font Color White Menu Text Texto1 30 1 Char: Menu Text Texto1 30 20 Tempo Online: Menu Text Texto1 30 40 Nº de Quedas: Menu Font Color Red Menu Text Texto1 68 1 #CharName Menu Text Texto2 122 20 #SCNT s Menu Text Texto1 125 40 %Reconectado Menu Font Color White Menu Font Size 6 Menu Text Texto1 0 60 ------------------------------------------------------------------------------------------ Menu Font Size 7 Menu Font Style u Menu Text Texto1 50 70 Macro by Flanstorn Menu Font Color Red Menu Font Size 10 Menu Font Style B wait 5s } Return
Fim: Event Sysmessage Macro Finalizado Menu Hide Halt
Não Testei ainda, qualquer coisa, se não funcionar me avisem que retiro do Topic.. | |
|