apt+ceo

^S::

loop {

ToolTip, Go To choose Character Screen (Loop %A_index%), 0, 0

Sleep, 750
Send {p} ; menu
Sleep, 1000

MouseClick, left, 700, 110, 5, 25 ; Online

Sleep, 1500

MouseClick, left, 95, 230, 5, 25 ; Choose Character

sleep, 1000
Click

sleep,750
send {enter}
sleep, 750
send {enter}

ToolTip, Wating For Swap Character Screen Confirmation (Loop %A_index%), 0, 0

Loop {
Sleep, 500
PixelGetColor, color, 785,586
Sleep, 500
} Until (color="0xF4F4F4") ; character select screen confirmation

ToolTip, Step 3/12 - Switching To First Character And Disconnecting , 0, 0

Sleep, 500
Send {Left} ; 1st char
Sleep, 1000
Send {Enter}
Sleep, 5000

;-------------------------------Edit The Directory Here-------------------------------

cmdline := "netsh advfirewall firewall add rule name=""BATCH GTA 5 BLOCK"" dir=out action=block program=""E:\gta v\GTAV\GTA5.exe"""
runwait, %cmdline%,, Hide

;-------------------------------------------------------------------------------------

Sleep, 5000
Send {Enter}
Sleep, 50

cmdline := "netsh advfirewall firewall delete rule name=""BATCH GTA 5 BLOCK"""
runwait, %cmdline%,, Hide

Sleep, 7000
Send {Enter}


Sleep, 7000
Send {Enter}

ToolTip, Suspending And Wating For Second Character To Load (Loop %A_index%), 0, 0

;-----Suspend

Sleep 45000
Process_Suspend("GTA5.exe")
Sleep, 15000
Process_Resume("GTA5.exe")

;-----------xxxxxxxxxxxx----------------

;----Suspend Function
Process_Suspend(PID_or_Name){
    PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name
    h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)
    If !h
        Return -1
    DllCall("ntdll.dll\NtSuspendProcess", "Int", h)
    DllCall("CloseHandle", "Int", h)
}

;----Resume Function
Process_Resume(PID_or_Name){
    PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name
    h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)
    If !h
        Return -1
    DllCall("ntdll.dll\NtResumeProcess", "Int", h)
    DllCall("CloseHandle", "Int", h)
}
ProcExist(PID_or_Name=""){
    Process, Exist, % (PID_or_Name="") ? DllCall("GetCurrentProcessID") : PID_or_Name
    Return Errorlevel
}
;------

Loop {
Sleep, 5000
Send {Up}
PixelGetColor, color, 653, 318
} Until (color="0x000000")

;------------------xxxxxxxxxxxxxx------------------

ToolTip, Selling Apts (Loop %A_index%), 0, 0

Sleep, 700
Send {Down}
Sleep, 700
Send {Down}
Sleep, 700
Send {Enter}
Sleep, 2000
MouseClick, left, 604, 437,2, 10 ; Dynasty8
Sleep, 1500
MouseClick, left, 229, 320,2, 10 ; View Property
Sleep, 1500
MouseClick, left, 183, 186,2, 10  ; low to high
Sleep, 1500
MouseClick, left, 213, 312,2, 10
Sleep, 1500
MouseClick, left, 620, 435,2, 10

Sleep, 800
Send {Enter}
Sleep, 800
Send {Enter}
Sleep, 5000

sleep, 2000
MouseClick, left, 381, 476, 2, 10  ; back to map
Sleep, 1500
MouseClick, left, 233, 183, 2, 10  ; high to low
Sleep, 1500
MouseClick, left, 183, 186, 2, 10  ; low to high
Sleep, 1500
MouseClick, left, 213, 312, 2, 10
Sleep, 1500
MouseClick, left, 620, 435, 2, 10
Sleep, 1500

send {down}
Sleep, 800
Send {Enter}
Sleep, 800
Send {Enter}
Sleep, 5000

sleep, 2000
MouseClick, left, 381, 476, 2, 10  ; back to map
Sleep, 1500
MouseClick, left, 233, 183, 2, 10  ; high to low
Sleep, 1500
MouseClick, left, 183, 186, 2, 10  ; low to high
Sleep, 1500
MouseClick, left, 213, 312, 2, 10
Sleep, 1500
MouseClick, left, 620, 435, 2, 10
Sleep, 1500

