Create Event:
execute code:

ip = get_string ("Введите IP адрес сервера:","127.0.0.1")
con = dll39_tcp_connect(ip,12345,2)
if (!con)
{
show_message ("Не удалось подключиться к серверу!")
game_end()
}

Create Event:
execute code:

port = 12345
users = 0
userlist[users] = 0
server = dll39_tcp_listen(port,10,2)
if (!server)
{
show_message ("Не удалось создать сервер!")
game_end ()
}

Step Event:
execute code:

newuser = dll39_tcp_accept(server,2)
if (newuser)
{
users += 1
userlist[users] = newuser
}

Draw Event:
execute code:

draw_set_font (indexfont)
draw_text (x, y,"USERS:");draw_text (x+100, y,users)
draw_text (x, y+15,"FPS:");draw_text (x+100, y+15,fps)