#IfWinActive GTA:SA:MP
#Include D:\GamesMailRu\бинд\МЗ\SAMP.ahk
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

        if chtext contains /uninv
    {
            RegExMatch(chtext, "i)^(.*)/uninv", ps)
            If (ps1!="")
            {
                ps := []
                return
            }
            ps := []
            writeString(hGTA, dwAddress, 256)
            if (rangs < 8) && (arangs < 8)
            {
            AddChatMessageEx("{FFFF00}", "[AHK] {FF0000}Ошибка! {FFFFFF}Увольнять можно с 8 ранга.")
                return
            }
            RegExMatch(chtext, "i)^/uninv ([0-9]*) (.*)", p)
            nick:=getPlayerNameById(p1)
            CR := getPlayerColor(p1)
            bomg := hex2rgb(CR)
            StringReplace, name1, nick, _, %A_Space%, All
            if p1 =
            {
            AddChatMessageEx("{FFFF00}", "[AHK] {FFFFFF}Введите команду: /uninv [id] [Причина]")
                Return
            }
            if p2 =
            {
            AddChatMessageEx("{FFFF00}", "[AHK] {FFFFFF}Введите команду: /uninv [id] [Причина]")
                Return
            }
            if (bomg="38,57,153" or bomg="102,34,114")
                SendMessage, 0x50,, 0x4190419,, A
                SendChat("/me " dostal " КПК из кармана, после чего " zashel " в базу данных сотрудников")
                Sleep 1000
                SendChat("/me движением пальца " yvolil " сотрудника " name1)
                Sleep 1000
                SendChat("/do Сотрудник уволен.")
                Sleep 1000
                SendChat("/uninvite " p1 " " p2 "")
                Sleep 1000
                SendChat("/f " tag " " name1 " был уволен из организации. Причина: " p2 "")
                Sleep 400
                FileAppend, Увольнение  ||  %nick%  || Причина: %p2% ||  %A_DD% %A_MMMM% %A_YYYY%  ||  

%A_Hour%:%A_Min%:%A_Sec%`n, %dir%/Logfiles.txt
                Return

        if chtext = /дата
    {
            Active2:
            writeString(hGTA, dwAddress, 256)
            url := "http://www.belgim.by/modules/time/time.php?get_time=true"
            request := ComObjCreate("Microsoft.XMLHTTP")
            request.open("POST", url, false)
            try
            request.send()
            ms_utc := request.responseText
            clock := ms_utc
            RegExMatch(clock, "(.*):(.*):(.*)", result)
            Sleep 300
            SendChat("/me " dostal " из кармана смартфон")
            Sleep 1000
            SendChat("/me " razblok " телефон, после " posmotrel " на дату")
            Sleep 1000
            SendChat("/do Дата на телефоне | " A_DD " " A_MMMM " " A_YYYY ".")
            Sleep 1000
            SendChat("/do Время на телефоне | " result1 ":" result2 ":" result3 ".")
            Sleep 1000
            SendChat("/me " zablok " телефон, после чего " ybral " его обратно в карман")
            return

        if chtext = /find
        {
            find:
        if (isDialogOpen() and getDialogCaption()=="{FFCD00}Члены подразделения онлайн")
            {
                sleep, 100
                Dtext:=getDialogText()
                RegExMatch(Dtext, "Из них онлайн:(.*)\n", out)
                RegExMatch(out1, "[0-9]+", chel)
                SendMessage, 0x50,, 0x4190419,, A
                SendChat("/me " vytashil " КПК из пиджака, после " najal " на боковую кнопку")
                Sleep 500
                SendChat("/me опустив глаза на экран КПК, смотрит количество сотрудников")
                Sleep 500
                SendChat("/do Количество сотрудников в штате: " chel ".")
                Return