Jump to content
Angelo

Dofus bot

Recommended Posts

Hi, janilabo make this script for dofus bot to gather resources, its working but there is just a problem, the old version of dofus required 2 clicks, one to "select" the resource and one to give the order for "recollect", the new version just needs a simple click to gather the resources but i can't modify the code because i don't understand the code, someone can help?

 

code:

---------------------------------------------------------------------------------------------------------------------------------------------------

 

const

Resource1 = 0; // Color de tu Recurso - Pega el color del recurso Nº1

Resource2 = 0; // Color de tu Recurso - Pega el color del recurso Nº2

Resource3 = 0; // Color de tu Recurso - Pega el color del recurso Nº3

CollectTime = 0; // Tiempo en recolectar - Tiempo de recoleccion (11000 = 11 Segundos)

 

var

x, y, lvlx, lvly: Integer;

 

function TargetResource1: Boolean;

begin

Result := FindColor(x, y, Resource1, 0, 0, 800, 600);

end;

 

function TargetResource2: Boolean;

begin

Result := FindColor(x, y, Resource1, 0, 0, 800, 600);

end;

 

function TargetResource3: Boolean;

begin

Result := FindColor(x, y, Resource3, 0, 0, 800, 600);

end;

 

function NextResource1: Boolean;

begin

Result := FindColor(x, y, Resource1, 0, 0, 800, 600);

end;

 

function NextResource2: Boolean;

begin

Result := FindColor(x, y, Resource2, 0, 0, 800, 600);

end;

 

function NextResource3: Boolean;

begin

Result := FindColor(x, y, Resource3, 0, 0, 800, 600);

end;

 

procedure Collect;

begin

if (TargetResource1 or TargetResource2 or TargetResource3) then

begin

MoveMouse(x, y);

Wait(100 + Random(200));

MouseBtnDown(x, y, mbLeft);

Wait(20 + Random(50));

MouseBtnUp(x, y, mbLeft);

Wait(100 + Random(200));

MoveMouse((x + 25), (y + 25));

Wait(100 + Random(200));

MouseBtnDown((x + 25), (y + 25), mbLeft);

Wait(20 + Random(50));

MouseBtnUp((x + 25), (y + 25), mbLeft);

Wait(3000 + Random(500));

Wait(CollectTime);

end;

end;

 

function NoResource: Boolean;

begin

Result := not FindColor(x, y, 1683891, 0, 0, 800, 600);

end;

 

function FindLevel: Boolean;

begin

Result := FindColor(lvlx, lvly, 25087, 0, 0, 500, 500);

end;

 

procedure LevelUp;

begin

if FindLevel then

begin

MoveMouse(lvlx, (lvly + 2));

Wait(100 + Random(100));

ClickMouse(lvlx, (lvly + 2), mbLeft);

Wait(100 + Random(100));

end;

end;

 

begin

Collect;

repeat

if NoResource then

Collect;

if (NextResource1 or NextResource2 or NextResource3) then

Collect;

if FindLevel then

LevelUp;

until False;

end.

Link to comment
Share on other sites

Is it either one of these (test both):

 

const
 Resource1 = 0; // Color de tu Recurso - Pega el color del recurso Nº1
 Resource2 = 0; // Color de tu Recurso - Pega el color del recurso Nº2
 Resource3 = 0; // Color de tu Recurso - Pega el color del recurso Nº3
 CollectTime = 0; // Tiempo en recolectar - Tiempo de recoleccion (11000 = 11 Segundos)

var
 x, y, lvlx, lvly: Integer;

function TargetResource1: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource2: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource3: Boolean;
begin
 Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

function NextResource1: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function NextResource2: Boolean;
begin
 Result := FindColor(x, y, Resource2, 0, 0, 800, 600);
end;

function NextResource3: Boolean;
begin
 Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

