23 replies to this topic

[Mangtom]

รอดูอยู่ว่ามันจะแก้ให้โดดได้ไหมแต่ก็ยัง
ปล.เควสที่เป็น warp นะครับแบบคลิกบอทไม่ได้

สคริปเควสจะมีอยู่ 2 แบบคือ แบบคนเดียวกับแบบเป็นปาตี้
ดูจากรูปการทำงานของ kornbot ส่วนของสคริปแบบเควส จะแบ่งเป็น2ส่วน
1.kornscript
2.quest script



สคริปหลักแบบคนเดียว ตัวอย่างแบบง่าย

uses '.\Script\หวางตู้.txt';
procedure Init;
begin
    SetIsNotEat('ยาคืนวิญญาณ');
    SetIsNotEat('ยาวิญญาณม่วง');
    SetIsCB('สาลี่พลังปราณ');
    echoChat('koRn Bot โหลดเสร็จแล้วครับ',clRed);
end;

procedure MyAttack;
var    m: TCombatMonster;
    sk: String;
begin
    m := Combat.FindBestMonster;
    if (MyPlayer.Hp < 0.25*MyPlayer.MaxHp) or (MyPartner.Hp < 0.25*MyPartner.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 (MyPlayer.Sp > 28)
    then sk := 'มือเปล่า'
    else sk := 'มือเปล่า';
    SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk);
end;

procedure MyPartnerAttack;
var    m: TCombatMonster;
    sk: String;
begin
    m := Combat.FindBestMonster;
    if (MyPartner.Sp > 28)
    then sk := 'มือเปล่า'
    else sk := 'มือเปล่า';
    SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,sk);
end;

procedure BattleStoped;
begin
     AutoEat;
     AutoHeal;
end;

begin
    Init;
end.

ส่วนของสคริปเควสแบบคนเดียว

var i: Byte;
procedure Logon;
begin
   i := 0;
end;
procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then ClickNpc(1);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 12385) then SendDialogEnd;
   if (DialogId = 15657) then
   begin
      ClickNpc(99);
      ClickNpc(99);
      ClickNpc(1);
   end;
end;
procedure NpcDialogMenu(DialogId: Integer);
begin
   SelectDialogChoice(1);
   SendDialogEnd;
end;

begin
   echoChat('เจี่ยนยง.txt โหลดเสร็จแล้วครับ',clRed);
end.

สคริปหลักแบบปาตี้ ตรงนี้ผม+สลับตราเข้าไปด้วยสามารถนำไปปรับแต่งได้ง่าย

uses   '.\Script\ขงเบ้ง.txt';
var   SwapUse : Byte;

Procedure Logon;
begin
   Sendaction(48);
End;

procedure getmyitems;
begin
    Swaplucky('logon');
end;

procedure Init;
begin
   SetIsNotEat('ยาคืนวิญญาณ');
   SetIsNotEat('ยาวิญญาณม่วง');
   SetIsCB('สาลี่พลังปราณ');
   SetIsCB('คุกกี้เนย');
   SetIsCB('ผงช่วยแผล');
   SetIsCB('ยาดอกไม้แดง');
   SetIsDP('พลุรื่นรมย์');
   SwapUse := 1;
   echoChat('KoRn Bot โหลดเสร็จแล้วครับ',clRed);
end;
  
procedure MyAttack;
var m: TCombatMonster;
    n: Byte;
    sk : String;
begin
   m := Combat.FindF1Monster;
   n := Combat.Size;
   sk := 'มือเปล่า';        
if ((SwapUse = 1) and (n = 3)) then SwapLucky('on')
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 SwapLucky(taketype :string);
var slotno,LuckyStatus : Byte;
    Slot: TMyItem;
begin
  slotno := 25;
  Slot := MyItems[slotno];

  if (taketype = 'on') then
    begin
      Equip(slotno,0);
      LuckyStatus := 1;
      Echo('ใส่ '+Slot.name+' เรียบร้อย',clBlack);
    end;

  if (taketype = 'off') then
    begin
      if (LuckyStatus = 1) then
        begin
          Equip(slotno,0);
          LuckyStatus := 0;
          Echo('ถอด  '+Slot.name+' เรียบร้อย',clBlack);
        end;
    end;

  if (taketype = 'logon') then
    begin
      if (Slot.Id = 23024) then
        begin
     SwapUse := 0;
          Echo('[รายงาน] : ตราพังแล้ว กลับไปใช้ระบบปกติ!',clBlack);
        end
      else if ((Slot.Id <> 23085) and (Slot.Id <> 23023)) then
   begin
         Equip(slotno,0);
          Echo('ใส่ไอเท็มไม่ถูกต้อง มีการเปลี่ยนแปลง',clBlack);
          Echo('ถอด  '+Slot.name+' เรียบร้อย',clBlack);
          Echo('เกมจะ Disconect และจะ Reconect อีกประมาณ 15 วินาที ถ้าคุณเลือก Auto Reconnect',clBlack);
     Delay(1000);
     Reconnect(1);
   end
      else
   begin
     Echo('ใส่ไอเท็มถูกต้อง ไม่มีการเปลี่ยนแปลง',clBlack);
   end;
    end;
