Puzzle Pirates Hauling Bot

[tycox94]

Puzzle Pirates Hauling Bot - Good ~ Incredibles!

 

Hello Everyone,

 

This is a bot for puzzle pirate treasure hauling. Does not contain anti ban. It doesn't seem to be noticeable so you should be fine.

 

----------------Installation Instructions------------------

1) Drag & Drop "duty" folder into C:\Program Files (x86)\Three Rings Design\Puzzle Pirates\rsrc\bundles\media\yohoho-puzzle-duty-haul\media\yohoho\puzzle

2) Replace all files

3) Restart PP

4) Open Scar and run when ready to haul

 

Download From Mediafire

Password: scar-divi.com

 

Just the scar file

Program PuzzlePirates_Hauling;
//Ty's Treasure Hauling Bot
//[no-antiban]

var
color,x,y:Integer;
nextblockx,nextblocky:Integer;
restart,constantx,constanty,truex,truey:Integer;
blocks: array[1..5] of array[1..5] of array[1..2] of integer;

procedure gameset;
begin
nextblockx := 1;
nextblocky := 1;
constantx := 69;
constanty := 252;
truex := nextblockx + 69;
truey := nextblocky + 252;
end;

procedure compilevarx;
begin
if(truex > 339) then
begin
truex := 45 + 69;
nextblockx := 0;
restart := 1;
end else
begin
truex := nextblockx * 45 + 69 - 45;
end;
end;

procedure compilevary;
begin
if(nextblocky = 8) then
begin
nextblocky := 1;
end;
if(restart = 1) then
begin
nextblocky := nextblocky + 1;
truey := nextblocky * 45 + 252 -45;
restart := 0;
end;
truey := nextblocky * 45 + 252 -45;
end;

procedure play;
begin
blocks[1][1][1] := truex -45 -45;
blocks[1][1][2] := truey -45 -45;
blocks[1][2][1] := truex -45;
blocks[1][2][2] := truey -45 -45;
blocks[1][3][1] := truex;
blocks[1][3][2] := truey -45 -45;
blocks[1][4][1] := truex +45;
blocks[1][4][2] := truey -45 -45;
blocks[1][5][1] := truex +45 +45;
blocks[1][5][2] := truey -45 -45;

blocks[2][1][1] := truex -45 -45;
blocks[2][1][2] := truey -45;
blocks[2][2][1] := truex -45;
blocks[2][2][2] := truey -45;
blocks[2][3][1] := truex;
blocks[2][3][2] := truey -45;
blocks[2][4][1] := truex +45;
blocks[2][4][2] := truey -45;
blocks[2][5][1] := truex +45 +45;
blocks[2][5][2] := truey -45;

blocks[3][1][1] := truex -45 -45;
blocks[3][1][2] := truey;
blocks[3][2][1] := truex -45;
blocks[3][2][2] := truey;
blocks[3][3][1] := truex;
blocks[3][3][2] := truey;
blocks[3][4][1] := truex +45;
blocks[3][4][2] := truey;
blocks[3][5][1] := truex +45 +45;
blocks[3][5][2] := truey;

blocks[4][1][1] := truex -45 -45;
blocks[4][1][2] := truey +45;
blocks[4][2][1] := truex -45;
blocks[4][2][2] := truey +45;
blocks[4][3][1] := truex;
blocks[4][3][2] := truey +45;
blocks[4][4][1] := truex +45;
blocks[4][4][2] := truey +45;
blocks[4][5][1] := truex +45 +45;
blocks[4][5][2] := truey +45;

blocks[5][1][1] := truex -45 -45;
blocks[5][1][2] := truey +45 +45;
blocks[5][2][1] := truex -45;
blocks[5][2][2] := truey +45 +45;
blocks[5][3][1] := truex;
blocks[5][3][2] := truey +45 +45;
blocks[5][4][1] := truex +45;
blocks[5][4][2] := truey +45 +45;
blocks[5][5][1] := truex +45 +45;
blocks[5][5][2] := truey +45 +45;
color := GetColor(blocks[3][3][1],blocks[3][3][2]);


if(color = GetColor(blocks[2][2][1],blocks[2][2][2])) then
begin
 if(color = GetColor(blocks[2][1][1],blocks[2][1][2])) then
 begin
   ClickMouse(blocks[3][3][1],blocks[3][3][2],true);
 end;
 if(color = GetColor(blocks[2][4][1],blocks[2][4][2])) then
 begin
   ClickMouse(blocks[3][3][1],blocks[3][3][2],true);
 end;
end;

if(color = GetColor(blocks[2][4][1],blocks[2][4][2])) then
begin
 if(color = GetColor(blocks[2][2][1],blocks[2][2][2])) then
 begin
   ClickMouse(blocks[3][3][1],blocks[3][3][2],true);
 end;
 if(color = GetColor(blocks[2][5][1],blocks[2][5][2])) then
 begin
   ClickMouse(blocks[3][3][1],blocks[3][3][2],true);
 end;
end;

if(color = GetColor(blocks[4][2][1],blocks[4][2][2])) then
begin
 if(color = GetColor(blocks[4][1][1],blocks[4][1][2])) then
 begin
   ClickMouse(blocks[4][3][1],blocks[4][3][2],true);
 end;
 if(color = GetColor(blocks[4][4][1],blocks[4][4][2])) then
 begin
   ClickMouse(blocks[4][3][1],blocks[4][3][2],true);
 end;
end;

if(color = GetColor(blocks[4][4][1],blocks[4][4][2])) then
begin
 if(color = GetColor(blocks[4][2][1],blocks[4][2][2])) then
 begin
   ClickMouse(blocks[4][3][1],blocks[4][3][2],true);
 end;
 if(color = GetColor(blocks[4][5][1],blocks[4][5][2])) then
 begin
   ClickMouse(blocks[4][3][1],blocks[4][3][2],true);
 end;
end;

end;


begin
gameset;
repeat
compilevarx;
compilevary;
if(truex = 0) then
begin
end else
begin
if(FindColor(x,y,2397606,423, 175,423, 175)) then
begin
end else
begin
play;
end;
if(IsKeyDown('1')) then
begin
//hot key
end;
if(Findcolor(x,y,7766527,50, 231,404, 271) or Findcolor(x,y,10675052  ,50, 231,404, 271)) then
begin
MoveMouseSmooth(x,y);
wait(50);
clickmouse(x,y,true);
end;
end;

nextblockx := nextblockx + 1;

until(iskeydown('m'));
end.

Edited January 25, 2012 by Freddy

[scarletchrome]

This would be great! but the links are dead.