PDA

View Full Version : [Thieving] Palidino.com thiever



fresh iz ere
09-03-2010, 01:03 AM
i was wondering if someone could make me a palidino.com thiever or if you could just make a paladin thiever, thanks!

fresh iz ere
09-07-2010, 07:10 PM
BumP

Frement
09-07-2010, 07:32 PM
I made one (with other scripts), the dimensions/coordinates need to be adjusted to your screen, if you do not know how to do it, I wish that you help yourself and learn.

program BSScript;
{$I SRL/SRL.scar}

var HP_Check: Integer;

const Username = '';
Password = '';
Script = 1; // 1 = Paladin Thiever
// 2 = Black Knight Killer
// 3 = Magic Axe Killer
// 4 = Hill Giant Killer
// 5 = Fire Rune Buyer
// 6 = Nature Rune Buyer
Eating = True; // Defines if the script eats (Sharks).

GTAB_COMBAT = 'combat';
GTAB_STATS = 'stats';
GTAB_QUEST = 'quest';
GTAB_INV = 'inventory';
GTAB_EQUIP = 'equip';
GTAB_PRAYER = 'prayer';
GTAB_MAGIC = 'magic';
GTAB_FRIENDS = 'friends';
GTAB_IGNORE = 'ignore';
GTAB_LOGOUT = 'logout';
GTAB_OPTIONS = 'options';
GTAB_EMOTES = 'emotes';
GTAB_MUSIC = 'music';

FMSX1 = 7; //Main Screen top-left corner X value.
FMSY1 = 5; //Main Screen top-left corner Y value.
FMSX2 = 517; //Main Screen bottom-right corner X value.
FMSY2 = 337; //Main Screen bottom-right corner Y value.

FMMX1 = 555;
FMMY1 = 5;
FMMX2 = 724;
FMMY2 = 151;

FMSCX = 263; //Main Screen center X value.
FMSCY = 206; //Main Screen center Y value.

FMIX1 = 547; //Inventory top-left corner X value.
FMIY1 = 205; //Inventory top-left corner Y value.
FMIX2 = 740; //Inventory bottom-right corner X value.
FMIY2 = 467; //Inventory bottom-right corner Y value.

procedure ClickTab(x, y: Integer);
begin
if not (GetColor(x, y) = 1778795) then begin
Mouse(x, y, 1, 1, True);
end;
end;

procedure F_SetAngle(Highest : Boolean);
begin
KeyDown((Integer(not Highest) * 2) + 38);
Sleep(1000 + Random(300));
KeyUp((Integer(not Highest) * 2) + 38);
Wait(500 + Random(100));
end;

procedure F_GameTab(GTab: String);
begin
case GTab of
'combat': ClickTab(532, 176);
'stats': ClickTab(567, 171);
'quest': ClickTab(599, 172);
'inventory': ClickTab(632, 171);
'equip': ClickTab(666, 171);
'prayer': ClickTab(706, 174);
'magic': ClickTab(737, 171);
'friends': ClickTab(569, 469);
'ignore': ClickTab(598, 470);
'logout': ClickTab(632, 470);
'options': ClickTab(671, 476);
'emotes': ClickTab(698, 482);
'music': ClickTab(740, 469);
end;
end;

function FullHP: Boolean;
begin
F_GameTab(GTAB_STATS);
if (CountColorTolerance(65535, 647, 209, 661, 222, 15) = CountColorTolerance(65535, 659, 221, 673, 234, 15)) then begin
Result := True;
end else begin
F_GameTab(GTAB_INV);
Result := False;
end;
end;

procedure AlchAddyPlate;
var x, y: Integer;
begin
if (FindColorTolerance(x, y, 4873802, FMIX1, FMIY1, FMIX2, FMIY2, 5)) then begin
Mouse(x, y, 2, 3, True);
end;
end;

procedure Alch;
var x, y: Integer;
begin
if (FindColorTolerance(x, y, 4873802, FMIX1, FMIY1, FMIX2, FMIY2, 5)) then begin
F_GameTab(GTAB_MAGIC);
Mouse(716, 335, 1, 1, True);
Wait(400+Random(100));
AlchAddyPlate;
Wait(1700+Random(100));
F_GameTab(GTAB_INV);
end;
end;

