$rnd = rand(1, mysql_result(mysql_query("SELECT MAX(id_user) FROM users"),0));
$query = mysql_query("SELECT * FROM users WHERE lvl= '".$lvl_get."' AND id_user='".$rnd."' LIMIT 1");
$result = mysql_fetch_array($query);

if (mysql_num_rows($query) != 0)
{
return true; //Игрок найден
}
else
{
return false; //Игрок не найден
}

while ($chat = mysql_fetch_array(mysql_query("Запрос на выбор всех сообщений")))
{
if ($row['private_name'] == $_SESSION['login'])
{
echo $row['post']
}
else
{
echo $row['post']
}
}

object Application  
{
  //Создаем переменную для сокет сервера
  SocketServer server new
  //Создаем переменную для Окна(Window)
  Dialog m_dlg new
}
//Запускаем программу
function Application.Constructor()
{
  //Отображаем Окно
  m_dlg.LoadResource("new.dlg", this)
  //Задаем серверу прослушывать 1500 порт
  server.Listen(1500)
}

function Application.Destructor()
{
}
//Закрываем коректно Окно
message Integer Application.Dialog.OnDestroy()
{
  return QUIT
}
//Проверяем нажатие кнопок
message Application.Button.OnClick()
{
  switch caller.GetControlName()
   //Если нажата кнопка "BTN_SEND", то отправляем данные "Hello world", первому подключившемуся
   //клиенту "server.GetClientID(0)" и называем этот пакет данных "message"
   case "BTN_SEND"
    server.SendMessage(server.GetClientID(0), "message", "Hello world")
    break
  end
}
//Слушаем ответ от клиента
message Application.SocketServer.OnReceiveMessage(Integer id, String name, String data)
{  
     switch name
  //Если пакет данных от клиента называется "answer", то выводим его сообщение во всплывающее окно
  case "answer"
             MessageBox(data)
             break
     end  
}

object Application  
{
  //Создаем переменную сокет клиента
  SocketClient client new
}
//Запускаем программу
function Application.Constructor()
{
  //Конектимся к IP "127.0.0.1" с портом "1500"
  client.Connect("127.0.0.1", "1500")
}

function Application.Destructor()
{
}
//Слушаем сообщения от сервера
message Application.SocketClient.OnReceiveMessage(String name, String data)
{
     switch name
  //Если пакет данных называется "message", то выводим сообщение во всплывающее окно и отправляем
  //ответ серверу с названием пакета "answer" и данными "Client: Ok"
  case "message"
   MessageBox(data)
   client.SendMessage("answer", "Client: Ok")
             break
     end  
}