procedure Collect;
begin
 if (TargetResource1 or TargetResource2 or TargetResource3) then
 begin
   MoveMouse(x, y);
   Wait(100 + Random(200));
   MouseBtnDown(x, y, mbLeft);
   Wait(20 + Random(50));
   MouseBtnUp(x, y, mbLeft);
   Wait(3000 + Random(500));
   Wait(CollectTime);   
 end;
end;

function NoResource: Boolean;
begin 
 Result := not FindColor(x, y, 1683891, 0, 0, 800, 600);
end;

function FindLevel: Boolean;
begin
 Result := FindColor(lvlx, lvly, 25087, 0, 0, 500, 500);
end;

procedure LevelUp;
begin
 if FindLevel then
 begin
   MoveMouse(lvlx, (lvly + 2));
   Wait(100 + Random(100));
   ClickMouse(lvlx, (lvly + 2), mbLeft);
   Wait(100 + Random(100)); 
 end;
end;

begin
 Collect;
 repeat
   if NoResource then
     Collect;
   if (NextResource1 or NextResource2 or NextResource3) then
     Collect;
   if FindLevel then
     LevelUp;  
 until False;
end.

 

..or...

 

const
 Resource1 = 0; // Color de tu Recurso - Pega el color del recurso Nº1
 Resource2 = 0; // Color de tu Recurso - Pega el color del recurso Nº2
 Resource3 = 0; // Color de tu Recurso - Pega el color del recurso Nº3
 CollectTime = 0; // Tiempo en recolectar - Tiempo de recoleccion (11000 = 11 Segundos)

var
 x, y, lvlx, lvly: Integer;

function TargetResource1: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource2: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource3: Boolean;
begin
 Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

function NextResource1: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function NextResource2: Boolean;
begin
 Result := FindColor(x, y, Resource2, 0, 0, 800, 600);
end;

function NextResource3: Boolean;
begin
 Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

procedure Collect;
begin
 if (TargetResource1 or TargetResource2 or TargetResource3) then
 begin
   MoveMouse((x + 25), (y + 25));
   Wait(100 + Random(200));
   MouseBtnDown((x + 25), (y + 25), mbLeft);
   Wait(20 + Random(50));
   MouseBtnUp((x + 25), (y + 25), mbLeft);
   Wait(3000 + Random(500));
   Wait(CollectTime);   
 end;
end;

function NoResource: Boolean;
begin 
 Result := not FindColor(x, y, 1683891, 0, 0, 800, 600);
end;

function FindLevel: Boolean;
begin
 Result := FindColor(lvlx, lvly, 25087, 0, 0, 500, 500);
end;

procedure LevelUp;
begin
 if FindLevel then
 begin
   MoveMouse(lvlx, (lvly + 2));
   Wait(100 + Random(100));
   ClickMouse(lvlx, (lvly + 2), mbLeft);
   Wait(100 + Random(100)); 
 end;
end;

begin
 Collect;
 repeat
   if NoResource then
     Collect;
   if (NextResource1 or NextResource2 or NextResource3) then
     Collect;
   if FindLevel then
     LevelUp;  
 until False;
end.

 

-Jani

Link to comment
Share on other sites

Sports Betting: A Comprehensive Guide

Sports betting has become a global phenomenon, captivating millions of enthusiasts with its blend of excitement, strategy, and the potential for financial gain. This article aims to provide a comprehensive overview of sports betting, exploring its history, popular types, strategies, and the legal landscape.

A Brief History

Sports betting dates back to ancient civilizations, where wagers were placed on events such as chariot races and gladiatorial contests. Over the centuries, the practice evolved, encompassing a wide range of sports and becoming a formalized industry in the modern era. Today, sports betting is a multi-billion-dollar industry with a substantial presence both online and offline.

Types of Sports Bets

There are several types of bets that one can place on sports events, including:

