คำสั่งที่ให้บอทมันตัดตอนเลือดเหลือน้อยแล้วก้ให้มันต่อเองมีไหมคับ

procedure Init;
begin
    SetIsNotEat('ยาคืนวิญญาณ');
    SetIsNotEat('ยาวิญญาณม่วง');
    SetIsCB('สาลี่พลังปราณ');
    echoChat('koRn Bot โหลดเสร็จแล้วครับ',clRed);
end;

procedure MyAttack;
var    m: TCombatMonster;
                n: Byte;
    sk: String;
begin
    m := Combat.FindBestMonster;
                n := Combat.Size;
    if (MyPlayer.Hp < 0.10*MyPlayer.MaxHp) then
    begin
        if (MyPlayer.Sp > 10)
        then SendAttack(MyPlayer.Row,MyPlayer.Col,MyPlayer.Row,MyPlayer.Col,'วิชาหลบหนี')
        else SendAttack(MyPlayer.Row,MyPlayer.Col,MyPlayer.Row,MyPlayer.Col,'หลบหนี');
    end;
    if (n=1)
    then sk := 'ป้องกัน'
    else sk := 'น้ำพุทะลวง';
    SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk);
end;

procedure BattleStoped;
begin
     AutoEat;
     AutoHeal;
end;

begin
    Init;
end.