Серый форум — SAMP: улучшить скорость срабатывания скрипта.

Re: SAMP: улучшить скорость срабатывания скрипта.

null@example.com (artur_dr) — Fri, 28 Jul 2017 03:01:55 +0000

serzh82saratov , вообще в чате появляется вот это:

[22:00:10] __________Банковский чек__________

[22:00:10] Депозит в банке: $0

[22:00:10] Сумма к выплате: $0

[22:00:10] Текущая сумма в банке: $0

[22:00:10] Текущая сумма на депозите: $0

[22:00:10] В данный момент у вас 36-й уровень и 143/148 респектов

[22:00:10] Уровень розыска: +1/-1 (0)

[22:00:10] __________________________________

все эти строки появляются в одну секунду, в одно время. За что мне зацепиться и записать в код, чтобы действие срабатывало быстрее?

Re: SAMP: улучшить скорость срабатывания скрипта.

null@example.com (artur_dr) — Fri, 28 Jul 2017 02:58:48 +0000

serzh82saratov Проверил, Ваш скрипт:

PathLog = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ; Путь к чатлогу 

VHorii2: ; метка №2
	File := FileOpen(PathLog, "r`n"), File.Pos := File.Length

!vk4E::
	VHorii1: ; Метка №1
	read := File.Read()
	if read contains  ] _
	{ 
		MsgBox contains  ] _ 
	}
	File.Pos := File.Length
	goto VHorii1
	
NumPad9::goto VHorii2

выполняет действие/начинает выполнять действие медленнее. Могли бы Вы еще посоветовать, что мне изменить в моем коде чтобы увеличить скорость срабатывания действия после пойявления в чате " ] _ "

VHorii2: ; метка №2
File = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ; Путь к чатлогу 
FileDelete, %file% ; Очистить чат лог
FileAppend, %file% ; Очистить чат лог
!vk42:: ; Активация (Alt+N)
SendInput, {F6}/m{Enter} ; Просто надпись в чат, чтобы понять, что скрипт запущен
VHorii1: ; Метка №1
FileRead, read, %file% ; Читает чат лог
if read contains ] _
{
	SendInput, {n Down} ; 
	Sleep 150 ; 
	SendInput, {n up} ; 
FileDelete, %file% ; Очистить чат лог
FileAppend, %file% ; Очистить чат лог
}
goto VHorii1  ; Идём на метку №1
return  ; Останавливает скрипт
NumPad9::goto VHorii2  ; Перезапустить/Идём на метку №2

Re: SAMP: улучшить скорость срабатывания скрипта.

null@example.com (serzh82saratov) — Tue, 04 Jul 2017 18:03:00 +0000

if read contains  [16:00:09] __________Банковский чек__________

на:

if read ~= "\[\d+:\d+:\d+] __________Банковский чек__________"

Re: SAMP: улучшить скорость срабатывания скрипта.

null@example.com (artur_dr) — Tue, 04 Jul 2017 09:15:31 +0000

serzh82saratov, У меня в чатлоге появляется вот такая надпись -
" [час:минута:секунда] __________Банковский чек__________ "
пример: " [22:00:10] __________Банковский чек__________ "
Мне нужно чтобы после этой надписи как можно быстрее нажалась клавиша N,
этот скрипт не срабатывает

PathLog = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ; Путь к чатлогу 

VHorii2: ; метка №2
	File := FileOpen(PathLog, "r`n"), File.Pos := File.Length

!vk42::
	VHorii1: ; Метка №1
	read := File.Read()
	if read contains  [16:00:09] __________Банковский чек__________
	{ 	
	SendInput, {n Down} ; Зажимает кнопку N
	Sleep 400 ; Задержка
	SendInput, {n up} ; Отпускает кнопку N
	}
	File.Pos := File.Length
	goto VHorii1
	
NumPad9::goto VHorii2

Re: SAMP: улучшить скорость срабатывания скрипта.

null@example.com (artur_dr) — Mon, 03 Jul 2017 13:04:57 +0000

serzh82saratov получилось вот так, буду смотреть быстрее ли он работает. Спасибо

PathLog = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ; Путь к чатлогу 

VHorii2: ; метка №2
	File := FileOpen(PathLog, "r`n"), File.Pos := File.Length

!vk4E::
	VHorii1: ; Метка №1
	read := File.Read()
	if read contains   ] _
	{ 
		Send, {N Down} ; Зажимает кнопку N
	Send, {N up} ; Отпускает кнопку N
	Sleep 100  ; Задержка
	Send, {n Down} ; Зажимает кнопку N
	Sleep 100 ; Задержка
	Send, {n up} ; Отпускает кнопку N 
	}
	File.Pos := File.Length
	goto VHorii1
	
NumPad9::goto VHorii2

Re: SAMP: улучшить скорость срабатывания скрипта.

null@example.com (serzh82saratov) — Mon, 03 Jul 2017 11:06:07 +0000

Попробуйте так:

PathLog = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ; Путь к чатлогу 

VHorii2: ; метка №2
	File := FileOpen(PathLog, "r`n"), File.Pos := File.Length

!vk4E::
	VHorii1: ; Метка №1
	read := File.Read()
	if read contains  ] _
	{ 
		MsgBox contains  ] _ 
	}
	File.Pos := File.Length
	goto VHorii1
	
NumPad9::goto VHorii2

SAMP: улучшить скорость срабатывания скрипта.

null@example.com (artur_dr) — Mon, 03 Jul 2017 06:34:59 +0000

Нужно улучшить скорость срабатывания действия после появления в чат-логе надписи " ] _ " . Может выставить приоритет, или что-то подобное для скрипта?

VHorii2: ; метка №2
File = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ; Путь к чатлогу 
FileDelete, %file%
FileAppend, %file%
!vk4E::
VHorii1: ; Метка №1
FileRead, read, %file%
if read contains  ] _
{ 
	Send, {N Down}
	Send, {N up}
	Sleep 100
	Send, {n Down}
	Sleep 100
	Send, {n up}
FileDelete, %file%
FileAppend, %file%
}
goto VHorii1
return
NumPad9::goto VHorii2