ขอบคุณล่วงหน้านะครับ
ขอสคิปโดดเควสม้าเฉียวออกตัวเดียวที่เหลียงโจวหน่อยนะครับ
Started by eaykeng, Mar 06 2007 10:51 PM
1 reply to this topic
#2
Mangtom
-
- Members
-
- 62 posts
เจี่ยงกั้น
Posted 07 March 2007 - 03:44:46 AM
(eaykeng @ Mar 6 2007, 10:51 PM) 
ขอบคุณล่วงหน้านะครับ
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.
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.
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users
