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.

[ScottTef]

Pin-Up Betting: Обзор Букмекерской Конторы

В заключительные годы букмекерские конторы становятся все более пользующимися популярностью, и одним из ярких представителей этого сегмента является Pin-Up Betting. Эта платформа завлекает игроков многообразием ставок, удобным интерфейсом и широким выбором спортивных событий. В данной статье мы рассмотрим, что есть Pin-Up Betting, его превосходства и особенности.

1. Общая информация о Pin-Up Betting

Pin-Up Betting была основана в 2016 году и с тех пор успела занять крепкие позиции на базаре он-лайн ставок. Букмекерская контора работает по лицензии, что отлично обеспечивает легальность и безопасность ее деятельности. Pin-Up предлагает пользователям широкий спектр услуг, включая спортивные ставки, казино и живые игры.

2. Спортивные ставки

Pin-Up Betting предлагает ставки на огромное количество спортивных событий, включая:

- Футбол
- Баскетбол
- Теннис
- Хоккей
- Киберспорт и прочие дисциплины

Юзеры могут выбирать из разных типов ставок: одиночные, экспресс, системы и live-ставки. Широкий выбор событий и базаров дозволяет каждому игроку найти наиболее интересные для себя варианты.

3. Бонусы и акции

Одним из главных привлечений для новых игроков являются призы. Pin-Up Betting предлагает разные акции, включая приветственный приз для новых юзеров, бонусы на депозит и кэшбэк. Эти предложения дают возможность прирастить шансы на выигрыш и делают игру более захватывающей.

4. Интерфейс и мобильное приложение

Интерфейс веб-сайта Pin-Up Betting интуитивно понятен и удобен в процессе применения. Навигация исполняется стремительно, что дает возможность легко обретать нужные события и располагать ставки. Для любителей ставок на ходу букмекерская контора делает отличное предложение мобильное приложение, доступное для Android и iOS. Оно стопроцентно сохраняет функциональность сайта и предоставляет игрокам возможность делать ставки в хоть какое время и в любом месте.

5. Способы пополнения и вывода средств

Pin-Up Betting поддерживает широкий спектр платежных систем, включая банковские карты, электрические кошельки и криптовалюту. Это дает возможность пользователям избирать наиболее удачный способ совершения финансовых операций. Вывод средств осуществляется как можно быстрее, и букмекерская контора стремится обеспечивать комфортные условия для своих клиентов pin up site

6. Поддержка пользователей

Клиентская поддержка важный аспект работы хоть какой букмекерской конторы. Pin-Up Betting делает отличное предложение юзерам несколько способов связи: онлайн-чат, электронную почту и телефон. Команда помощи трудитсякруглые сутки, готовая помочь в решении любых вопросов.

Заключение

Pin-Up Betting это современная и надежная букмекерская контора, которая делает отличное предложение игрокам широкий выбор событий спорта, удачный интерфейс и выгодные призы. Независимо от того, являетесь ли вы новичком или опытным игроком, тут можно отыскать что-то занимательное для себя. Однако помните, что ставки всегда связаны с риском, и главно подходить играть ответственно.