Convert from version 3.13 to current

[imbader22@gmail.com]

Quote

var x, y:integer;
procedure Pot;

begin
w := FindWindows('Endless Online'); 
ActivateClient
repeat
if(FindColorSpiral(x, y, 1579032, 185, 38, 185, 38))then
begin
clickmouse(78, 360, true);
wait(50)
clickmouse(464, 376, true);
wait(15)
clickmouse(464, 376, true);
wait(500)
end
until(FindColorSpiral(x, y, 1579032, 185, 38, 185, 38)=false)
end;
begin
repeat
Pot
until(false)
end.

I have tried this 
 

var x, y:integer;
w: THwndArray;
procedure Pot;
begin
w := FindWindows('Endless Online'); 
 if (High(w) > -1) then
 begin 
ActivateWindow(w[0]);   
   SetLength(w, 0);
   Wait(500);
end;
repeat
if FindColorSpiral(x, y, 1579032, 185, 38, 185, 38) then
begin
clickmouse(78, 360, true);
wait(50)
clickmouse(464, 376, true);
wait(15)
clickmouse(464, 376, true);
wait(500)
end
untilFindColorSpiral(x, y, 1579032, 185, 38, 185, 38)= false
end;
begin
repeat
Pot
until(false)
end.

But I get compile error in line 13 variable expected
I have a working script works fine. but this one i cant get it to work

[Wanted]

On 11/13/2020 at 4:36 AM, imbader22@gmail.com said:

I have tried this 
 

var x, y:integer;
w: THwndArray;
procedure Pot;
begin
w := FindWindows('Endless Online'); 
 if (High(w) > -1) then
 begin 
ActivateWindow(w[0]);   
   SetLength(w, 0);
   Wait(500);
end;
repeat
if FindColorSpiral(x, y, 1579032, 185, 38, 185, 38) then
begin
clickmouse(78, 360, true);
wait(50)
clickmouse(464, 376, true);
wait(15)
clickmouse(464, 376, true);
wait(500)
end
untilFindColorSpiral(x, y, 1579032, 185, 38, 185, 38)= false
end;
begin
repeat
Pot
until(false)
end.

But I get compile error in line 13 variable expected
I have a working script works fine. but this one i cant get it to work

var x, y:integer;
w: THwndArray;
procedure Pot;
begin
w := FindWindows('Endless Online'); 
 if (High(w) > -1) then
 begin 
ActivateWindow(w[0]);   
   SetLength(w, 0);
   Wait(500);
end;
repeat
if FindColorSpiral(0, 0, x, y, 1579032, 185, 38, 185, 38) then
begin
clickmouse(78, 360, true);
wait(50)
clickmouse(464, 376, true);
wait(15)
clickmouse(464, 376, true);
wait(500)
end;
until FindColorSpiral(0, 0, x, y, 1579032, 185, 38, 185, 38)= false
end;
begin
repeat
Pot
until(false)
end.

You need to include the start points in FindColorSpiral (SE, SY) I put in 0, 0 for you and added some semicolons where needed to get the compilation errors to go away.

[JanisItach]

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

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

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

2. Питание

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

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

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

4. Гидрация

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

5. Сон

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

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

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

7. Повседневный контроль

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

8. Постепенные изменения

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