Honest Group : Сетевая игра (как? с кем?) - Страница 16 - Форум

Страница 16 из 16 « 1 2 … 14 15 16
Модератор форума: Влесам, Врыл, Detect_Life, Монгольчик

Сетевая игра (как? с кем?)

olderman

Дата: Среда, 2017.05.31, 20:22 | Сообщение # 301

Ранг 1

Группа: Пользователи

Сообщений: 3

Репутация: 0

Статус: Временно отсутствует

Подскажите, у меня белый айпи адрес, открыты все порты, на роутере включил DMZ, выключил фаервол, все проги показывают что порты открыты (28014) , почему я не могу хостить ?

WapWap

Дата: Четверг, 2017.06.22, 09:55 | Сообщение # 302

Ранг 1

Группа: Новички

Сообщений: 1

Репутация: 0

Статус: Временно отсутствует

Ребят, с удовольствием поиграл бы в патьке с адекватными людьми в хг 4, либо в хг 3.6... Жаль не с кем((

FIKS

Дата: Пятница, 2017.06.23, 15:54 | Сообщение # 303

Ранг 1

Группа: Пользователи

Сообщений: 30

Репутация: 0

Статус: Временно отсутствует

Добавлю в сеть Хамачи.
ПЗСеть01 пароль 12345
ПЗСеть02 пароль 12345
ПЗСеть03 пароль 12345

Rain_BS

Дата: Суббота, 2017.07.08, 11:40 | Сообщение # 304

Ранг 1

Группа: Новички

Сообщений: 1

Репутация: 0

Статус: Временно отсутствует

Привет. ХГ 3.6, играю вечерами, пишите. Сибирь.

_Aeris_

Дата: Пятница, 2017.07.14, 15:39 | Сообщение # 305

Ранг 4

Группа: Пользователи

Сообщений: 379

Репутация: 34

Статус: Временно отсутствует

Цитата Rain_BS (

)

Привет. ХГ 3.6, играю вечерами, пишите. Сибирь.

Тебе тоже! Сам с Украины, но буду рад, если зальёшь на файлообменники 3.6-версию HG и поделишься ссылкой в ЛС. Старая версия мода прямиком с 2012-13 в бардачке мне бы совсем не помешала.

Нужна помощь в ознакомлении с JS, JSS.
Обращаемся сюда

Triggered

Дата: Среда, 2017.07.26, 18:56 | Сообщение # 306

Ранг 1

Группа: Новички

Сообщений: 2

Репутация: 0

Статус: Временно отсутствует

Хочу поиграть с кем нибудь. лучше хг.

Болвар

Дата: Пятница, 2017.07.28, 20:32 | Сообщение # 307

Ранг 1

Группа: Новички

Сообщений: 1

Репутация: 0

Статус: Временно отсутствует

Привет, я тоже бы в хг поиграл

Мой скайп: vpnkos
Пиши в скайп или сюда, сконектимся

KeePsTaY6916

Дата: Суббота, 2017.09.02, 19:01 | Сообщение # 308

Ранг 1

Группа: Пользователи

Сообщений: 9

Репутация: 0

Статус: Временно отсутствует

Никто не пробовал написать оповещалку для винды или браузера используя уже имеющиеся данные о серверах? Тоесть подруг легкую софтину, она висит в трее и начинает издавать сигнал когда появился новый сервак.

Demoth

Дата: Воскресенье, 2017.09.03, 17:50 | Сообщение # 309

Шифрующийся Наркобарон

Группа: Администраторы

Сообщений: 246

Репутация: 34

Статус: Временно отсутствует

Держи.

Компилится вот этой тулзой: https://www.autoitscript.com/site/autoit/downloads/

Код

#include <InetConstants.au3>
#include <StringConstants.au3>
#include <TrayConstants.au3>

Global Const $STATUS_URL = "https://hat.gipat.ru/status/nival/"
Global Const $STATUS_URL2 = "https://hat.gipat.ru/status/"

Global $g_addrs = ""
Global $g_allServers = ""
Global $g_statusUrl = $STATUS_URL

Func CheckServers()
    Local $statusPage = BinaryToString(InetRead($g_statusUrl, $INET_FORCERELOAD))
    If $g_statusUrl = $STATUS_URL And StringInStr($statusPage, "Server error:") > 0 Then
        $g_statusUrl = $STATUS_URL2
        $statusPage = BinaryToString(InetRead($g_statusUrl, $INET_FORCERELOAD))
    EndIf

    Local $servers = StringRegExp($statusPage, '(<tr><td class="tablecell".*?</tr>)', $STR_REGEXPARRAYGLOBALMATCH)

    Local $output = ""
    Local $addrs = ""
    Local $allServers = ""

    For $i = 0 To UBound($servers) - 1
        Local $elements = StringRegExp($servers[$i], '<td class="tablecell".*?>(.*?)</td>', $STR_REGEXPARRAYGLOBALMATCH)
        If UBound($elements) < 7 Then ContinueLoop

        Local $name     = $elements[0]
        Local $players  = StringSplit($elements[1], " из ", $STR_ENTIRESPLIT + $STR_NOCOUNT)
        Local $allod    = $elements[2]
        Local $quest    = $elements[3]
        Local $password = $elements[4]
        Local $addr     = StringSplit($elements[5], ":", $STR_NOCOUNT)
        Local $ping     = $elements[6]

        If UBound($players) <> 2 Or $players[1] = "1" Or $password = "Есть" Or $ping = "-1" Then
            ContinueLoop
        EndIf

        ; Игнорим польские серваки
        If StringInStr($name, "PL|") = 1 Then ContinueLoop

        $serverInfo = StringFormat("Новый сервер: %s | %s из %s | %s | %s\n", _
            $name, $players[0], $players[1], $allod, $quest)

        $addrs = $addrs & $addr[0] & @CRLF
        $allServers = $allServers & $serverInfo
        If StringInStr($g_addrs, $addr[0] & @CRLF) = 0 Then $output = $output & $serverInfo
    Next

    $g_addrs = $addrs
    $g_allServers = $allServers
    If $output <> "" Then TrayTip("Серверы ПЗ", $output, 10)
EndFunc

Func ShowServers()
    If $g_allServers <> "" Then
        TrayTip("Серверы ПЗ", $g_allServers, 10)
    Else
        TrayTip("Серверы ПЗ", "Список серверов пуст", 10)
    EndIf
EndFunc

Func OpenStatus()
    ShellExecute($g_statusUrl)
EndFunc

Func ExitScript()
    Exit(0)
EndFunc

Opt("TrayMenuMode", 3)
Opt("TrayOnEventMode", 1)

TrayItemSetOnEvent(TrayCreateItem("Показать список серверов"), "ShowServers")
TrayItemSetOnEvent(TrayCreateItem("Открыть статус"), "OpenStatus")
TrayCreateItem("")
TrayItemSetOnEvent(TrayCreateItem("Выйти"), "ExitScript")

TraySetState($TRAY_ICONSTATE_SHOW)

$delay = 60 * 1000 ; Проверяем каждую 60 минуту
$time = $delay
While True
    If $time > $delay Then
        CheckServers()
        $time = 0
    EndIf
    $time = $time + 100
    Sleep(100)
WEnd

Прикрепления: check_servers.exe (841.5 Kb)

fieryraccoonua

Дата: Четверг, 2017.10.26, 16:28 | Сообщение # 310

Ранг 1

Группа: Новички

Сообщений: 1

Репутация: 0

Статус: Временно отсутствует

хочу с кем-то поиграть, но не знаю как, стоит оригинальная версия игры и все. подскажите-ка и поиграем

Сетевая игра (как? с кем?)

Страница 16 из 16
«
1
2
…
14
15
16