FFXI Auto Login Script

###
###
### Latest standalone version can be found here
### https://thegamerx.com
###
###

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_x64=FFXI-Launcher.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;FINAL FANTASY XI AUTO LOGIN AND LAUNCHER

;CONTACT RICKSCORPIO[AT]PROTONMAIL.COM
;INCEPTION DATE: 3/21/2013
;EDIT DATES: 6/13/2018,  8/24/2021



;Path the pol.exe - must have trailing \
$polPath = "D:\steam\steamapps\common\FFXINA\SquareEnix\PlayOnlineViewer\"
$OTPW = 0 ; <=== change this to 1 if using ONE-TIME PASSWORD

;THE FOLLOWING IS FOR .EXE VERSION
;$polPath = inputbox("Enter Path","Enter path to 'POL.EXE'. INCLUDE TRAILING '/'")

;timeout for window search
$timeOut = 30
;Class for windows
$PolClassName = "PlayOnlineUS"
;Square enix login pw (not pol pw)
$PolPW = ''

;Run it, ShellExecute works better
ShellExecute("pol.exe","",$polPath)


#Include <WinAPI.au3>
;Wait for the polviewer to popup
WinWait("[CLASS:PlayOnlineUS]","PlayOnline Viewer",$timeOut)

Opt("MouseCoordMode", 2) ;1=absolute, 0=relative, 2=client
Opt("PixelCoordMode", 2)

Sleep(1000)
MouseMove(400,138,2)
MouseClick("")
sleep(1000)
;click login button
MouseMove(123,160,2)
MouseClick("")
Sleep(1000)

;click SE PW box
MouseMove(450,206,2)
MouseClick("")
Sleep(1000)

;THE FOLLOWING IS FOR THE EXE VERSION
;$PolPW = InputBox("Password", "Enter POL or SE PW","","*")
;click enter se pw box and enter it
MouseMove(313,151,2)
MouseClick("")
Send($PolPW,1)
sleep(1000)


;ONE-TIME PASSWORD ENTRY
if $OTPW = 1 then
    MouseMove(408,234,2)
    MouseClick("")
    $2FA = inputbox("One Time PW", "Enter your ONE-TIME Password")
    Send($2FA,1)
    sleep(1000)
EndIf


;click ok button
MouseMove(122,149,2)
MouseClick("")
sleep(1000)

;click connect
MouseMove(182,284,2)
MouseClick("")



;Main Login Game
;Final Fantasy Game Selection
;This is a really long wait on some system, adjust accordingly
;for your system - 45 seconds default.


; NO MORE DELAY, LOOP UNTIL COORECT SCREEN COMES UP

do
    $search = PixelSearch(85, 84, 117, 98, 0x2A8A95)
until not @error
sleep(1000)
MouseMove(151,159,2)
MouseClick("")

;Play
; NO MORE DELAY, LOOP UNTIL COORECT SCREEN COMES UP
do
    $search = PixelSearch(79,77, 231,92, 0x323233)
until not @error
sleep(1000)
MouseMove(171,81,2)
MouseClick("")

;Agreement Play
sleep(1000)
MouseMove(204,386,2)
MouseClick("")
Exit(0)