Jump to content


Photo

อยากจะขอสคริปโดด ลกซุนหน่อยครับ


  • Please log in to reply
16 replies to this topic

#1 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 04 January 2007 - 11:42:46 PM

อยากจะขอ สคริปลกซุนหน่อยครับ ช่วง dialog เควส์ลกซุน นะครับ
และถ้าเป็นไปได้ อยากจะให้ใครก้ได้ครับ ช่วงตั้งกระทู้สอนวิธีดัก dialog ทีครับ
เพื่อผมและคนที่มาทีหลังได้ศึกษา เกี่ยวกับหา dialog
พอดีผมเพิ่งมาศึกษา Kone bot นะครับ น่าสนใจดี
หรือถ้ามี post ไว้แล้ว ช่วยบอกผมทีครับ ผมอาจจะยังดูไม่ทั่ว
ยังไงช่วยรบกวน ท่านผู้รู้บอกทีเถ้อออ ขอบคุณมากครับ

#2 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 posts

Posted 05 January 2007 - 12:20:37 AM

ไว้ว่างๆจะมาโพสวิธีหาให้ละกันนะครับ

#3 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 05 January 2007 - 11:44:54 PM

ขอบคุณมากครับ
แต่ถ้าเปงไปได้ ใครมีสคริป ลกซุน เควส์ ก็ ช่วยๆ ผมหน่อยครับ
ช่วยเอามาเปงแบบอย่างให้ผมทีครับ ขอบคุณมากครับ

#4 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 posts

Posted 06 January 2007 - 12:21:32 AM

ลกซุนเป็นแบบคลิกตอนนี้บอทเควสแบบคลิกไม่ได้แล้วคับ

#5 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 06 January 2007 - 01:08:04 AM

อ้อ ครับ ก็ว่าจะขอ สคริปที่เปงหัวตี้อ่ะครับ พี่สู้แบบสลับตราแล้ว สู้จบมันจะ reconnect เองอ่ะครับ
เหงว่า มีการตั้งสครืป เปงวินาทีด้วยอ่ะครับ หรือสู้จบแล้วบอทตัดนะครับ อยากได้หัวตี้ ที่เปง dialog ของลกซุน
และวิธีสลับตราอีกหน่อยนะครับ เอามาเปรียบเทียบดูนะครับ เพื่อผม ผิดพลาดตรงไหนจะได้พอเป็นแนวทางบ้าง
ส่วนลูกตี้ผมพอมั่วๆ ได้บางส่วนนะครับ คาดว่าไม่น่ามีปัญหานะครับ ขอบคุณมากครับ laugh.gif

#6 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 posts

Posted 06 January 2007 - 04:02:27 AM

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

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

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


#7 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 06 January 2007 - 12:48:31 PM

ขอบคุณมากครับ คุณ Mangtom laugh.gif

#8 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 07 January 2007 - 12:49:00 AM

รบกวนคุณ Mangtom ช่วยดูหน่อยครับ ว่า สคริป ที่ เปงหัวตี้ของผม มันผิดตรงไหน ครับ
คือ ทำไมมันเข้าเควส์ แล้วมันไม่ยอมตีนะครับ หรือเปงเพราะ ผมยังใส่ functoin ไม่ครบนะครับ
ผม งงๆ นะครับ รบกวนช่วยดูทีนะครับ
[/quote]
var SwapUse, MyDamage, AlreadySwap, PartnerFai: byte;

Procedure Logon;
begin
Sendaction(48);
end;

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

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

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

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

procedure Init;
begin
SetIsNotEat('ยาคืนวิญญาณ');
SetIsNotEat('ยาเก้าหยาง');
SetIsCB('หนังแพะเขาใหญ่');
SwapUse:= 1;
PartnerFai:= 100;
MyDamage := 600;
AlreadySwap := 0;
echoChat('KoRn Bot โหลดเสร็จแล้วครับ',clRed);
end;

procedure BattleStarted;
begin
CheckDisconnect;
end;

procedure MyAttack;
var m : TCombatMonster;
n : byte;
sk : string;
begin
m := Combat.FindBestMonster;
n := Combat.Size;
sk := 'มือเปล่า';
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 ((SwapUse = 1) and (n = 1) and (m.hp > MyDamage)) then
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk)
else if ((SwapUse = 1) and (n = 1) and (m.hp < MyDamage)) then
begin
SwapLucky('on');
AlreadySwap := 1;
end;
if ((SwapUse = 1) and (n = 1) and (m.hp < MyDamage) and (AlreadySwap = 1)) then
begin
sk := 'ป้องกัน';
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk);
end;
if (SwapUse = 0) or (n >1) then
begin
sk := 'มือเปล่า';
SendAttack(MyPlayer.Row,MyPlayer.Col,m.Row,m.Col,sk);
end;
end;

