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


รูปภาพ

Script Quest


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

#1 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 04 January 2007 - 04:47:46 PM

รอดูอยู่ว่ามันจะแก้ให้โดดได้ไหมแต่ก็ยัง
ปล.เควสที่เป็น 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.





#2 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 04 January 2007 - 05:43:45 PM

โจหยินน้ำ 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.


#3 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 05 January 2007 - 12:19:46 AM

อู่อันกั๋ว (เปยไห่)
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.


#4 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 08 January 2007 - 01:44:39 PM

ไท่สือฉือ เปยไห่
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.


#5 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 08 February 2007 - 02:11:50 PM

ในที่สุดบอร์ดก็กลับมาใช้ได้อีกครั้งนึกว่าข้อมูลจะหายซะแล้ว สำหรับคนที่ต้องการเก็บเวลกับขงเบ้ง
วันนี้ประเดิมด้วยสคริปขงเบ้ง กับ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.



#6 rojgana

rojgana

    ซาลาเปาไข่แดง

  • Members
  • 6 โพสต์

โพสต์เมื่อ 08 February 2007 - 10:31:52 PM

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

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

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

#7 Loving You

Loving You

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

  • Members
  • 18 โพสต์

โพสต์เมื่อ 11 February 2007 - 12:30:42 AM

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

#8 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:28:30 AM

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

#9 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:30:12 AM

เจียนย่ง (ลม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.


#10 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:34:35 AM

หลิวพี้ (ดิน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.


#11 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:35:40 AM

หวางตู้ (ไฟ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.


#12 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:38:48 AM

เตียวเหลียง (ไฟ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.


#13 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

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

เตียวโป้ (น้ำ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.


#14 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:49:37 AM

หานจง (ลม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.


#15 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:52:44 AM

ลกซุน (น้ำ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;


#16 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 04:55:05 AM

เล่าปี่ (ดิน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.


#17 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 05:02:24 AM

ซุนกวน (ลม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.

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

#18 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 05:05:28 AM

ฟ่านส่ง (น้ำ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.


#19 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 โพสต์

โพสต์เมื่อ 12 February 2007 - 05:08:42 AM

น้องชายหลิว (ลม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.


#20 tuleedin

tuleedin

    ฉวินไฉ่

  • Members
  • 14 โพสต์

โพสต์เมื่อ 24 February 2007 - 10:10:06 PM

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




2 สมาชิกกำลังอ่านกระทู้นี้

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