;=============================================
; Script Name: Auto Login - Re Login
; Author: yolcu
; Version: 1.0.0
; Language: English
; Client Tested with: 7.0.57.1
; EUO version tested with: 1.5.1.309
; Shard OSI / FS: FS
; Public Release: 03-25-2017
; Global Variables Used: N/A
; Purpose: Auto login - relogin when connection lost
;=============================================
; Run the script
; Enter your Account name in menu
; Enter your Password in menu
; Enter which character you want to be loged in ( 1 - 5 )
; Press start
set %AccName N/A
set %Password N/A
set %Character N/A
gosub scriptMenu
set #MenuButton N/A
mainLoop:
    gosub #MenuButton
goto mainLoop
sub scriptMenu
{
    menu clear
    menu Window Title Auto Login - ReLogin
    menu Window Size 274 155
    menu text AccNameLabel 10 14 Account Name
    menu text PasswordLabel 40 49 Password
    menu text ChracterLabel 40 84 Character
    menu button cmdStart 178 115 86 30 Start
    menu Font BgColor white
    menu edit AccName 100 10 160
    menu edit Password 100 45 160
    menu edit Character 100 80 24 1
    menu show
    menu hideEUO
    return
}
sub cmdStart
{
    menu get AccName
    set %AccName #menures
    menu get Password
    set %Password #menures
    menu get Character
    set %Character #menures
    menu clear
    menu Window Title Auto Login - ReLogin
    menu Window Size 274 50
    menu text InfoLabel
    menu button closed 178 10 86 30 Close
    set #MenuButton N/A
    while #MenuButton = N/A
        gosub ConnectionLost
    return
}
sub closed
{
    menu hide
    halt
    return
}
sub ConnectionLost
{
    _OpenMainWindow:
    if #contkind = SRHB && #contName = waiting_gump && #contSize = 203_121
    {
         set %cx_ #contPosX + 100
         set %cy_ #contPosY + 90
         click %cx_ %cy_ f dmc
         gosub WaitForGump mainmenu_gump KRDD 30
         goto _OpenMainWindow
    }
    gosub Login
    return
}
sub Login
{
    if #contName = mainmenu_gump && #contKind = KRDD
    {
        _Login:
        gosub EnterAccName
        gosub EnterPassword
        gosub PressNextButton
        gosub WaitForGump normal_gump CHCD 60
        if #contName = waiting_gump && #contKind = SRHB
        {
            click 320 350 f dmc
            gosub WaitForGump normal_gump UYLB
            goto _Login
        }
        gosub PressNextButton
        gosub WaitForGump normal_gump UYLB 30
        gosub SelectChar
        gosub PressNextButton
        gosub WaitForLogin
    }
    return
}
sub PressNextButton
{
    click 615 445 f dmc ; Next Button
    return
}
sub EnterAccName
{
    click 510 360 f dmc ; Account Name
    gosub ClearPlace
    msg %AccName
    return
}
sub EnterPassword
{
    click 510 400 f dmc ; Password
    gosub ClearPlace
    msg %Password
    return
}

sub ClearPlace
{
    for %i 1 16
    {
        key BACK
    }
    return
}
sub SelectChar
{
    set %cx_ 360
    set %cy_ 100 + ( %Character * 40 )
    click %cx_ %cy_ f dmc
    gosub WaitForGump login_gump AAWB 10
    return
}
sub WaitForGump
{
    set %contName %1
    set %contKind %2
    set %timeCheck #false
    set %timeOut #scnt
    if %0 = 3
    {
        set %timeCheck #true
        set %timeOut #scnt + %3
    }
    while #contName <> %contName || #contKind <> %contKind
    {
         if %timeCheck && #scnt > %timeOut
             break
    }
    return
}
sub WaitForLogin
{
    set %timeOut #scnt + 60
    while #CliLogged = 0 && #scnt < %timeOut
        wait
    return
}

set %x1 1409
set %y1 1706
set %x2 1457
set %y2 1657
set %L1 A
set %L2 B
set %L3 E
set %L4 i
set %L5 L
set %L6 M
set %L7 N
set %L8 R
set %Sell %L2 , %L3 , %L7 , #spc , %L5 , %L1 , %L6 , %L3 , %L8 , %L4 , %L6
set %NextSell #systime
sub Sell
{
    if %NextSell < #systime && #charPosX >= %x1 && #charposX <= %x2 && #charPosY >= %y1 && #charPosY <= %y2 && #cursKind = 0
    {
        event macro 1 0 %Sell $
        set %NextSell #systime + 2000
    }
    if #charPosX >= %x1 && #charposX <= %x2 && #charPosY >= %y1 && #charPosY <= %y2 && #cursKind = 0
    {
         menu HideEUO
         menu show
         menu hide
    }
    return
}
loop:
gosub Sell
goto loop