Jump to content


Photo

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


  • Please log in to reply
1 reply to this topic

#1 Loving You

Loving You

    ทหารศึกดาบแยก

  • Members
  • 18 posts

Posted 15 February 2007 - 04:26:29 AM

ไว้เก็บเวลพวกของวิญญาน120อะคับ

#2 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 posts

Posted 16 February 2007 - 03:22:24 AM

ที่ผมใช้อยู่นะครับแนะนำเป็นการบอทป่าที่ npc 1-2 ตัวเพราะพวกนี้ใช้สกิลไม่บ่อย
เหมือน npc ในเควส เอาเครื่องหมายถูกออกจาก autodisconnect when hp <20%

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.





1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users