Game Creater (lvl 60 Char)
You will have to get the Coordinates and everything yourself with AutoIt Window Info application. I use a small resolution on my laptop, which probably not many people use. Check the MouseClick lines and replace the coords with the ones from the AutoIT Window Info. I might update it for 1920x1080 when I get my chars up 
It invites the person on top of your friendlist. So if you have multiple friends and the position changes... not much one can do about it....
Code:
Global $Paused, $Go = False, $Leave = True;
HotKeySet("-","Begin") ;script started by pressing -
HotKeySet("p", "Pause") ;script paused by pressing p
HotKeySet("x", "Stop") ;script stopped by pressing x
While 1
Call("RestartRun")
WEnd
Func RestartRun()
If ($Go) Then
if($Leave) Then
$i = 0
MouseClick("left", 1250, 706) ; open social window, bottom right
Sleep(400);
MouseClick("left", 1191, 266) ; invite top most player
Sleep(1500);
MouseClick("left", 170, 306) ; resume game
Sleep(7000); might have to increase this value, depending on your PCs speed, loading time to enter the game
Send("{ESC}") ; open game menu
Sleep(100);
MouseClick("left", 658, 414) ; leave game
Sleep(100);
MouseClick("left", 573, 452) ; confirm leave game
Sleep("6000"); might have to increase this value, depending on your PCs speed
Endif
Endif
EndFunc
Func Begin()
$Go = Not $Go
Call("RestartRun")
EndFunc ;==>Begin
Func Pause()
$Leave = False
EndFunc
Func Stop();
Exit
EndFunc
Func Leave()
$Leave = True
EndFunc
The leecher, 1920x1080 Fullscreen (Windowed)
Code:
Global $Paused, $Go = False, $Leave = True;
HotKeySet("-","Begin") ;script started by pressing =
HotKeySet("p", "Pause") ;script paused by pressing -
HotKeySet("x", "Stop") ;script stopped by pressing x
Local $PixelCheck, $NewCheck;
While 1
Call("RestartRun")
WEnd
Func RestartRun()
If ($Go) Then
if($Leave) Then
$i = 0
While 1; search for accept pixel
$PixelCheck = PixelSearch(1717, 916, 1739, 938, 0x36E400);
If not @error Then
MouseClick("left", 1731, 926);
ExitLoop;
EndIf
sleep(50);
Wend
Sleep(6000); ;; check this value
MouseClick("left", 467, 169); go near adria
$PixelCheck = PixelCheckSum(21,193,75,198);
While 1; search for player left
$NewCheck = PixelCheckSum(21,193,75,198);
if $PixelCheck <> $NewCheck Then
MouseClick("left", 859, 377); click adria
Sleep(200);
Send("{SPACE}"); skip dialogue
Sleep(200);
Send("{SPACE}"); skip dialogue
Sleep(200);
Send("{SPACE}"); skip dialogue
Sleep(800);
MouseClick("left", 1254, 1027) ; open menu
Sleep(300);
MouseClick("left", 960, 580) ; leave game
ExitLoop;
EndIf
sleep(50);
Wend
Endif
Endif
EndFunc
Func Begin()
$Go = Not $Go
Call("RestartRun")
EndFunc ;==>Begin
Func Pause()
$Leave = False
EndFunc
Func Stop() ;to allow the script to stop
Exit
EndFunc
Func Leave()
$Leave = True
EndFunc
I don't really code in AutoIT, I "abused" notAres Sarkoth Script as Template. Maybe this is useful to someone.
Start the Leecher first, as it will wait for the Invite at the bottom right. Once leecher is started, start the inviter and watch it go.
Before you start the scripts:
Kill ZK with both in Party, ensure that the Inviter doesn't get a Checkpoint at the terminus but spawns in the city when resuming the game.