#Persistent
#UseHook
global accentActive := true
global accentText := "[Деловой акцент]: "
global f6Pressed := false
TrilogOpenChat(var)
{
winGetTitle windowTitle, A
setKeyDelay 100, 15
send %var%
SetKeyDelay, 0
}
LoadAccentText()
$Numpad2::
if (IsSanAndreasActive()) {
accentActive := !accentActive
if (accentActive) {
Tooltip, %accentText% Активировано
} else {
Tooltip, %accentText% Деактивировано
}
Sleep, 1000
Tooltip
}
return
$Numpad3::
if (IsSanAndreasActive()) {
InputBox, newAccent, Введите новый акцент
if !ErrorLevel
{
accentText := newAccent . " "
SaveAccentText()
}
}
return
$F6::
if (IsSanAndreasActive()) {
f6Pressed := true
TrilogOpenChat("{F6}")
}
return
$Enter::
if (IsSanAndreasActive() && accentActive && f6Pressed) {
Send, ^a
Send, ^c
ClipSaved := ClipboardAll
ClipWait, 2
ExcludePatterns := "^(\/|\.)"
if (Clipboard ~= ExcludePatterns) {
Clipboard := ClipSaved
} else {
NewText := accentText . Clipboard
Clipboard := NewText
}
Send, ^v
Sleep, 50
Send, {Enter}
Clipboard := ClipSaved
f6Pressed := false
} else {
Send, {Enter}
}
return
SaveAccentText() {
FileDelete, %A_ScriptDir%\accent.txt
FileAppend, %accentText%, %A_ScriptDir%\accent.txt
}
LoadAccentText() {
FileRead, accentText, %A_ScriptDir%\accent.txt
if (ErrorLevel) {
accentText := "[Деловой акцент]: "
}
}
IsSanAndreasActive() {
WinGet, activeProcessName, ProcessName, A
return (activeProcessName = "SanAndreas.exe")
}