end;

//---------------------------------------------//

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

procedure PlayerOffline(PlayerName: String);
begin
if (PlayerName = 'ชื่อลูกตี้') then Reconnect(5);
if (PlayerName = 'ชื่อลูกตี้') then Reconnect(5);
if (PlayerName = 'ชื่อลูกตี้') then Reconnect(5);
if (PlayerName = 'ชื่อลูกตี้') then Reconnect(5);
end;

begin
   Init;
end.

สคริปเควสแบบปาตี้

procedure PartyReady;
begin
   echoChat('Start ขงเบ้ง',clRed);
   ClickNpc(13);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 19737) then SendDialogEnd;
   if (DialogId = 19738) then SendDialogEnd;
   if (DialogId = 10150) then
      begin
          Reconnect(1);
          //ClickNPC(99);
          //Delay(600);
          //ClickNPC(13);
      end;
end;

begin
   echoChat('ขงเบ้ง.txt โหลดเสร็จแล้วครับ',clRed);
end.

ส่วนของลูกตี้

var   SwapUse : Byte;

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

procedure Logon;
begin
    SendAction(48);
end;

procedure getmyitems;
begin
    Swaplucky('logon');
end;

procedure MyAttack;
var m: TCombatMonster;
    n: Byte;
    sk : String;
begin
   m := Combat.FindF1Monster;
   n := Combat.Size;
   sk := 'ธนูไฟ';        
if ((SwapUse = 1) and (n = 3)) then SwapLucky('on')
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 SwapLucky(taketype :string);
var slotno,LuckyStatus : Byte;
    Slot: TMyItem;
begin
  slotno := 25;
  Slot := MyItems[slotno];

  if (taketype = 'on') then
    begin
      Equip(slotno,0);
      LuckyStatus := 1;
      Echo('ใส่ '+Slot.name+' เรียบร้อย',clBlack);
    end;

  if (taketype = 'off') then
    begin
      if (LuckyStatus = 1) then
        begin
          Equip(slotno,0);
          LuckyStatus := 0;
          Echo('ถอด  '+Slot.name+' เรียบร้อย',clBlack);
        end;
    end;

  if (taketype = 'logon') then
    begin
      if (Slot.Id = 23024) then
        begin
     SwapUse := 0;
          Echo('[รายงาน] : ตราพังแล้ว กลับไปใช้ระบบปกติ!',clBlack);
        end
      else if ((Slot.Id <> 23085) and (Slot.Id <> 23023)) then
   begin
         Equip(slotno,0);
          Echo('ใส่ไอเท็มไม่ถูกต้อง มีการเปลี่ยนแปลง',clBlack);
          Echo('ถอด  '+Slot.name+' เรียบร้อย',clBlack);
          Echo('เกมจะ Disconect และจะ Reconect อีกประมาณ 45 วินาที ถ้าคุณเลือก Auto Reconnect',clBlack);
     Delay(1000);
     Reconnect(15);
   end
      else
   begin
     Echo('ใส่ไอเท็มถูกต้อง ไม่มีการเปลี่ยนแปลง',clBlack);
   end;
    end;
end;

//--------------------------------------------------//

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

procedure PlayerOffline(PlayerName: String);
begin
  if (PlayerName = 'หัวตี้') then Reconnect(10);
  if (PlayerName = 'ลูกตี้') then Reconnect(10);
  if (PlayerName = 'ลูกตี้') then Reconnect(10);
  if (PlayerName = 'ลูกตี้') then Reconnect(10);
end;

begin
   Init;
end.

[Mangtom]

โจหยินน้ำ 111 (โจโฉตีฮั่นจง)

var i: Byte;
procedure Logon;
begin
   i := 0;
   SendAction(48);
end;
procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then Warp(8);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 36883) then SendDialogEnd;
   if (DialogId = 36825) then SendDialogEnd;
   if (DialogId = 36884) then SendDialogEnd;
   if (DialogId = 36885) then SendDialogEnd;
   if (DialogId = 36886) then SendDialogEnd;
   if (DialogId = 36888) then
   begin
      ClickNpc(9);
      Warp(8);
   end;
end;

begin
   echoChat('โจหยิน.txt โหลดเสร็จแล้วครับ',clRed);
end.

หมูไฟ138 (บททดสอบนายพราน)

