Post what you have.
I dont want to post a leeched and only modded peace of shit what doesnt even work :D
Il post it soon... if i get some more shit done.
Edit:
It usually fucks up after drinking the beer.
program New;
{.Include SRL-rsc/SRL_rsc.scar}
{.include srl/srl/misc/Reports.scar}
const
hc_route = 'C:\Users\akwardsaw\desktop\hc.bmp';
txt_route = 'C:\Users\akwardsaw\desktop\slword.txt';
man_col = 1648179; //color of the man, HAS to be a "man"
ground_col = 143460; //color of ground you are standing on
//on the minimap. works best in houses/ buildings
Integer = 2;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
writeln('Declaring Players');
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
integers[0] := 20; //how many attempts to pick pocket?
end;
end;
procedure getimage(); //Thanks too 'gottapercha'
var
b: Integer;
begin
b:= Bitmapfromstring(254,39, ''); //Create an empty bitmap with the correct width and height
CopyClientToBitmap(b, RSSX1+129, 230, RSSX1+383, 269); //Take a screenshot and copy it to b
sleep(400);
SaveBitmap(b, hc_route );
sleep(5000);
writeln('Got Image Sent to Leosleep!');
FreeBitmap(b); //Don't forget to free your bitmap after using
end;
procedure gettext; // By Thick As Blood
var
s2 : string;
InFile : Integer;
begin
InFile:= OpenFile(txt_route, False);
writeln('Typeing Text Now');
ReadFileString(InFile, s2, FileSize(InFile));
s2 := GetLetters(s2);
CloseFile(InFile);
if s2 = 'unknown' then//antiban...
begin
Mouse(RSSX1+170, 298, 12, 3, true);
Exit;
end;
Wait(Random(1500));
TypeSend(s2);
inc(players[currentplayer].integers[1]);
end;
procedure SleepIfNeeded;//by antti mies
var
I, x, y: Integer;
TooTired: Integer;
begin
TooTired := BitmapFromString(47, 10, 'beNpjYACC////M1AA4Nr/gwF5' +
'JkA0km0ChQ7A4xg036FZgVUQTQqrmcQYiytksLJxKSBSC0E1W L0zU' +
'I4ZkJBBi6mBdQyelD840wxWxcTnJoKZgqTcNIgAAJCMK/E=');
FindBitmapMaskTolerance(TooTired, x, y, RSSX1+52, 306, RSSX1+100, 317, 0, 0);
FreeBitmap(TooTired);
if X = 0 then Exit;
if not GameTabRSC(6) then Exit;
MMouse(RSSX1+477, 40, 33, 30);
Wait(2300+Random(555));
if FindColoredAreaTolerance(x, y, 3036283, RSSX1+267, 37, RSSX1+508, 237, 5, 0) then Mouse(x, y, 3, 3, true)
else Exit;
Wait(2500 + random(500));
repeat
while (GetColor(RSSX1+209, 249) = 255) do
Wait(500);
Wait(600);
GetImage;
GetText;
Wait(500 + random(1000));
Inc(I);
if I > 10 then
begin
WriteLn('LeoSleep Failed :(');
TerminateScript;
end;
until(GetColor(RSSX1+167,41)<>65535);
Wait(999);
end;
procedure antiban;
begin
if random(10) = 0 then SleepIfNeeded
end;
function Guptext(uptext : string; var x, y : integer): boolean;
var dtm : integer;
begin
case lowercase(uptext) of
'dummy' : DTM := DTMFromString('78DA636C636060E066C000FC40CC08C3DD4 08' +
'29D012B6084D17D40828B809A69408203BF1A00D79F0272') ;
'hit' : DTM := DTMFromString('78DA6334656460D8CA8001F8819811862D8 0E' +
'42606AC801146DB0059DB09A83106B276E257030048A803D0 ');
'att' : DTM := DTMFromString('78DA63EC646060B060644007AC400C1365D 40' +
'6B22C31D53020AB390964591350731AC83225A0660F1176CD 65C4' +
'EA6614355B89302714C83223A02618C8B221A02606D33DFFF FFF4' +
'755538D6917869A1584D500006A0B124A');
end;
result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2);
freedtm(dtm);
end;
procedure IFatt;
var
t, x, y : integer;
tpa : tpointarray;
MM: Boolean;
begin
if not Guptext('att', x, y) then
exit;
inc(players[currentplayer].integers[2]);
GameTabRSC(5);
marktime(t);
while Guptext('att', x, y) do
begin
y := ((2+5)/5)-1;
x := 2 mod 5;
if not GameTabOpenedRSC(6) then MM := True;
if not GameTabRSC(6) then Exit;
if MM then MMouse(RSSX1+477, 40, 33, 30);
Wait(99+Random(99));
MMouse(RSSX1+285+x*49, 50+y*34, 5, 5);
GameTabOpenedRSC(6);
GetMousePos(x, y);
if MM then Wait(99+Random(99));
Mouse(x, y, 0, 0, True);
Wait(99+Random(99));
Mouse(x, y, 0, 0, True);
end;
wait(100 + random(500));
end;
procedure PickPocket;
var
cts, a, x, y : integer;
tpa : TPointArray;
begin
cts := getcolortolerancespeed;
colortolerancespeed(3);
findcolorsspiraltolerance(rsscx, rsscy, tpa, man_col, rssx1, rssy1, rssx2, rssy2, 2);
if length(tpa) < 50 then exit;
for a := 0 to 50 do
begin
mmouse(tpa[a].x, tpa[a].y, 0, 0);
if Guptext('dummy', x, y) then
begin
mouse(tpa[a].x, tpa[a].y, 0, 0, false);
wait(100 + random(300));
if Guptext('hit', x, y) then
begin
mouse(x, y, 0, 0, true);
inc(players[currentplayer].integers[3]);
break;
end else
mmouse(random(100), random(100), 0, 0);
end;
wait(10 + random(100));
end;
wait(2000 + random(500));
IFatt;
SleepIfNeeded;
end;
procedure prog;
begin
SRLPlayerReport(
ResultDebugBox, 0, false,
[false, False, false, False, False, false],
['Times slept', 'Got into fights', 'Total pick pockets'],
[], [1, 2, 3], [], []);
end;
procedure scriptterminate;
begin
prog;
end;
begin
setuprsc;
declareplayers;
if not loggedinRSC then loginrsc;
repeat
PickPocket;
wait(10 + random(20));
until players[currentplayer].integers[3] = players[currentplayer].integers[0];
end.
Awkwardsaw
11-26-2009, 08:03 PM
I dont want to post a leeched and only modded peace of shit what doesnt even work :D
Il post it soon... if i get some more shit done.
Edit:
It usually fucks up after drinking the beer.
program New;
{.Include SRL-rsc/SRL_rsc.scar}
{.include srl/srl/misc/Reports.scar}
const
hc_route = 'C:\Users\akwardsaw\desktop\hc.bmp';
txt_route = 'C:\Users\akwardsaw\desktop\slword.txt';
man_col = 1648179; //color of the man, HAS to be a "man"
ground_col = 143460; //color of ground you are standing on
//on the minimap. works best in houses/ buildings
Integer = 2;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
writeln('Declaring Players');
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
integers[0] := 20; //how many attempts to pick pocket?
end;
end;
procedure getimage(); //Thanks too 'gottapercha'
var
b: Integer;
begin
b:= Bitmapfromstring(254,39, ''); //Create an empty bitmap with the correct width and height
CopyClientToBitmap(b, RSSX1+129, 230, RSSX1+383, 269); //Take a screenshot and copy it to b
sleep(400);
SaveBitmap(b, hc_route );
sleep(5000);
writeln('Got Image Sent to Leosleep!');
FreeBitmap(b); //Don't forget to free your bitmap after using
end;
procedure gettext; // By Thick As Blood
var
s2 : string;
InFile : Integer;
begin
InFile:= OpenFile(txt_route, False);
writeln('Typeing Text Now');
ReadFileString(InFile, s2, FileSize(InFile));
s2 := GetLetters(s2);
CloseFile(InFile);
if s2 = 'unknown' then//antiban...
begin
Mouse(RSSX1+170, 298, 12, 3, true);
Exit;
end;
Wait(Random(1500));
TypeSend(s2);
inc(players[currentplayer].integers[1]);
end;
procedure SleepIfNeeded;//by antti mies
var
I, x, y: Integer;
TooTired: Integer;
begin
TooTired := BitmapFromString(47, 10, 'beNpjYACC////M1AA4Nr/gwF5' +
'JkA0km0ChQ7A4xg036FZgVUQTQqrmcQYiytksLJxKSBSC0E1W L0zU' +
'I4ZkJBBi6mBdQyelD840wxWxcTnJoKZgqTcNIgAAJCMK/E=');
FindBitmapMaskTolerance(TooTired, x, y, RSSX1+52, 306, RSSX1+100, 317, 0, 0);
FreeBitmap(TooTired);
if X = 0 then Exit;
if not GameTabRSC(6) then Exit;
MMouse(RSSX1+477, 40, 33, 30);
Wait(2300+Random(555));
if FindColoredAreaTolerance(x, y, 3036283, RSSX1+267, 37, RSSX1+508, 237, 5, 0) then Mouse(x, y, 3, 3, true)
else Exit;
Wait(2500 + random(500));
repeat
while (GetColor(RSSX1+209, 249) = 255) do
Wait(500);
Wait(600);
GetImage;
GetText;
Wait(500 + random(1000));
Inc(I);
if I > 10 then
begin
WriteLn('LeoSleep Failed :(');
TerminateScript;
end;
until(GetColor(RSSX1+167,41)<>65535);
Wait(999);
end;
procedure antiban;
begin
if random(10) = 0 then SleepIfNeeded
end;
function Guptext(uptext : string; var x, y : integer): boolean;
var dtm : integer;
begin
case lowercase(uptext) of
'dummy' : DTM := DTMFromString('78DA636C636060E066C000FC40CC08C3DD4 08' +
'29D012B6084D17D40828B809A69408203BF1A00D79F0272') ;
'hit' : DTM := DTMFromString('78DA6334656460D8CA8001F8819811862D8 0E' +
'42606AC801146DB0059DB09A83106B276E257030048A803D0 ');
'att' : DTM := DTMFromString('78DA63EC646060B060644007AC400C1365D 40' +
'6B22C31D53020AB390964591350731AC83225A0660F1176CD 65C4' +
'EA6614355B89302714C83223A02618C8B221A02606D33DFFF FFF4' +
'755538D6917869A1584D500006A0B124A');
end;
result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2);
freedtm(dtm);
end;
procedure IFatt;
var
t, x, y : integer;
tpa : tpointarray;
MM: Boolean;
begin
if not Guptext('att', x, y) then
exit;
inc(players[currentplayer].integers[2]);
GameTabRSC(5);
marktime(t);
while Guptext('att', x, y) do
begin
y := ((2+5)/5)-1;
x := 2 mod 5;
if not GameTabOpenedRSC(6) then MM := True;
if not GameTabRSC(6) then Exit;
if MM then MMouse(RSSX1+477, 40, 33, 30);
Wait(99+Random(99));
MMouse(RSSX1+285+x*49, 50+y*34, 5, 5);
GameTabOpenedRSC(6);
GetMousePos(x, y);
if MM then Wait(99+Random(99));
Mouse(x, y, 0, 0, True);
Wait(99+Random(99));
Mouse(x, y, 0, 0, True);
end;
wait(100 + random(500));
end;
procedure PickPocket;
var
cts, a, x, y : integer;
tpa : TPointArray;
begin
cts := getcolortolerancespeed;
colortolerancespeed(3);
findcolorsspiraltolerance(rsscx, rsscy, tpa, man_col, rssx1, rssy1, rssx2, rssy2, 2);
if length(tpa) < 50 then exit;
for a := 0 to 50 do
begin
mmouse(tpa[a].x, tpa[a].y, 0, 0);
if Guptext('dummy', x, y) then
begin
mouse(tpa[a].x, tpa[a].y, 0, 0, false);
wait(100 + random(300));
if Guptext('hit', x, y) then
begin
mouse(x, y, 0, 0, true);
inc(players[currentplayer].integers[3]);
break;
end else
mmouse(random(100), random(100), 0, 0);
end;
wait(10 + random(100));
end;
wait(2000 + random(500));
IFatt;
SleepIfNeeded;
end;
procedure prog;
begin
SRLPlayerReport(
ResultDebugBox, 0, false,
[false, False, false, False, False, false],
['Times slept', 'Got into fights', 'Total pick pockets'],
[], [1, 2, 3], [], []);
end;
procedure scriptterminate;
begin
prog;
end;
begin
setuprsc;
declareplayers;
if not loggedinRSC then loginrsc;
repeat
PickPocket;
wait(10 + random(20));
until players[currentplayer].integers[3] = players[currentplayer].integers[0];
end.
i can make one real fast, lol. since its my theiver any ways
edit: what part is messing up?
edit edit:
program New;
{.Include SRL-rsc/SRL_rsc.scar}
{.include srl/srl/misc/Reports.scar}
const
hc_route = 'C:\Users\akwardsaw\desktop\hc.bmp';
txt_route = 'C:\Users\akwardsaw\desktop\slword.txt';
man_col = 1648179; //color of the man, HAS to be a "man"
Integer = 2;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
writeln('Declaring Players');
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
integers[0] := 20; //how many attempts to pick pocket?
end;
end;
procedure getimage(); //Thanks too 'gottapercha'
var
b: Integer;
begin
b:= Bitmapfromstring(254,39, ''); //Create an empty bitmap with the correct width and height
CopyClientToBitmap(b, RSSX1+129, 230, RSSX1+383, 269); //Take a screenshot and copy it to b
sleep(400);
SaveBitmap(b, hc_route );
sleep(5000);
writeln('Got Image Sent to Leosleep!');
FreeBitmap(b); //Don't forget to free your bitmap after using
end;
procedure gettext; // By Thick As Blood
var
s2 : string;
InFile : Integer;
begin
InFile:= OpenFile(txt_route, False);
writeln('Typeing Text Now');
ReadFileString(InFile, s2, FileSize(InFile));
s2 := GetLetters(s2);
CloseFile(InFile);
if s2 = 'unknown' then//antiban...
begin
Mouse(RSSX1+170, 298, 12, 3, true);
Exit;
end;
Wait(Random(1500));
TypeSend(s2);
inc(players[currentplayer].integers[1]);
end;
procedure SleepIfNeeded;//by antti mies
var
I, x, y: Integer;
TooTired: Integer;
begin
TooTired := BitmapFromString(47, 10, 'beNpjYACC////M1AA4Nr/gwF5' +
'JkA0km0ChQ7A4xg036FZgVUQTQqrmcQYiytksLJxKSBSC0E1W L0zU' +
'I4ZkJBBi6mBdQyelD840wxWxcTnJoKZgqTcNIgAAJCMK/E=');
FindBitmapMaskTolerance(TooTired, x, y, RSSX1+52, 306, RSSX1+100, 317, 0, 0);
FreeBitmap(TooTired);
if X = 0 then Exit;
if not GameTabRSC(6) then Exit;
MMouse(RSSX1+477, 40, 33, 30);
Wait(2300+Random(555));
if FindColoredAreaTolerance(x, y, 3036283, RSSX1+267, 37, RSSX1+508, 237, 5, 0) then Mouse(x, y, 3, 3, true)
else Exit;
Wait(2500 + random(500));
repeat
while (GetColor(RSSX1+209, 249) = 255) do
Wait(500);
Wait(600);
GetImage;
GetText;
Wait(500 + random(1000));
Inc(I);
if I > 10 then
begin
WriteLn('LeoSleep Failed :(');
TerminateScript;
end;
until(GetColor(RSSX1+167,41)<>65535);
Wait(999);
end;
procedure antiban;
begin
if random(10) = 0 then SleepIfNeeded
end;
function Guptext(uptext : string; var x, y : integer): boolean;
var dtm : integer;
begin
case lowercase(uptext) of
'dummy' : DTM := DTMFromString('78DA636C636060E066C000FC40CC08C3DD4 08' +
'29D012B6084D17D40828B809A69408203BF1A00D79F0272') ;
'hit' : DTM := DTMFromString('78DA6334656460D8CA8001F8819811862D8 0E' +
'42606AC801146DB0059DB09A83106B276E257030048A803D0 ');
'att' : DTM := DTMFromString('78DA63EC646060B060644007AC400C1365D 40' +
'6B22C31D53020AB390964591350731AC83225A0660F1176CD 65C4' +
'EA6614355B89302714C83223A02618C8B221A02606D33DFFF FFF4' +
'755538D6917869A1584D500006A0B124A');
end;
result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2);
freedtm(dtm);
end;
var z : integer;
procedure IFatt;
var
x, y : integer;
MM: Boolean;
begin
if not Guptext('att', x, y) then
exit;
inc(z);
inc(players[currentplayer].integers[2]);
MM := GameTabRSC(6);
GetMousePos(x, y);
if MM then Wait(99+Random(99));
MouseItemRSC(z, 2);
Wait(99+Random(99));
MouseItemRSC(z + 1, 2);
wait(100 + random(500));
end;
procedure PickPocket;
var
cts, a, x, y : integer;
tpa : TPointArray;
begin
cts := getcolortolerancespeed;
colortolerancespeed(3);
findcolorsspiraltolerance(rsscx, rsscy, tpa, man_col, rssx1, rssy1, rssx2, rssy2, 2);
if length(tpa) < 50 then exit;
for a := 0 to 50 do
begin
mmouse(tpa[a].x, tpa[a].y, 0, 0);
if Guptext('dummy', x, y) then
begin
mouse(tpa[a].x, tpa[a].y, 0, 0, false);
wait(100 + random(300));
if Guptext('hit', x, y) then
begin
mouse(x, y, 0, 0, true);
inc(players[currentplayer].integers[3]);
break;
end;
end;
end;
wait(1000 + random(500));
IFatt;
SleepIfNeeded;
end;
procedure prog;
begin
SRLPlayerReport(
ResultDebugBox, 0, false,
[false, False, false, False, False, false],
['Times slept', 'Got into fights', 'Total pick pockets'],
[], [1, 2, 3], [], []);
end;
procedure scriptterminate;
begin
prog;
end;
begin
setuprsc;
declareplayers;
if not loggedinRSC then loginrsc;
repeat
PickPocket;
wait(10 + random(20));
until players[currentplayer].integers[3] = players[currentplayer].integers[0];
end.
try that out :)
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.