procedure ClickAttack(x, y: Integer);
begin
Mouse(x, y, 0, 0, True);
Wait(200 + Random(500));
Wait(2200 + Random(500));
end;

procedure ClickPickpocket(x, y: Integer);
begin
Mouse(x, y, 0, 0, False);
Wait(200 + Random(500));
Mouse(x, y+40, 1, 1, True);
Wait(1500 + Random(300));
end;

function F_InFight: Boolean;
var x, y: Integer;
begin
Result := False;
if (FindColorTolerance(x, y, 65280, 221, 119, 283, 169, 5)) then begin
Result := True;
end;
end;

procedure RelocateToNPC;
var x, y: Integer;
begin
if (FindColorTolerance(x, y, 195836, FMMX1, FMMY1, FMMX2, FMMY2, 10)) then begin
Mouse(x, y, 1, 1, True);
Wait(2500+Random(500));
end;
end;

function F_FightAt(x, y: Integer): Boolean;
begin
Result := False;
{if (FindColorTolerance(x, y, 65280, x-30, y-10, x+30, y, 5)) then begin
Result := True;
end;}
end;

// Black Knight: 460553 (CCT: 150);
// Paladin: 7434875 (CCT: 150);
// Magic Axe: 2843259 (CCT: 100);
// Hill Giant: 8039378 (CCT: 100);
procedure Attack(Color, CCT: Integer; Click: String);
var AttackTP: TPoint;
AttackTPA: TPointArray;
AttackATPA: T2DPointArray;
i, x, y, AttackHigh: Integer;
begin
if (FindColorsSpiralTolerance(x, y, AttackTPA, Color, FMSX1, FMSY1, FMSX2, FMSY2, 15)) then
begin
SortTPAFrom(AttackTPA, Point(MSCX, MSCY));
AttackATPA := TPAtoATPAEx(AttackTPA, 10, 10);
AttackHigh := High(AttackATPA);
for i := 0 to AttackHigh do
begin
if (i > 15) then begin
RelocateToNPC;
Break;
end;
AttackTP := MiddleTPA(AttackATPA[i]);
if not (F_FightAt(AttackTP.X, AttackTP.Y)) then begin
MMouse(AttackTP.X, AttackTP.Y, 3, 3);
Wait(100);
if (CountColorTolerance(1040102, 73, 3, 381, 19, 70)>CCT) then
begin
GetMousePos(x, y);
case Click of
'pickpocket': ClickPickpocket(x, y);
'attack': ClickAttack(x, y);
end;
Break;
end;
end;
end;
end;
end;

function HP_Checks: Boolean;
begin
Result := False;
if (HP_Check >= 5) then begin
HP_Check := 0;
Result := True;
end;
Inc(HP_Check);
end;

procedure Eat;
var x, y: Integer;
begin
if (HP_Checks) then begin
if not (FullHP) then begin
F_GameTab(GTAB_INV);
if (FindColorTolerance(x, y, 6782103, FMIX1, FMIY1, FMIX2, FMIY2, 9)) then begin
Mouse(x, y, 2, 3, True);
end;
end else begin
Writeln('HP is full.');
end;
F_GameTab(GTAB_INV);
end;
end;

function F_LoggedIn: Boolean;
begin
Result := True;
if (GetColor(180, 112) = 11184810) then begin
Result := False;
end;
end;

procedure F_LogIn;
begin
Mouse(273, 193, 2, 2, True);
TypeSend(Username);
Wait(300);
TypeSend(Password);
Wait(2000);
Wait(500+Random(500));
end;

procedure F_LogOut;
begin
F_GameTab(GTAB_LOGOUT);
Wait(100);
Mouse(639, 376, 1, 1, True);
end;

procedure PaladinThiever;
begin
repeat
ClearDebug;
Writeln('Preparing to pickpocket.');
Attack(5552103, 100, 'pickpocket');
Alch;
if (Eating) then begin
Eat;
end;
until(False);
end;

