#include SAMP.ahk
#MaxHotkeysPerInterval

; Массивы диалогов
global dMarcers := ["null", "Перейти на 2й уровень", "Второй диалог", "Открыть диалог сообщение 2го уровня", "Важная заметка", "БЛЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯ", "Перейти на 3й уровень", "Перейти на 4й уровень", "Открыть диалог сообщение 3го уровня", "Открыть диалог сообщение 4го уровня"] ; Маркеры для прижка на нужный нам диалог
global dStyle :=   ["2", "2", "2", "0", "0", "null", "2", "2", "0", "0"] ; Задаём в массиве id скинов диалогов
global dName :=    ["[С.У.Д] by MrGPro", "[2] > Второй уровень", "Второй диалог - открыт", "Диалог сообщение 2го уровня", "Инфа", "null", "[3] > Третий уровень", "[4] > Четвертый уровень", "Диалог сообщение 3го уровня", "Диалог сообщение 4го уровня"] ; Задаём заголовки в диалог
global dText :=    ["Перейти на 2й уровень`nЗапуск команду 1 уровня",  "Перейти на 3й уровень`nОткрыть диалог сообщение 2го уровня`nЗапустить комманду 2го уровня", "Esc - вернуться на 1 уровень назад`nВыполнить - для запуска команды`nЗакрыть - для закрытия диалога", "Esc - вернуться на 1 уровень назад`nВыполнить - для запуска команды`nЗакрыть - для закрытия диалога", "null", "Перейти на 4й уровень`nОткрыть диалог сообщение 3го уровня", "Перейти на 4й уровень`nОткрыть диалог сообщение 3го уровня", "И так далее ... (мульти лвл диалога)`nОткрыть диалог сообщение 4го уровня", "Esc - вернуться на 1 уровень назад`nВыполнить - для запуска команды`nЗакрыть - для закрытия диалога", "Esc - вернуться на 1 уровень назад`nВыполнить - для запуска команды`nЗакрыть - для закрытия диалога"] ; Задаём текс диалога

global dBut1 :=    ["Ок", "Ок", "Ок", "Выполнить", "Ок", "null", "Ок", "Выполнить", "Ок", "Закрыть"] ; Диалоговая кнопка 1
global dBut2 :=    ["Закрыть", "Закрыть", "Закрыть", "Закрыть", "Закрыть", "null", "Закрыть", "Закрыть", "Закрыть", ""] ; Диалоговая кнопка 2

global CmdBut1 :=  ["null|CmdDialog_1", "null|null|CmdDialog_2", "", "", "", "", "", "", "", ""] ; Команда куда будем прыгать после нажатия gosub marker | marker: { code } return

