Code:
// Set computer to 32 Bit true colour and set game to 800 x 600 pixels.
program CombatArmsAutoPlayer;
{.Include SRL/SRL.Scar}
const
PlayerUser = ('');
PlayerPass = ('');
QuickJoin = 1721714;
Full = 4670900;
Busy = 1927334;
Moderate = 1605737;
Low = 8344347;
Start = 2117255;
var x,y,Timer1,Timer2,CAicon,CAstart,NexonLogoSmall: integer;
//By: Da 0wner
procedure iType(Text : string; WaitTime : integer; Return : boolean);
var
i: integer;
s : string;
begin
s := '~!@#$%^&*()_+ABCDEFGHIJKLMNOPQRSTUVWXYZ{}|:"<>?';
for i := 1 to Length(Text) do
begin
if pos(Text[i], s) > 0 then
begin
KeyDown(VK_SHIFT);
Wait(WaitTime + Random(15) + Random(50));
end;
KeyDown(GetKeyCode(Text[i]));
Wait(WaitTime + Random(30));
KeyUp(GetKeyCode(Text[i]));
Wait(WaitTime + Random(30));
if pos(Text[i], s) > 0 then KeyUp(VK_SHIFT);
end;
if Return then
begin
Wait(10 + Random(30));
KeyDown(VK_RETURN);
Wait(10 + Random(30));
KeyUp(VK_RETURN);
end;
end;
Procedure BitMapSetUp;
begin
CAicon := BitmapFromString(18, 15, 'beNodjktTGgcAgMdjrUbDa4' +
'Fl2WXZB+wuC6yLPFYMolEeAgHEB0UgJvKQSABBEpOmroPQ4lSpmrb' +
'TxnaaTDJJppNLnY7ttDM5pD11Mp0e2mvrqf0XTfudvsN3+KzcGIdP' +
'OaiAQEe95nrm8s2k99ZK8Egsb60t3s7HC4mJxuqV6wvT86HJSYHnz' +
'aRarQI1UMDNZiPj8377ejrYvXX1Rsp3bz356KC5U0neeMdfSQfWkj' +
'OtxtX3KqnF8KR7lDWzJlSPeR2mZHjibmnpwV7z2f3t7tb1+rVIORu' +
'dnbDbLQxLG1EYJFFohMHHbWbOYl1IJOyciecdglOYmZ4OBYKzPn80' +
'NMtbWQLWvAly+dKYMM4YDDYzSxOYEgAGBy/QRiOBqGmGM9Im1my1W' +
'Ed43u50jjldbgwnM+mVzc0tweUSbDxrIPJL8d1mdSkeQxAdTlB6zA' +
'hB2jdupJgR3mZ3CDTDwoheFHdXc0WvZyLs8/vHx8rL87t3ml8d9w4' +
'6LYIgOAajcJhAQOnwkFImQWBEq0UwjMzlitVao3Kz2qzVNktrrUat' +
'12l/fHh0/+DD4/09qwEeZVBYLZdeGEQBqUIByGQyVKeHdXrB7RHFn' +
'efPv+58sLex0RTF1upyMhMLfbLfoTBIp1YMD/QDQwMqmVSpAkkQsG' +
'MaHP5vHMWIaHSuUqmvFUq3c5mzTvHvnx4/+eyQ0ypw+ZBWOkio5Qp' +
'AqVKqYyN4xmlIO6kFl0lgKQdLhx2WavjS6y93zr85/OflyZ+/vgxa' +
'cB+LujAQhUBEp2cZU9bD7cSE/dTUw9KV0+2V79vFF1vpH7rrn+fDd' +
'8NCd9l/eKfMaYGYzWAlMTWoAUGIMXGJuWQj4jnJz3737vLr49rvD7' +
'fPv+2dn/bO2oV60BnnyGw6jcoluEp+8aJEC0JuEjKgKKLDrLimGbK' +
'/2Ij//H7ul6Pqqbhyei/9tBJvL3oT0x6MpPrf6h94ewCUDPlIsHaJ' +
'StkwRCEBgGEcVVSD/LNS8FUr81uv8Men5b/OvjipX2MJnDTS4v/09' +
'fXNmXVzDJgb1edc5AwDQSoJoQeLkakHxcirbuHHdv6j7OV2KgBpNN' +
'y/RpPwEw==');
CAstart := BitmapFromString(9, 5, 'beNqr562tl6yqEa+oEgGisxf' +
'Z4Ki9U/z8ZQ5kESA6d4nt/GV2IOPCFQ4g+8wFljMXWIEIWQ1EF1wK' +
'zICyq2rEyiuFi0v5S8sFgWpOn2eB6K0FAOA2Q8A=');
NexonLogoSmall := BitmapFromString(5, 7, 'beNq7oc/gOQEf6j3H' +
'UHeAIXMtQ+Q8EHfuHTgyWL4GwlBZsWfiyaiDN/QllhyrPFQAZGBBA' +
'DqvLsQ=');
end;
Procedure ClickingCombatArms;
begin
If (FindBitmap(CAicon,x,y)) then
begin
MoveMouseSmooth(x,y);
clickmouse(x,y,true);
wait(10+random(5));
clickmouse(x,y,true);
end else
writeln ('Combat Arms could not be found');
terminatescript;
end;
Procedure StartingCombatArms;
begin
repeat
wait(1000);
Timer1 := Timer1 + 1
If Timer1 > 30 then
Writeln ('CombatArms launcher could not be started, exiting script');
TerminateScript;
until (FindBitmap(CAstart,x,y))
FindBitmap(CAstart,x,y)
Mouse(x+random(2)-random(2),y-random(2),5,5,true);
repeat
wait(1000);
Timer2 := Timer2 +1
If Timer2 > 100 then
Writeln ('CombatArms opening screen could not be started, exiting script');
TerminateScript;
until (FindBitmap(NexonLogoSmall,x,y))
end;
Procedure Login;
begin
FindBitMap(NexonLogoSmall,x,y)
///////////Clear the login////////////
Mouse(x-485+random(4)-random(4),y-227+random(4)-random(4),5,5,true);
KeyDown(VK_SHIFT);
HoldMouse(x-250+random(4)-random(4),y-227+random(4)-random(4),true);
KeyUp(VK_SHIFT);
wait(50+random(50));
KeyDown(VK_BACK);
wait(50+random(25));
KeyUp(VK_BACK);
Mouse(x-487+random(4)-random(4),y-190+random(4)-random(4),5,5,true);
KeyDown(VK_SHIFT);
HoldMouse(x-250+random(4)-random(4),y-190+random(4)-random(4),true);
KeyUp(VK_SHIFT);
wait(50+random(50));
KeyDown(VK_BACK);
wait(50+random(25));
KeyUp(VK_BACK);
//////////////The Login///////////////
Mouse(x-485+random(4)-random(4),y-227+random(4)-random(4),5,5,true);
Writeln('Typing your username ' + PlayerUser);
iType(PlayerUser,7+random(3),false);
wait(250+random(250));
Mouse(x-487+random(4)-random(4),y-190+random(4)-random(4),5,5,true);
Writeln('Typing your password ' + PlayerPass);
iType(PlayerPass,7+random(3),true);
Writeln('Pressed Enter, and we are logging in');
end;
begin
setupsrl;
BitMapSetUp;
ClickingCombatArms;
StartingCombatArms;
Login;
end.