; ================================================== ===========
; Script Name: Auto Login
; Author: Charlie
; Version: 1.0
; Shard: Ultima Alianza Sphere
; Client Tested w/: 2.0.3
; EUO tested w/: 1.42 (build 00BF)
; Public Release: Octubre 08, 2005
; Revision Date: Octubre 08, 2005
; Purpose: Auto Login de nuestra cuenta cuando tengamos un Connection Lost
; ================================================== ===========
; Macro by Charlie (Ultima Alianza)
;Está macro sirve para cuando recibamos un Connection Lost al cliente,
;por ejemplo si estamos macreando por la noche y se nos cae el UO.
;Reentrara con la cuenta poniendo la contraseña, y si el servidor está caído,
;insistirá hasta que este ON y podremos entrar con nuestra cuenta de nuevo.
; CONFIGURACIÓN:
; Escribe aquí la contraseña de tu cuenta:
Set %password tupapaenpatines
; Indica la posición de tu personaje en la cuenta
; Por defecto está puesto el 1º personaje (de 1 a 5 personajes que tiene una cuenta)
set %personaje 366 162
Set #Result N/A
ConnectionLost:
If ( #contSize <> 203_121 ) && ( #contName <> waiting_gump )
Goto ConnectionLost
Wait 10
Key Enter
Gosub WaitGump MainMenu_gump
Goto PonerContraseña
PonerContraseña:
Click 384 399
Wait 10
Msg %password
Wait 100
Key Enter
Set %TimeOut #Scnt + 12
Goto EsperarShard
EsperarShard:
If #Scnt > %TimeOut
Goto ErrorShard
If ( #contSize <> 640_480 ) && ( #contName <> normal_gump )
Goto EsperarShard
Goto ElegirShard
ElegirShard:
Click 190 430
Set %TimeOut #scnt + 12
Goto EsperarPersonaje
EsperarPersonaje:
If #Scnt > %TimeOut
Goto ErrorChar
If ( #contSize <> 640_480 ) && ( #contName <> Login_gump )
Goto EsperarPersonaje
Goto ElegirPersonaje
ElegirPersonaje:
Wait 10
Click %personaje d
Click 617 455
set %timeout #Scnt + 12
Goto EsperarMundo
EsperarMundo:
If #Scnt > %TimeOut
Goto ErrorMundo
If #cliLogged = 1 3
Wait 100
Set #Result #True
Exit
Goto EsperarMundo
ErrorShard:
If ( #contSize <> 356_212 ) && ( #contName <> waiting_gump )
Halt
Key enter
Gosub WaitGump MainMenu_gump
Click 518 404
Wait 10
For %pass 0 15
{
key back
wait 5
}
Goto PonerContraseña
ErrorChar:
Halt
ErrorMundo:
Halt
Sub WaitGump
Set %_TimeOut #Scnt + 10
WaitGump:
If #Scnt > %_TimeOut
Return
If #contName = %1
Return
Goto WaitGump