ค้นหาเนื้อหา
ไม่เปิดเผย
สคริปที่ใช้มี 2 แบบครับลองทั้ง 2 อันแล้วก็ยังไม่ตัด
อันแรกนี่เดิม ๆ เลยครับไม่ได้เปลี่ยนอะไรเลย ได้มาพร้อมตัวบอทนี่แหละครับ
procedure Init;
begin
SetIsNotEat('ยาคืนวิญญาณ');
SetIsNotEat('ยาวิญญาณม่วง');
SetIsCB('');
echoChat('KoRn Bot โหลดเสร็จแล้วครับ',clRed);
end;
procedure BattleStarted;
begin
end;
procedure MyAttack;
var m: TCombatMonster;
begin
m := Combat.FindF1Monster;
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,'มือเปล่า');
end;
procedure MyPartnerAttack;
var m: TCombatMonster;
begin
m := Combat.FindF1Monster;
SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,'มือเปล่า');
end;
procedure BattleStoped;
begin
end;
begin
Init;
end.
อีกอันเป็นสคริปที่ก๊อปมาจากในกระทู้ซักอันในเว็บบอร์ดนี้ครับ เป็นเดิน 2 จุด
var walkx1, walkx2, walky1, walky2 : Integer;
procedure Init;
begin
SetIsNotEat('ยาคืนวิญญาณ');
SetIsNotEat('ยาวิญญาณม่วง');
SetIsCB('ยาต่อวิญญาน');
SetIsCB('ยาพอกคลายเอ็น');
walkx1 := 602;
walky1 := 1495;
walkx2 := 582;
walky2 := 1895;
echoChat('KoRn Bot โหลดเสร็จแล้วครับ',clRed);
end;
procedure LogOn;
begin
Horse;
end;
procedure walk1towalk2;
begin
if((MyPlayer.X = walkx1) and (MyPlayer.Y = walky1)) then
walk(walkx2, walky2)
else
walk(walkx1, walky1);
end;
procedure MyAttack;
var m: TCombatMonster;
begin
m := Combat.FindF1Monster;
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,'มือเปล่า');
end;
procedure MyPartnerAttack;
var m: TCombatMonster;
begin
m := Combat.FindF1Monster;
SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,'มือเปล่า');
end;
procedure BattleStoped;
begin
AutoEatHP;
AutoHeal;
AutoEatSP;
walk1towalk2;
end;
begin
Init;
end.
