#SingleInstance Force
#Include SAMPUDF.ahk
#IfWinActive GTA:SA:MP

$~Enter::
if (isInChat() && !isDialogOpen())
{
    blockChatInput()
    Sleep 170
    dwAddress := dwSAMP + 0x12D8F8
    chatInput := readString(hGTA, dwAddress, 256)
    unblockChatInput()
    Sleep, 100
    if (SubStr(chatInput, 1, 1) = "/")
    {
            if (RegExMatch(chatInput, "/asms (?<num>\d+) (?<gos>.*) (?<h>\d{1,2}):(?<m>\d{1,2})", asms_))
   {
    addChatMessage("GOST " asms_h ":" asms_m)
    SetTimer, Goska, On
   }
   else
    SendChat(chatInput)
    }
    else
    {
   SendChat(chatInput)
    }
}
return

Goska:
if (A_Hour ":" A_Min == asms_h ":" asms_m) and !(isInChat())
{
    Sendchat("./sms " asms_num A_Space asms_gos )
    SetTimer, Goska, Off
}
return