[AHK] Полезные бинды

**Kangaroo** · July 5, 2016

Список последних изменений.

Скрытый текст

20.05.20

Добавлен бинд для мафий:

— Подсчет добытых материалов и бланков.

18.05.20

- Обновлен бинд для информации по контрабанде материалов для мафий.

- Добавлен бинд подсчета добытых биоматериалов для банд.

- Удалены бинды "умные наручники" и "автонаручники" для ПО, поскольку их легко заменяет бинд реакции на чат.

- Обновлена инструкция к бинду реакции на чат.

- Добавлен список полезных реакций, которые можно вставить в этот бинд.

Всем привет.

Я решил собрать в одной теме несколько полезных биндов, которыми я пользуюсь и которые могут пригодиться вам.

Если вы не знаете, что такое AHK и как его использовать - прочтите эту тему.

Инструкция по установке:

1. Скачиваем инсталлер AHK версии 1.1.26.01 отсюда (ссылка с официального сайта).

2. Запускаем его, выбираем Custom Installation, далее ANSI-32 bit. Ставим галочку на пунктах "Install script compiler" и "Separate taskbar buttons".

Текст биндов и описание их работы находится под спойлерами. Кнопки и команды, на которые привязаны эти бинды, приведены для примера, вы можете заменить их на свои.

Самый главный, лучший, универсальный и мой любимый бинд:

— Реакция на чат.

Скрытый текст

Цитата

#Persistent

Checkchat(Chatmessage, MY_VAR1:=0, MY_VAR2:=0, MY_VAR3:=0)
{
StringReplace, Chatmessage, Chatmessage, (.1), %MY_VAR1%
StringReplace, Chatmessage, Chatmessage, (.2), %MY_VAR2%
StringReplace, Chatmessage, Chatmessage, (.3), %MY_VAR3%
SetFormat, Integer, H
Locale1=0x4090409 ; Английский (американский).
Locale2=0x4190419 ; Русский.
WinGet, WinID,, A
ThreadID:=DllCall("GetWindowThreadProcessId", "Int", WinID, "Int", "0")
InputLocaleID:=DllCall("GetKeyboardLayout", "Int", ThreadID)
SendMessage, 0x50,, 0x4190419,, A
sleep 100
TEMP := Clipboard
Clipboard :=

SendInput 1+{left}^{vk58}
sleep 50
If Clipboard
{
   SendInput ^{vk41}^{vk58}{enter}
   sleep 50
   SendInput {f6}%Chatmessage%{enter}
   StringReplace, Clipboard, Clipboard, !, {!}, All
   StringReplace, Clipboard, Clipboard, +, {+}, All
   StringReplace, Clipboard, Clipboard, ^, {^}, All
   StringReplace, Clipboard, Clipboard, #, {#}, All
   SendInput {f6}%Clipboard%
}
Else
   SendInput {f6}%Chatmessage%{enter}

Clipboard := TEMP
TEMP :=
sleep 200
SendMessage, 0x50,, % InputLocaleID,, A
}

MY_STRING_NUMBER := 1
SetTimer, MY_REACTION_TIMER, 50
return

MY_REACTION_TIMER:
IfWinActive GTA:SA:MP
{
MY_REACTION_STRING :=
MY_REACTION_STRING2 :=
FileReadLine, MY_REACTION_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_STRING_NUMBER%
MY_STRING_NUMBER2 := (MY_STRING_NUMBER+20)
FileReadLine, MY_REACTION_STRING2, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_STRING_NUMBER2%
If MY_REACTION_STRING2
   Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
       MY_STRING_NUMBER := (A_Index-1)
else if MY_REACTION_STRING
{
MY_STRING_NUMBER += 2

; ЗДЕСЬ НАЧИНАЕТСЯ СПИСОК РЕАКЦИЙ

IfInString, MY_REACTION_STRING, Нажмите ALT, чтобы завести двигатель
{
SendInput {LAlt down}
sleep 150
SendInput {LAlt up}
}

IfInString, MY_REACTION_STRING, предлагает вам дозаправку за $1, (введите /accept refill)
{
Checkchat("/accept refill")
sleep 1111
}

; ЗДЕСЬ ЗАКАНЧИВАЕТСЯ СПИСОК РЕАКЦИЙ
}
}

IfWinNotExist GTA:SA:MP
   MY_STRING_NUMBER := 1
return

Бинд позволяет прописывать любую реакцию на любой текст, который появляется в чате. Для работы бинда, в скрипте его нужно поместить в зону автовыполнения, т.е. выше любых горячих клавиш и строк, можно и просто на самый верх.

В приведенном выше примере установлена реакция на две строки. В первом случае бинд сам нажмет Alt, когда вы сядете в ТС с заглушенным двигателем, а во втором случае - сам примет заправку, если она предлагается за 1$.

Добавлять реакцию на другие строки можно в тот же блок со списком реакций (выделен синими надписями), по такому шаблону:

Цитата

IfInString, MY_REACTION_STRING, Искомый текст в последней строке чата
{
Реакция на этот текст
}

Реакции могут быть самые разные.

Например, такой код будет делать скриншот каждый раз, когда я отправлю объявление:

Цитата

IfInString, MY_REACTION_STRING, Автор: Ken_Guru
{
Sendinput {F8 down}

sleep 100

Sendinput {F8 up}
}

Следующий код примет наркотики, когда вам хотят передать их.

Цитата

IfInString, MY_REACTION_STRING, грамм наркотиков. Введите /td для согласия
{
Checkchat("/td")
sleep 1111
}

А такой код примет предложение купить наркотики, но только по цене не больше 200 за грамм. Здесь уже вам пригодится знание команды RegExMatch. Инструкцию к ней можно найти в конце поста.

Цитата

IfInString, MY_REACTION_STRING, (введите /accept drugs) для покупки
{
FoundPos := RegExMatch(MY_REACTION_STRING, "купить у него (.*) грамм наркотика за \$(.*),", MY_MATCH)
If (MY_MATCH2/MY_MATCH1<=200)
Checkchat("/accept drugs")
sleep 1111
}

Примечания:

- Если одна строка попадает под несколько условий, то все соответствующие реакции выполнятся в том же порядке, в каком они указаны в коде.

PS: Для чего нужна функция Checkchat, и чем она отличается от Sendinput.

Функцию Checkchat мы создали в первой части кода этого бинда. Ее удобство в том, что через нее любой текст сможет ввестись вне зависимости от того, открыт ли у вас чат в этот момент, и она не помешает вам писать дальше.
Синтаксис простой: Checkchat("текст"). Вот как это работает:

— Полезные реакции.

Скрытый текст

Это набор готовых реакций, которые вы можете вставлять к себе в бинд реакции на чат, в любом порядке.

Общие реакции.

IfInString, MY_REACTION_STRING, предлагает отремонтировать вашу машину за $1,
{
Checkchat("/accept repair")
sleep 1111
} ; Принятие ремонта от механика за 1$.

IfInString, MY_REACTION_STRING, предлагает вам дозаправку за $1
{
Checkchat("/accept refill")
sleep 1111
} ; Принятие заправки от механика за 1$.

IfInString, MY_REACTION_STRING, предлагает Вам секс с ней за $1 (для согласия введите /accept sex).
{
Checkchat("/accept sex")
sleep 1111
} ; Принятие услуг проститутки за 1$.

IfInString, MY_REACTION_STRING, предлагает Вам оформить у него машину за $1 (
{
Checkchat("/accept car")
sleep 1111
} ; Принятие услуг оформителя за 1$.

IfInString, MY_REACTION_STRING, за $100. Для согласия введите /accept gun.
{
Checkchat("/accept gun")
sleep 1111
} ; Принять оружие по минимальной цене от мафии.

IfInString, MY_REACTION_STRING, Введите /td для согласия
{
Checkchat("/td")
sleep 1111
} ; Принять эликсир.

IfInString, MY_REACTION_STRING, ] * Для начала работы введите /duty
{
Checkchat("/duty")
sleep 1111
} ; Заступить на дежурство механика.

