Roekytoya

var i: Byte;

procedure Logon;
begin
    i := 0;
end;

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

procedure Warp(WarpId: Byte);
begin
    if ('ts.Character.mapid == 12000') then     
begin
        Delay(100);
        Warp(7);
end
else
     if ('ts.Character.mapid == 12041') then    
begin
        Delay(100);
        Warp(1);
end;
end;

procedure NpcDialog(DialogId: Integer);
begin
    if (DialogId = 10052) then SendDialogEnd;
    if (DialogId = 10055) then
begin
          SendCancelQuest;
    Delay(100);
    ClickNpc(2);
end;
end;

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

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