Autoit v3 AutoLogin Macro : Lineage 2 Submissions

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
;
; Script Version: v1
; Script Function:
;   AutoLogin for Lineage II
;   Verified to work under 800x600, 1024x768, and 1280x1024 32-bit color.
;
; To effectively use this macro:
;    Edit the $pass variable below to reflect your Lineage II Password.
;    Load the macro
;    Run Lineage II
;    Type Your login name into the ID box, make sure the cursor is still in the ID box.
;    Press Shift-Alt-L to activate the macro.
;
;    The macro will automatically repeatedly attempt to login to the last server you
;    successfully entered.  Once it has logged in, it will play tada.wav every 2 seconds
;    until you stop the macro.
;
;    You can stop the macro at any time using the ESC key.  The macro will stop at the
;    end of the current loop.  Shift-Alt-ESC will stop the macro instantly, and cause
;    it to unload itself.  (Do NOT use Shift-Alt-ESC in the character select screen after
;    login, only use ESC)
;
Dim $pass, $stoplogin

$pass = "mypass"

AutoItSetOption("MouseCoordMode",0)
AutoItSetOption("SendKeyDelay", 1)

;WinActivate("Lineage II")
WinWaitActive("Lineage II")

HotKeySet("{ESC}", "Terminate") ;ESC
HotKeySet("+!{ESC}", "Terminate2") ;Alt-Shift-ESC
HotKeySet("+!l", "AutoLogin")  ;Alt-Shift-L

Func AutoLogin()
   WinActivate("Lineage II")
   WinWaitActive("Lineage II")
   Local $color,$size
   $size = WinGetPos("Lineage II")

   $stoplogin = 0
   While NOT $stoplogin
      Send("{TAB}")
      Send($pass)
      Send("{ENTER}")
      Sleep(200)
      Send("{ENTER}")
      Sleep(200)
      Send("{ENTER}")
      Sleep(1000)
                $color = PiXelGetColor($size[2] - 1,$size[3] - 1)
                If $size[2] == 1280 Then
                   $chk = 1449253
                ElseIf $size[2] == 1024 Then
         $chk = 2569277
                ElseIf $size[2] == 800 Then
         $chk = 1712938
                EndIf

                If $color ==  $chk Then
                   SoundSetWaveVolume(100)
         While NOT $stoplogin
            SoundPlay("C:\Windows\media\tada.wav")
            Sleep(2000)
         WEnd
         ExitLoop
                EndIf
   WEnd
EndFunc

Func Terminate()
     $stoplogin = 1
EndFunc

Func Terminate2()
    Exit 0
EndFunc

;;;; Just loop and wait for some HotKey press ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

; Finished!

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
;
; Script Version: v2
; Script Function:
;   AutoLogin for Lineage II
;   Verified to work under 800x600, 1024x768, and 1280x1024 32-bit color.
;
; To effectively use this macro:
;    Edit the $pass variable below to reflect your Lineage II Password.
;    Load the macro
;    Run Lineage II
;    Type Your login name into the ID box, make sure the cursor is still in the ID box.
;    Press Shift-Alt-L to activate the macro.
;
;    The macro will automatically repeatedly attempt to login to the last server you
;    successfully entered.  Once it has logged in, it will play tada.wav every 2 seconds
;    until you stop the macro.
;
;    You can stop the macro at any time using the ESC key.  The macro will stop at the
;    end of the current loop.  Shift-Alt-ESC will stop the macro instantly, and cause
;    it to unload itself.  (Do NOT use Shift-Alt-ESC in the character select screen after
;    login, only use ESC)
;
Dim $pass, $stoplogin, $res, $delay
Dim $res[3] ; 3 resolutions, 1 color, 5 servers (indexes are 0-2, and 0-5)

$pass = "mypass"
$server = 0 ; 0 = default server, 1 = server 1, 2 = server 2, etc..
$delay = 400 ; increase if lag causes the macro to malfunction, decrease for higher speed

; ----------------------------
; You should not need to edit anything beyond this point
; ----------------------------

$res[0] = "1449253,540,362,376,389,402,416" ; 1280 x 1024 (color,col,srvr1row,srvr2row...)
$res[1] = "2569277,400,235,250,260,275,285" ; 1024 x 768  (color,col,srvr1row,srvr2row...)
$res[2] = "1712938,300,150,160,175,190,200" ;  800 x 600  (color,col,srvr1row,srvr2row...)

AutoItSetOption("MouseCoordMode",0)
AutoItSetOption("SendKeyDelay", 1)

WinActivate("Lineage II")
WinWaitActive("Lineage II")

HotKeySet("{ESC}", "Terminate")
HotKeySet("+!{ESC}", "Terminate2")
HotKeySet("+!l", "AutoLogin")  ;Alt-Shift-l

Func AutoLogin()
   WinActivate("Lineage II")
   WinWaitActive("Lineage II")
   Local $color,$size,$chk,$ary
   $size = WinGetPos("Lineage II")
   If $size[2] == 1280 Then
      $chk = 0
   ElseIf $size[2] == 1024 Then
      $chk = 1
   ElseIf $size[2] == 800 Then
      $chk = 2
   EndIf
        $ary = StringSplit($res[$chk],",")

   $stoplogin = 0
   While WinActive("Lineage II") AND NOT $stoplogin
      Send("{TAB}")
      Send($pass)
      Send("{ENTER}")
      Sleep($delay)
      Send("{ENTER}")
      Sleep($delay)
      If $server == 0 Then
         Send("{ENTER}")
      Else
         MouseClick("left",$ary[2],$ary[$server + 2],2,1)
      EndIf      
      Sleep(1000)
      $color = PiXelGetColor($size[2] - 1,$size[3] - 1)
                If $color ==  $ary[1] Then
                   SoundSetWaveVolume(100)
         While NOT $stoplogin
            SoundPlay(@WindowsDir & "\media\tada.wav")
            Sleep(3000)
         WEnd
         ExitLoop
                EndIf
   WEnd