procedure MyPartnerAttack;
var m: TCombatMonster;
n : byte;
sk : string;
begin
m := Combat.FindBestMonster;
n := Combat.Size;
sk := 'มือเปล่า';
if ((SwapUse = 1) and (n = 1)) then
begin
if(m.hp > MyDamage) then
begin
sk := 'ป้องกัน';
end
else
begin
sk := 'มือเปล่า';
end;
end;
SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,sk);
end;

procedure BattleStoped;
begin
AlreadySwap := 0;
SwapLucky('off');
if (MyPlayer.Sp < 0.25*MyPlayer.MaxSp) or (MyPartner.Sp < 0.25*MyPartner.MaxSp) then
begin
AutoEat;
end;
if (MyPlayer.Hp < 0.50*MyPlayer.MaxHp) or (MyPartner.Hp < 0.50*MyPartner.MaxHp) then
begin
AutoEat;
AutoHeal;
end;
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 อีกประมาณ 5 วินาที ถ้าคุณเลือก Auto Reconnect',clBlack);
Delay(1000);
Reconnect(5);
end
else
begin
Echo('ใส่ไอเท็มถูกต้อง ไม่มีการเปลี่ยนแปลง',clBlack);
end;
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.

#9 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 07 January 2007 - 12:55:52 AM

คือผมยังแก้ไม่เสร็จดีนะครับ ยังไม่ค่อยได้ปรับกับตัว หัวตี้ ที่ต้องการดี ยังไม่ได้ ใส่ตัว รีคอนเน็ตเมื่อจบเควส์ กับ แก้การใช้สกิวของตัวเอง
แต่อยากลองก่อนนะครับ ว่ามาถูกทางหรือป่าว แต่พอได้ลองแล้ว มันคุยแล้วก็เข้าฉากต่อสู้ แต่ตัวหัวตี้ ไม่ยอม ตี กับขุนเรา ก็เลย งงๆนะครับ
รบกวนช่วยดูทีครับผม ขอบคุณมากครับ blink.gif

#10 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 posts

Posted 07 January 2007 - 11:37:29 PM

ดูรูปประกอบแล้วกันนะครับ สคริปเควสจะแยกเป็น 2ส่วน

อันนี้คือ kornscript

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.



#11 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 08 January 2007 - 12:14:40 AM

ขอบคุณมากครับ ตุณ Mangtom ตอนนี้ผม โดดตีได้แล้วครับ แต่ยังหา วิธีที่จะreconnect และสลับตรา ในเควส์ลกซุนนะครับ
ยังไม่รู้ว่าหลัง สู้เสร็จ จะให้เช็ค ตราแล้วค่อยรี ใช่ไหมครับ แล้วถ้าใช่ จะใช้คำสั่งไหนดีนะครับ ตอนนี้ยัง งงๆ นะครับ
ขอบคุณมากนะครับ ในสคริปเควส์ ของคุณ Mangtom ขอบคุณมากครับ laugh.gif

#12 nOomEe

nOomEe

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 08 January 2007 - 11:52:07 AM

โดดได้เรียบร้อยแล้วครับ ขอบคุณ คุณ Mangtom มากครับ
ที่ให้ความช่วยเหลือ ขอบคุณมากครับ ^^ laugh.gif

#13 pla03

pla03

    ซาลาเปาเนื้อ

  • Members
  • 8 posts

Posted 15 January 2007 - 11:51:56 AM

แล้วตกลงต้องใช้สคริปอันไหนอะครับของ ลกซุนอะครับ

ขอบคุณครับ

#14 Mangtom

Mangtom

    เจี่ยงกั้น

  • Members
  • 62 posts

Posted 16 January 2007 - 12:47:09 AM

ด้านบนที่เขียนว่า start ลกซุน คับอันล่างเป้นตัวอย่างแต่เป็นเควสขงเบ้ง

#15 KoRnRoom99

KoRnRoom99

    Exclusive Member

  • Exclusive Programmer
  • 10104 posts

Posted 17 January 2007 - 10:46:47 AM

เอ่อ มีวิธีทำเควสนี้มะคับ ^^"
IPB Image
IPB Image
Works: KoRnBot Project,TSLoadDatFile
Thanks X CroSs, Truebot, TSBot, Solars, JackY, some1, Storm24, AssertionFailed from www.skjune.com
IPB ImageIPB ImageIPB ImageIPB ImageIPB ImageIPB Image

#16 123456

123456

    กัวต้า

  • Members
  • 33 posts

Posted 17 June 2007 - 03:27:18 PM

งง อะครับ

ใช้ของบอทโรโบปะครับ

ดูแล้ว งง อะ

สวนผมดูทีดิ

#17 123456

123456

    กัวต้า

  • Members
  • 33 posts

Posted 17 June 2007 - 03:28:35 PM

เราขอ เจียนย่งกับหารจน




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users