1

Тема: 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

;===================================================================================

2

Re: AHK: Посоветуйте как доработать данный скрипт.

poberezkij.artemca, скорее всего можно. Если конкретных вопросов по кодингу у вас нет, а нужен готовый результат, то тот же совет, что и в прошлом вашем посте.

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder