SCAR Code:
program joinserv;
var x, y, gnumb, cain1, accept, invite, join, chan, entchat, ingameang: integer;
var pr, prtd: boolean;
var curstat: string;
//setup
const servname = 'perrybaal-'; //name of server, does not include suffix number
const startnumb = 1108; //number of game, goes after "servname"
const channame = 'op steveperry'; //name of channel to use
//end setup
procedure chatjoin;
begin
if findbitmap(entchat, x, y) then
begin
curstat:='Joining Chat';
clickmouse(x, y, true);
repeat
wait(100);
until(findbitmap(chan, x, y))
clickmouse(x, y, true);
wait(50);
sendkeys(channame);
keydown(13);
wait(10);
keyup(13);
wait(100);
end;
end;
procedure joinup;
begin
if findbitmap(join, x, y) then
begin
curstat:='joining';
clickmouse(x, y, true);
wait(500);
sendkeys(servname + inttostr(gnumb));
wait(100);
keydown(13);
wait(15);
keyup(13);
wait(100);
movemouse(900+random(100),500+random(100));
prtd:=false;
end;
end;
procedure numbchange;
begin
if iskeydown('/') then
begin
gnumb := gnumb + 1;
writeln(inttostr(gnumb));
wait(100);
end;
if iskeydown(';') then
begin
gnumb := gnumb - 1;
writeln(inttostr(gnumb));
wait(100);
end;
end;
procedure party;
begin
curstat:='partying';
writeln('we are ingame');
prtd:= true;
{keydown(13);
wait(10);
keyup(13);
wait(100);
sendkeys('pp');
wait(100);
keydown(13);
wait(10);
keyup(13);}
wait(100);
sendkeys('p');
wait(10);
repeat
if findbitmap(accept, x, y) then
begin
writeln('invited, accepting...');
clickmouse(x, y, true);
pr:= true;
wait(10);
sendkeys('p');
wait(10);
end else
if findbitmap(invite, x, y) then
clickmouse(x, y, true);
until(pr = true);
pr := false;
writeln('partied!');
end;
procedure ingame;
begin
if findbitmap(ingameang, x, y) then
begin
if (prtd=false) then
party;
end;
end;
procedure bitmaps;
begin
cleardebug;
pr := false;
gnumb := startnumb
join := BitmapFromString(1, 11, 'beNoL8MhIiUiICYmJ8AGSEQEeQ' +
'AYQwQUjAMEZC1k=');
cain1 := BitmapFromString(1, 24, 'beNrj4TDQUFCRkZAREQCSCgoK' +
'QAYESQhw8PBwiAgIcLCAAJBkQAIsMEEgAirjAQC7VAOx');
accept := BitmapFromString(1, 11, 'beNqzsMiICYgI8ACSFTkJAR4' +
'2KSkpQDYPD4eMjIyOjo4FAK9FCRE=');
chan := BitmapFromString(1, 3, 'beNoL8EiICYkI8IgAAA69AvE=');
entchat := BitmapFromString(1, 2, 'beNrLSchIiagAAAhiAmk=');
ingameang := BitmapFromString(1, 38, 'beNpTUOAAAwEBAREwADJk' +
'ZGRUVFQUFBR8fHxSUlIyMjIsLCxYwAAiBQQGBgZAEqIFqB0oBdQoI' +
'SEBVADkAkkgl4eHgwcVAMUVAAJ3C+U=');
prtd:=false;
end;
procedure report;
begin
cleardebug;
writeln('********************');
if (prtd = true) then
writeln('** We are Partied **') else
writeln('** We are NOT Partied **');
writeln('** ' + curstat + ' **');
writeln('** ' + servname + inttostr(gnumb) + ' **');
writeln('*******************');
end;
////////////////////////////////////////main loop
begin
bitmaps;
// chatjoin;
repeat
joinup;
wait(100);
numbchange;
ingame;
wait(100);
report;
until(isfkeydown(12))
end.