IfNotExist, %A_ScriptDir%\settings
{
FileCreateDir, %A_ScriptDir%\settings
}
IfNotExist, %A_ScriptDir%\settings\settings.ini
{
FileAppend,
(
[All]
Команда =
Кол-во игроков на сервере =
Кол-во минут мута или дней бана =
Задержка =
Свой ID =
Текст причины =
Биндер 1 =
Биндер 2 =
Биндер 3 =
), %A_ScriptDir%\settings\settings.ini
}
IniRead, Text1 ,%A_ScriptDir%\settings\settings.ini, All, Текст причины
IniRead, Command ,%A_ScriptDir%\settings\settings.ini, All, Команда
IniRead, Time1 ,%A_ScriptDir%\settings\settings.ini, All, Задержка
IniRead, MyID ,%A_ScriptDir%\settings\settings.ini, All, Свой ID
IniRead, Players ,%A_ScriptDir%\settings\settings.ini, All, Кол-во игроков на сервере
IniRead, BanTime ,%A_ScriptDir%\settings\settings.ini, All, Кол-во минут мута или дней бана
IniRead, BindText1 ,%A_ScriptDir%\settings\settings.ini, All, Биндер 1
IniRead, BindText2 ,%A_ScriptDir%\settings\settings.ini, All, Биндер 2
IniRead, BindText3 ,%A_ScriptDir%\settings\settings.ini, All, Биндер 3
id1=0
Gui, Add, Text, x22 y19 w250 h20 , Введите команду
Gui, Add, Edit, x302 y19 w170 h20 vCommand, %Command%
Gui, Add, Text, x22 y99 w250 h20 , Введите кол-во минут мута или дней бана
Gui, Add, Edit, x302 y99 w170 h20 vBanTime, %BanTime%
Gui, Add, Text, x22 y139 w250 h20 , Введите задержку
Gui, Add, Edit, x302 y139 w170 h20 vTime1, %Time1%
Gui, Add, Text, x22 y219 w160 h30 , Введите текст причины
Gui, Add, Edit, x192 y219 w280 h30 vText1, %Text1%
Gui, Add, Text, x22 y179 w250 h20 , Введите свой ID
Gui, Add, Edit, x302 y179 w170 h20 vMyID, %MyID%
Gui, Add, Edit, x22 y299 w450 h20 vBindText1, %BindText1%
Gui, Add, Edit, x22 y349 w450 h20 vBindText2, %BindText2%
Gui, Add, Edit, x22 y399 w450 h20 vBindText3, %BindText3%
Gui, Add, Button, x2 y449 w120 h30 gGuiSave, Применить
Gui, Add, GroupBox, x12 y9 w470 h40 ,
Gui, Add, GroupBox, x12 y89 w470 h40 ,
Gui, Add, GroupBox, x12 y129 w470 h40 ,
Gui, Add, GroupBox, x12 y169 w470 h40 ,
Gui, Add, GroupBox, x12 y209 w470 h50 ,
Gui, Add, Button, x132 y449 w120 h30 gInfo, Информация
Gui, Add, Button, x382 y449 w110 h30 gGuiClose, Закрыть
Gui, Add, GroupBox, x12 y49 w470 h40 ,
Gui, Add, Text, x22 y59 w250 h20 , Введите кол-во игроков на сервере
Gui, Add, Edit, x302 y59 w170 h20 vPlayers, %Players%
Gui, Add, GroupBox, x12 y279 w470 h50 +Center, Активация - Alt+1
Gui, Add, GroupBox, x12 y329 w470 h50 +Center, Активация - Alt+2
Gui, Add, GroupBox, x12 y379 w470 h50 +Center, Активация - Alt+3
Gui, Add, GroupBox, x2 y269 w490 h170 , Мини-Биндер
Gui, Add, GroupBox, x2 y-1 w490 h270 +Center, Специально для Prime-Hack.net
Gui, Add, Button, x262 y449 w110 h30 gSbros, Сбросить настройки
Gui, Show, x310 y129 h487 w500, {AHK}Сливщик админки by Apasin
Return
GuiSave:
GuiControlGet, Text1
IniWrite, % Text1 ,%A_ScriptDir%\settings\settings.ini, All, Текст причины
GuiControlGet, Command
IniWrite, % Command ,%A_ScriptDir%\settings\settings.ini, All, Команда
GuiControlGet, Time1
IniWrite, % Time1 ,%A_ScriptDir%\settings\settings.ini, All, Задержка
GuiControlGet, BanTime
IniWrite, % BanTime ,%A_ScriptDir%\settings\settings.ini, All, Кол-во минут мута или дней бана
GuiControlGet, MyID
IniWrite, % MyID ,%A_ScriptDir%\settings\settings.ini, All, Свой ID
GuiControlGet, Players
IniWrite, % Players ,%A_ScriptDir%\settings\settings.ini, All, Кол-во игроков на сервере
GuiControlGet, BindText1
IniWrite, % BindText1 ,%A_ScriptDir%\settings\settings.ini, All, Биндер 1
GuiControlGet, BindText2
IniWrite, % BindText2 ,%A_ScriptDir%\settings\settings.ini, All, Биндер 2
GuiControlGet, BindText3
IniWrite, % BindText3 ,%A_ScriptDir%\settings\settings.ini, All, Биндер 3
Reload
return
Info:
MsgBox, 52, Информация, ----------------------------------------------------------------`nАвтор данного скрипта - Apasin`n----------------------------------------------------------------`nSkype - apasin1337`n----------------------------------------------------------------`n----------------------------------------------------------------`nЗапуск скрипта - F2`nПерезагрузка скрипта - F3`nПолное выключение скрипта - F1`n----------------------------------------------------------------`n                    Хотите посетить тему автора?
IfMsgBox Yes
run, nope
Exit
GuiControlGet, BindText1
GuiControlGet, BindText2
GuiControlGet, BindText3
{
!1::
SendMessage, 0x50,, 0x4190419,, A
sendinput {f6}%BindText1%{enter}
return
}
{
!2::
SendMessage, 0x50,, 0x4190419,, A
sendinput {f6}%BindText2%{enter}
return
}
{
!3::
SendMessage, 0x50,, 0x4190419,, A
SendInput {f6}%BindText3%{enter}
return
}
F2::
GuiControlGet, Time1
GuiControlGet, Players
GuiControlGet, Text1
GuiControlGet, Command
GuiControlGet, BanTime
GuiControlGet, MyID
If Players >= 1
If MyID >= 0
Loop, %Players%
{
If ID1 <> %MyID%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput {f6}%Command% %ID1% %BanTime% %Text1%{enter}
id1 += 1
sleep %Time1%
}
else
{
id1 += 1
}
}
return
F3::Reload
return
F1::ExitApp
return
GuiClose:
ExitApp
Sbros:
FileDelete, %A_ScriptDir%\settings\settings.ini
Reload