[Ivanius]

НЕужели от спасибо вам всё я разобрался все работает только компилируеться минут 10 из-за моих if then я так с циклами и не разобрался пытлася чо-то получалось а щас нет чото обьясните как мне писать на примерах луше сделайте для меня вот что у меня вот что есть кусок программы как мне его лучше реализовать

Код:

if ydar>=50 then begin
    if kritical<=krit then begin
        healBPAr:=healBPAr-realatkt*2;
        MessageBox(handle,pchar('Вы попали во врага на - '+inttostr(realatkt*2)),pchar('Информация'),8240);
        statistic.Lines.Add('попал HA: '+inttostr(realatkt*2));
        label1.Caption := 'попал HA: '+inttostr(realatkt*2);
         man:=man-4;
         if healbpar<1 then
           exit.Enabled:=true;
           atac.enabled:= false;
           pobed:=pobed+1;
         end
else begin
 if realatkt>0 then begin
    healBPAr:=healBPAr-realatkt;
    MessageBox(handle,pchar('Вы попали во врага на - '+inttostr(realatkt)),pchar('Информация'),8240);
    statistic.Lines.Add('попал HA: '+inttostr(realatkt));
    label1.Caption := 'попал HA: '+inttostr(realatkt);
    man:=man-4;
 end
    else begin
     statistic.Lines.Add('Вы попали во врага на - 0dmg');
     label1.Caption := 'Вы попали во врага на - 0dmg';
     MessageBox(handle,pchar('Вы попали во врага на - '+inttostr(realatkt)),pchar('Информация'),8240);
    end;
end;
 end;

ydar перменная рандомная все остальные переменные числового типа