ControlShowDialog(dialogName, index="null", LButton="2", Enter="0")
{
; Autor: MrGPro
; More :  http://cheat-master.ru/forum/149-704831-1
    static history := []
    static fist
    static break_out
    static fullexit := 0
    static deact := 0
    static marcer := false
    static linesDialog
    static objLinesCMD := 0
    static theSplitText
    static selectLineCMD
    static selectCMD
    static openDialog
    static nextDialog
    
    if (LButton >= 3)
  return
    if (Enter >= 3)
  return
    if (index = "null")
  return
    else
    {
  history.Insert(index)
  fist := index
  index:="null"
    }
    ; Выполняем дейстия если открыт диалог
    if (getDialogCaption() = dialogName and isDialogOpen() = 1) {
  while (break_out < 1)
  {
   addchatmessage( getButtonOne " ---------- " getButtonTwo)
   if (LButton != 0) {
    for i, dial in dName {
     if (getDialogCaption() = dial)
      butto := i
    }
    
    if (isDialogButtonSelected(2) = 1 and isDialogOpen() = 1) {
     if (GetKeyState("LButton")) {
      if (getDialogStyle() > 0 and isDialogOpen() = 1) {
                    history := []
                    break_out := 1
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut2[butto] " - выполнила закрытие")   ;================================================================    ТУТ
                    break
                    return
      }
     }
    }
    
    if (isDialogButtonSelected(1) = 1 and isDialogOpen() = 1) {
     if (GetKeyState("LButton")) {
      if (getDialogStyle() > 0 and isDialogOpen() = 1) {
       theLineGui := getDialogLineNumber()
       theTextGui := getDialogLine(theLineGui)
       theStyleGui := getDialogStyle()
       theLogoGui := getDialogCaption()
       for z, objNamez in dName
       {
        if (theLogoGui = objNamez)
         openDialog := A_Index
       }
        find := CmdBut1[openDialog]
        If (InStr(find, "|")) {
         Loop, parse, find, |,
         {
                    objLinesCMD := A_Index
                    if (theLineGui = objLinesCMD) {
                    theSplitText := A_LoopField
                    selectLineDialog := A_Index
                    }    
         }
        }
  
       if (isDialogButtonSelected(1) = 1) and (theSplitText = null or theSplitText = "" or theSplitText = "null") and (getDialogStyle() > 0)  {
        nextDialog := 0
        for i, objMarcer in dMarcers
        {
         if (theTextGui = objMarcer) {
                    nextDialog:=1
                    nextDialog:=1
                    if (dBut2[A_Index] != null or dBut2[A_Index] != "") {
                    history.Insert(A_Index)
                    ShowDialog(dStyle[A_Index], dName[A_Index], dText[A_Index], dBut1[A_Index], dBut2[A_Index]) ; Диалог
                    }
                    if (dBut2[A_Index] = null or dBut2[A_Index] = "") {
                    history.Insert(A_Index)
                    ShowDialog(dStyle[A_Index], dName[A_Index], dText[A_Index], dBut1[A_Index])
                    }  
         }
        }
        if (nextDialog < 1) {
         nextDialog:=0
         addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialog] " - не привязана. Параметр: " theSplitText)  ;=====================================================================    ТУТ
         history := []
         break_out := 1
         break
         return
        }
       }
       else
       {
        if (isDialogButtonSelected(1) = 1) and (theSplitText = null) or (theSplitText = "") or (theSplitText = "null"){
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialog] " - не привязана. Параметр: " theSplitText)  ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    break
                    return
         }
        if (isDialogButtonSelected(1) = 1) and (theSplitText != null) or (theSplitText != "") or (theSplitText != "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialog] " - привязана к команде ~ " theSplitText)  ;===================================================================    ТУТ
                    history := []
                    break_out := 1
                    gosub % theSplitText
                    break
                    return
         }
       }
      }
      if (GetKeyState("LButton")) {
      if (getDialogStyle() < 1 and isDialogOpen() = 1) {
       theStyleGui := getDialogStyle()
       theLogoGui := getDialogCaption()
       for z, objNamez in dName
       {
        if (theLogoGui = objNamez)
         openDialogs := A_Index
       }
        finds := CmdBut1[openDialogs]
        If (InStr(finds, "|")) {
         Loop, parse, finds, |,
         {
                    objLinesCMD := A_Index
                    if (theLineGui = objLinesCMD) {
                    theSplitText := A_LoopField
                    selectLineDialog := A_Index
                    }    
         }
        }
        if (isDialogButtonSelected(1) = 1) and (theSplitText = null or theSplitText = "" or theSplitText = "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialogs] " - не привязана. Параметр: " theSplitText) ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    break
                    return
         }
        if (isDialogButtonSelected(1) = 1) and (theSplitText != null or theSplitText != "" or theSplitText != "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialogs] " - привязана к команде ~ " theSplitText) ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    gosub % theSplitText
                    break
                    return
         }
       
      }
     }
      if (isDialogOpen() = 0) {
       break_out := 1
       history := []
       break
       return
      }

    }
   }
    
    ; Функция записывающая историю кликов мышки
    if (GetKeyState("LButton") and isDialogOpen() = 1) {
     if (getDialogStyle() > 0 and isDialogOpen() = 1) {
      Loop, %LButton%
      {
       KeyWait, LButton, D
       KeyWait, LButton, L
      }
       theLineMouse := getDialogLineNumber()
       theTextMouse := getDialogLine(theLineMouse)
       theStyleMouse := getDialogStyle()
       theLogoMouse := getDialogCaption()
       for z, objNamek in dName
       {
        if (theLogoMouse = objNamek)
         openDialog := A_Index
       }
        find := CmdBut1[openDialog]
        If (InStr(find, "|")) {
         Loop, parse, find, |,
         {
                    objLinesCMD := A_Index
                    if (theLineMouse = objLinesCMD) {
                    theSplitText := A_LoopField
                    selectLineDialog := A_Index
                    }    
         }
        }
        
       if (isDialogButtonSelected(1) = 0) and (theSplitText = null or theSplitText = "" or theSplitText = "null") and (getDialogStyle() > 0)  {
        nextDi := 0
        for i, objMar in dMarcers
        {
         if (theTextMouse = objMar) {
                    nextDi:=1
                    if (dBut2[A_Index] != null or dBut2[A_Index] != "") {
                    history.Insert(A_Index)
                    ShowDialog(dStyle[A_Index], dName[A_Index], dText[A_Index], dBut1[A_Index], dBut2[A_Index]) ; Диалог
                    }
                    if (dBut2[A_Index] = null or dBut2[A_Index] = "") {
                    history.Insert(A_Index)
                    ShowDialog(dStyle[A_Index], dName[A_Index], dText[A_Index], dBut1[A_Index])
                    }  
         }
        }
        if (nextDi < 1) {
         nextDi:=0
         addchatmessage("[С.У.Д] by MrGPro > Строка: " theTextGui[i] " - не привязана 2. Параметр: " theSplitText)  ;=====================================================================    ТУТ
         history := []
         break_out := 1
         break
         return
        }
       }
       else
       {
        if (isDialogButtonSelected(1) = 1) and (theSplitText = null) or (theSplitText = "") or (theSplitText = "null"){
                    addchatmessage("[С.У.Д] by MrGPro > Строка: " theTextGui[i] " - не привязана. Параметр: " theSplitText)  ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    break
                    return
         }
        if (isDialogButtonSelected(1) = 1) and (theSplitText != null) or (theSplitText != "") or (theSplitText != "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Строка: " theTextGui[i] " - привязана к команде ~ " theSplitText)  ;===================================================================    ТУТ
                    history := []
                    break_out := 1
                    gosub % theSplitText
                    break
                    return
         }
       }
      }
     }
     if (isDialogOpen() == 0) {
       history := []
       break
     }
    
   }
    
   if (Enter != 0) {
    if (GetKeyState("Enter") and isDialogOpen() = 1) {
     if (getDialogStyle() > 0 and isDialogOpen() = 1) {
      Loop, %Enter%
      {
       KeyWait, Enter, D
       KeyWait, Enter, L
      }
       theLineMouse := getDialogLineNumber()
       theTextMouse := getDialogLine(theLineMouse)
       theStyleMouse := getDialogStyle()
       theLogoMouse := getDialogCaption()
       for z, objNamek in dName
       {
        if (theLogoMouse = objNamek)
         openDialog := A_Index
       }
        find := CmdBut1[openDialog]
        If (InStr(find, "|")) {
         Loop, parse, find, |,
         {
                    objLinesCMD := A_Index
                    if (theLineMouse = objLinesCMD) {
                    theSplitText := A_LoopField
                    selectLineDialog := A_Index
                    }    
         }
        }
        
       if (isDialogButtonSelected(1) = 0) and (theSplitText = null or theSplitText = "" or theSplitText = "null") and (getDialogStyle() > 0)  {
        nextDi := 0
        for i, objMar in dMarcers
        {
         if (theTextMouse = objMar) {
                    nextDi:=1
                    if (dBut2[A_Index] != null or dBut2[A_Index] != "") {
                    history.Insert(A_Index)
                    ShowDialog(dStyle[A_Index], dName[A_Index], dText[A_Index], dBut1[A_Index], dBut2[A_Index]) ; Диалог
                    }
                    if (dBut2[A_Index] = null or dBut2[A_Index] = "") {
                    history.Insert(A_Index)
                    ShowDialog(dStyle[A_Index], dName[A_Index], dText[A_Index], dBut1[A_Index])
                    }  
         }
        }
        if (nextDi < 1) {
         nextDi:=0
         addchatmessage("[С.У.Д] by MrGPro > Строка: " theTextGui[i] " - не привязана 2. Параметр: " theSplitText)  ;=====================================================================    ТУТ
         history := []
         break_out := 1
         break
         return
        }
       }
       else
       {
        if (isDialogButtonSelected(1) = 1) and (theSplitText = null) or (theSplitText = "") or (theSplitText = "null"){
                    addchatmessage("[С.У.Д] by MrGPro > Строка: " theTextGui[i] " - не привязана. Параметр: " theSplitText)  ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    break
                    return
         }
        if (isDialogButtonSelected(1) = 1) and (theSplitText != null) or (theSplitText != "") or (theSplitText != "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Строка: " theTextGui[i] " - привязана к команде ~ " theSplitText)  ;===================================================================    ТУТ
                    history := []
                    break_out := 1
                    gosub % theSplitText
                    break
                    return
         }
       }
      }
     }
     if (GetKeyState("Enter")) {
      if (getDialogStyle() < 1 and isDialogOpen() = 1) {
       theStyleGui := getDialogStyle()
       theLogoGui := getDialogCaption()
       for z, objNamez in dName
       {
        if (theLogoGui = objNamez)
         openDialogs := A_Index
       }
        finds := CmdBut1[openDialogs]
        If (InStr(finds, "|")) {
         Loop, parse, finds, |,
         {
                    objLinesCMD := A_Index
                    if (theLineGui = objLinesCMD) {
                    theSplitText := A_LoopField
                    selectLineDialog := A_Index
                    }    
         }
        }
        if (isDialogButtonSelected(1) = 0) and (theSplitText = null or theSplitText = "" or theSplitText = "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialogs] " - не привязана. Параметр: " theSplitText) ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    break
                    return
         }
        if (isDialogButtonSelected(1) = 0) and (theSplitText != null or theSplitText != "" or theSplitText != "null") {
                    addchatmessage("[С.У.Д] by MrGPro > Кнопка: " dBut1[openDialogs] " - привязана к команде ~ " theSplitText) ;=================================================================    ТУТ
                    history := []
                    break_out := 1
                    gosub % theSplitText
                    break
                    return
         }
       
      }
     }
     if (isDialogOpen() == 0) {
       history := []
       break
     }
     
    
   }
   
  if (GetKeyState("Esc")) {
   history.Delete(history.Length())
   lastIndex:=history.Length()
   lastfix:=history[lastIndex]
   if (lastfix = fist or lastfix = "") {
    fullexit+=1
    if (fullexit > 1) {
     history := []
     break_out := true
     fullexit:=0
    }  
   }
   if (lastIndex > 0 and !break_out) {
    ShowDialog(dStyle[lastfix], dName[lastfix], dText[lastfix], dBut1[lastfix], dBut2[lastfix])
   }
     
  }
    }
  
    }
    break_out := false
    fist := false
    return
}

F3:: ; Кнопка вызова диалога
ShowDialog(dStyle[1], dName[1], dText[1], dBut1[1], dBut2[1]) ; Диалог
ControlShowDialog("[С.У.Д] by MrGPro", 1, 2, 1)
return

CmdDialog_2:
addchatmessage("{6633FF}[С.У.Д] {CC00CC}by {FF0000}MrGPro {00CC33}> Успех,{6666FF} команда была запущена на {00CC33}2 уровне диалога.")
return

CmdDialog_1:
addchatmessage("{6633FF}[С.У.Д] {CC00CC}by {FF0000}MrGPro {00CC33}> Успех,{6666FF} команда была запущена на {00CC33}1 уровне диалога.")
return