Исходник [SC19] Checker new Topics

[BASS_DEVSOFTWARE]

Давно хотел что-то подобное сделать, только с определёнными разделами.

Данный скрипт отправляет оповещение при создании новой темы кем-либо.

---

Чекер новосозданных тем

При появлении новой темы

Скрипт вызывает сообщение

Скрипт определяет статус человека, создавшего тему: модератор, администратор, пользователь.
В следствии чего сообщение выше имеет свойство "меняться".

Выключение по нажатию Alt+End
При первом запуске, скрипт сообщит о последней созданной теме.​

#SingleInstance, force
#Persistent

global blasthack
global user

SetTimer, check, 55000
return

Check:
oWhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oWhr.Open("GET", "https://blast.hk/", false)
oWhr.Send()
blasthack := oWhr.ResponseText
Firsttopic := topicname(blasthack)
if Firsttopic = % Secondtopic
    return
Secondtopic := topicname(blasthack)
TrayTip, % "[" prefix(blasthack) "] " topicname(blasthack), % " Создана тема: `n" user(blasthack) " " user1 " " createtime(blasthack) , 2, 1
return

!End::ExitApp

prefix(html)
{
    RegExMatch(html, "<a href=""\/forums\/\d\d\d?\/\?prefix_id\[\d\]=\d\d\d?"" class=""labelLink"" rel=""nofollow""><span class=""label label--primary"" dir=""auto"">([А-яA-z0-9]*)<\/span><\/a>", prefix)
    if prefix1 !=
    return, prefix1
}

topicname(html)
{
    RegExMatch(html, "<a href=""\/threads\/[0-9]*\/"" class="""" data-tp-primary=""on"" data-xf-init=""preview-tooltip"" data-preview-url=""\/threads\/[0-9]*\/preview"">([А-яA-z0-9 |/.]*)<\/a>", name)
    return, name1
}

createtime(html)
{
    RegExMatch(html, "<li class=""structItem-startDate""><a href=""/threads/[0-9]*/"" rel=""nofollow""><time  class=""u-dt"" dir=""auto"" datetime=""20\d\d-\d\d-[A-z0-9]*:\d\d:\d\d\+[0-9]*"" data-time=""[0-9]*"" data-date-string=""[А-яA-z0-9 ]*"" data-time-string=""\d\d:\d\d"" title=""[А-я0-9 :]*"">([А-я0-9 :]*)</time></a></li>", time)
    return, time1
}

user(html)
{
    if RegExMatch(html, "<li><a href=""/members/[0-9]*/"" class=""username "" dir=""auto"" data-user-id=""[0-9]*"" data-xf-init=""member-tooltip""><span class=""username--staff username--moderator"">?([A-z0-9_ ]*)<\/span><\/a><\/li>", user)
   
    color := "Модератор"

    else if RegExMatch(html, "<li><a href=""/members/[0-9]*/"" class=""username "" dir=""auto"" data-user-id=""[0-9]*"" data-xf-init=""member-tooltip""><span class=""username--staff username--moderator username--admin username--color-\d"">?([A-z0-9_ ]*)<\/span><\/a><\/li>", user)
   
    color := "Администратор"

    else if RegExMatch(html, "<li><a href=""\/members\/331566\/"" class=""username "" dir=""auto"" data-user-id=""331566"" data-xf-init=""member-tooltip"">([A-z0-9_ ]*)<\/a><\/li>", user)
   
    color := "Пользователь"

    return, color
}

 

[Удалённый пользователь 123482]

Если Cloudflare врубят то гг

 

[MrCreepTon]

Разработка хорошая (мб даже возьму на заметку), но:
1) В конкурсе участвуют разработки для SA:MP, а не для форума.
2) В конкурсе не участвует данный раздел