1. Moneyline Bets: The simplest form of betting where you pick the winner of a game or match.
2. Point Spread Bets: This bet involves predicting the margin of victory.
3. Over/Under Bets: Also known as totals, these bets are placed on the total number of points scored by both teams combined.
4. Prop Bets: These are bets on specific outcomes within a game, such as the first team to score.
5. Futures Bets: Bets placed on events that will happen in the future, like who will win the championship at the end of the season.

Strategies for Successful Betting

Successful sports betting requires more than just luck. Here are some strategies to consider:

1. Research and Analysis: Study the teams, players, and historical performance data http://downzone.pl/profile.php?lookup=4971
2. Bankroll Management: Set a budget and stick to it, avoiding the temptation to chase losses.
3. Understanding Odds: Learn how to read and understand betting odds to make informed decisions.
4. Shop for the Best Lines: Different sportsbooks offer different odds and payouts, so shop around for the best deals.

The Legal Landscape

The legality of sports betting varies around the world. In some countries, it is fully legalized and regulated, while in others, it is either restricted or outright banned. The advent of online sportsbooks has also added a layer of complexity, as bettors can now place wagers from pretty much anywhere, often bypassing local regulations.

Conclusion

Sports betting continues to grow in popularity, attracting a diverse audience from casual fans to hardcore enthusiasts. With the right approach, including diligent research and disciplined bankroll management, it can be both an exciting and rewarding venture. However, it's essential to understand the risks involved and to always gamble responsibly.
Link to comment
Share on other sites

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

1. Обусловьте свои нужды

Прежде всего, вам следует четко найти, какой-никакие именно услуги для вас нужны. Это может быть мелкий ремонт, покраска стен, установка мебели, электромонтаж или что-то иное. Зная, что именно вы желаете сделать, вы сможете более точно выбрать подходящего спеца.

2. Отыскивайте советы

Советы приятелей, коллег или знакомых могут существенно упростить поиск мастера. Если кто-то из вашего окружения уже воспользовался услугами мастера, он сможет поделиться своими впечатлениями и дать ценные советы.

3. Исследуйте онлайн-платформы

Есть особые платформы и сервисы, в каком месте вы найдете мастеров на час. Обратите внимание на отзывы юзеров и рейтинги профессионалов. Это окажет вам помощь оценить профессионализм и качество работы мастера.

4. Инспектируйте квалификацию и опыт

Прежде чем решиться, узнайте о квалификации и опыте мастера. Отлично, если у него есть сертификаты или опыт работы в нужной вам области. Также не лишним будет попросить портфолио выполненных работ.

5. Запросите цены

Не смущяйтесь уточнять стоимость услуг. Разные мастера могут предлагать разные цены в большой зависимости от опыта и сложности работы. Сравните предложения нескольких специалистов, чтобы выбрать более подходящую.

6. Уточните условия работы

Перед тем как подтвердить встречу, обсудите все детали: время работы, нужные материалы и инструменты. Убедитесь, что мастер разумеет ваши ожидания и требования.

7. Проверьте отзывы и репутацию

Дополнительно обследуйте он-лайн-отзывы о мастере, если такая возможность есть. Это поможет составить более полное представление о его профессионализме и надежности.

8. Общайтесь вежливо и открыто

Не забывайте, что не плохая коммуникация ключ к успешному сотрудничеству. Обсуждайте возникшие вопросы и комментарии с мастером, чтобы все было четко и понятно https://alliancetrade.ru/forum/index.php?PAGE_NAME=profile_view&UID=1549
9. Обеспечьте безопасность

Если мастер должен работать с электроинструментами либо делать другие потенциально небезопасные задачи, постарайтесь обеспечить безопасность на рабочем месте. Это дотрагивается как вас, так и специалиста.

Заключение

Выбор мастера на час это ответственный шаг, требующий бдительности и кропотливого подхода. Следуя изложенным рекомендациям, вы сможете найти квалифицированного и надежного специалиста, который окажет вам помощь решить все проблемы в доме быстро и отменно. Фортуны в вашем поиске!
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...