Tibia.Packets.Outgoing.PlayerSpeechPacket p = (Tibia.Packets.Outgoing.PlayerSpeechPacket)packet;
if (p.Message.StartsWith("/navsay"))
{
       string Message = p.Message.Replace("/navsay ", "");
       Program.MainForm.Navigation.SendMessageTibia(Message);
       return false;
}

Dim food As Item = client.Inventory.GetItems().FirstOrDefault(Function(i) i.IsInList(Tibia.Constants.ItemLists.Foods.Values))
            If food IsNot Nothing Then
                'make sure the returned item is not nothing and that it's a food 
                food.Use() 'use the item 
            end if

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Tibia;
using Tibia.Objects;
 
namespace TATest
{
    public partial class Form1 : Form
    {
        private Client client;
 
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            client = Tibia.Util.ClientChooser.ShowBox();
            if (client == null)
            {
                MessageBox.Show("Client not started correctly!");
                MessageBox.Show("Exiting...");
                Application.Exit();
            }
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            int cmId = 1000;
            string cmText = "Test";
            bool cmHasSeparator = true;
 
            client.ContextMenu.AddContextMenu(cmId, cmText, Tibia.Constants.ContextMenuType.SetOutfitContextMenu, cmHasSeparator);
            client.ContextMenu.Click += new Tibia.Objects.ContextMenu.ContextMenuEvent(ContextMenu_Click);
        }
 
        void ContextMenu_Click(int eventId)
        {
            if (eventId == 1000)
                client.Console.Say("Hmm");
        }
    }
}

Dim x As Tibia.Constants.ChatChannel = Constants.ChatChannel.Trade
        If x = False Then
            c.Input.SendMessage (WM_CHAR, Keys.Tab, 0 &)
        Else
            For Each i As Char In "Sell Item"
                c.Input.SendMessage (WM_CHAR, Convert.ToInt32 (i), 0)
            Next
            c.Input.SendMessage (WM_CHAR, Keys.Enter, 0)
        End If

Tibia.Packets.Incoming.ChannelOpenPacket cop = new Tibia.Packets.Incoming.ChannelOpenPacket(core.Client);
cop.ChannelId = ChatChannel.Custom1;
cop.ChannelName = "Navigation";
cop.Send(Packet.SendMethod.Proxy);