ไว้เก็บเวลพวกของวิญญาน120อะคับ
คำสั่งที่ให้บอทมันตัดตอนเลือดเหลือน้อยแล้วก้ให้มันต่อเองมีไหมคับ
Started by Loving You, Feb 15 2007 04:26 AM
1 reply to this topic
#1
Posted 15 February 2007 - 04:26:29 AM
#2
Posted 16 February 2007 - 03:22:24 AM
ที่ผมใช้อยู่นะครับแนะนำเป็นการบอทป่าที่ npc 1-2 ตัวเพราะพวกนี้ใช้สกิลไม่บ่อย
เหมือน npc ในเควส เอาเครื่องหมายถูกออกจาก autodisconnect when hp <20%
เหมือน 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.
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