SCAR Code:
program New;
var phat,des,x,y:integer;
Procedure LoadBmps;
begin
des := BitmapFromString(27, 4,
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'');
phat := BitmapFromString(11, 6,
'E1E100E1E100E1E100E1E100E1E100BABA00E1E100E1E100E1E100' +
'7B7B00BABA00E1E100E1E100E1E100E1E100E1E100E1E100E1E100' +
'E1E100E1E1007B7B00BABA00E1E100E1E100E1E100E1E100E1E100' +
'E1E100E1E100E1E100E1E100BABA00BABA00E1E100E1E100E1E100' +
'E1E100E1E100E1E100E1E100E1E100E1E100BABA00BABA00E1E100' +
'E1E100E1E100E1E100E1E100E1E100E1E100E1E100E1E100BABA00' +
'BABA00E1E100E1E100E1E100E1E100E1E100E1E100E1E100E1E100' +
'E1E100BABA00BABA00');
end;
procedure Mouse(mousex, mousey: Integer; left: Boolean);
var
a, b, c: Integer;
begin
MoveMouseSmooth(mousex, mousey);
Wait(60 + Random(30));
GetMousePos(b, c);
HoldMouse(b + 1, c, left);
repeat
Wait(20 + Random(30));
a := a + 1;
until (a > 4);
GetMousePos(b, c);
ReleaseMouse(b, c, left);
end;
procedure SendText(Text: string);
var
i: Integer;
begin
for i := 1 to Length(Text) do
begin
SendKeys(Text[i]);
Wait(50 + Random(100));
end;
end;
function LoggedOut:Boolean;
var
des,x,y:integer;
Log:boolean;
begin
if(FindBitmap(des,x,y)) then Log:=True else Log:=False;
Result:=Log;
end;
function Mode:Boolean;
var
phat,x,y:integer;
moda:boolean;
begin
if(FindBitmap(phat,x,y)) then moda:=True else moda:=False;
Result:=moda;
end;
Procedure LogIn;
begin
status('Logging In');
Mouse(260,317,true);
wait(500);
Mouse(409,273,true);
Wait(5000);
Mouse(262,220,true);
end;
procedure Fish;
var
x,y:integer;
begin
status('Fishing');
x:= 270;
y:= 150;
x:= x + Random(30)-15;
y:= y + Random(30)-15;
if(FindColorSpiral(x,y,12433592,x-150,y-150,x+150,y+150))then
begin
MoveMouseSmoothEx(x,y,20,30,10,10,10);
Wait(100);
if(IsTextAt(6,26,'fish: Net '))then
begin
MoveMouseSmoothEx(x,y,20,30,1,1,1);
Mouse(x,y,true);
Wait(300+random(100));
end;
end;
end;
Procedure Sleep;
var s,z:integer;
begin
Status('Sleeping!');
MoveMouseSmoothEx(425,37,20,30,10,10,10);
if (IsTextInArea(404,81,473,98,s,z,'Fatigue: 85'))
or (IsTextInArea(404,81,473,98,s,z,'Fatigue: 86'))
or (IsTextInArea(404,81,473,98,s,z,'Fatigue: 87'))
or (IsTextInArea(404,81,473,98,s,z,'Fatigue: 88'))
or (IsTextInArea(404,81,473,98,s,z,'Fatigue: 100'))
then
begin
MoveMouseSmoothEx(500,40,20,30,10,10,10);
MoveMouseSmoothEx(490,80,20,30,10,10,10);
FindColor(s,z,3036283,267,62,311,88);
MoveMouseSmoothEx(s,z,20,30,10,10,10);
Mouse(s,z,True);
Wait(3000+random(1000));
end else
begin
Fish;
end;
end;
Procedure PlayLegit;
var TalkBack:integer;
begin
TalkBack:= Random(17);
case TalkBack of
0: begin
SendText('Hai');
end;
1: SendText('U now what Hai means in estonian? its shark');
2: SendText('Yo');
3: SendText('Wazaaaaa ');
4: SendText(' im everywhere');
5: SendText('lol');
6: SendText('u think mhe hax?');
7: SendText('...na im away');
8: SendText('6tz 6tz make the beat pound.');
9: SendText('owned... lol');
10: SendText('watta');
11: SendText('ya');
12: SendText('yes boss');
13: SendText('na i play legitos waN TERMITOS');
14: SendText('no...');
15: SendText('yo dude');
16: SendText('ne fish lvls?');
end;
begin
Writeln('Starting script');
repeat
Loadbmps;
if (LoggedOut) then
begin
LogIn;
FreeBitmap(des);
else
if (Mode) then
begin
PlayLegit;
FreeBitmap(phat);
end else
Fish;
Wait(10);
Sleep;
until(false)
end.