procedure BlackKnightKiller;
begin
repeat
ClearDebug;
Writeln('Preparing to attack.');
Attack(1184277, 150, 'attack');
F_GameTab(GTAB_INV);
F_GameTab(GTAB_STATS);
while (F_InFight) do begin
if (Eating) then begin
Eat;
end;
Wait(1000);
ClearDebug;
Writeln('We are fighting.');
end;
until(False);
end;

procedure MagicAxeKiller;
begin
repeat
ClearDebug;
Writeln('Preparing to attack.');
Attack(2843259, 100, 'attack');
F_GameTab(GTAB_INV);
F_GameTab(GTAB_STATS);
while (F_InFight) do begin
if (Eating) then begin
Eat;
end;
Wait(1000);
ClearDebug;
Writeln('We are fighting.');
end;
until(False);
end;

procedure HillGiantKiller;
begin
repeat
ClearDebug;
Writeln('Preparing to attack.');
Attack(8039378, 100, 'attack');
F_GameTab(GTAB_INV);
F_GameTab(GTAB_STATS);
while (F_InFight) do begin
if (Eating) then begin
Eat;
end;
Wait(1000);
ClearDebug;
Writeln('We are fighting.');
end;
until(False);
end;

procedure FireBuyer;
begin
repeat
Mouse(284, 84, 0, 0, False);
Wait(150);
Mouse(284, 164, 0, 0, True);
Wait(150);
until(False);
end;

procedure NatureBuyer;
begin
repeat
Mouse(333, 132, 0, 0, False);
Wait(150);
Mouse(333, 212, 0, 0, True);
Wait(150);
until(False);
end;

procedure Debug;
begin
Writeln(IntToStr(CountColorTolerance(65535, 710, 210, 741, 236, 15)));
end;

begin
SetupSRL;
if not (F_LoggedIn) then begin F_LogIn; end;
case Script of
0: Debug;
1: PaladinThiever;
2: BlackKnightKiller;
3: MagicAxeKiller;
4: HillGiantKiller;
5: FireBuyer;
6: NatureBuyer;
end;
end.

For best accuracy, start logged in and your browser window as wide and high as the runescapes screen.

Default script selected is 1 which is the Paladin Thiever, it should work just fine, it also high alchs the addy plates if it finds, and you can set it to eat sharks, but that doesnt necessarily work, because of the coordinates.

fresh iz ere
09-10-2010, 10:22 AM
Damn, i'm gonna try to figure out how to work this, thanks :)



[Error]: Unable to find file 'SRL/SRL.scar' used from ''




Failed when compiling
Line 51: [Error] (51:1): Unknown identifier 'Mouse' in script C:\Program Files (x86)\SCAR 3.22\Scripts\Pali Auto Thiever.scar


lolz could anyone help :S

also, could you help me set it up, im repping but its not doing much ^.^

TomTuff
09-10-2010, 01:33 PM
/facepalm

get SRL

fresh iz ere
09-10-2010, 04:48 PM
Line 51: [Error] (51:1): Unknown identifier 'Mouse' in script C:\Program Files (x86)\SCAR 3.22\Scripts\Pali Auto Thiever.scar

thats the only error i get, and i have SRL -_-

seany
09-10-2010, 08:03 PM
change to ClickMouse

Frement
09-10-2010, 08:05 PM
Line 51: [Error] (51:1): Unknown identifier 'Mouse' in script C:\Program Files (x86)\SCAR 3.22\Scripts\Pali Auto Thiever.scar

thats the only error i get, and i have SRL -_-

This script is made with Simba, I suggest that you download it.

Rich
09-10-2010, 10:02 PM
change to ClickMouse

Definitely not. ClickMouse is detectable, and hasn't been used for ages.

noobscam
09-11-2010, 06:05 PM
it just clicks like crazy lol

seany
09-11-2010, 08:08 PM
Definitely not. ClickMouse is detectable, and hasn't been used for ages.

this is NOT for runescape its for P server which has no detection system so ClickMouse would do just fine.

Frement
09-11-2010, 11:00 PM
this is NOT for runescape its for P server which has no detection system so ClickMouse would do just fine.

Yes, but I still recommend using Mouse.

fresh iz ere
09-12-2010, 12:36 AM
How do i download Simba?

holic
09-12-2010, 01:12 AM
How do i download Simba?

http://villavu.com/forum/showthread.php?t=56224

fresh iz ere
09-12-2010, 01:58 AM
Error with Mouse



[Error] (52:5): Unknown identifier 'Mouse' at line 51
Compiling failed.

^Useing SIMBA^

Error is ClickMouse


[Error] (52:33): Invalid number of parameters at line 51
Compiling failed.

^Using SIMBA^

fresh iz ere
09-12-2010, 06:12 PM
also the ClickTab

Rich
09-12-2010, 06:31 PM
^ Just edit your first post instead of adding another.

Also, I know that some P servers do have detection systems. They're not as advanced as Jagex's, but probably enough to detect MoveMouse and ClickMouse.

fresh iz ere
09-12-2010, 11:06 PM
Palidino doesn't care about autoers

weequ
09-13-2010, 12:08 AM
I have autoed a lot using clickmouse in battlescape.

fresh iz ere
09-13-2010, 01:50 AM
Could you post your autoer on here?

fresh iz ere
10-09-2010, 07:14 PM
I Figured most of it out, but can anybody tell me how to fill theese out?



FMSX1 = 7; //Main Screen top-left corner X value.
FMSY1 = 5; //Main Screen top-left corner Y value.
FMSX2 = 517; //Main Screen bottom-right corner X value.
FMSY2 = 337; //Main Screen bottom-right corner Y value.

FMMX1 = 555;
FMMY1 = 5;
FMMX2 = 724;
FMMY2 = 151;

FMSCX = 263; //Main Screen center X value.
FMSCY = 206; //Main Screen center Y value.

FMIX1 = 547; //Inventory top-left corner X value.
FMIY1 = 205; //Inventory top-left corner Y value.
FMIX2 = 740; //Inventory bottom-right corner X value.
FMIY2 = 467; //Inventory bottom-right corner Y value.

kingarabian
10-10-2010, 07:18 AM
Sorry bout this, but frement can you go in full detail about which coords I need to get for it to eat the food?

fresh iz ere
10-10-2010, 07:35 AM
Sorry bout this, but frement can you go in full detail about which coords I need to get for it to eat the food?

What i'm asking :P

fresh iz ere
10-10-2010, 06:52 PM
/Solved

kingarabian
10-10-2010, 08:28 PM
/Solved

Can you explain to me how? I fixed the coords for the tabs.

fresh iz ere
10-10-2010, 09:59 PM
Can you explain to me how? I fixed the coords for the tabs.

I didn't do that, i just found a new one where i can get like 10m/h, If you want me to i'll post a the script it's a crafting one.

kingarabian
10-10-2010, 11:18 PM
I didn't do that, i just found a new one where i can get like 10m/h, If you want me to i'll post a the script it's a crafting one.

Sure please do.

fresh iz ere
10-11-2010, 09:19 AM
Well it partially works, all you have to do is buy the diamonds when it right clicks them than restart the script, If you could fix it, would be great. Well here it is



program Crafter;
var
x1, ShopX, ShopY: Integer;


procedure FindClient;
var
I: Integer;
begin
for I := 0 to 600 do
begin
if (GetColor(I, 420) = 2437688) then x1 := I;
if x1 > 0 then
begin
WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
Exit;
end;
end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
MoveMouse(x-258+x1, y);
Wait(70);
ClickMouse(x-258+x1, y, Left);
Wait(70);
end;

function ShopScreen: Boolean;
begin
Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
I: Integer;
begin
while ShopScreen do
begin
MoveMouse(697-258+X1, 37);
Wait(30);
ClickMouse(697-258+X1, 37, True);
while ShopScreen and (I < 350) do
begin
Wait(10);
Inc(I);
end;
if I < 350 then Exit;
I := 0;
end;
end;



