Помогите С Управлением Listbox

Sascha · 19 Янв 2016

я скачал, только я не понял что незаносит, что должны выполнять вот ето

Код:

procedure TForm3.AbuClick(Sender: TObject);
var
boss: TStringList;
s:string;
begin
boss:= TStringList.Create;
boss.Add('s');
for s in boss do
sListBox4.Items.Add('Абу');
sButton74.Enabled:=true;
boss.Destroy
end;

Sascha · 19 Янв 2016

а при старте ты выполняешь

Код:

procedure TForm3.sButton73Click(Sender: TObject);
begin
  sButton71.Enabled:=true;
  sButton72.Enabled:=true;
  sButton74.Enabled:=true;
  sButton73.Enabled:=false;
end;

хотя тут должен быть тот самый код, или я что то не так понял

Андрей · 19 Янв 2016

Sascha написал(а):
я скачал, только я не понял что незаносит, что должны выполнять вот ето

Код:

procedure TForm3.AbuClick(Sender: TObject); var boss: TStringList; s:string; begin boss:= TStringList.Create; boss.Add('s'); for s in boss do sListBox4.Items.Add('Абу'); sButton74.Enabled:=true; boss.Destroy end;

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

Sascha · 19 Янв 2016

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

Андрей · 19 Янв 2016

Sascha написал(а):
а при старте ты выполняешь

Код:

procedure TForm3.sButton73Click(Sender: TObject); begin sButton71.Enabled:=true; sButton72.Enabled:=true; sButton74.Enabled:=true; sButton73.Enabled:=false; end;

хотя тут должен быть тот самый код, или я что то не так понял

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

Андрей · 19 Янв 2016

Sascha написал(а):
ну я так понимаю что при нажатии на названия боса , и ставишь их в очередь атаки , тебе нужно из списка по очереди задавать действия если бос Хирург делаем атаку для Хирург ждем выполнения действия по окончанию переходим к другому

Да ты меня понял)))

Sascha · 19 Янв 2016

ну здесь вроде всё уже забиты босы они выполняются на прверку если есть то добавляется в очердь

Андрей · 19 Янв 2016

Sascha написал(а):
ну здесь вроде всё уже забиты босы они выполняются на прверку если есть то добавляется в очердь

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

Sascha · 19 Янв 2016

ну тут нужно для каждого боса действие писать и по запросу выполнять

Андрей · 19 Янв 2016

Sascha написал(а):
ну тут нужно для каждого боса действие писать и по запросу выполнять

Отдельную процедуру создавать нужно?
procedure Kryuk;
var
hp,i:= integer;
nameboss:=string;
begin
// а дальше я завис, не знаю что писать, мне еще нужно каждому боссу задать количество здоровья в Label и по уменьшению числа в Label двигать ProgressBar

Sascha · 19 Янв 2016

Андрей написал(а):

Отдельную процедуру создавать нужно?
procedure Kryuk;
var
hp,i:= integer;
nameboss:=string;
begin
// а дальше я завис, не знаю что писать, мне еще нужно каждому боссу задать количество здоровья в Label и по уменьшению числа в Label двигать ProgressBar

Нажмите для раскрытия...

procedure Имя_процедуры(параметры);
begin
Код процедуры;
end;

Sascha · 19 Янв 2016

procedure Sum(A, B: Integer);
begin
Summa:=A+B;
end;

Андрей · 19 Янв 2016

Sascha написал(а):
procedure Sum(A, B: Integer);
begin
Summa:=A+B;
end;

А можешь пожалуйста мне сделать одного босса, а я посмотрю код и попробую по твоему коду добавить боссов 10-15 Чтобы руку набить
Я тестовый исходник могу скинуть. https://cloud.mail.ru/public/4tRG/Wx7iFeLxY

Lomanu4 · 19 Янв 2016

google!

Андрей · 19 Янв 2016

Lomanu4 написал(а):
google!

Pooh Goопилки у меня в голове))
Я ищу но пока того что мне нужно не нашел.

Sascha · 19 Янв 2016

Код:

procedure TForm1.KrysClick(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Крыс') < 0 then
    ListBox1.Items.Add('Крыс');;
end;

procedure TForm1.KryukClick(Sender: TObject);
begin
  if ListBox1.Items.IndexOf(Kryuk.Caption) < 0 then
    ListBox1.Items.Add('Крюк');
end;

procedure TForm1.SokolClick(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Сокол') < 0 then
    ListBox1.Items.Add('Сокол');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;

begin
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Items[i] = 'Крыс' then
    begin
      ShowMessage('Крыс');
    end
    else
    begin
      if ListBox1.Items[i] = 'Крюк' then
      begin
        ShowMessage('Крюк');
      end
      else
      begin
        if ListBox1.Items[i] = 'Сокол' then
        begin
          ShowMessage('Сокол');
        end;

      end;
    end;

  end;
end;

Андрей · 19 Янв 2016

Sascha написал(а):

Код:

procedure TForm1.KrysClick(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Крыс') < 0 then
    ListBox1.Items.Add('Крыс');;
end;

procedure TForm1.KryukClick(Sender: TObject);
begin
  if ListBox1.Items.IndexOf(Kryuk.Caption) < 0 then
    ListBox1.Items.Add('Крюк');
end;

procedure TForm1.SokolClick(Sender: TObject);
begin
  if ListBox1.Items.IndexOf('Сокол') < 0 then
    ListBox1.Items.Add('Сокол');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;

begin
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Items[i] = 'Крыс' then
    begin
      ShowMessage('Крыс');
    end
    else
    begin
      if ListBox1.Items[i] = 'Крюк' then
      begin
        ShowMessage('Крюк');
      end
      else
      begin
        if ListBox1.Items[i] = 'Сокол' then
        begin
          ShowMessage('Сокол');
        end;

      end;
    end;

  end;
end;

thanck you
Теперь я понял)
Спасибо