Ok, this is a script for a friend, he wants a script to report a specific person.
My problem mainly is with the BMPs (I assume) as it wont click.
The other problem is with the commented out bit, but thats not the real issue.
Thanks in advance.
SCAR Code:
program JobReporter;
{.include SRL\SRL.scar}
var
T : integer;
run : boolean;
Abuse : integer;
Offensive : integer;
const
name = 'killerdud248'; // The name you will be reporting.
Times = 20; // Times to report this name before stopping.
procedure LoadBMPS;
begin;
Abuse := BitmapFromString(82, 1, 'z78DA8D90510AC0300843AFD4' +
'463BB6CF6EB4F73FD28AF9B188638106798A5AF5564853F3A6DAE' +
'599A6623AB0582361EC7D26623676F024E37F2AE39E24FCC57A1D' +
'D36749BE9D6287E214FB6CC45D2FF26C87C8E514E0A2C7E918E85' +
'07A76735FB33950EB60FC02680F6E9C');
Offensive := BitmapFromString(89, 2, 'z78DAA552410E803008FB' +
'D222C4E85DF7FF2799E00E355D37CC387028B0B5053FBD987BE41' +
'A5122FCB0DBEC457CB7CB3695790A673338FFC8D5C6247832C2FC' +
'C73DF80E06F7749CC938C6CCC18196958780280756F4A6D425F68' +
'86C57AEA252707FA70ACC3F5550AAD48DB7C9FE64A694DB92275D' +
'FEE42A869EFCD53B41C4A61E72AFEF6F');
end;
procedure FreeBMPS;
begin;
FreeBitmap(Abuse);
FreeBitmap(Offensive);
end;
procedure RandomMove;
begin;
FindNormalRandoms;
BoredHuman;
end;
procedure ReportName;
begin;
LoadBMPS;
if(FindBitmapTol(x, y, Abuse, 419, 472, 500, 491))then
begin;
Mouse(x, y, 1, 1, true);
TypeSend(name);
end;
if(FindBitmapTol(x, y, Offensive, 34, 207, 153, 222))then
begin;
Mouse(x, y, 1, 1, true);
end;
FreeBMPS;
end;
procedure Go;
begin;
{ run := false;
If (name = '' ) then
begin;
writeln('Please input a name to report');
killscript(0);
end else }
run := true;
If (run = true) and (LoggedIn = true) then
begin
ReportName;
// RandomMove;
end;
end;
begin;
ActivateClient;
SetupSRL;
T := 0;
repeat
Go;
ChanceWait(6000);
T := T + 1;
Until(T = Times);
end.