ไปที่เนื้อหา


รูปภาพ

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


  • กรุณาลงชื่อเข้าใช้เพื่อตอบกระทู้
มี 1 โพสต์ตอบกลับกระทู้นี้

#1 Loving You

Loving You

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

  • Members
  • 18 โพสต์

โพสต์เมื่อ 15 February 2007 - 04:26:29 AM

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

#2 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 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 สมาชิกกำลังอ่านกระทู้นี้

0 สมาชิก, 1 ผู้เยี่ยมชม, 0 ผู้ใช้งานที่ซ่อนตัว