PDA

View Full Version : [Thieving] Anything Thief



_sw
11-06-2011, 11:47 AM
For SCAR 1.13.

(Currently set to thieve guards, but of course you can change the colour 533335 and it will work fine.)

To use this script well, you need LeoSleep or WUSS to handle your fatigue:

http://megaupload.com/?d=GFCS1EDA
http://uppit.com/aur4sxriw6lv/WUSS.zip

They have to be set to "Client" mode and you must drag their... things to the RSC client.

A simple loader, for playing RSC without a web browser (Source included.):

http://uppit.com/2c841kv87qje/loader2.zip



program pickpocket;

{
===============================================
Pickpocketing Script for RS1
Start logged in near the NPC you are thieving.
Sleeping bag goes in the first slot.
Set username and password below.
===============================================
}

var
x, y, i, PP: integer;
const
username ='';
password ='';

procedure BitmapLoad;
begin
PP := BitmapFromString(38, 12,
'000000000000000000000000000000000000000000FFFFFFF FFFFF' +
'000000000000000000000000000000000000000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFF000000000000000000000000000000FFFFFFF FFFFF' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000000000 00000' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000');
end;

procedure Pick;
begin
if (FindColorSpiral (x, y, 533335, 0, 35, 510, 330)) then
begin
status ('Pickpocketing NPC.');
wait(300);
ClickMouse (x, y, False);
wait(300);
if (FindBitmap (PP, x, y)) then
begin
ClickMouse (x+2, y+2, True);
wait(300);
end;
end;
end;

procedure Sleep;
begin
if (IsTextAt (7, 304, 'You are too')) then
begin
status ('Sleeping.');
writeln ('Using sleeping bag.');
MoveMouse (490, 15)
Wait (300);
ClickMouse (285, 50, True);
Wait(2000)
repeat
wait (50);
if (i = 400) then
begin
ClickMouse (180, 300, True);
wait (5000);
writeln ('Asking for a new word.');
wait (2000);
end;
until (IsTextAt (7, 304,'You wake up')) or
(IsTextAt (7, 304,'You are unexpectedly awoken')) or
(IsTextAt (7, 304,'You can t do that whilst')) or
(GetColor (167,41) <> 65535);
MoveMouse(10,10)
wait (10);
end;
wait (50);
end;

procedure Run;
begin
if (IsTextAt (7, 304, 'You are under att')) then
begin
wait (206);
ClickMouse (105, 65, True); // Set attack mode
wait (6001);
status ('Running from combat.');;
MoveMouse (460, 15);
wait (332);
ClickMouse (430, 110, True);
wait (214);
MoveMouse (260, 140);
wait (215);
end;
if (IsTextAt (7, 304, 'You can t do that whilst')) then
begin
wait (206);
ClickMouse (105, 65, True); // Set attack mode
wait (6001);
status ('Running from combat.');;
MoveMouse (460, 15);
wait (332);
ClickMouse (430, 110, True);
wait (214);
MoveMouse (260, 140);
wait (215);
end;
wait (53);
end;

procedure AutoLogin;
begin
if (FindColorSpiral (x, y, 7888212, 300, 305, 355, 308)) then
if (FindColorSpiral (x, y, 16777215, 80, 245, 95, 265)) then
begin
status ('Logging in');
// Click on "Click here to login"
ClickMouse(255, 285, True);
wait(500);
// Enter username
ClickMouse(150, 250, True);
wait(500);
SendKeysSilent(username);
wait(300);
// Enter password
ClickMouse(190, 300, True);
wait(500);
SendKeysSilent(password);
wait(500);
// Log in
ClickMouse(410, 250, True);
wait(5000);
// Close welcome screen
ClickMouse(254, 217, True);
wait(500);
end;
end;

begin
status ('Pickpocketing script.');
writeln ('Starting pickpocketing script.');
BitmapLoad;

repeat
AutoLogin;
Sleep;
Run;
Pick;
until (False);
end.

oommoo
03-14-2018, 07:46 AM
Line 92: [Error] (92:5): Unknown identifier 'IsTextAt' in script ?????

P1nky
03-15-2018, 01:51 PM
Line 92: [Error] (92:5): Unknown identifier 'IsTextAt' in script ?????

Besides the fact this script was released in 2011. Are you using SCAR 1.13 to run this script? Seems like this script was developed for SCAR and not SIMBA.

navi
04-13-2018, 03:31 AM
hey where to get SCAR 1.13 ? cant see any download links in google

P1nky
04-13-2018, 02:11 PM
hey where to get SCAR 1.13 ? cant see any download links in google

You can ask for that version on their forums:
https://forums.scar-divi.com/

SCAR is on version 3.41, not sure if there is a copy of 1.13, but again may want to search their forums or ask around there:
https://scar-divi.com/?page=download

yourule97
04-13-2018, 08:34 PM
Buuuuuut even if you get that version of SCAR, the chances that the script still works for a game that has changed tremendously is impossible. Just scrolling through the script, I would guess that nothing would work.