TCP + UDP, CLIENT + SERVER model

How this would work:

client:TClient = new TClient

client.SetPlayerName("Patrick")
client.Connect("www.fantasaar.com",1234)

onauthorize:
client.authorize() 'do some math with the key and return it.

onconnect:
client.ChannelSignOn("Lobby")
client.ChannelSignOn("gamezonex0y0")

onsignon:
client.NewPacket(1) '1= commando/subchannel: create player
client.PacketAddInt(player.x)
client.PacketAddInt(player.y)
client.PacketAddInt(player.dir)
client.PacketAddInt(player.speed)
client.PacketAddInt(player.ani)
client.PacketSendTCP()
client.NewPacket(2) '2= commando/subchannel: broadcast chat
client.PacketAddString(GetPlayerName()+ " says hello to you!")
client.PacketSendTCP()

main game loop:
client.NewPacket(3) '1= commando/subchannel: update player
client.PacketAddInt(player.x)
client.PacketAddInt(player.y)
client.PacketAddInt(player.dir)
client.PacketAddInt(player.speed)
client.PacketAddInt(player.ani)
client.PacketSendUDP()