TLP Shard Forum

Forum para os players do TLP Shard com Macros, Dicas, e mais...
 
InícioFAQBuscarRegistrar-seMembrosGruposConectar-se

Compartilhe | 
 

 Macro Reconect TLP

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Ruan22
Admin
avatar

Mensagens : 13
Data de inscrição : 14/12/2007
Idade : 31
Localização : Vitória - ES

MensagemAssunto: 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..
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://tlpshard-forum.forumeiros.com
 
Macro Reconect TLP
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Gauges X macro do FSUIPC
» Enxofre - Admin: Top_Boladaoo - Responsável: Laranja
» enxofr3, macro, Laranja, por favor!
» k2_punisher - Freak0

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
TLP Shard Forum :: Arquivos :: Macros Easy UO-
Ir para: