The Killer
2012-09-18 14:32:16
basically a script that pickpockets FEMALE h.a.m members for easy clue scrolls.
would have to get around the prison and being kicked out.
would have to get around the prison and being kicked out.
SRL Archive - RS3 Script Requests
H.a.m member pickpocketer
Olly
2012-09-18 14:51:49
Eh…. Don't you think powerbots clue scroll script literately killed off level 1 clues for ever?
The Killer
2012-09-18 15:33:28
From: Ollybest
Eh…. Don't you think powerbots clue scroll script literately killed off level 1 clues for ever?
good point. /thread.
2012-09-18 16:05:24
getting an easy clue scroll litterally takes 4min or less i dont see the point of dis sometimes i get clue scroll in less than 10 picks use ring of wealth
Justin
2012-09-19 08:50:42
I started to work on a Clue Scroll Solver project but I don't have time to develop it any more.
Feel free to expland
Feel free to expland
procedure BreakJail(Loc: string);
var
TPA: TPointArray;
ATPA: T2DPointArray;
i, x, y, m: Integer;
begin
debug('[BreakJail] Start');
FindColorsSpiralTolerance(x, y, TPA, 4410701, MSX1, MSY1, MSX2, MSY2, 5);
SortTPAFrom(TPA, Point(MSCx, MSCy));
ATPA := TPAtoATPAEx(TPA, 20, 30);
m := High(ATPA);
debug('[BreakJail] We have found ' + IntToStr(m) + ' ATPAs');
{$IFDEF DEBUG_jClues}
DebugATPABounds(ATPA);
{$ENDIF}
for i := 0 to m do
begin
MiddleTPAEx(ATPA[i], x, y);
BrakeMMouse(x, y, 2, 2);
if (WaitUpTextMulti(['pen Door'], 200)) then
begin
ClickMouse2(mouse_Right);
if (WaitOptionMulti(['ick', 'ock'], 200)) then
begin
debug('[BreakJail] Breaking out...');
wait(randomRange(2000, 4000));
repeat
wait(randomRange(2000, 4000));
until (FindBlackChatMessage('ou pickthe')) debug('[BreakJail] Out of jail. Walking back');
wait(RandomRange(4000, 6000));
FindColorTolerance(x, y, 131831, 557, 20, 603, 56, 10);
BrakeMMouse(x, y, 1, 1);
ClickMouse2(mouse_Left);
wait(1000 + Random(250));
while (isMoving) do
Wait(50 + Random(25));
wait(3000);
debug('[BreakJail] Looking for closed door');
FindColorsSpiralTolerance(x, y, TPA, 1985893, MSX1, MSY1, MSX2, MSY2, 5);
SortTPAFrom(TPA, Point(MSCx, MSCy));
ATPA := TPAtoATPAEx(TPA, 10, 10);
m := High(ATPA);
debug('[BreakJail] We have found ' + IntToStr(m) + ' ATPAs');
{$IFDEF DEBUG_jClues}
DebugATPABounds(ATPA);
{$ENDIF}
for i := 0 to m do
begin
MiddleTPAEx(ATPA[i], x, y);
BrakeMMouse(x, y, 2, 2);
if (WaitUpTextMulti(['lose'], 400)) then
begin
debug('[BreakJail] Door was already opend');
exit;
end;
if (WaitUpTextMulti(['pen', 'oor'], 400)) then
begin
ClickMouse2(mouse_Right);
if (WaitOptionMulti(['pen', 'oor', 'Open Door', 'pen Door'], 400)) then
begin
debug('[BreakJail] Door was closed. Now open.');
end;
exit;
end;
end;
end;
end;
end;
debug('[BreakJail] End');
end;
procedure DropFullInvo;
var
z: Integer;
begin
FindNormalRandoms;
for z := 1 to 28 do
begin
if ExistsItem(z) then
begin
InvMouse(z, 0);
WaitOptionMulti(['Drop', 'rop'], 250);
end;
end;
end;
procedure Relocate;
var
MyPos: TPoint;
var
x, y: Integer;
Lumbridge_Trapdoor: TPointArray;
begin
debug('[Relocate] Start');
if (SPS_Setup(RUNESCAPE_SURFACE, ['10_9', '11_9'])) then
debug('[Relocate] SPS_Setup has loaded Lumbridge SPS Maps');
debug('[Relocate] Current POS: ' + ToStr(SPS_GetMyPos));
MyPos := SPS_GetMyPos();
if FindSymbol(x, y, Symbol_Lodestone) then
begin
debug('[Relocate] We are at Lumbridge Castle');
debug('[Relocate] Walking back with SPS');
Lumbridge_Trapdoor := [Point(4740, 3785), Point(4747, 3785), Point(4762, 3785), Point(4771, 3774), Point(4769, 3756), Point(4764, 3743), Point(4755, 3733), Point(4744, 3721), Point(4724, 3709), Point(4701, 3710), Point(4669, 3706), Point(4645, 3705), Point(4621, 3705), Point(4606, 3705), Point(4587, 3702), Point(4561, 3694), Point(4535, 3689), Point(4513, 3687), Point(4496, 3675), Point(4498, 3662)];
if SPS_WalkPath(Lumbridge_Trapdoor) then
begin
debug('[Relocate] Walked back with SPS');
end
else
debug('[Relocate] Failed to walk back with SPS');
end;
end;
procedure PickpocketHAM;
var
TPA: TPointArray;
ATPA: T2DPointArray;
i, x, y, m: Integer;
MyPos: TPoint;
begin
debug('[PickpocketHAM] Start');
if (FindBlackChatMessage('You leave the HAM')) then
begin
debug('[PickpocketHAM] Been kicked out of HAM location.');
Relocate;
exit;
end;
FindColorsSpiralTolerance(x, y, TPA, 5908353, MSX1, MSY1, MSX2, MSY2, 25);
SortTPAFrom(TPA, Point(MSCx, MSCy));
ATPA := TPAtoATPAEx(TPA, 20, 20);
m := High(ATPA);
if (m = - 1) then
begin
debug('[PickpocketHAM] No ATPAs found.. Waiting for jail?');
Wait(5000 + random(4000));
MyPos := SPS_GetMyPos();
if (InRange(MyPos.X, 70, 75) and InRange(MyPos.Y, 225, 230)) then
begin
debug('[PickpocketHAM] We are in jail... Breaking out');
BreakJail('se');
exit;
end
else
begin
debug('[PickpocketHAM] Unable to find HAM Members and we are not in jail.');
GameTab(tab_Magic);
BrakeMMouse(573, 278 - 50, 3, 3);
ClickMouse2(mouse_Left);
Wait(randomrange(1200, 1600));
Lodestoneteleport('Lumbridge');
ClickMouse2(mouse_Left);
Wait(RandomRange(14000, 18000));
Relocate;
end;
end;
debug('[PickpocketHAM] We have found ' + IntToStr(m) + ' ATPAs');
{$IFDEF DEBUG_jClues}
DebugATPABounds(ATPA);
{$ENDIF}
for i := 0 to m do
begin
MyPos := SPS_GetMyPos();
if (InRange(MyPos.X, 70, 75) and InRange(MyPos.Y, 225, 230)) then
begin
debug('[PickpocketHAM] We are in jail... Breaking out');
BreakJail('se');
exit;
end;
if (InvFull) then
DropFullInvo;
MiddleTPAEx(ATPA[i], x, y);
BrakeMMouse(x, y, 2, 2);
if (WaitUpTextMulti(['ember'], 200)) then
begin
ClickMouse2(mouse_Right);
if (WaitOptionMulti(['Pickp', 'ickpock', 'kpc'], 200)) then
begin
debug('[PickpocketHAM] Pick-Pocket found');
wait(600 + Random(500));
while (isMoving) do
Wait(50 + Random(25));
PickPocketHAM;
exit;
end;
end;
end;
if (FindBlackChatMessage('bundled out of the')) then
begin
debug('[PickpocketHAM] Sent to jail... Waiting');
Wait(4000 + Random(6000));
BreakJail('se');
end;
debug('[PickpocketHAM] End');
end;
The Killer
2012-09-19 10:48:56
From: [J]ustin
I started to work on a Clue Scroll Solver project but I don't have time to develop it any more.
Feel free to expland
procedure BreakJail(Loc: string);
var
TPA: TPointArray;
ATPA: T2DPointArray;
i, x, y, m: Integer;
begin
debug('[BreakJail] Start');
FindColorsSpiralTolerance(x, y, TPA, 4410701, MSX1, MSY1, MSX2, MSY2, 5);
SortTPAFrom(TPA, Point(MSCx, MSCy));
ATPA := TPAtoATPAEx(TPA, 20, 30);
m := High(ATPA);
debug('[BreakJail] We have found ' + IntToStr(m) + ' ATPAs');
{$IFDEF DEBUG_jClues}
DebugATPABounds(ATPA);
{$ENDIF}
for i := 0 to m do
begin
MiddleTPAEx(ATPA[i], x, y);
BrakeMMouse(x, y, 2, 2);
if (WaitUpTextMulti(['pen Door'], 200)) then
begin
ClickMouse2(mouse_Right);
if (WaitOptionMulti(['ick', 'ock'], 200)) then
begin
debug('[BreakJail] Breaking out...');
wait(randomRange(2000, 4000));
repeat
wait(randomRange(2000, 4000));
until (FindBlackChatMessage('ou pickthe')) debug('[BreakJail] Out of jail. Walking back');
wait(RandomRange(4000, 6000));
FindColorTolerance(x, y, 131831, 557, 20, 603, 56, 10);
BrakeMMouse(x, y, 1, 1);
ClickMouse2(mouse_Left);
wait(1000 + Random(250));
while (isMoving) do
Wait(50 + Random(25));
wait(3000);
debug('[BreakJail] Looking for closed door');
FindColorsSpiralTolerance(x, y, TPA, 1985893, MSX1, MSY1, MSX2, MSY2, 5);
SortTPAFrom(TPA, Point(MSCx, MSCy));
ATPA := TPAtoATPAEx(TPA, 10, 10);
m := High(ATPA);
debug('[BreakJail] We have found ' + IntToStr(m) + ' ATPAs');
{$IFDEF DEBUG_jClues}
DebugATPABounds(ATPA);
{$ENDIF}
for i := 0 to m do
begin
MiddleTPAEx(ATPA[i], x, y);
BrakeMMouse(x, y, 2, 2);
if (WaitUpTextMulti(['lose'], 400)) then
begin
debug('[BreakJail] Door was already opend');
exit;
end;
if (WaitUpTextMulti(['pen', 'oor'], 400)) then
begin
ClickMouse2(mouse_Right);
if (WaitOptionMulti(['pen', 'oor', 'Open Door', 'pen Door'], 400)) then
begin
debug('[BreakJail] Door was closed. Now open.');
end;
exit;
end;
end;
end;
end;
end;
debug('[BreakJail] End');
end;
procedure DropFullInvo;
var
z: Integer;
begin
FindNormalRandoms;
for z := 1 to 28 do
begin
if ExistsItem(z) then
begin
InvMouse(z, 0);
WaitOptionMulti(['Drop', 'rop'], 250);
end;
end;
end;
procedure Relocate;
var
MyPos: TPoint;
var
x, y: Integer;
Lumbridge_Trapdoor: TPointArray;
begin
debug('[Relocate] Start');
if (SPS_Setup(RUNESCAPE_SURFACE, ['10_9', '11_9'])) then
debug('[Relocate] SPS_Setup has loaded Lumbridge SPS Maps');
debug('[Relocate] Current POS: ' + ToStr(SPS_GetMyPos));
MyPos := SPS_GetMyPos();
if FindSymbol(x, y, Symbol_Lodestone) then
begin
debug('[Relocate] We are at Lumbridge Castle');
debug('[Relocate] Walking back with SPS');
Lumbridge_Trapdoor := [Point(4740, 3785), Point(4747, 3785), Point(4762, 3785), Point(4771, 3774), Point(4769, 3756), Point(4764, 3743), Point(4755, 3733), Point(4744, 3721), Point(4724, 3709), Point(4701, 3710), Point(4669, 3706), Point(4645, 3705), Point(4621, 3705), Point(4606, 3705), Point(4587, 3702), Point(4561, 3694), Point(4535, 3689), Point(4513, 3687), Point(4496, 3675), Point(4498, 3662)];
if SPS_WalkPath(Lumbridge_Trapdoor) then
begin
debug('[Relocate] Walked back with SPS');
end
else
debug('[Relocate] Failed to walk back with SPS');
end;
end;
procedure PickpocketHAM;
var
TPA: TPointArray;
ATPA: T2DPointArray;
i, x, y, m: Integer;
MyPos: TPoint;
begin
debug('[PickpocketHAM] Start');
if (FindBlackChatMessage('You leave the HAM')) then
begin
debug('[PickpocketHAM] Been kicked out of HAM location.');
Relocate;
exit;
end;
FindColorsSpiralTolerance(x, y, TPA, 5908353, MSX1, MSY1, MSX2, MSY2, 25);
SortTPAFrom(TPA, Point(MSCx, MSCy));
ATPA := TPAtoATPAEx(TPA, 20, 20);
m := High(ATPA);
if (m = - 1) then
begin
debug('[PickpocketHAM] No ATPAs found.. Waiting for jail?');
Wait(5000 + random(4000));
MyPos := SPS_GetMyPos();
if (InRange(MyPos.X, 70, 75) and InRange(MyPos.Y, 225, 230)) then
begin
debug('[PickpocketHAM] We are in jail... Breaking out');
BreakJail('se');
exit;
end
else
begin
debug('[PickpocketHAM] Unable to find HAM Members and we are not in jail.');
GameTab(tab_Magic);
BrakeMMouse(573, 278 - 50, 3, 3);
ClickMouse2(mouse_Left);
Wait(randomrange(1200, 1600));
Lodestoneteleport('Lumbridge');
ClickMouse2(mouse_Left);
Wait(RandomRange(14000, 18000));
Relocate;
end;
end;
debug('[PickpocketHAM] We have found ' + IntToStr(m) + ' ATPAs');
{$IFDEF DEBUG_jClues}
DebugATPABounds(ATPA);
{$ENDIF}
for i := 0 to m do
begin
MyPos := SPS_GetMyPos();
if (InRange(MyPos.X, 70, 75) and InRange(MyPos.Y, 225, 230)) then
begin
debug('[PickpocketHAM] We are in jail... Breaking out');
BreakJail('se');
exit;
end;
if (InvFull) then
DropFullInvo;
MiddleTPAEx(ATPA[i], x, y);
BrakeMMouse(x, y, 2, 2);
if (WaitUpTextMulti(['ember'], 200)) then
begin
ClickMouse2(mouse_Right);
if (WaitOptionMulti(['Pickp', 'ickpock', 'kpc'], 200)) then
begin
debug('[PickpocketHAM] Pick-Pocket found');
wait(600 + Random(500));
while (isMoving) do
Wait(50 + Random(25));
PickPocketHAM;
exit;
end;
end;
end;
if (FindBlackChatMessage('bundled out of the')) then
begin
debug('[PickpocketHAM] Sent to jail... Waiting');
Wait(4000 + Random(6000));
BreakJail('se');
end;
debug('[PickpocketHAM] End');
end;
looks good. I'll have a goodlook sometime. I need to learn about tpa's abit to fully understand this :D