IfInString, MY_REACTION_STRING, ] * Эта модель ТС требуется для угона. Введите /jackcar, если хотите пригнать ТС.
{
Checkchat("/jackcar")

sleep 1111
} ; Начать угон подходящей модели ТС.

Реакции для ПО.

IfInString, MY_REACTION_STRING, ] * Вы ударили тазером
{
RegExMatch(MY_REACTION_STRING, "\] \* Вы ударили тазером (.*),", MY_TAZER)
SendInput {f6}/cuff %MY_TAZER1%{enter}
sleep 1111
} ; Надеть наручники на того, кого вы ударили тазером.

Реакции для мафий.

IfInString, MY_REACTION_STRING, ] [MATERIALS]
IfNotInString, MY_REACTION_STRING, Материалы покинули штат
{
Checkchat("/maf ВНИМАНИЕ{!} В штат прибыли материалы{!}")
} ; Оповещение о начале контрабанды.

IfInString, MY_REACTION_STRING, ] [MATERIALS]
IfInString, MY_REACTION_STRING, Материалы покинули штат
{
Checkchat("/maf ВНИМАНИЕ{!} Материалы покинули штат{!}")
} ; Оповещение об окончании контрабанды.

IfInString, MY_REACTION_STRING, Был совершен взлом двери склада. У Вас есть 5 минут для кражи бланков
{
SendInput {home down}
sleep 111
SendInput {home up}
} ; Открыть дверь полицейского участка при ее взломе. Если у вас это не Home, то меняете на свою кнопку.

IfInString, MY_REACTION_STRING, Введите /tm для согласия
{
Checkchat("/tm")
sleep 1111
} ; Принять материалы.

IfInString, MY_REACTION_STRING, Введите /tb для согласия
{
Checkchat("/tb")
sleep 1111
} ; Принять бланки.

Общие бинды.

— Прокачка навыка детектива.

Скрытый текст

Цитата

F1::
loop

{
Sendinput {f6}/find 0{enter}

sleep 130000

}

return

При нажатии кнопки бинд запускает цикл, который вводит /find 0 каждые 130 секунд. Отключить цикл можно просто перезапустив бинд.

— Турбо прокачка навыка детектива.

Скрытый текст

Цитата

F1::Reload

F2::
loop
{
LAUNCH()
WinWaitActive, GTA:SA:MP
sleep 15000
SendInput пароль

sleep 1000
Send {enter down}

sleep 100

Send {enter up}
sleep 1000
Send {esc down}
sleep 100
Send {esc up}
sleep 1000
SendInput {f6}/find 0{enter}
sleep 1000
LAUNCH()
sleep 5000
}
return

LAUNCH()
{
IfWinActive GTA:SA:MP
Sendinput {f6}/q{enter}
else
{
WinActivate, San Andreas Multiplayer 0.3.7
WinWaitActive, San Andreas Multiplayer 0.3.7
ControlClick, x60 y100, ahk_class TfmMain ;Select the server
ControlClick, x20 y60, ahk_class TfmMain ;Connect
}
}

Желательно использовать отдельным скриптом и с установленным crashes.asi для ускорения загрузки игры.

В тексте бинда нужно вписать свой пароль.

Нажатием F2 (игра при этом должна быть закрыта, а SAMP - открыт) активируется цикл, который запускает игру, логинится, прописывает команду /find, перезаходит в игру и так далее.

Для остановки цикла используйте F1.

На полную прокачку с 1 по 5 скилл уходит примерно 3.5 часа.

— Генератор паролей и автоматический ввод пароля.

Скрытый текст

Цитата

F1::
FileRead, MY_PASS, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password.txt
sleep 150
Sendinput %MY_PASS%
sleep 500
Sendinput {enter}
MY_PASS := ""
return