procedure PartyReady;
begin
   echoChat('Start หมูไฟ138',clRed);
   Warp(3);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 31422) then SendDialogEnd;
   if (DialogId = 31423) then
      begin
        SendDialogEnd;
        SendDialogEnd;
      end;
   if (DialogId = 31407) then
      begin
        SendDialogEnd;
        SendDialogEnd;
      end;
   if (DialogId = 31424) then SendDialogEnd;
   if (DialogId = 31410) then
      begin
          ClickNPC(9);
          ClickNPC(9);
          Delay(1000);
          Warp(3);
      end;
end;

begin
   echoChat('หมูไฟ138.txt โหลดเสร็จแล้วครับ',clRed);
end.

โจโฉ ป่าตุ้นชิว

procedure PartyReady;
begin
   echoChat('Start โจโฉ',clRed);
   Warp(2);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 13146) then SendDialogEnd;
   if (DialogId = 13147) then
         begin
    ClickNPC(12);
    Delay(1000);
    Warp(2);
          end;
end;

begin
   echoChat('โจโฉ.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

อู่อันกั๋ว (เปยไห่)

procedure PartyReady;
begin
   echoChat('Start อู่อันกั๋ว',clRed);
   warp(3);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 10022) then SendDialogEnd;
   if (DialogId = 12136) then SendDialogEnd;
   if (DialogId = 12149) then SendDialogEnd;
   if (DialogId = 12193) then SendDialogEnd;
   if (DialogId = 10105) then SendDialogEnd;
   if (DialogId = 10092) then
      begin
         ClickNPC(9);
         Delay(1000);
         Warp(3);
      end;
end;

begin
   echoChat('อู่อันกั๋ว.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

ไท่สือฉือ เปยไห่

var i: Byte;
procedure Logon;
begin
   i := 0;
end;
procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then Warp(3);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 12175) then SendDialogEnd;
   if (DialogId = 12194) then SendDialogEnd;
   if (DialogId = 10231) then SendDialogEnd;
   if (DialogId = 12176) then
   begin
      ClickNpc(12);
      Warp(3);
   end;
end;

begin
   echoChat('ไท่สือฉือ.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

ในที่สุดบอร์ดก็กลับมาใช้ได้อีกครั้งนึกว่าข้อมูลจะหายซะแล้ว สำหรับคนที่ต้องการเก็บเวลกับขงเบ้ง
วันนี้ประเดิมด้วยสคริปขงเบ้ง กับ3.02b

procedure PartyReady;
begin
   echoChat('Start ขงเบ้ง',clRed);
   ClickNpc(13);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 19737) then
   begin
       SendDialogEnd;
       SendDialogEnd;
   end;
   if (DialogId = 10150) then
      begin
          SendCancelQuest;
          Delay(1000);
          ClickNPC(13);
      end;
end;

begin
   echoChat('ขงเบ้ง.txt โหลดเสร็จแล้วครับ',clRed);
end.

[rojgana]

ใส่แล้วทำไมมันขึ้นอย่างนี้อะ

Script Error<.\Script\ขงเบ้ง.txt><> 'BEGIN' expected

หมายความว่าไรหรอ

[Loving You]

สคริปไม่สมบูรณ์หรือไม่ครบหรือขาดอะไรบางอย่างไป

[Mangtom]

สคริปไม่สมบูรณ์ อาจจะพิมพ์เกินหรือตกหล่นคับ

[Mangtom]

เจียนย่ง (ลม41) จัวจวิ้น

var i: Byte;
procedure Logon;
begin
   i := 0;
end;
procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then ClickNpc(1);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 12385) then SendDialogEnd;
   if (DialogId = 15657) then
   begin
      SendCancelQuest;
      ClickNpc(1);
   end;
end;
procedure NpcDialogMenu(DialogId: Integer);
begin
   SelectDialogChoice(1);
   SendDialogEnd;
end;

begin
   echoChat('เจี่ยนยง.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

หลิวพี้ (ดิน56) ลานประลองผ้าเหลือง

var i: Byte;

procedure Logon;
begin
   i := 0;
end;

procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then ClickNpc(14);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 12121) then
   begin
      SendCancelQuest;
      ClickNpc(14);
   end;
end;

procedure NpcDialogMenu(DialogId: Integer);
begin
   SelectDialogChoice(1);
   SendDialogEnd;
end;

begin
   echoChat('หลิวพี้.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

หวางตู้ (ไฟ56) เฉินหลิว

var i: Byte;

procedure Logon;
begin
   i := 0;
end;

procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then ClickNpc(2);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 10437) then SendDialogEnd;
   if (DialogId = 14391) then SendDialogEnd;
   if (DialogId = 14392) then SendDialogEnd;
   if (DialogId = 14393) then
   begin
      SendCancelQuest;
      ClickNpc(2);
   end;
end;

