มี 1 โพสต์ตอบกลับกระทู้นี้

[eaykeng]

ขอบคุณล่วงหน้านะครับ

[Mangtom]

ขอบคุณล่วงหน้านะครับ

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 = 28236) then
    begin
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
      SendDialogEnd;
    end;
    if (DialogId = 28241) then  
          SendCancelQuest;
          ClickNPC(1);
       end;
end;

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