Тема: AHK: Посоветуйте как доработать данный скрипт.
Можно ли как-то доработать настоящий скрипт для более комфортной работы?
#NoEnv
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
#KeyHistory 0
ListLines Off
Process, Priority, , A
SetBatchLines, -1
SetKeyDelay, -1, -1
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
SetWinDelay, -1
CurrentDateTime = 0
counter = 0
ans = 0
reloadStatus = 0
;===================================================================================
CustomColor := "#ffc56e" ; Can be any RGB color (it will be made transparent below).
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow ; +ToolWindow avoids a taskbar button and an alt-tab menu item.
Gui, Color, cWhite
Gui, Font,, Intro
Gui, Font, s11 ; Set a large font size (32-point).
Gui, Font, q1
Gui, Font, w1000
Gui, Add, Text, vMyText cYellow, XXXX, YYYY ; XX & YY serve to auto-size the window.
Gui, Add, Text, vMyTotalR cWhite, XXXX, YYYY
WinSet, TransColor, %CustomColor% 150
GoSub, UpdateCounter
Gui, Show, x980 y5 NoActivate
ProcessExist(Name){
Process,Exist,%Name%
return Errorlevel
}
UpdateCounter:
FormatTime, CurrentDateTime,, dd-MM-yy
FormatTime, dayCounter,, d
FormatTime, allCounter,, -MM-yy
WDay:=((A_WDay>1)?A_WDay-1:A_WDay+6)
WDay --
currentFile = %A_WorkingDir%\%CurrentDateTime%-Репорты.txt
if !FileExist(currentFile)
{ ; если файла не существует
FileAppend, 0, %currentFile% ; то создаем новый файл
counter = 0
}else{
FileReadLine, temp, %currentFile%, 1
if(%counter% != 0){
totalR = %temp%
totalR += 1
FileDelete, %currentFile% ; если существует то удаляем старый
FileAppend, %totalR%, %currentFile% ; создаем новый, обновив значения counter
}else{
totalR = %temp%
}
}
if dayCounter <= 10
{
dayCounter = 0%dayCounter%
}
GuiControl,, MyText, Rep: %counter%
GuiControl,, MyTotalR, All: %totalR%
return
UpdateCounterminus:
FormatTime, CurrentDateTime,, dd-MM-yy
FormatTime, dayCounter,, d
FormatTime, allCounter,, -MM-yy
WDay:=((A_WDay>1)?A_WDay-1:A_WDay+6)
WDay --
currentFile = %A_WorkingDir%\%CurrentDateTime%-Репорты.txt
if !FileExist(currentFile)
{ ; если файла не существует
FileAppend, 0, %currentFile% ; то создаем новый файл
counter = 0
}else{
FileReadLine, temp, %currentFile%, 1
if(%counter% != 0){
totalR = %temp%
totalR += -1
counter += -1
FileDelete, %currentFile% ; если существует то удаляем старый
FileAppend, %totalR%, %currentFile% ; создаем новый, обновив значения counter
}else{
totalR = %temp%
}
}
if dayCounter <= 10
{
dayCounter = 0%dayCounter%
}
GuiControl,, MyText, Rep: %counter%
GuiControl,, MyTotalR, All: %totalR%
return
Enter:
Send, {Enter}
SendMessage, 0x50,, 0x4190419, A
PixelGetColor, color, 761, 178
if (color = 0xE3E3E3){
counter++
GoSub, UpdateCounter
}
return
^0::
counter++
GoSub, UpdateCounter
return
f6::
GoSub, UpdateCounterminus
return
;===================================================================================
::q::
SendMessage, 0x50,, 0x4190419, A
PixelGetColor, color, 761, 178
if (color = 0xE3E3E3){
Sendinput, Лечу.{Enter}
counter++
GoSub, UpdateCounter
}
Return
::й::
SendMessage, 0x50,, 0x4190419, A
PixelGetColor, color, 761, 178
if (color = 0xE3E3E3){
Sendinput, Лечу.{Enter}
counter++
GoSub, UpdateCounter
}
Return
::bb::
SendMessage, 0x50,, 0x4190419, A
PixelGetColor, color, 761, 178
if (color = 0xE3E3E3){
Sendinput, Приятной игры на GTA5RP Burton.{Enter}
counter++
GoSub, UpdateCounter
}
Return
::ии::
SendMessage, 0x50,, 0x4190419, A
PixelGetColor, color, 761, 178
if (color = 0xE3E3E3){
Sendinput, Приятной игры на GTA5RP Burton.{Enter}
sleep 500
counter++
GoSub, UpdateCounter
}
Return
;===================================================================================
::автом::Администрация не телепортирует/эвакуирует/достает машины/лодки из воды и труднодоступных мест. Вызовите механиков либо эвакуируйте автомобиль/лодку самостоятельно через Телефон - Авто.
::нер::Не разглашаем
::мет::Сейчас дам метку
::бронь::Вы можете сдать гос. имущество/нелегал NPC(Бот) в холле FIB/LSPD/LSSD.
::лид::Лидеру необходимо установить право "Выполнение контрактов" для Вашей группы.
::вик::Всю подробную информацию вы всегда можете найти на WIKI нашего проекта. F10 - WIKI
::мент::Вызывайте полицию, данные действия модерируются в IC рамках LSPD/LSSD/FIB, обратитесь к ним за помощью.
::тир::Включить выключить вертикальную синхронизацию несколько раз или переключить несколько раз разрешение экрана.
::трейд::Обратитесь в нашу поддержку на почту support@gta5rp.com. Ответ в любом случае будет получен на почту, отвечать нужно на то же письмо которое придет.
::схем:: Телефон - Контракты - Поставить метку
::кд22:: Откат на задания составляет 6 часов, но может быть сокращен на час за сдачу всех экзаменов на "отлично" и еще на час за наличие Platinum VIP. Откат на попытку прохождения экзамена 12 часов, может быть сброшен за колокольчики или BP у директора школы.
::пред22:: Лопата продаеться в рыболовном магазине, а металлоискатель в Secret shop.
::Зад22:: f10 - Задания - Название задания - Точка на карте
::Бук22:: Вы можете купить букет в Secret shop, а поистечению 96 часов он засохнет.
::мех::Обратитесь к механикам за помощью.
::эва::Вы можете эвакуировать авто через телефон -> авто.
::автом::Администрация не телепортирует/эвакуирует/достает машины/лодки из воды и труднодоступных мест. Вызовите механиков либо эвакуируйте автомобиль/лодку самостоятельно через Телефон - Авто.
::жб::Если у Вас есть видеофиксация, Вы можете оставить жалобу на форуме в разделе жалоб на игроков.
::обж::Если Вы не согласны с наказанием(решением администратора), Вы можете оставить обжалование(жалобу на администратора) на форуме. Главная - Форумы - Основной раздел - Сервер №11 | Burton - Жалобы.
::нез::К сожалению, не успел зафиксировать нарушение от игрока, если у Вас имеется видеофиксация, Вы можете написать жалобу на форуме.
;===================================================================================
::pDM::prison id 30 DM
::pZZ::prison id 40 DM in ZZ
::pDB::prison id 30 DB
::pTK::prison id 40 TK
::pSK::prison id 90 SK
::pRK::prison id 40 RK
::pPG::prison id 30 PG
::pMG::prison id 45 MG
::pNRD::prison id 10 NRD
::pБаг::prison id 30 Багоюз
::pЛут::prison id 15 Лутерство
::pДоб::prison id 20 Добив
::pГос::prison id 60 NRP Гос.
::pАмор::prison id 25 Аморальные действия
::pНок::mute id 20 Разговор в тяжелом состоянии
::pУход::ban id 3 Уход от RP
::pОтказ::ban id 1 Отказ от RP
;===================================================================================
!r:: Reload ; Перезапустить скрипт, бинд: Alt+R
;===================================================================================