EndFunc

Func Terminate()
     $stoplogin = 1
EndFunc

Func Terminate2()
    Exit 0
EndFunc

;;;; Just loop and wait for some HotKey press ;;;;
While 1
    Sleep($delay)
WEnd
;;;;;;;;

; Finished!

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
;
; Where to find the latest version of this macro, including all known
; bugfixes and the newest features?  http://www.tault.com/ of course
;
; Script Author: Anonymous
; Script Version: v2.2
; Script Function:
;   AutoLogin for Lineage II
;   Verified to work under 800x600, 1024x768, and 1280x1024 32-bit color.
;
; To effectively use this macro:
; ------------------------------
;    Download and install AutoIt v3 (AutoIt v3 is an opensource BASIC-like
;      scripting language designed for automating the Windows GUI.)
;      It can be obtained from the official website: http://www.hiddensoft.com/autoit3/
;
; Once you have installed AutoIt v3 (not v2!!!):
; ----------------------------------------------
;    Copy this script into a file named l2login.au3
;    Edit the $pass variable below to reflect your Lineage II Password.
;    Double-click on l2login.au3 to load it
;         (You will see an AutoIt icon appear in your system tray)
;    Run Lineage II
;    Type Your login name into the ID box, make sure the cursor is still in the ID box.
;    Press Shift-Alt-L to activate the macro.
;
;    The macro will repeatedly attempt to login.  Once it has successfully reashed the
;    character select screen.  It will automatically detect this and stop tring to login.
;    To notify you of the successful login, it will play tada.wav every 2 seconds until you
;    stop the macro by pressing ESC, or by unloading the macro by pressing the + key on
;    your number pad.
;
;    You can also stop the macro at any time before a successful login using the ESC key. 
;    The macro will stop at the end of the current iteration (when you are next returned to
;    the login box).  Using the + key on the number pad will unload the macro from memory,
;    thereby stopping it instantly wherever it happens to have left off.
;
Dim $pass, $stoplogin, $res, $delay
Dim $res[3] ; 3 resolutions mapped, format of each array element:  color,x,srvr1y,srvr2y...srvr5y

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;             BEGIN CONFIGURATION SECTION             ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$pass = "mypass"
$server = 0 ; 0 = default server, 1 = server 1, 2 = server 2, etc..
$delay = 600 ; increase if dialog lag causes the macro to malfunction, decrease for higher speed

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;              END CONFIGURATION SECTION              ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; ------------------------------------------------------
; You should NOT need to edit anything beyond this point
; ------------------------------------------------------

$res[0] = "1449253,540,362,376,389,402,416" ; 1280 x 1024
$res[1] = "2569277,400,235,250,260,275,285" ; 1024 x 768
$res[2] = "1712938,300,150,160,175,190,200" ;  800 x 600

AutoItSetOption("MouseCoordMode",0)
AutoItSetOption("SendKeyDelay", 1)

HotKeySet("{NUMPADADD}", "TerminateMe") ; + on the Number Pad

;WinActivate("Lineage II")
WinWaitActive("Lineage II")

HotKeySet("{ESC}", "StopLogin")     ; Escape key
HotKeySet("+!l", "AutoLogin")      ; Shift-Alt-L

Func AutoLogin()
   WinActivate("Lineage II")
   WinWaitActive("Lineage II")
   Local $color,$size,$chk,$ary
   $size = WinGetPos("Lineage II")
   If $size[2] == 1280 Then
      $chk = 0
   ElseIf $size[2] == 1024 Then
      $chk = 1
   ElseIf $size[2] == 800 Then
      $chk = 2
   EndIf
        $ary = StringSplit($res[$chk],",")

   $stoplogin = 0
   While WinActive("Lineage II") AND NOT $stoplogin
      Send("{TAB}")
      Send($pass)
      Send("{ENTER}")
      Sleep($delay)
      Send("{ENTER}")
      Sleep($delay * 3)
      If $server == 0 Then
         Send("{ENTER}")
      Else
         MouseClick("left",$ary[2],$ary[$server + 2],2,1)
      EndIf      
      Sleep(1000)
      $color = PiXelGetColor($size[2] - 1,$size[3] - 1)
                If $color ==  $ary[1] Then
                   SoundSetWaveVolume(100)
         While NOT $stoplogin
            SoundPlay(@WindowsDir & "\media\tada.wav")
            Sleep(3000)
         WEnd
         ExitLoop
                EndIf
   WEnd
EndFunc

Func StopLogin()
   $stoplogin = 1
   HotKeySet("{ESC}")
   Send("{ESC}")
   HotKeySet("{ESC}", "StopLogin")
EndFunc

Func TerminateMe()
    Exit 0
EndFunc

;;;; Just loop and wait for some HotKey press ;;;;
While 1
    Sleep($delay)
WEnd
;;;;;;;;

; Finished!

Sleep($delay * 3)

Sleep($delay)