PDA

View Full Version : REQ: Dummy hitter and beer drinker.



r4it
11-26-2009, 12:22 PM
Thought someone could do it... shouldnt be 2 hard with manual banking lol.
I could lend my user to test the script... if ur a trusted member.
Im a new user cause i didnt remember the email of my old user lol.

Edit:

Actually started working on it... got it to hit the dummy... and now trying to figure out how to get it to drink beer lol.

Could someone explait me how to use MouseItemRSC function?

Edit:

Took that thieving script what is posted under thieving and started editing it...
Got it to hit the dummy and drink the beer, but it fucks up.
Could someone help me with it?

tls
11-26-2009, 06:28 PM
Post what you have.

r4it
11-26-2009, 06:36 PM
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 :)

r4it
11-26-2009, 08:19 PM
WOuld be nice if u could help :D

Mm... detecting the dummy doesnt work as i would like and sometimes it runs out of the room... after the drinking usually... browse trought the code and see what iv done wrong... havent tinkered with scar scripting much.

tls
11-26-2009, 08:25 PM
Make a new dummy clicking function, and make it click the dummy *after* you drink only.

r4it
11-26-2009, 09:35 PM
Awkwardsaw the one u posted... doesnt drink... opens inv and stops there.

morttt
11-26-2009, 11:51 PM
With all the bugs they left in rsc, it's a shame they took out the cocktail shaker bug. Reduced stats with one click and no need to bank :duh:

weequ
11-27-2009, 03:44 PM
With all the bugs they left in rsc, it's a shame they took out the cocktail shaker bug. Reduced stats with one click and no need to bank :duh:Do you remember what drink we had to buy from the gnome bar? It used to lower attack like 7 or 8 levels..

morttt
11-27-2009, 04:36 PM
Whiskey still lowers attack by 8 levels, you can buy that from Blurberry. Stocks 5 at a time and respawn is quite fast.

Cocktail shaker didn't even need a drink lol, just click pour when it was empty:p

weequ
11-27-2009, 04:57 PM
Whiskey still lowers attack by 8 levels, you can buy that from Blurberry. Stocks 5 at a time and respawn is quite fast.

Cocktail shaker didn't even need a drink lol, just click pour when it was empty:pTy :)