Jump to content
fewtcher

Repeat until condition?

Recommended Posts

Hello, so I'm trying to make a script for one browser game but I am stuck because I don't know how to define the "repeat until" command. Here's my script:

 

program FindItem;

var

x1, y1: Integer;

begin

wait(5000);

repeat

if FindColor(x1, y1, 8077125, 940, 375, 1000, 430) then

begin

WriteLn('found it')

MoveMouse(x1, y1);

ClickMouse(x1, y1, false);

end else

begin

WriteLn('couldnt find it, trying again');

wait(500);

MoveMouse(950, 325);

ClickMouse(950, 325, false);

wait(200);

MoveMouse(1050, 325);

ClickMouse(1050, 325, false);

until WriteLn = (found it);

end;

end.

 

So basically I want it to look like this:

Repeat

Action1

Action2

Until Action1 is complete/true (I don't know).

 

If it still doesn't make sense here's an explanation - so the first action is the script searching for an item (color) in a small area of the screen. If it doesn't find it the second action is to refresh the window with the items (items change when their window is refreshed). I want the script to repeat itself until it finds the item (complete action 1). I hope that's a detailed enough explanation... I just don't know how to define the "Until" condition...

 

PS: Ok found how to do it. I added a new integer and just changed the first action from clicking (I don't need it to click) to increasing the value of the integer to 1. So if the action is executed my integer will change it's value to 1 and the script will stop ^^ Also saw that I put "until" before the 1st "end" while I should've put it after it.

 

program FindItem;

var

x1, y1: Integer;

i: Integer;

begin

wait(500);

repeat

if FindColor(x1, y1, 8077125, 940, 375, 1000, 430) then

begin

WriteLn('found it')

Inc(i);

end else

begin

WriteLn('couldnt find it, trying again');

wait(500);

MoveMouse(950, 325);

ClickMouse(950, 325, false);

wait(200);

MoveMouse(1050, 325);

ClickMouse(1050, 325, false);

end;

until i = 1;

end.

Edited by fewtcher
Link to comment
Share on other sites

Yes, you've solved it nicely ;)

 

Remember to format your code so that when it becomes larger it is easier to find faults and fix them. I also recommend you post with the

 tags... You can find them as a "#" in the toolbar when creating a Thread. Best of luck programming.

[code]program FindItem;

var
x1, y1: Integer; 
i: Integer;

begin
 Wait(500);
 repeat
   if FindColor(x1, y1, 8077125, 940, 375, 1000, 430) then
   begin
     WriteLn('found it') 
     Inc(i);
   end else
   begin
     WriteLn('couldnt find it, trying again'); 
     Wait(500); 
     MoveMouse(950, 325);
     ClickMouse(950, 325, false); 
     Wait(200); 
     MoveMouse(1050, 325);
     ClickMouse(1050, 325, false); 
   end; 
 until (i = 1); 
end.

Link to comment
Share on other sites

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

1. Установите цель

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

2. Питание

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

3. Физическая активность

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

4. Гидрация

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

5. Сон

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

6. Управление стрессом

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

7. Каждодневный контроль

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

8. Постепенные конфигурации

Опасайтесь радикальных диет и стрессовых ситуаций. Внедряйте изменения в кормленьи и образе жизни равномерно, чтоб они стали размеренными привычками.
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...