send {down}
Sleep, 800
send {down}
Sleep, 800
Send {Enter}
Sleep, 800
Send {Enter}
Sleep, 5000

sleep, 2000
MouseClick, left, 381, 476, 2, 10  ; back to map
Sleep, 1500
MouseClick, left, 233, 183, 2, 10  ; high to low
Sleep, 1500
MouseClick, left, 183, 186, 2, 10  ; low to high
Sleep, 1500
MouseClick, left, 213, 312, 2, 10
Sleep, 1500
MouseClick, left, 620, 435, 2, 10
Sleep, 1500

send {down}
Sleep, 800
send {down}
Sleep, 800
send {down}
Sleep, 800
Send {Enter}
Sleep, 800
Send {Enter}
Sleep, 5000

sleep, 2000
MouseClick, left, 381, 476, 2, 10  ; back to map
Sleep, 1500
MouseClick, left, 233, 183, 2, 10  ; high to low
Sleep, 1500
MouseClick, left, 183, 186, 2, 10  ; low to high
Sleep, 1500
MouseClick, left, 213, 312, 2, 10
Sleep, 1500
MouseClick, left, 620, 435, 2, 10
Sleep, 1500

send {down}
Sleep, 800
send {down}
Sleep, 800
send {down}
Sleep, 800
send {down}
Sleep, 800
Send {Enter}
Sleep, 800
Send {Enter}
Sleep, 5000

sleep, 2000
MouseClick, left, 381, 476, 2, 10  ; back to map
Sleep, 1500
MouseClick, left, 233, 183, 2, 10  ; high to low
Sleep, 1500
MouseClick, left, 183, 186, 2, 10  ; low to high
Sleep, 1500
MouseClick, left, 213, 312, 2, 10
Sleep, 1500
MouseClick, left, 620, 435, 2, 10
Sleep, 1500

send {down}
Sleep, 800
send {down}
Sleep, 800
send {down}
Sleep, 800
send {down}
Sleep, 800
send {down}
Sleep, 800
Send {Enter}
Sleep, 800
Send {Enter}
Sleep, 5000

;-----CEO OFFICE-----

MouseClick, left, 200, 60, 2, 10  ; Home
Sleep, 1500
MouseClick, left, 600, 434, 2, 10 ; Dynasty8
Sleep, 1500
MouseClick, left, 567, 329, 2, 10 ; Executive
Sleep, 1500
MouseClick, left, 398, 417, 5, 10 ; Enter Site
Sleep, 1500

if (mod(A_Index, 2) = 0) {
MouseClick, left, 297, 297, 2, 10 ; Select Maze Bank West
Sleep, 1500
MouseClick, left, 234, 476, 2, 10 ; Buy
Sleep, 1500
MouseClick, left, 233, 550, 2, 10 ; Buy2
Sleep, 1500
MouseClick, left, 627, 548, 2, 10 ; Buy3
Sleep, 1500
Send {Enter}
Sleep, 1000
Send {Enter}
Sleep, 1000
}

else {
MouseClick, left, 430, 307, 2, 10 ; Select Arcadius
Sleep, 1500
MouseClick, left, 228, 478, 2, 10 ; Buy
Sleep, 1500
MouseClick, left, 231, 544, 2, 10 ; Buy2
Sleep, 1500
MouseClick, left, 627, 545, 2, 10 ; Buy3
Sleep, 1500
Send {Enter}
Sleep, 1000
Send {Enter}
Sleep, 1000
}

MouseClick, left, 654, 52, 5, 25  ; exit browser

ToolTip, loading single player (Loop %A_index%), 0, 0
sleep,800
send {p}
sleep,800
send {right}
sleep,800
send {enter}
sleep,800
send {up}
sleep,800
send {up}
sleep,800
send {enter}
sleep, 800
send {enter}

ToolTip, Waiting To Load (Loop %A_index%), 0, 0
Loop {
Sleep, 5000
Send {Up}
Sleep, 500
PixelGetColor, color, 653, 318
} Until (color="0x000000") ; Load Confirmation

Sleep, 1500

    If (A_Index >= 100) ;
      Return
}
^Esc::ExitApp