กรีสสสสสสสสสสสสสสสสสส

var Point1X,Point1Y,Point2X,Point2Y: Word;
var PartnerFai: Byte;
var isLag: Integer;

procedure Init;
begin
SetIsNotEat('ยาคืนวิญญาณ');
SetIsNotEat('ยาวิญญาณม่วง');
PartnerFai:= 100;
echoChat('KoRn Bot โหลดเสร็จแล้วครับ',clRed);
end;

procedure LogOn;
begin
Point1X := 602;
Point1Y := 895;
Point2X := 922;
Point2Y := 875;
Walk(182,1035);
isLag := 0;
end;

procedure PartyReady;
begin
echoChat('พร้อมเดิน',clRed);
Horse;
walk(602,895);
end;

procedure BattleStarted;
begin
CheckDisconnect;
end;

Procedure OnTimer;
begin
ClickNpc(4);
ClickNpc(2);
Inc(isLag);
if (isLag mod 60) = 0 then Reconnect(5);
end;


procedure MyAttack;
var m : TCombatMonster;
n : byte;
sk : string;
begin
m := Combat.FindF1Monster;
n := Combat.Size;
sk := 'ยิงก้อนหิน';
if (MyPlayer.Hp < 0.25*MyPlayer.MaxHp) or (MyPartner.Hp < 0.25*MyPartner.MaxHp) or (not MyParty.isReady) 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
else
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk);
end;

procedure MyPartnerAttack;
var m: TCombatMonster;
begin
m := Combat.FindF1Monster;
SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,'มือเปล่า');
end;

procedure BattleStoped;
begin
isLag := 0;
if (not MyParty.isReady) then
begin
Walk(182,1035);
end;
if (MyPlayer.Sp < 0.25*MyPlayer.MaxSp) or (MyPartner.Sp < 0.25*MyPartner.MaxSp) then
begin
AutoEat;
AutoHeal;
end;
if (MyPlayer.Hp > 0.75*MyPlayer.MaxHp) or (MyPartner.Hp > 0.75*MyPartner.MaxHp) then
begin
Echo('เดิน',clRed);
if (MyPlayer.X = Point1X) and (MyPlayer.Y = Point1Y)
then Walk(Point2X,Point2Y)
else Walk(Point1X,Point1Y);
end;
end;

procedure CheckDisconnect;
begin
if (MyPlayer.Hp < 0.25*MyPlayer.MaxHp) or (MyPartner.Hp < 0.25*MyPartner.MaxHp) then
begin
Echo('AutoHeal : เติมเลือดด่วน ไม่พอเลี้ยงชีพแล้ว !!',clBlack);
AutoHeal;
AutoEat;
if (MyPlayer.Hp < 0.10*MyPlayer.MaxHp) or (MyPartner.Hp < 0.10*MyPartner.MaxHp) then
Echo('Disconnected : เลือดไม่พอเลี้ยงชีพแล้ว !!',clBlack);
Disconnect;
end;
if (MyPartner.Fai < PartnerFai) then
begin
Echo('Disconnected : ขุนพลซื้อสัตย์ต่ำกว่าที่กำหนด !!',clBlack);
Disconnect;
end;
end;

begin
Init;
end.



แก้ไขเต็มรูปแบบ
แก้ไขแบบเร็ว
Mangtom Dec 15 2006, 02:50 PM โพสต์ #2


เจี่ยงกั้น


กลุ่ม: Members
โพสต์: 61
เข้าร่วม: 15-December 06
สมาชิกลำดับที่: 168
Level: 6
Life: 0 / 142

Magic: 20 / 215

Exp: 69%




ส่วนของลูกตี้ครับ
เพิ่ม - เชคซื่อขุน
- เรียกปาตี้ เอาไปไว้ใน ontimer ให้เชคตลอดเวลาในกรณีไม่เข้าตี้

Procedure Logon;
begin
Walk(122,735); จุดที่จะให้บอทเดินไปรอ
end;

procedure BattleStoped;
begin
if (not MyParty.isReady) then
begin
Walk(122,735); จุดที่จะให้บอทเดินไปรอ
RequestParty('mangtom'); ใส่ชื่อคนนำปาร์ตี้ลงไป
end;

var PartnerFai: Byte;

procedure Init;
begin
SetIsNotEat('ยาคืนวิญญาณ');
SetIsNotEat('ยาวิญญาณม่วง');
SetIsNotEat('ยาวิญญาณเขียว');
SetIsCB('สาลี่พลังปราณ');
SetIsCB('คุกกี้เนย');
SetIsCB('ผงช่วยแผล');
PartnerFai:= 100;
echoChat('KoRn Bot โหลดเสร็จแล้วครับ',clRed);
end;

Procedure Logon;
begin
Walk(182,1035);
end;

procedure OnTimer;
begin
if (not MyParty.isReady) then
begin
Walk(182,1035);
RequestParty('Mangtom');
end;
end;

procedure BattleStarted;
begin
CheckDisconnect;
end;

procedure MyAttack;
var m : TCombatMonster;
n : byte;
sk : string;
begin
m := Combat.FindF1Monster;
n := Combat.Size;
sk := 'ธนูไฟ';
if (MyPlayer.Hp < 0.25*MyPlayer.MaxHp) or (MyPartner.Hp < 0.25*MyPartner.MaxHp) or (not MyParty.isReady) 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
else
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk);
end;

procedure MyPartnerAttack;
var m: TCombatMonster;
sk: String;
begin
m := Combat.FindF1Monster;
sk := 'ธนูไฟ';
SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,sk);
end;

procedure BattleStoped;
begin
if (MyPlayer.Sp < 0.25*MyPlayer.MaxSp) or (MyPartner.Sp < 0.25*MyPartner.MaxSp) then
begin
AutoEat;
end;
if (MyPlayer.Hp < 0.75*MyPlayer.MaxHp) or (MyPartner.Hp < 0.75*MyPartner.MaxHp) then
begin
AutoEat;
AutoHeal;
end;
end;

procedure CheckDisconnect;
begin
if (MyPlayer.Hp < 0.25*MyPlayer.MaxHp) or (MyPartner.Hp < 0.25*MyPartner.MaxHp) then
begin
Echo('AutoHeal : เติมเลือดด่วน ไม่พอเลี้ยงชีพแล้ว !!',clBlack);
AutoHeal;
AutoEat;
if (MyPlayer.Hp < 0.10*MyPlayer.MaxHp) or (MyPartner.Hp < 0.10*MyPartner.MaxHp) then
Echo('Disconnected : เลือดไม่พอเลี้ยงชีพแล้ว !!',clBlack);
Disconnect;
end;
if (MyPartner.Fai < PartnerFai) then
begin
Echo('Disconnected : ขุนพลซื้อสัตย์ต่ำกว่าที่กำหนด !!',clBlack);
Disconnect;
end;
end;

begin
Init;
end.