function OpenShop: Boolean;
var
x, y, I, II, III, A: Integer;
NewX: Integer;
begin
repeat
if IsFKeyDown(10) then TerminateScript;
MoveMouse(ShopX-257+X1, ShopY);
while (CountColorTolerance(53199, 315-258+X1, 5, 360-258+X1, 15, 40) < 7) do
begin
Wait(10);
A := A + 1;
if A = 150 then
begin
ClickMouse(790-258+X1, 263, True);
Wait(80);
ClickMouse(790-258+X1, 263, True);
Wait(80);
MoveMouse(ShopX-257+X1, ShopY);
end;
if A = 300 then
begin
for A := 300 to 400 do
begin
NewX := ShopX+A-300;
MoveMouse(NewX-257+X1, ShopY);
Wait(100);
if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
NewX := ShopX-A+300;
MoveMouse(NewX-257+X1, ShopY);
Wait(100);
if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
end;
if A < 400 then ShopX := NewX
else TerminateScript;
end;
end;
ClickMouse(ShopX-257+X1, ShopY, False);
III := 0;
while (III < 50) do
begin
if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
begin
ClickMouse(ShopX-257+X1, Y+20, True);
Break;
end;
Inc(III);
Wait(5)
end;
if III > 49 then Continue;
//Wait(100);
//ClickMouse(ShopX-258+X1, ShopY+42, True);
I := 0;
repeat
Wait(10);
I := I+1;
until(ShopScreen or (I > 200));
until(ShopScreen);
MoveMouse(445-258+X1, 130);
Wait(50);
ClickMouse(445-258+X1, 130, False);
while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
ClickMouse(435-258+X1, 216, True);
Wait(50);
CloseShop;
repeat
Wait(10);
II := II+1
until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
x, y: Integer;
begin
MoveMouse(970, 445);
Wait(50);
repeat
if IsFKeyDown(10) then TerminateScript;
MoveMouse(953-258+X1, 445);
Wait(15);
ClickMouse(953-258+X1, 445, True);
Wait(30);
MoveMouse(931-258+X1, 445);
Wait(15);
ClickMouse(931-258+X1, 445, True);
Wait(30);
until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
ClickMouse(790-258+X1, 263, True);
Wait(10);
ClickMouse(790-258+X1, 263, True);
Wait(10);
ClickMouse(790-258+X1, 263, True);
Wait(15);
end;

begin
Wait(3000);
FindClient;
//GetMousePos(ShopX, ShopY);
ShopX := 517;
ShopY := 167;
repeat
Clicks;
OpenShop;
until(false);
end.

kingarabian
10-11-2010, 09:23 AM
Can you explain to me what this script is trying to do? Like whats good about diamonds?

fresh iz ere
10-11-2010, 11:15 AM
this will easily make you 5 - 10m/h It buys diamonds at the crafting guild, and it will cut them into Bolt Tips heres a video

http://www.youtube.com/watch?v=nCCvDdXLdY8

big mac
10-21-2010, 05:49 PM
im new to this stuff but i downloaded simba and SRL, and i got this error

[Error] SRL/SRL/Core/Globals.scar(26:3): Duplicate identifier 'FriendChars' at line 25
Compiling failed.

if i remove that line 25 it just gives me more and more errors, i kept trying to fix errors but it kept giving me errors..

Helghan
12-24-2010, 04:28 PM
[Error] (27:32): Type mismatch at line 26
Compiling failed.

doublex8
12-24-2010, 11:37 PM
[Error] (27:32): Type mismatch at line 26
Compiling failed.

This script is pretty outdated

Frement
12-24-2010, 11:58 PM
Works fine for me, you need to put your browser like this:
http://www.frement.net/srl/thiever.png

doublex8
12-25-2010, 01:25 AM
^^crazy, I guess the private servers don't update as much as rs. I just assumed it was outdated since I don't mess with private servers. I guess I found out what happens when you assume:redface:

Frement
12-25-2010, 01:39 AM
The script works with full screen window also, just need to adjust the coordinate constants.

Iraqi Unit
01-02-2011, 08:26 PM
Hello there,

I have downloaded Simba but I still need help please since I'm a real newby beginner in such affairs. Uhm, so how do I save the Script, where do I save it to and how do I start the bot, etc? If you can help me, I'd appreciate it since I'm really new.

Thank you,

Alex

Frement
01-02-2011, 08:51 PM
Heres a tutorial to show you how to setup Simba: http://villavu.com/forum/showthread.php?t=57883

You can save the script anywhere.

Iraqi Unit
01-02-2011, 10:23 PM
Thank you very much mate :)

Off topic: Does anyone know if Palidino is working, and if it's not why, and when it's going to be available? How long?