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

[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;

 

[Sascha]

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

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

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

 

[Андрей]

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

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]

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

 

[Андрей]

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

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

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

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

 

[Андрей]

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

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

 

[Sascha]

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

 

[Андрей]

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

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

 

[Sascha]

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

 

[Андрей]

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

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

 

[Sascha]

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

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

 

[Sascha]

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

 

[Андрей]

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

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

 

[Lomanu4]

google!

 

[Андрей]

google!

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

 

[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;

 

[Андрей]

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
Теперь я понял)
Спасибо