:?:/пароль::
sleep 200
FileRead, MY_PASS, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password.txt
Characters = abcdefghijklmnopqrstuvwxyz12345678901234567890
Filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password.txt
loop, 11
{
Random, My_PASS_CHAR, 1, 46
Fileappend, % SubStr(Characters, MY_PASS_CHAR, 1), %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password.txt
}
FileRead, MY_PASS_NEW, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password.txt
Sendinput {f6}/m{enter}
sleep 400
Sendinput {down}
sleep 200
Sendinput {enter}
sleep 200
Sendinput {enter}
sleep 1000
Sendinput %MY_PASS%{enter}
sleep 400
Sendinput %MY_PASS_NEW%{enter}
loop 3
{
sleep 250
Sendinput {esc}
}
Fileappend, %MY_PASS_NEW%%A_TAB%%A_DD%.%A_MM%.%A_YYYY% %A_Hour%:%A_Min%:%A_Sec%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password_log.txt
Fileappend, `n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password_log.txt
MY_PASS := ""
MY_PASS_NEW := ""
return

Для начала работы бинда нужно создать файл password.txt в папке сампа и скопировать туда ваш текущий пароль.

Далее командой /пароль в игре вы можете сменить пароль на новый, сгенерированный автоматически. Этот пароль будет записан в тот же файл password.txt в папке SAMP. После этого, при входе в игру, вы можете нажать F1 для автоматического ввода пароля.

Если вы использовали бинд, но пароль почему-либо не сменился (например, при лагах), то вы можете найти предыдущий пароль в файле Password_log.txt, который тоже находится в папке сампа и содержит все ваши предыдущие пароли и дату их смены.

— Быстрый /drink в баре.

Скрытый текст

Цитата

F2::
Sendinput {f6}/drink{enter}
sleep 50
loop 30
{
Send {space down}{space up}
}
return

При нажатии бинда вводится команда /drink и спамится пробел 30 раз, позволяя быстро попить.

— Быстрое доставание оружия из рюкзака.

Скрытый текст

Цитата

Numpad0::
Sendinput {f6}/bag{enter}
sleep 600
Click 1025, 300, 0
Click 2
sleep 100
Sendinput 30{enter}{esc}
Return

В строке Click 1025, 300, 0 цифры 1025 и 300 - это координаты ячейки, из которой будет доставаться оружие. Чтобы определить эти координаты на вашем мониторе, сделайте скриншот с открытым рюкзаком, откройте его в Paint и наведите курсор на ячейку - внизу показаны координаты курсора.

В строке Sendinput 30{enter}{esc} число 30 - это доставаемое количество патронов.

Если бинд работает некорректно (не успевает вовремя открыться рюкзак), увеличьте цифру в строке sleep 600 до 800 или 1000.

— Быстрое доставание оружия из рюкзака (универсальный бинд by Spikey).

Скрытый текст

1 слот рюкзака:


f11::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 50{enter}{esc}	; 50 - количество патронов для оружия в первом слоте
Return

2 слот рюкзака:


f12::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
MouseClick, Left, A_ScreenWidth/1.33+A_ScreenWidth/26.6, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33+A_ScreenWidth/26.6, A_ScreenHeight/2.56
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 10{enter}{esc}	; 10 - количество патронов для оружия во втором слоте
Return

Работает на любых разрешениях.

— Бинд "Согласен на все".

Скрытый текст

Цитата

^NumpadAdd::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
MY_CHATLOG = %A_Index%
MY_CHATLOG := (MY_CHATLOG - 16)
loop 16
{
   FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
   MY_CHATLOG +=1
   IfInString, MY_REPEAT_STRING, (введите /accept repair)
   {
   Sendinput {f6}/accept repair{enter}
   sleep 1100
   }
   IfInString, MY_REPEAT_STRING, вам дозаправку
   {
   Sendinput {f6}/accept refill{enter}
   sleep 1100
   }
   IfInString, MY_REPEAT_STRING, (принять - /accept mechanic)
   {
   Sendinput {f6}/accept mechanic{enter}
   sleep 1100
   }
   IfInString, MY_REPEAT_STRING, введите /accept drugs
   {
   Sendinput {f6}/accept drugs{enter}
   sleep 1100
   }
   IfInString, MY_REPEAT_STRING, (для согласия введите /accept car)
   {
   Sendinput {f6}/accept car{enter}
   sleep 1100
   }
   IfInString, MY_REPEAT_STRING, (для согласия введите /accept sex)
   {
   Sendinput {f6}/accept sex{enter}
   sleep 1100
   }
   IfInString, MY_REPEAT_STRING, Введите /accept ticket для оплаты штрафа
   {
   Sendinput {f6}/accept ticket{enter}
   sleep 1100
   }
}
return

При нажатии на кнопку, бинд читает последние 8 строк чата, и если видит, что вам предложили: ремонт или заправку механика, наркотики, оформление машины, секс или штраф - то он это принимает.

— Распределение скриншотов по папкам для написания отчетов.

Скрытый текст

Цитата

~F8::
sleep 3000

Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
   MY_CHATLOG = %A_Index%
   IfInString, A_LoopReadLine, Screenshot Taken -
       MY_SCREENSHOT := A_LoopReadLine
}
MY_CHATLOG := (MY_CHATLOG - 20)

FoundPos := RegExMatch(MY_SCREENSHOT, "Screenshot Taken - (.*)", MY_SCREENSHOT)
loop 20
{
   FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
   MY_CHATLOG +=1

   IfInString, MY_REPEAT_STRING, ] * Вы арестовали
       FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Аресты

   IfInString, MY_REPEAT_STRING, азаза
       FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Азаза

}
Return

Зеленым выделено количество строк, которое будет читаться, причем оно всегда в два раза меньше указанного. Сейчас там стоит 20 - значит, читаться будут последние 10 строк чата, и т.д. Не рекомендую ставить значение больше 40, чтобы бинд не находил в чате слишком старые сообщения.

Красным выделено ключевое слово, которое будет искаться. То есть, если я арестовал кого-то и бинд найдет текст "] * Вы арестовали" в последних 10 строках чата, он скопирует скриншот в папку, которую я создал.

Синим выделен путь папки, в которую будут копироваться скрины с найденным текстом. Папку нужно создать самому, иначе скриншотам будет некуда копироваться. В данном примере я в папке screens создал еще две - Аресты и Азаза, там и будут скриншоты. Вы можете создать любую папку где угодно, но нужно тогда указать здесь полный путь к ней.

Примечание:

- Не привязывайте бинд к другой кнопке.

- Бинд не трогает оригинальные скриншоты, которые лежат в папке screens, он просто копирует их в другую.

- Если бинд находит сразу несколько ключевых слов в чате, когда вы делаете скриншот, он скопирует его во все соответствующие папки.

- Если в чате не найдено ключевых слов, то бинд ничего не делает, и у вас получается просто скриншот, как обычно.

- Если вам нужно добавить ключевое слово, то просто вставьте еще две строки к остальным:

Цитата

IfInString, MY_REPEAT_STRING, Ключевое слово
FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Название папки

Таким образом, бинд полезен для скринов с арестами, обысками, чисткой ЧС, подачей объявлений, да и вообще любых событий, отображаемых в чате.

— Бинд детектива.

Скрытый текст

Цитата

Numpad0::
Sendinput {f6}/id{space}
Input, MY_TARGET, V, {enter}
sleep 100
return

Numpad1::
Sendinput {f6}/find %MY_TARGET%{enter}
return

Нажав Numpad0, вы вводите id игрока, которого хотите искать. Этот id запоминается в бинде, и потом кнопкой Numpad1 вы сразу ищете этого игрока.

— "Умные" смайлики.

Скрытый текст

Цитата

:?c:ЧВ::xD
:?c:чВ::xD
:?c:ЖВ:::D

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

— Канистра.

Скрытый текст

Цитата

^9::
if (MY_FUEL := !MY_FUEL)
Sendinput {f6}/fillcar{enter}
else
Sendinput {f6}/get fuel{enter}
return

Одной и той же кнопкой вы можете пополнять канистру и заправлять ей ваше ТС.

— Проверка баланса передачи денег.

Скрытый текст

Цитата

F2::
MY_BALANCE :=
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If A_LoopReadLine
{
StringSplit, MY_BALANCE, A_LoopReadLine, %A_Space%
IfInString, A_LoopReadLine, Вы приняли $
{
StringTrimLeft, MY_BALANCE5, MY_BALANCE5, 1
MY_BALANCE += MY_BALANCE5
}
IfInString, A_LoopReadLine, Вы передали $
{
StringTrimLeft, MY_BALANCE5, MY_BALANCE5, 1
MY_BALANCE -= MY_BALANCE5
}
}
}
Sendinput {f6}Баланс = %MY_BALANCE%
return

Бинд подсчитывает баланс между тем, сколько вы выплатили и получили денег через команду /pay. Если вы лицензер или торговец из мафии и часто принимаете деньги, бинд поможет определить, какую сумму вы или вам передали.

— Фильтровка чатлога.

Скрытый текст

Цитата

!Home::
SetBatchLines, -1
Supersearch =
InputBox, Supersearch, Supersearch, Введите элементы поиска. Используйте дефис "-" как разделитель , , 450, 150
If Supersearch
{
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt
FileSelectFile, SupersearchFile, , , Supersearch,
If SupersearchFile
{
SoundBeep, 600, 100
StringSplit, Supersearch, Supersearch, - ;, %A_SPACE%

Loop, Read, %SupersearchFile%
   Loop %Supersearch0%
       IfInString, A_LoopReadLine, % Supersearch%A_Index%
           {
           FileAppend, %A_LoopReadLine%`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt
           Break
           }
}
Loop %Supersearch0%
Supersearch%A_Index% =
}
SoundBeep, 400, 100
IfExist, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt
Run, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt
else MsgBox, Не найдено
Reload
return

Бинд позволяет отфильтровать чатлог или любой другой текстовый файл. Для работы бинда нужно создать папку с названием Filtered Logs в папке SAMP. Туда будут сохраняться результаты фильтровки.

Особенно пригодиться это может для сохранения логов РП отыгрышей, интервью, бесед, да и вообще чего угодно, чтобы из обычного чатлога с кучей ненужного мусора в виде /gov, /ad и прочего у вас получился красивенький чистый лог из того, что вам нужно.

При нажатии кнопки бинда появляется окно, куда вы вводите один или более элементов для поиска, которые должна содержать строка, чтобы быть записанной. После нажатия ОК в новом окне выберите файл, который будет фильтроваться. Звуковые сигналы отмечают начало и завершение фильтрации, обычно весь процесс занимает около секунды.

Примеры поиска:

[f] - Сохранит в новый файл только сообщения в /f чат (если, конечно, сочетание [f] не встретится еще где-то, но это редкость)

Ken_Guru-Popu_Gay - Сохранит только строки, где есть одно или оба из этих имен.

Ken_Guru-Объявление-[f]

(рация): ПРЕСТУПЛЕНИЕ-сбежал - покажет выдачу розыска и выход из игры в /toglogins.

И так далее, элементов поиска может быть сколько угодно, просто не забывайте разделять их дефисом.

Примечание: в некоторых случаях скрипт бывает чувствителен к регистру букв, поэтому вводить в поиске их желательно сохраняя порядок больших и маленьких букв.

— [VIP] Личные треки

Скрытый текст

Цитата

Numpad8::
SendInput {f6}/music{enter}
sleep 100
MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32
MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32
sleep 100
loop 10
{
loop 10
{
Sendinput {down}
sleep 20
}
sleep 100
SendInput {enter}
sleep 100
MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32
MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If A_LoopReadLine
MY_REPEAT_STRING := A_LoopReadLine
}
IfInString, MY_REPEAT_STRING, * Введите ссылку на трек
{
sleep 100
SendInput {esc}
sleep 100
SendInput {esc}
break
}
Else continue
}
return

Numpad9::
Sendinput {f6}/Music:{space}
Input, MY_INPUT, V, {enter}
If MY_INPUT
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Music.txt
   IfInString, A_LoopReadLine, %MY_INPUT%
   {
       Loop, Parse, A_LoopReadLine, %A_Space%
           IfInString, A_LoopField, mp3
               MY_INPUT := A_LoopField
       break
   }
sleep 1100
SendInput {f6}/music{enter}
sleep 100
MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32
MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32
sleep 100
SendInput {enter}
sleep 100
SendInput %MY_INPUT%{enter}
sleep 100
loop 10
{
Sendinput {down}
sleep 20
}
SendInput {enter}
sleep 100
SendInput {enter}
return

Данный бинд позволяет иметь под рукой больше, чем 10 личных треков. Для этого нужно записать ссылки на треки и их названия в текстовый файл music.txt и сохранить его в папке Мои документы/SAMP.

Пример:

Ayreon - Amazing Flight http://dl.waix.ru/fd8fe2e81.mp3
Ayreon - Dawn Of A Million Souls http://dl.waix.ru/6016a9dcd.mp3
Ayreon - Day Eight School http://dl.waix.ru/b4ec275c9.mp3

Нажав Numpad9, вы вводите частично или полностью название песни, которую хотите запустить. Она добавится в список ваших треков и запустится автоматически.

Чтобы очистить список треков в игре, нажмите Numpad8, и они будут удалены.

— Подача городских новостей (/gov)

Скрытый текст

Цитата

F3::
stroka1 = 1 строка
stroka2 = 2 строка
stroka3 = 3 строка
stroka4 = 4 строка

sleep 200
Sendinput {enter}
sleep 200
SendInput %stroka1%{enter}
sleep 200
SendInput {down}
sleep 200
SendInput {enter}
sleep 200
SendInput %stroka2%{enter}
sleep 200
SendInput {down}
sleep 200
SendInput {down}
sleep 200
SendInput {enter}
sleep 200
SendInput %stroka3%{enter}
sleep 200
Sendinput {down}
sleep 200
Sendinput {down}
sleep 200
Sendinput {down}
sleep 200
SendInput {enter}
sleep 200
SendInput %stroka4%{enter}
return

Вместо выделенного цветом текста вы вставляете текст городских новостей, потом в игре, когда вы открываете меню ввода строк, нажимаете на кнопку бинда, и он введет весь текст.

— Проверка на наличие игрока в БД, не сворачивая игру.

Скрытый текст

Цитата

:?:/БД::
SendInput /Проверить на БД:{space}
Input, MY_INPUT, V, {enter}
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://raw.githubusercontent.com/macropus9/GW-Ken_Guru/master/Noname", true)
whr.Send()
whr.WaitForResponse()
MY_BLACKLIST := whr.ResponseText
sleep 200
If MY_INPUT is number
{
sleep 900
SendInput {f6}/lvl %MY_INPUT%{enter}
sleep 300
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, A_LoopReadLine, ] ID: (
{
FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME)
MY_INPUT := MY_NAME1
}
}
IfInString, MY_BLACKLIST, %MY_INPUT%
SendInput {f6}%MY_INPUT% находится в БД^{vk41}
else
SendInput {f6}%MY_INPUT% не состоит в БД^{vk41}
MY_BLACKLIST :=
MY_NAME1 :=
return

Красным выделен url, на который должна быть залита БД в сыром виде, т.е. только текст. Например, на Github.com (см. пример). Как это сделать - писать лень, погуглите, если что. Редактировать БД может тот, кто ее туда залил. Бинд при этом обновлять не нужно, url остается прежним.

Работает по команде /БД [id/ник].

— Время последнего угона.

Скрытый текст

Цитата

:?:/угон::

sleep 200
JACKCAR :=
JACKCAR1 :=
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, A_LoopReadLine, Следующий заказ можно взять через 20 минут.
JACKCAR := A_LoopReadLine
RegExMatch(JACKCAR, "\[(.*)]", JACKCAR)
SendInput {f6}Последний угон совершен в %JACKCAR1%.^{vk41}
return

Команда /угон покажет время последней доставки угнанного авто в доки СФ

— Выдача warblock игрокам без GWAC.

Скрытый текст

Цитата

F1::
SendInput {f6}/members 2{enter}
sleep 555
FileRead, MY_CHATLOG, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringGetPos, MY_BL_POS, MY_CHATLOG, Члены Вашей организации онлайн:, R
StringTrimLeft, MY_CHATLOG, MY_CHATLOG, %MY_BL_POS%
sleep 555
Loop, Parse, MY_CHATLOG, `n
{
   If RegExMatch(A_LoopField, "\[id:(.*)\] - ", MY_MEMBERS)
   SendInput {f6}/checkgwac %MY_MEMBERS1%{enter}
   MY_MEMBERS1 :=
   sleep 1111
}
FileRead, MY_CHATLOG, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringGetPos, MY_BL_POS, MY_CHATLOG, Члены Вашей организации онлайн:, R
StringTrimLeft, MY_CHATLOG, MY_CHATLOG, %MY_BL_POS%
Loop, Parse, MY_CHATLOG, `n
{
   If RegExMatch(A_LoopField, "\] \* Античит у игрока (.*)\[.*\] не установлен.", MY_MEMBERS)
   {
   SendInput {f6}/warblock %MY_MEMBERS1% Нет античита{enter}
   sleep 1111
   }
}
return

Бинд проверит всех игроков вашей фракции на наличие GWAC и выдаст warblock тем, у кого его нет.

Бинды для ПО.

— Поиск игроков из /wanted.

Скрытый текст

Цитата

F10::
loop 100
{
   MY_WANTED_FIND%A_index% :=
}
Sendinput {f6}/wanted{enter}
sleep 500
MY_I :=
FileRead, MY_WANTED, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringGetPos, MY_CHATLOG, MY_WANTED, В РОЗЫСКЕ, R
StringTrimLeft, MY_WANTED, MY_WANTED, %MY_CHATLOG%
StringTrimLeft, MY_WANTED, MY_WANTED, 13
Loop, Parse, MY_WANTED, `n
{
   StringTrimLeft, MY_WANTED_STRING%A_index%, A_LoopField, 11
   Loop, Parse, MY_WANTED_STRING%A_index%, `., %A_space%
   {
       FoundPos := RegExMatch(A_LoopField, "\[(.*)\]", MY_WANTED_ID)
       If (MY_WANTED_ID1 >= 0)
       {

MY_I += 1
       MY_WANTED_FIND%MY_I% := MY_WANTED_ID1
}
   }
}
MY_I_COUNT := MY_I
MY_I :=
return

F11::
MY_I -= 1
If (MY_I > 0)
{
MY_FINAL_FIND := % MY_WANTED_FIND%MY_I%
Sendinput {f6}/find %MY_FINAL_FIND%{enter}
}
If (MY_I <= 0)
{
SoundBeep
MY_I := MY_I_COUNT
MY_FINAL_FIND := % MY_WANTED_FIND%MY_I%
Sendinput {f6}/find %MY_FINAL_FIND%{enter}
}
return

F12::
MY_I += 1
If (MY_I <= MY_I_COUNT)
{
MY_FINAL_FIND := % MY_WANTED_FIND%MY_I%
Sendinput {f6}/find %MY_FINAL_FIND%{enter}
}
If (MY_I > MY_I_COUNT)
{
SoundBeep
MY_I := 1
MY_FINAL_FIND := % MY_WANTED_FIND%MY_I%
Sendinput {f6}/find %MY_FINAL_FIND%{enter}
}
return

Кнопкой F10 вы можете смотреть /wanted, как обычно. Одновременно список игроков в розыске загружается в бинд. Кнопками F11 и F12 можно искать предыдущего игрока и следующего соответственно. Если нажимать F12, то вы будете искать, начиная с первого игрока в списке и далее. Если нажимать F11, то поиск будет идти в обратном порядке - начиная с конца списка. Если вы пошли искать по второму кругу списка, произойдет звуковой сигнал.

Если вы нашли кого-то поблизости таким образом, то можете открыть чат и нажать стрелку вверх, чтобы посмотреть его id и проверить, за что он в розыске и т.п.

— Изъятие всех лицензий на 7 дней.

Скрытый текст

Цитата

!7::
SendInput {f6}/take driverslicense 7{left 2}
Input, MY_ID, V, {enter}
If MY_ID
{
sleep 1100
SendInput {f6}/take gunlicense %MY_ID% 6{enter}
sleep 1100
SendInput {f6}/take flyinglicense %MY_ID% 7{enter}
sleep 1100
SendInput {f6}/take boatlicense %MY_ID% 7{enter}
}
return

Тут все просто - нажимаете на бинд, вводите id для изъятия прав, остальные лицензии бинд изымет сам (лицензию на оружие на 6 дней, чтобы избежать бага).

— Арест через ПКМ+h.

Скрытый текст

Цитата

~RButton & ~vk48:: ; RButton + H
sleep 300
SendInput {down down}{down up}
sleep 200
SendInput {down down}{down up}
sleep 200
SendInput {enter down}{enter up}
KeyWait, Enter, D, T10
sleep 200
SendInput {enter down}{enter up}
return

При аресте через ПКМ+h вы сразу перейдете к выбору срока ареста, после его ввода арест произойдет автоматически.

— Вооруженное нападение на ПО.

Скрытый текст

Цитата

Numpad7::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
   MY_CHATLOG = %A_Index%
MY_CHATLOG := (MY_CHATLOG - 20)
loop 20
{
FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
MY_CHATLOG +=1
   IfInString, MY_REPEAT_STRING, ] * Вы ударили тазером
   {
       MY_TAZER_STRING := MY_REPEAT_STRING
       FoundPos := RegExMatch(MY_TAZER_STRING, "\] \* Вы ударили тазером (.*),", MY_TAZER)
       SendInput {f6}/su %MY_TAZER1% 4 Вооруженное нападение на ПО(4){enter}

sleep 1100
       SendInput {f6}/take gunlicense %MY_TAZER1% 5{enter}
       sleep 1100
       SendInput {f6}/cuff %MY_TAZER1%{enter}
   }
}
return

Если в последних 10 строках есть сообщение, что вы кого-то ударили тазером. то при нажатии этого бинда данному гражданину выдастся розыск за вооруженное нападение на ПО, наденутся наручники и изымется лицензия на оружие на 5 дней.

Примечание: этот бинд конфликтует с биндом "Автонаручники", не используйте их вместе.

— [NGSA] Информация о последней лодке и конфискате.

Скрытый текст

Цитата

Numpad3::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ] [MATERIALS] Корабль с материалами покинул
MY_SHIP := A_LoopReadLine
IfInString, A_LoopReadLine, ] [MATERIALS] В неизвестный порт штата прибыл корабль
MY_SHIP := A_LoopReadLine
IfInString, A_LoopReadLine, ] [ARMY] Операция по конфискату склада
IfInString, A_LoopReadLine, окончена.
MY_SHIP := A_LoopReadLine
}
If MY_SHIP
{
IfInString, MY_SHIP, ] [MATERIALS] Корабль с материалами покинул
{
FoundPos := RegExMatch(MY_SHIP, "(.*) \[MATERIALS\] Корабль с материалами покинул штат.", MY_FINAL_SHIP)
SendInput {f6} Последняя лодка уплыла в %MY_FINAL_SHIP1%{home}
}
IfInString, MY_SHIP, ] [MATERIALS] В неизвестный порт штата прибыл корабль
{
FoundPos := RegExMatch(MY_SHIP, "(.*) \[MATERIALS\] В неизвестный порт штата прибыл корабль", MY_FINAL_SHIP)
SendInput {f6} Лодка находится с %MY_FINAL_SHIP1% в порту{space}
}
IfInString, MY_SHIP, ] [ARMY] Операция по конфискату
{
FoundPos := RegExMatch(MY_SHIP, "(.*) \[ARMY\] Операция по конфискату склада (.*) окончена.", MY_FINAL_SHIP)
SendInput {f6} Последний конфискат был на %MY_FINAL_SHIP2% в %MY_FINAL_SHIP1%{home}
}
}
else SendInput {f6} Не найдено.^{vk41}
Return

Бинд-памятка, читает чатлог и выдает в чат время ухода последней лодки или окончания последнего конфиската.

Бинды для мафий.

— Информация о контрабанде материалов.

Скрытый текст

Цитата

Numpad3::

Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ] [MATERIALS]
MY_SHIP := A_LoopReadLine
}
If MY_SHIP
{
RegExMatch(MY_SHIP, "(.*) \[MATERIALS\] (.*)", MY_SHIP)
SendInput {f6} %MY_SHIP1% %MY_SHIP2% {home}
}
else SendInput {f6} Не найдено.^{vk41}
return

При нажатии бинд читает ваш чатлог и выводит в чате последнее сообщение, связанное с контрабандой.

— Подсчет добытых материалов и бланков.

Скрытый текст

Цитата

:?:/маты::
MY_MATS_COUNT :=
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ] [MATERIALS]
       IfNotInString, A_LoopReadLine, Материалы покинули штат
           IfNotInString, A_LoopReadLine, _
               MY_MATS_COUNT :=
IfInString, A_LoopReadLine, пополнил склад материалами
       IfInString, A_LoopReadLine, ] [WAREHOUSE]
       {
       RegExMatch(A_LoopReadLine, "пополнил склад материалами \((.*) шт", MY_MATS)
       MY_MATS_COUNT += MY_MATS1
       }
}
If MY_MATS_COUNT
SendInput {space}Материалов добыто за последнюю контрабанду: %MY_MATS_COUNT% {home}
else
SendInput Не найдено.^{vk41}
return

:?:/бланки::
MY_BLANKS_COUNT :=
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ] [BLANKS PD] Был совершен взлом двери склада.
       IfNotInString, A_LoopReadLine, _
           MY_BLANKS_COUNT :=
IfInString, A_LoopReadLine, пополнил склад бланками
       {
       RegExMatch(A_LoopReadLine, "пополнил склад бланками \((.*) шт", MY_BLANKS)
       MY_BLANKS_COUNT += MY_BLANKS1
       }
}
If MY_BLANKS_COUNT
SendInput {space}Бланков добыто за последний раз: %MY_BLANKS_COUNT% {home}
else
SendInput Не найдено.^{vk41}
return

Этот бинд дает нам две команды - /маты и /бланки, введя которые и нажав пробел вы можете увидеть, сколько этих ресурсов вы добыли за последнюю операцию.

— Рейтинг бойцов (война за респавны).

Скрытый текст

Цитата

F11::

MY_FACTION = Yakuza
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
FileRead, MY_CHATLOG_FILE, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringGetPos, MY_CHATLOG, MY_CHATLOG_FILE, [RESP ALARM], R
StringTrimLeft, MY_CHATLOG_FILE, MY_CHATLOG_FILE, %MY_CHATLOG%

Loop, Parse, MY_CHATLOG_FILE, `n, `r
{
   MY_FELLOW1 :=
   IfInString, A_LoopField, [RESP WAR]
   FoundPos := RegExMatch(A_LoopField, ".*\s(.*)\[Yakuza\]", MY_FELLOW)
   IfInString, A_LoopField, [%MY_FACTION%] покинул поле боя
   FoundPos := RegExMatch(A_LoopField, ".*\s(.*) \[Yakuza\]", MY_FELLOW)

   If MY_FELLOW1
   IfNotInString, MY_RESULT, %MY_FELLOW1%
       {
   MY_RESPECT :=
   Loop, Parse, MY_CHATLOG_FILE, `n, `r
           {
       IfInString, A_LoopField, %MY_FELLOW1%[%MY_FACTION%] завалил
               {
               FoundPos := RegExMatch(A_LoopField, "$respect \+(.*)$", MY_RESP)
               MY_RESPECT += MY_RESP1
               }
       IfInString, A_LoopField, завалил %MY_FELLOW1%[%MY_FACTION%]
               {
               FoundPos := RegExMatch(A_LoopField, "$respect \+(.*)$", MY_RESP)
               MY_RESPECT -= MY_RESP1
               }
       IfInString, A_LoopField, %MY_FELLOW1% [%MY_FACTION%] покинул поле боя
               {
               FoundPos := RegExMatch(A_LoopField, "$уважение противника \+(.*)$", MY_RESP)
               MY_RESPECT -= MY_RESP1
               }
           }
   FileAppend, %MY_RESPECT% %MY_FELLOW1%.`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   FileRead, MY_RESULT, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
       }
}
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
Sort, MY_RESULT, NR
Loop, Parse, MY_RESULT, `n, `r
{
   If A_LoopField
   {
   StringSplit, MY_RESULT_FINAL, A_LoopField, %A_space%, `n
   FileAppend, %A_Index%.%A_Space%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   If MY_RESULT_FINAL1 > 0
       FileAppend, %MY_RESULT_FINAL2% (+%MY_RESULT_FINAL1%)`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   else
       FileAppend, %MY_RESULT_FINAL2% (%MY_RESULT_FINAL1%)`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   }
}
MY_CHATLOG_FILE :=
MY_RESULT :=
Soundbeep
return

F12::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
{
   if A_LoopReadLine
   {
   MY_REPEAT_STRING := A_LoopReadLine
   StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
   Sendinput {f6}/f %MY_REPEAT_STRING%{enter}
   sleep 1100
   }
}
return

Красным выделено название вашей мафии, оно должно точно совпадать с тем, как оно написано в сообщениях чата, когда ваш боец делает на захвате плюс или минус.

Первый бинд (в этом примере на F11) подсчитывает рейтинг за последний захват, результаты записываются в папку \SAMP\Рейтинг.txt.

Рейтинг бойца — это сумма его + и - во время захвата (включая минусы за выход из игры).

Второй бинд (F12) выводит весь рейтинг в /f чате.

— Бинд на закупку нарко с заполнением рюкзака.

Скрытый текст

Цитата

F1::
loop 2
{
SendInput {enter}
sleep 120
SendInput 98{enter}
sleep 200
Sendinput {f6}/bag{enter}
sleep 500
Click 852, 221, 0
Click
MouseClick, Left, A_ScreenWidth/1.2, A_ScreenHeight/3.47
MouseClick, Left, A_ScreenWidth/1.2, A_ScreenHeight/3.47
sleep 100
Sendinput {down}
sleep 100
Sendinput {enter}
sleep 100
Sendinput {enter}{esc}
sleep 3000
}
SendInput {enter}
sleep 120
SendInput 98{enter}
return

Бинд рассчитан на отсутствие лагов (т.е. когда рюкзак открывается быстро). Иначе лучше класть наркотики туда вручную.

— Замер изменений на складах мафий.

Скрытый текст

Цитата

Numpad8::
MDELTA(){
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
   IfInString, A_LoopReadLine, ] 1. La Cosa Nostra [Базы
RegExMatch(A_LoopReadLine, "Материалы: (.*); Эликсир жизни: (.*); Бланки: (.*);", MAFIA_L_START)
   IfInString, A_LoopReadLine, ] 2. Russian Mafia [Базы
RegExMatch(A_LoopReadLine, "Материалы: (.*); Эликсир жизни: (.*); Бланки: (.*);", MAFIA_R_START)
   IfInString, A_LoopReadLine, ] 3. Yakuza [Базы
RegExMatch(A_LoopReadLine, "\[(.*)\] .* Материалы: (.*); Эликсир жизни: (.*); Бланки: (.*);", MAFIA_Y_START)
}
sleep 500
SendInput {f6}/mafiatop{enter}
sleep 500
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
   IfInString, A_LoopReadLine, ] 1. La Cosa Nostra [Базы
RegExMatch(A_LoopReadLine, "Материалы: (.*); Эликсир жизни: (.*); Бланки: (.*);", MAFIA_L_FINISH)
   IfInString, A_LoopReadLine, ] 2. Russian Mafia [Базы
RegExMatch(A_LoopReadLine, "Материалы: (.*); Эликсир жизни: (.*); Бланки: (.*);", MAFIA_R_FINISH)
   IfInString, A_LoopReadLine, ] 3. Yakuza [Базы
RegExMatch(A_LoopReadLine, "Материалы: (.*); Эликсир жизни: (.*); Бланки: (.*);", MAFIA_Y_FINISH)
}

MAFIA_L_RESULT1 := (MAFIA_L_FINISH1-MAFIA_L_START1)
MAFIA_L_RESULT2 := (MAFIA_L_FINISH2-MAFIA_L_START2)
MAFIA_L_RESULT3 := (MAFIA_L_FINISH3-MAFIA_L_START3)

MAFIA_R_RESULT1 := (MAFIA_R_FINISH1-MAFIA_R_START1)
MAFIA_R_RESULT2 := (MAFIA_R_FINISH2-MAFIA_R_START2)
MAFIA_R_RESULT3 := (MAFIA_R_FINISH3-MAFIA_R_START3)

MAFIA_Y_RESULT1 := (MAFIA_Y_FINISH1-MAFIA_Y_START2)
MAFIA_Y_RESULT2 := (MAFIA_Y_FINISH2-MAFIA_Y_START3)
MAFIA_Y_RESULT3 := (MAFIA_Y_FINISH3-MAFIA_Y_START4)

SendInput {f6}С %MAFIA_Y_START1%: L: %MAFIA_L_RESULT1%, %MAFIA_L_RESULT2%, %MAFIA_L_RESULT3%. || R: %MAFIA_R_RESULT1%, %MAFIA_R_RESULT2%, %MAFIA_R_RESULT3%. || Y: %MAFIA_Y_RESULT1%, %MAFIA_Y_RESULT2%, %MAFIA_Y_RESULT3%.{space}
}
return

При нажатии бинд выведет в чат, на сколько материалов, наркотиков и бланков изменились склады всех мафий с последнего ввода команды /mafiatop.

— Отслеживание конфиската (УСТАРЕЛО).

Скрытый текст

Цитата

IfInString, MY_REACTION_STRING, ] [ARMY] Операция по конфискату склада Yakuza окончена.
{
   Checkchat("/u [MAFIA ALERT] Операция по конфискату склада Yakuza окончена.")
   sleep 1111
} ; Конфискат

IfInString, MY_REACTION_STRING, [MAFIA ALERT] Операция по конфискату склада
{
SetTimer, MY_KONFISKAT, -2100000
return
MY_KONFISKAT:
IfWinActive, GTA:SA:MP
{
   Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
   IfInString, A_LoopReadLine, [MAFIA ALERT] Операция по конфискату склада
       RegExMatch(A_LoopReadLine, "\[(.*)\] \[U\] .* \[MAFIA ALERT\] Операция по конфискату склада (.*) окончена.", MY_KONFISKAT)
   If !MY_KONFISKAT1
   MY_KONFISKAT1 := "[Неизвестно]"
   If !MY_KONFISKAT2
   MY_KONFISKAT2 := "[Неизвестно]"

   Checkchat("/u [MAFIA ALERT] Внимание{!} Через 5 минут будет возможен конфискат")
   sleep 1111
   Checkchat("/u [MAFIA ALERT] Последний конфискат был в (.1) на (.2)", MY_KONFISKAT1, MY_KONFISKAT2)
   sleep 1111
}
return
} ; Конфискат 2

IfInString, MY_REACTION_STRING, ] [MATERIALS] Корабль с материалами покинул штат.
{
SetTimer, MY_KONFISKAT, -2100000
return
} ; Конфискат 3

Эту часть кода нужно вставить в бинд реакции на чат. См инструкцию к тому бинду.

Вместо Yakuza при необходимости вставьте Russian Mafia или La Cosa Nostra, там должно быть название вашей мафии.

Данные реакции делают следующее:

- отписывают в чат /u сообщение об окончании конфиската на вашу мафию.

- через 35 минут после окончания лодки или последнего сообщения о закончившемся конфискате, в /u чат идет предупреждение, что конфискат возможен через 5 минут.

Цитата

F9::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
   IfInString, A_LoopReadLine, [MAFIA ALERT] Операция по конфискату склада
       RegExMatch(A_LoopReadLine, "\[(.*)] \ .* \[MAFIA ALERT\] Операция по конфискату склада (.*) окончена.", MY_KONFISKAT)

If !MY_KONFISKAT1
   MY_KONFISKAT1 := "[Неизвестно]"
If !MY_KONFISKAT2
   MY_KONFISKAT2 := "[Неизвестно]"
Sendinput {f6} [MAFIA ALERT] Последний конфискат был в %MY_KONFISKAT1% на %MY_KONFISKAT2%.{home}
return

А данный бинд позволяет проверить, когда и на кого был последний конфискат. Он ориентируется на сообщения в /u, генерируемые реакциями выше. Поэтому чем больше людей имеет этот бинд, тем точнее будет информация по конфискату.

Бинды для банд.

— Рейтинг бойцов (война за бизнесы).

Скрытый текст

Цитата

F11::

MY_FACTION = Название банды
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
FileRead, MY_CHATLOG_FILE, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringGetPos, MY_CHATLOG, MY_CHATLOG_FILE, псы напали на вашу территорию, R
StringGetPos, MY_CHATLOG2, MY_CHATLOG_FILE, начал захват бизнеса, R
If (MY_CHATLOG > MY_CHATLOG2)
StringTrimLeft, MY_CHATLOG_FILE, MY_CHATLOG_FILE, %MY_CHATLOG%
If (MY_CHATLOG < MY_CHATLOG2)
StringTrimLeft, MY_CHATLOG_FILE, MY_CHATLOG_FILE, %MY_CHATLOG2%

Loop, Parse, MY_CHATLOG_FILE, `n, `r
{
   IfInString, A_LoopField, [GANG NEWS]
   {
   FoundPos := RegExMatch(A_LoopField, ".*\s(.*)\[Название банды\]", MY_FELLOW)

   IfNotInString, MY_RESULT, %MY_FELLOW1%
       {
   MY_RESPECT :=
   Loop, Parse, MY_CHATLOG_FILE, `n, `r
           {
       IfInString, A_LoopField, %MY_FELLOW1%[%MY_FACTION%] завалил
               {
               FoundPos := RegExMatch(A_LoopField, "$respect \+(.*)$", MY_RESP)
               MY_RESPECT += MY_RESP1
               }
       IfInString, A_LoopField, завалил %MY_FELLOW1%[%MY_FACTION%]
               {
               FoundPos := RegExMatch(A_LoopField, "$respect \+(.*)$", MY_RESP)
               MY_RESPECT -= MY_RESP1
               }
       IfInString, A_LoopField, %MY_FELLOW1% [%MY_FACTION%] покинул поле боя
               {
               FoundPos := RegExMatch(A_LoopField, "$уважение противника \+(.*)$", MY_RESP)
               MY_RESPECT -= MY_RESP1
               }
           }
   FileAppend, %MY_RESPECT% %MY_FELLOW1%.`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   FileRead, MY_RESULT, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
       }
   }
}
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
Sort, MY_RESULT, NR
Loop, Parse, MY_RESULT, `n, `r
{
   If A_LoopField
   {
   StringSplit, MY_RESULT_FINAL, A_LoopField, %A_space%, `n
   FileAppend, %A_Index%.%A_Space%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   If MY_RESULT_FINAL1 > 0
       FileAppend, %MY_RESULT_FINAL2% (+%MY_RESULT_FINAL1%)`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   else
       FileAppend, %MY_RESULT_FINAL2% (%MY_RESULT_FINAL1%)`n, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
   }
}
MY_CHATLOG_FILE :=
MY_RESULT :=
Soundbeep
return

F12::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Рейтинг.txt
{
   if A_LoopReadLine
   {
   MY_REPEAT_STRING := A_LoopReadLine
   StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
   Sendinput {f6}/f %MY_REPEAT_STRING%{enter}
   sleep 1100
   }
}
return

Красным выделено название вашей банды, оно должно точно совпадать с тем, как оно написано в сообщениях чата, когда ваш боец делает на захвате плюс или минус.

Первый бинд (в этом примере на F11) подсчитывает рейтинг за последний захват, результаты записываются в папку \SAMP\Рейтинг.txt.

Подсчитывать рейтинг нужно ДО начала следующего захвата.

Рейтинг бойца — это сумма его + и - во время захвата (включая минусы за выход из игры).

Второй бинд (F12) выводит весь рейтинг в /f чате.

На данный момент бинд учитывает фраги только на захватах вашей банды, но не союзников.

— Флуд /zahvat.

Скрытый текст

Цитата

#MaxThreadsPerHotkey 3
F1::
#MaxThreadsPerHotkey 1
if SmartLoop
{
SmartLoop := false
return
}
SmartLoop := true
Loop
{
SendInput {f6}/zahvat{enter}
sleep 1050
if not SmartLoop
break
}
SmartLoop := false
Return

При нажатии бинд начинает флудить команду /zahvat каждую секунду. При повторном нажатии прекращает.

— Отпись в чат альянса о текущем счете захвата.

Скрытый текст

Цитата

#MaxThreadsPerHotkey 3
F2::
#MaxThreadsPerHotkey 1
if SmartLoop
{
SmartLoop := false
return
}
SmartLoop := true
Loop
{

Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, [GANG NEWS]
IfInString, A_LoopReadLine, respect
FoundPos := RegExMatch(A_LoopReadLine, "\) \| (.*)", MY_SCORE)
}
If MY_SCORE1 != MY_SCORE2
{
SendInput {f6}/u Счет: %MY_SCORE1%{enter}
MY_SCORE2 := MY_SCORE1
sleep 10000
}

if not SmartLoop
break
}
SmartLoop := false
Return

При нажатии бинд начинает отписывать текущий счет на захвате в /u каждые 10 секунд, если счет изменился. При повторном нажатии прекращает.

— Подсчет добытых биоматериалов.

Скрытый текст

Цитата

F1::
MY_BIO_COUNT :=
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
IfInString, A_LoopReadLine, ] * В Штате произошел выброс биоматериалов
MY_BIO_COUNT :=
IfInString, A_LoopReadLine, пополнил склад биоматериалами
   {
       RegExMatch(A_LoopReadLine, "пополнил склад биоматериалами $(.*) шт$", MY_BIO)
MY_BIO_COUNT += MY_BIO1
   }
}
If MY_BIO_COUNT
SendInput {f6} Биоматериалов добыто: %MY_BIO_COUNT%{home}
else SendInput {f6} Не найдено.^{vk41}
return

При нажатии бинд посчитает, сколько всего биоматериалов добыла ваша банда за последнюю операцию.

Прочее.

— Инструкция по команде RegExMatch (извлечение нужных слов из строки в переменную).

Скрытый текст


RegExMatch(Строка_в_которой_ищем, "шаблон_строки", массив_с_результатом)

Итак, если у нас есть переменная, содержащая строку, а нам нужно из этой строки вытащить какую-то часть в другую переменную - нам поможет Regexmatch. В скобках сначала мы указываем название строки, которая у нас есть. Далее в кавычках мы указываем, что именно нужно вытащить из этой строки - об этом чуть ниже. И в конце мы указываем название массива, где будут содержаться результаты.

Например: есть у нас в бинде строка MY_STRING, которая содержит "Мы рады видеть тебя на сервере, Ken_Guru!". А нам нужно, чтобы ник из этой строки загрузился в переменную, чтобы мы могли его дальше использовать.


RegExMatch(MY_STRING, "тебя на сервере, (.*)!", MY_MATCH)

Обратите внимание, что нам необязательно переписывать туда всю строку целиком. В кавычках мы попросту вставляем тот кусок строки, из которого хотим вытащить результат, и вместо нужного нам слова вставляем символы (.*). Поскольку в примере выше эти символы стоят как раз вместо ника, то есть между пробелом и восклицательным знаком, то именно ник у нас и будет содержаться в переменной MY_MATCH1. Откуда там взялась единичка? Она взялась потому, что результат записывается в массив, и результатов может быть сколько угодно - столько же, сколько раз мы вставим символы (.*) в строке, поэтому у каждого результата свой номер.

Например, если бы команда выглядела так:


RegExMatch(MY_STRING, "Мы рады видеть (.*) на сервере, (.*)!", MY_MATCH)

То и результатов было бы два:

MY_MATCH1 - тебя

MY_MATCH2 - Ken_Guru

Примечание: если в строке в кавычках у нас есть символы \.*?+[{|()^$ - то перед каждым из них мы должны поставить знак \

Ну и если что-то еще не совсем понятно в этом, приведу несколько примеров использования этой команды, для наглядности.


MY_REACTION_STRING := "[13:45:56] * Оформитель Sergey_Suroviy предлагает Вам оформить у него машину за $1 (для согласия введите /accept car)."
RegExMatch(MY_REACTION_STRING, "оформить у него машину за \$(.*) \(для", MY_MATCH)

Результат:
MY_MATCH1 содержит 1


MY_SCREENSHOT := "[13:25:54] Screenshot Taken - sa-mp-005.png"
RegExMatch(MY_SCREENSHOT, "Screenshot Taken - (.*)", MY_SCREENSHOT)

Результат:

MY_SCREENSHOT1 содержит sa-mp-005.png


STRING:= "[17:34:34] 1. La Cosa Nostra [Базы: 1; Казна: $768613469; Материалы: 1168634; Наркотики: 714842; Бланки: 400; Онлайн: 13]"
RegExMatch(STRING, "Материалы: (.*); Наркотики: (.*); Бланки: (.*);", MAFIA)

Результат:

MAFIA1 содержит 1168634

MAFIA2 содержит 714842

MAFIA3 содержит 400

PS:

На тему неправильного отображения текста в виде вопросиков или символов в чате. Я сам столкнулся с этой проблемой, обновив версию AHK.

Пофиксить это можно просто установив более старую версию.

1. Удаляем AHK.

2. Скачиваем инсталлер AHK версии 1.1.26.01 отсюда (ссылка с официального сайта).

3. Запускаем его, выбираем Custom Installation, далее ANSI-32 bit. Ставим галочку на пунктах "Install script compiler" и "Separate taskbar buttons".

**spikey** · July 5, 2016

18 минут назад, Kangaroo сказал:

Numpad0::
Sendinput {f6}/bag{enter}
sleep 600
Click 1025, 300, 0
Click 2
sleep 100
Sendinput 30{enter}{esc}
Return

1 слот рюкзака:

f11::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 50{enter}{esc}	; 50 - количество патронов для оружия в первом слоте
Return

2 слот рюкзака:

f12::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
MouseClick, Left, A_ScreenWidth/1.33+A_ScreenWidth/26.6, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33+A_ScreenWidth/26.6, A_ScreenHeight/2.56
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 10{enter}{esc}	; 10 - количество патронов для оружия во втором слоте
Return

Работает на любых разрешениях.

**Kangaroo** · July 5, 2016

11 минуту назад, Spikey сказал:

Пытался найти, но не нашел. Спасибо, добавил.)

**Kangaroo** · July 5, 2016

11 минуту назад, NaRKo_BiZnES сказал:

Сашка, сделай бинд для gov.

Например /gov (открываешь окошко), после чего открываешь время которое тебе нужно, и там 4 слота, и что бы в эти слоты можно было биндом автоматически сбить текст.

Думаю всем гос. будет полезно

Для этого мне нужно точно знать, что, как и когда там нажимается, а я этого не помню.

**Kangaroo** · July 5, 2016

Обновил бинд "Согласен на все", теперь он примет все, что вам предложили в последних строках, а не только первое предложение.

Добавил бинд "Вооруженное нападение на ПО".

Jonny_Watson · July 6, 2016

Цитата

Numpad7::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
   MY_CHATLOG = %A_Index%
MY_CHATLOG := (MY_CHATLOG - 20)
loop 20
{
FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
MY_CHATLOG +=1
   IfInString, MY_REPEAT_STRING, ] * Вы ударили тазером
   {
       MY_TAZER_STRING := MY_REPEAT_STRING
       FoundPos := RegExMatch(MY_TAZER_STRING, "\] \* Вы ударили тазером (.*),", MY_TAZER)
       SendInput {f6}/su %MY_TAZER1% 4 Вооруженное нападение на ПО(4){enter}
       sleep 1100
       SendInput {f6}/cuff %MY_TAZER1%{enter}
       sleep 1100
       SendInput {f6}/take gunlicense %MY_TAZER1% 5{enter}
   }
}
return

Если в последних 10 строках есть сообщение, что вы кого-то ударили тазером. то при нажатии этого бинда данному гражданину выдастся розыск за вооруженное нападение на ПО, наденутся наручники и изымется лицензия на оружие на 5 дней.

Примечание: этот бинд конфликтует с биндом "Автонаручники", не используйте их вместе.

-----------------------

Если ты наденешь наручники, то человек сможет двигаться, а это процентов 70, что лицензию будет невозможно изъять. Лучше сначала вставить лицензию, а потом наручники.

**Kangaroo** · July 6, 2016

47 минут назад, Jonny_Watson сказал:

-----------------------

Если ты наденешь наручники, то человек сможет двигаться, а это процентов 70, что лицензию будет невозможно изъять. Лучше сначала вставить лицензию, а потом наручники.

Логично, изменил.

**Al_Nothron** · July 9, 2016

Сделай ещё бинд для мафии, буду благодарен.

**Kangaroo** · July 9, 2016

1 час назад, Al_Nothron сказал:

Сделай ещё бинд для мафии, буду благодарен.

Если есть интересные идеи для биндов, обращайся.

**Al_Nothron** · July 9, 2016

Скажите бинд:

Чел пишет, Marco_Gioveze[22]: Как дела?

И я нажимаю например numpad2, и он копирует его текст: * [16:30:30] Marco_Gioveze[22]: Как дела?

SRDZ BOT · July 9, 2016

38 минут назад, Al_Nothron сказал:

Скажите бинд:

Чел пишет, Marco_Gioveze[22]: Как дела?

И я нажимаю например numpad2, и он копирует его текст: * [16:30:30] Marco_Gioveze[22]: Как дела?

Попугай, скинуть?

**Al_Nothron** · July 9, 2016

Только что, SRDZ BOT сказал:

Попугай, скинуть?

Да.

SRDZ BOT · July 9, 2016

1 минуту назад, Al_Nothron сказал:

Да.

скайп давай, так скину

**Al_Nothron** · July 9, 2016

Только что, SRDZ BOT сказал:

скайп давай, так скину

тут давай.

SRDZ BOT · July 9, 2016

4 минуты назад, Al_Nothron сказал:

Да.

скайп давай, так скину

F2::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    i=%A_Index%
}
FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, i-1
StringReplace, line, line, !, {!}, ,All
StringReplace, line, line, #, {#}, ,All
StringReplace, line, line, ^, {^}, ,All
StringReplace, line, line, +, {+}, ,All
StringTrimLeft, line, line, 11
sendinput, {f6}%line%{enter}
return
F1::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    i=%A_Index%
}
FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, i-1
StringTrimLeft, line, line, 11
IfInString, line, : 
{
    RegExMatch(line,"\Q: \E(.*)",line)
    StringTrimLeft, line, line, 2
}
StringReplace, line, line, !, {!}, ,All
StringReplace, line, line, #, {#}, ,All
StringReplace, line, line, ^, {^}, ,All
StringReplace, line, line, +, {+}, ,All
sendinput, {f6}%line%{enter}
return

Edited July 9, 2016 by SRDZ BOT
LIKE

Sign In

[AHK] Полезные бинды

Recommended Posts

Kangaroo

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Kangaroo

SRDZ BOT

Kangaroo

spikey

Kangaroo

Kangaroo

Kangaroo

Jonny_Watson

Kangaroo

Al_Nothron

Kangaroo

Al_Nothron

SRDZ BOT

Al_Nothron

SRDZ BOT

Al_Nothron

SRDZ BOT

Join the conversation

Recently Browsing 0 members

Kangaroo

SRDZ BOT

Kangaroo