TLP Shard Forum
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

TLP Shard Forum

Forum para os players do TLP Shard com Macros, Dicas, e mais...
 
InícioProcurarÚltimas imagensRegistarEntrar

 

 Macro Reconect TLP

Ir para baixo 
AutorMensagem
Ruan22
Admin
Ruan22


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

Macro Reconect TLP Empty
MensagemAssunto: Macro Reconect TLP   Macro Reconect TLP Icon_minitimeSex 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..
Ir para o topo Ir para baixo
https://tlpshard-forum.directorioforuns.com
 
Macro Reconect TLP
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Macro Tinker TLP
» Macro Tailor TLP
» Macro All Combats TLP
» Macro de Bs para easy-uo
» Macro Mage/Medit/Stealth TLP

Permissões neste sub-fórumNão podes responder a tópicos
TLP Shard Forum :: Arquivos :: Macros Easy UO-
Ir para: