#ifWinActive GTA:SA:MP
#Persistent
#SingleInstance FORCE
#Include SAMP.ahk

class CommandProcessor {
    StatusProcessor := false
    CommandArray := {}

    TempText := ""
    TempCmd := ""

    SetStatusProcessor(status) {
  this.StatusProcessor := status
    }

    RegisterCommand(cmd, metka) {
  ObjRawSet(this.CommandArray, cmd, metka)
    }

    DeleteCommand(cmd) {
  this.CommandArray.Delete(cmd)
    }
}

CommandProcessor := new CommandProcessor()
CommandProcessor.SetStatusProcessor(true)
CommandProcessor.RegisterCommand("/ss",    "kp")
chat := A_MyDocuments "/GTA San Andreas User Files/SAMP/chatlog.txt"
SetTimer, PayDay, 1
return

PayDay:
Today := "" A_DD "." A_MM "." A_YYYY ""
FileRead, chatlog, % chat
if (RegExMatch(chatlog, "\]\s+Зарплата: (.*)\$", money))
{
FileDelete, % chat
IniRead, allmoney, %A_MyDocuments%\Gta San Andreas User Files\samp\Salary.ini, PayDay, %Today%
if (allmoney == "ERROR") or (allmoney == "")
{
allmoney := 0
}
a := allmoney + money1
IniWrite, %a%, %A_MyDocuments%\Gta San Andreas User Files\samp\Salary.ini, PayDay, %Today%
}
Return

~F6::
~ESC::
IfWinNotActive, GTA:SA:MP
    return
menu := 0
return

~LButton::
Time := A_TickCount
while(isDialogOpen())
{
    if (A_TickCount - Time > 500)
  return
}
checkdialogMenu:
if (isDialogButton1Selected() == 1)
    menu := 0
IfWinNotActive, GTA:SA:MP
    return
if (menu == 1)
{
    menu := 0
    line_num  := getDialogLineNumber()

    if (line_num == 2)
    {
    FileRead, end, %A_MyDocuments%\Gta San Andreas User Files\samp\Salary.ini
    if (ErrorLevel == 0)
    {
    d1 := RegExReplace(end, "\[PayDay]\s\s", "")
    d2 := RegExReplace(d1, "=", "`t{00FF00}")
    d3 := RegExReplace(d2, "\n", "$`n{00FFFF}")
    d4 := RegExReplace(d3, ".{9}$", "")
    SS =
    (
    {00FFFF}Date`t{00FF00}Money
    {00FFFF}%d4%

    )
    showDialog(5, "{FFFFFF}Salary Statement", SS, "Закрыть")
    }
    else if (ErrorLevel == 1)
    {
    showDialog(0, "{FFFFFF}Salary Statement", "              {00FF00}Отчёт пуст", "Закрыть")
    }
    }
    else if (line_num == 3)
    {
ok =
(
{FFFFFF}Вы действительно хотите очистить историю зарплат?
                    {00FF00}Да, очистить.
                    {FF0000}Нет, отмена.

)
showDialog(5, "{FFFFFF}Salary Statement", ok, "Закрыть")
menu := 2
    }
}
else if (menu == 2)
{
    menu := 0
    line_num  := getDialogLineNumber()

    if (line_num == 1)
    {
    FileDelete, %A_MyDocuments%\Gta San Andreas User Files\samp\Salary.ini
    AddChatMessageEx("00FF00", "[Salary Statement] • {FFFFFF}История зарплат полностью удалена.")
    }
}
Return

~Enter::
if(CommandProcessor.StatusProcessor)
{
    if(IsChatActive() == 1)
    {
  
  blockChatInput()
  while(IsChatActive() == 1)
   continue
  
  unBlockChatInput()
  
  TextChat := GetChatText()
  
  if(SubStr(TextChat, 1, 1) == "/")
  {
   InputCMD := StrSplit(TextChat, A_Space)
   InputCMD := InputCMD[1]
   CommandProcessor.TempCmd := InputCMD
   CommandProcessor.TempText := TextChat
   
   if(CommandProcessor.CommandArray.HasKey(InputCMD))
   {
    ClearTextDialog()
    SetTimer, % CommandProcessor.CommandArray[InputCMD], -1
   }
   else
   {
    SendChat(TextChat)
    ClearTextDialog()
   }
  }
  else
  {
   if(TextChat != "")
   {
    CommandProcessor.TempText := TextChat
    SendChat(TextChat)
    ClearTextDialog()
   }
  }
    }
}
goto, checkdialogMenu
return

kp:
chatInput := CommandProcessor.TempText
if (RegExMatch(chatInput, "i)^/ss"))
{
menu := 1
IniRead, menumoney, %A_MyDocuments%\Gta San Andreas User Files\samp\Salary.ini, PayDay, %Today%
if (menumoney == "ERROR") or (menumoney == "")
{
menumoney := 0
}
gmenu =
(
{00FF00}Зарплата за сегодня: %menumoney%$
{00FF00}Полный отчёт о зарплатах
{00FF00}Очистить отчёт
)
showDialog(4, "{FFFFFF}Salary Statement", gmenu, "Закрыть")
}
Return