Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Подскажите такую вещь

тут можно задать вопрос по скриптингу
Post Reply
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Подскажите такую вещь

Post by Half-Life »

Доброго времени суток, помогите со скриптом.
Суть скрипта такова: имеется профиль на 7 чаров. Запускаем скрипт, он заходит на 1-го чара, выполняет какие то действия, выходит, заходит на второго чара, выполняет какие то действия,выходит и так на 3,4,5,6,7. После 7-го чара скрипт ждёт какое то время и всё начинается заново.
Я не могу понять как сделать так, что бы он перезаходил с чара на чара. Кто может помогите, обьясните.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Подскажите такую вещь

Post by Vizit0r »

7 профилей с 7 разными чарами. смена чара "на лету" - очень неинтересное дело, поэтому таким вот костылями обходиться надо.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Re: Подскажите такую вещь

Post by Half-Life »

Я наверно не так выразился имеется аккаунт с 7-ю чарами. И что бы после первого, заходило на второго, потом на третьего и т.д.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Подскажите такую вещь

Post by Vizit0r »

я про это и писал.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Re: Подскажите такую вещь

Post by Half-Life »

т.е. так как я хочу сделать - это не возможно? я так понял?
nah nah
Developer
Developer
Posts: 414
Joined: 13.07.2011 11:23
Contact:

Re: Подскажите такую вещь

Post by nah nah »

а редактор синтаксис питона не?
а чего там с питоном делали?

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

ЗЫ сори, что где попало
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Подскажите такую вещь

Post by Vizit0r »

парсер нормально не работает с питоновским подходом к синтаксису.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
CFA
Developer
Developer
Posts: 492
Joined: 20.04.2006 6:03
Contact:

Re: Подскажите такую вещь

Post by CFA »

Half-Life wrote:т.е. так как я хочу сделать - это не возможно? я так понял?
Возможно. Смотри ChangeProfile
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Re: Подскажите такую вещь

Post by Half-Life »

CFA wrote:
Half-Life wrote:т.е. так как я хочу сделать - это не возможно? я так понял?
Возможно. Смотри ChangeProfile
Можешь пример мне написать с комментариями?
Tomers
Novice
Novice
Posts: 99
Joined: 06.08.2009 11:51

Re: Подскажите такую вещь

Post by Tomers »

Давал ответ в другом топике. У меня работает такой кусок кода:

Code: Select all

profile_mas:=[profile_1,profile_2,profile_3];

...

while true do begin
  while not(Connected) do wait(1500);
  *процедура*;
  Disconnect;
  wait(1000);
  j:=j+1;
  if j>high(profile_mas) then begin
    j:=0;
    wait(60000);
  end;
  setarstatus(false);
  ChangeProfile(profile_mas[j]);
  wait(1000);
  Connect;
  setarstatus(true);
  for i:=1 to 60 do begin
      if connected then break;
      wait(1000);
  end;  
end;
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Re: Подскажите такую вещь

Post by Half-Life »

Tomers wrote:Давал ответ в другом топике. У меня работает такой кусок кода:

Code: Select all

profile_mas:=[profile_1,profile_2,profile_3];

...

while true do begin
  while not(Connected) do wait(1500);
  *процедура*;
  Disconnect;
  wait(1000);
  j:=j+1;
  if j>high(profile_mas) then begin
    j:=0;
    wait(60000);
  end;
  setarstatus(false);
  ChangeProfile(profile_mas[j]);
  wait(1000);
  Connect;
  setarstatus(true);
  for i:=1 to 60 do begin
      if connected then break;
      wait(1000);
  end;  
end;
у меня он не работает=\
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Re: Подскажите такую вещь

Post by Half-Life »

Ребята помогите, имеется акаунт с 7-ю чарами Bulka I, Bulka II, Bulka III, Bulka IV, Bulka V, Bulka VI, Bulka VII

есть этот скрипт

Code: Select all

profile_mas:=[profile_1,profile_2,profile_3];

...

while true do begin
  while not(Connected) do wait(1500);
  *процедура*;
  Disconnect;
  wait(1000);
  j:=j+1;
  if j>high(profile_mas) then begin
    j:=0;
    wait(60000);
  end;
  setarstatus(false);
  ChangeProfile(profile_mas[j]);
  wait(1000);
  Connect;
  setarstatus(true);
  for i:=1 to 60 do begin
      if connected then break;
      wait(1000);
  end;  
end;
и есть процедура

Code: Select all

 RequestContextMenu($00029FC8); 
    SetContextMenuHook($00029FC8,1); 
    Wait(2000);    
    WaitGump('1');
    wait(3000);
как это всё связать так что бы запускался скрипт, заходил на Bulka I, делал процедуру, выходил, заходил на Bulka II, 3,4,5,6,7, выходил ждал 3600 секунд и всё начиналось по новой. Очень надо.
Half-Life
Novice
Novice
Posts: 86
Joined: 30.10.2012 12:06
Location: Одесса
Contact:

Re: Подскажите такую вещь

Post by Half-Life »

Тему можно закрывать.
Спасибо Tomers'у:)
Post Reply