begin
   echoChat('หวางตู้.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

เตียวเหลียง (ไฟ102) อุโมงจวีลู่

procedure PartyReady;
begin
   echoChat('Start เตียวเหลียง',clRed);
   warp(2);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 12100) then SendDialogEnd;
   if (DialogId = 10227) then SendDialogEnd;
   if (DialogId = 10231) then SendDialogEnd;
   if (DialogId = 12082) then
      begin
          SendCancelQuest;
          Delay(1000);
          warp(2);
      end;
end;

begin
   echoChat('เตียวเหลียง.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

เตียวโป้ (น้ำ110) อุโมงจวีลู่

procedure PartyReady;
begin
   echoChat('Start เตียวโป้',clRed);
   Warp(2);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 10318) then SendDialogEnd;
   if (DialogId = 12210) then SendDialogEnd;
   if (DialogId = 12074) then
      begin
         SendCancelQuest;
         Delay(1000);
         Warp(2);
      end;
end;

begin
   echoChat('เตียวโป้.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

หานจง (ลม55) ที่ว่าการผ้าเหลือง

var i: Byte;
procedure Logon;
begin
    i := 0;
end;
procedure OnTimer;
begin
    Inc(i);
    if (i = 2) then ClickNpc(1);
end;
procedure NpcDialog(DialogId: Integer);
begin
    if (DialogId = 12071) then
    begin
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
    end;
    if (DialogId = 12077) then  
    begin
      SendCancelQuest;    
      ClickNPC(1);
    end;
end;

begin
    echoChat('หานจง.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

ลกซุน (น้ำ167) ศาลาเถียนตางเจียงตง

procedure PartyReady;
begin
   echoChat('Start ลกซุน',clRed);
   ClickNpc(1);
end;

procedure NpcDialogMenu(DialogId: Integer);
begin
   SelectDialogChoice(1);
   SendDialogEnd;
end;

begin
   echoChat('ลกซุน.txt โหลดเสร็จแล้วครับ',clRed);
end.

นำส่วนนี้ไปใส่ใน battle stop

procedure BattleStoped;
begin
   SendCancelQuest;
   Delay(1000);
   ClickNPC(1);
end;

[Mangtom]

เล่าปี่ (ดิน110) สวน(ต้อแต้)ท้อ จัวจวิ้น

procedure PartyReady;
begin
   echoChat('Start เล่าปี่',clRed);
   ClickNpc(1);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 10244) then SendDialogEnd;
   if (DialogId = 12390) then SendDialogEnd;
   if (DialogId = 12391) then SendDialogEnd;
   if (DialogId = 20262) then
   begin
      SendDialogEnd;
      ClickNpc(1);
   end;
   if (DialogId = 12392) then
   begin
      SendCancelQuest;
      Delay(1000);
      ClickNpc(1);
   end;
end;

procedure NpcDialogMenu(DialogId: Integer);
begin
   SelectDialogChoice(1);
   SendDialogEnd;
end;

begin
   echoChat('เล่าปี่.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

ซุนกวน (ลม130) เจียนเยี่ย

var i: Byte;

procedure Logon;
begin
    i := 0;
end;

procedure OnTimer;
begin
    Inc(i);
    if (i = 2) then ClickNpc(5);
end;

procedure NpcDialog(DialogId: Integer);
begin
  if (DialogId = 20350) then
  begin
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
  end;
  if (DialogId = 20361) then
  begin
       SendCancelQuest;
       ClickNpc(5);
  end;
end;

begin
    echoChat('ซุนกวน.txt โหลดเสร็จแล้วครับ',clRed);
end.

* หมายเหตุ ยังไม่ได้ทดสอบ

[Mangtom]

ฟ่านส่ง (น้ำ120) เมืองไทย หลิ่งหนาน

var i: Byte;

procedure Logon;
begin
   i := 0;
end;

procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then ClickNpc(1);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 29936) then SendDialogEnd;
   if (DialogId = 29937) then
begin
   SendCancelQuest;
   ClickNpc(1);
end;
end;

begin
   echoChat('ฟ่านสง.txt โหลดเสร็จแล้วครับ',clRed);
end.

[Mangtom]

น้องชายหลิว (ลม14) ลานประลองเมืองผ้าเหลือง

var i: Byte;

procedure Logon;
begin
   i := 0;
end;

procedure OnTimer;
begin
   Inc(i);
   if (i = 2) then ClickNpc(3);
end;

procedure NpcDialog(DialogId: Integer);
begin
   if (DialogId = 12113) then
   begin
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
   end;
   if (DialogId = 12118) then
   begin
      SendCancelQuest;
      ClickNpc(3);
   end;
end;

begin
   echoChat('น้องชายหลิว.txt โหลดเสร็จแล้วครับ',clRed);
end.

[tuleedin]

เข้าเป็นกะลังใจ