Maxim_Kristofer Опубликовано: 5 мая 2017 Поделиться Опубликовано: 5 мая 2017 15 часов назад, Slava kotoriy Archie сказал: люди дайте ахк нарко f9::SendInput, {f6}/usedrugs{ENTER} Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Mr.Max Опубликовано: 7 мая 2017 Поделиться Опубликовано: 7 мая 2017 Может кто сделать бинд что бы херачило клавишу (стрелочка вверх) а не прост считало её зажатой Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Amanda Flow Опубликовано: 8 мая 2017 Поделиться Опубликовано: 8 мая 2017 (изменено) В 30.05.2016 в 1:10 PM, Banzai сказал: Суть бинда - сделать скриншот после определенного слов. Приггодится для тех кто делает отчет: чистит ЧС, для мафии отчет по продажам, хитманом при убийстве. ПО для отчета арестов. Надо только написать ключевое слово. Например Nurik_Banzai убил Ivan_Iavanov. Крепись братва ляляляля.... В бинд пишем слово Nurik_Banzai убил после этого текста делается скрин. Создайте бинд отдельно. Тоесть одно слово один ahk. И закиньте в автозагрузку чтоб не включать каждый раз. #SingleInstance force #IfWinActive GTA:SA:MP SelectedFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; тут путь к чатлогу filedelete, %SelectedFile% fileappend, %SelectedFile% lol: Loop, Read, %SelectedFile% { IfInString, A_LoopReadLine, Nurik_Banzai убил ; Nurik_Banzai убил это ключево слово меняйте на свое { Goto, lol2 } } goto, lol lol2: sleep, 500 ; SendPlay, {F8} reload return В 30.05.2016 в 3:08 PM, Kangaroo сказал: Автор забыл добавить, что данный бинд удаляет ваш чатлог после каждого срабатывания. Также нет необходимости создавать отдельный скрипт под каждое слово, достаточно добавлять их по такому шаблону: lol: Loop, Read, %SelectedFile% { IfInString, A_LoopReadLine, Nurik_Banzai убил ; ключевое слово №1 Goto, lol2 IfInString, A_LoopReadLine, Nurik_Banzai скушал ; ключевое слово №2 Goto, lol2 IfInString, A_LoopReadLine, Nurik_Banzai сел ; ключевое слово №3 Goto, lol2 IfInString, A_LoopReadLine, Nurik_Banzai умер ; ключевое слово №4 Goto, lol2 } goto, lol Изменено 8 мая 2017 пользователем Amanda Flow перенесено с отдельной темы Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Slava_Makar Опубликовано: 8 мая 2017 Поделиться Опубликовано: 8 мая 2017 Спасибо, работает Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Kostya98 Опубликовано: 8 мая 2017 Поделиться Опубликовано: 8 мая 2017 (изменено) В 08.05.2017 в 0:04 AM, Mr.Max сказал: Может кто сделать бинд что бы херачило клавишу (стрелочка вверх) а не прост считало её зажатой #SingleInstance, force #IfWinActive, GTA:SA:MP F1:: Sleep, 550 Loop { SendInput, {Up Down} SendInput, {Up Up} } F2:: Reload return Изменено 8 мая 2017 пользователем Kostya98 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
•Bad Boy• Опубликовано: 13 мая 2017 Поделиться Опубликовано: 13 мая 2017 Ребят,кто нибудь скиньте полностью все свои бинды в ахк. Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
strozza Опубликовано: 14 мая 2017 Поделиться Опубликовано: 14 мая 2017 9 часов назад, •Bad Boy• сказал: Ребят,кто нибудь скиньте полностью все свои бинды в ахк. Сам напросился... (читы убраны конечно) Скрытый текст #IfWinActive GTA:SA:MP F1:: SendMessage, 0x50,, 0x4190419,, A MY_TAZER_STATE := 0 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_STATE := 1 MY_TAZER_STRING := MY_REPEAT_STRING } IfInString, MY_REPEAT_STRING, ] * Вы надели наручники на { MY_TAZER_STATE := 0 MY_TAZER_STRING := MY_REPEAT_STRING } } If MY_TAZER_STATE { FoundPos := RegExMatch(MY_TAZER_STRING, "\] \* Вы ударили тазером (.*),", MY_TAZER) SendInput {f6}/cuff %MY_TAZER1%{enter} } else { SendInput {f6}/cuff{space} } return ^2:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 2 Неподчинение сотруднику ПО(2){space}{home}{right}{right}{right}{right} return ^5:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 5 Убийство гражданского(5){space}{home}{right}{right}{right}{right} return ^3:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 3 Вооp. нападение на гражданского(3){space}{home}{right}{right}{right}{right} return ^1:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 1 Оскорбление\Побои сотрудника ПО(1){space}{home}{right}{right}{right}{right} return ^6:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 6 Убийство сотрудника ПО(6){space}{home}{right}{right}{right}{right} return ^4:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 4 Воор. нападение на сотрудника ПО(4){space}{home}{right}{right}{right}{right} return #1:: SendInput, {F6}/take gunlicense{space} return #2:: SendInput, {F6}/take DriversLicense{space} return F5:: SendMessage, 0x50,, 0x4190419,, A sendInput, {F6}Благодарю за содействие,вы пока свободны...{enter} return F2:: SendMessage, 0x50,, 0x4190419,, A sendInput, {F6}Здравствуйте, меня зовут Strozza Golovorez.{enter} Sleep, 1100 sendInput, {F6}/me показал удостоверение агента FBI{Enter} Sleep, 1100 sendInput, {F6}/pas {space}{home}{right}{right}{right}{right}{right} Sleep, 2200 sendInput, {F6}/me показал ордер на проверку гражданина{Enter} Sleep, 1100 sendInput, {F6}Причина вашего задержания проверка документов.{Enter} Sleep, 1100 sendInput, {F6}Покажите пожалуйста паспорт и имеищиеся лицензии.{enter} return F3:: SendMessage, 0x50,, 0x4190419,, A sendInput, {F6}/me показал удостоверение агента FBI{enter} sleep 1100 ; sendInput, {F6}Вы находитесь в Федеральном розыске{enter} sleep 1100 ; sendInput, {F6}Я вам предлагаю cдаться,тем самым сократить себе срок заключения{enter} sleep 1100 ; sendInput, {F6}Жду вашего решения{enter} return F9:: SendMessage, 0x50,, 0x4190419,, A Sendinput, {F6}/meg С вами говорит сотрудник ФБР...{enter} Sleep, 1100 sendInput, {F6}/meg Гражданин, остановите автомобиль и прижмитесь к обочине.{enter} return F10:: SendMessage, 0x50,, 0x4190419,, A Sendinput, {f6}/me достал из левого кармана пиджака латексные перчатки и надел их на руки{Enter} Sleep, 1800 Sendinput, {f6}Пожалуйста, не пытайтесь сопротивляться, это лишь осложнит процедуру{!}{Enter} Sleep, 1800 Sendinput, {f6}/me похлопывая обеими руками по торсу оппонента начал тщательно обыскивать карманы{Enter} Sleep, 1800 Sendinput, {f6}/me снял латексные перчатки и убрал обратно в левый карман пиджака{Enter} Sleep, 1800 Sendinput, {f6}/frisk{Space} return vk05:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/q{enter} return XButton2:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}1{enter} Return NumpadAdd:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/heal{enter} sleep 1550 Sendinput {f6}/drink{enter} sleep 50 loop 50 { Send {space down}{space up} } return Numpad1:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/id{space} Input, MY_TARGET, V, {enter} sleep 100 return Numpad4:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/find %MY_TARGET%{enter} return Numpad2:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/inv{enter} Return NumpadSub:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/lock{enter} Return NumpadDiv:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/rentroom{enter} Return Numpad8:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/hopen{enter} Return Numpad5:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/arrest 1000 1 100000{space} return PgDn:: SendMessage, 0x50,, 0x4190419,, A Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { If A_LoopReadLine MY_REPEAT_STRING := A_LoopReadLine MY_CHATLOG := (A_Index-1) } StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 Clipboard := MY_REPEAT_STRING Sendinput {f6}%MY_REPEAT_STRING%^{vk41} return PgUp:: SendMessage, 0x50,, 0x4190419,, A MY_CHATLOG -= 2 FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG% StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All Sendinput {del}%MY_REPEAT_STRING%^{vk41} return Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
IT IS MARIO Опубликовано: 14 мая 2017 Поделиться Опубликовано: 14 мая 2017 1 час назад, strozza сказал: Сам напросился... (читы убраны конечно) Показать содержимое #IfWinActive GTA:SA:MP F1:: SendMessage, 0x50,, 0x4190419,, A MY_TAZER_STATE := 0 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_STATE := 1 MY_TAZER_STRING := MY_REPEAT_STRING } IfInString, MY_REPEAT_STRING, ] * Вы надели наручники на { MY_TAZER_STATE := 0 MY_TAZER_STRING := MY_REPEAT_STRING } } If MY_TAZER_STATE { FoundPos := RegExMatch(MY_TAZER_STRING, "\] \* Вы ударили тазером (.*),", MY_TAZER) SendInput {f6}/cuff %MY_TAZER1%{enter} } else { SendInput {f6}/cuff{space} } return ^2:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 2 Неподчинение сотруднику ПО(2){space}{home}{right}{right}{right}{right} return ^5:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 5 Убийство гражданского(5){space}{home}{right}{right}{right}{right} return ^3:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 3 Вооp. нападение на гражданского(3){space}{home}{right}{right}{right}{right} return ^1:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 1 Оскорбление\Побои сотрудника ПО(1){space}{home}{right}{right}{right}{right} return ^6:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 6 Убийство сотрудника ПО(6){space}{home}{right}{right}{right}{right} return ^4:: SendMessage, 0x50,, 0x4190419,, A SendInput, {F6}/su 4 Воор. нападение на сотрудника ПО(4){space}{home}{right}{right}{right}{right} return #1:: SendInput, {F6}/take gunlicense{space} return #2:: SendInput, {F6}/take DriversLicense{space} return F5:: SendMessage, 0x50,, 0x4190419,, A sendInput, {F6}Благодарю за содействие,вы пока свободны...{enter} return F2:: SendMessage, 0x50,, 0x4190419,, A sendInput, {F6}Здравствуйте, меня зовут Strozza Golovorez.{enter} Sleep, 1100 sendInput, {F6}/me показал удостоверение агента FBI{Enter} Sleep, 1100 sendInput, {F6}/pas {space}{home}{right}{right}{right}{right}{right} Sleep, 2200 sendInput, {F6}/me показал ордер на проверку гражданина{Enter} Sleep, 1100 sendInput, {F6}Причина вашего задержания проверка документов.{Enter} Sleep, 1100 sendInput, {F6}Покажите пожалуйста паспорт и имеищиеся лицензии.{enter} return F3:: SendMessage, 0x50,, 0x4190419,, A sendInput, {F6}/me показал удостоверение агента FBI{enter} sleep 1100 ; sendInput, {F6}Вы находитесь в Федеральном розыске{enter} sleep 1100 ; sendInput, {F6}Я вам предлагаю cдаться,тем самым сократить себе срок заключения{enter} sleep 1100 ; sendInput, {F6}Жду вашего решения{enter} return F9:: SendMessage, 0x50,, 0x4190419,, A Sendinput, {F6}/meg С вами говорит сотрудник ФБР...{enter} Sleep, 1100 sendInput, {F6}/meg Гражданин, остановите автомобиль и прижмитесь к обочине.{enter} return F10:: SendMessage, 0x50,, 0x4190419,, A Sendinput, {f6}/me достал из левого кармана пиджака латексные перчатки и надел их на руки{Enter} Sleep, 1800 Sendinput, {f6}Пожалуйста, не пытайтесь сопротивляться, это лишь осложнит процедуру{!}{Enter} Sleep, 1800 Sendinput, {f6}/me похлопывая обеими руками по торсу оппонента начал тщательно обыскивать карманы{Enter} Sleep, 1800 Sendinput, {f6}/me снял латексные перчатки и убрал обратно в левый карман пиджака{Enter} Sleep, 1800 Sendinput, {f6}/frisk{Space} return vk05:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/q{enter} return XButton2:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}1{enter} Return NumpadAdd:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/heal{enter} sleep 1550 Sendinput {f6}/drink{enter} sleep 50 loop 50 { Send {space down}{space up} } return Numpad1:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/id{space} Input, MY_TARGET, V, {enter} sleep 100 return Numpad4:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/find %MY_TARGET%{enter} return Numpad2:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/inv{enter} Return NumpadSub:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/lock{enter} Return NumpadDiv:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/rentroom{enter} Return Numpad8:: SendMessage, 0x50,, 0x4190419,, A sendinput, {f6}/hopen{enter} Return Numpad5:: SendMessage, 0x50,, 0x4190419,, A Sendinput {f6}/arrest 1000 1 100000{space} return PgDn:: SendMessage, 0x50,, 0x4190419,, A Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { If A_LoopReadLine MY_REPEAT_STRING := A_LoopReadLine MY_CHATLOG := (A_Index-1) } StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 Clipboard := MY_REPEAT_STRING Sendinput {f6}%MY_REPEAT_STRING%^{vk41} return PgUp:: SendMessage, 0x50,, 0x4190419,, A MY_CHATLOG -= 2 FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG% StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All Sendinput {del}%MY_REPEAT_STRING%^{vk41} return дерьмо бинд Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
strozza Опубликовано: 14 мая 2017 Поделиться Опубликовано: 14 мая 2017 47 минут назад, IT IS MARIO сказал: дерьмо бинд Устраивает) Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Популярное сообщение Kangaroo Опубликовано: 15 мая 2017 Автор Популярное сообщение Поделиться Опубликовано: 15 мая 2017 В 14.05.2017 в 8:00 AM, strozza сказал: Устраивает) Кстати, код типа {home}{right}{right}{right}{right} можно заменить на {home}{right 4} для удобства. В 13.05.2017 в 8:31 PM, •Bad Boy• сказал: Ребят,кто нибудь скиньте полностью все свои бинды в ахк. Скрытый текст #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory. #MaxHotkeysPerInterval 1000 StringCaseSense, Locale SetDefaultMouseSpeed, 0 /*############################################################### - FUNCTION NAMES - Language() - сменить язык на англ, после {enter} - обратно на русский. - Government(stroka_gov1, stroka_gov2, stroka_gov3, stroka_gov4) - подача /gov. */ ;############################################################### - FUNCTIONS Language() { sleep 80 SendMessage, 0x50,, 0x4090409,, A Keywait, Enter, D SendMessage, 0x50,, 0x4190419,, A } Government(stroka_gov1, stroka_gov2, stroka_gov3, stroka_gov4) { gov_height := (A_ScreenHeight/2.64) loop 4 { final_gov := % stroka_gov%A_Index% MouseClick, Left, A_ScreenWidth/2, gov_height MouseClick, Left, A_ScreenWidth/2, gov_height sleep 150 SendInput %final_gov%{enter} sleep 150 gov_height += (A_ScreenHeight/42.66) } return } ;############################################################## - MAIN SCRIPT MY_NOTE_READ = Я loop { IfWinNotExist, GTA:SA:MP { WinWaitActive, GTA:SA:MP MY_CHATLOG_DATE = %A_DD%.%A_MM%.%A_YYYY%%A_SPACE%%A_Hour%%A_SPACE%%A_Min% FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\_My_Chatlog_Date\My_Chatlog_Date.txt FileAppend, %MY_CHATLOG_DATE%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\_My_Chatlog_Date\My_Chatlog_Date.txt } else { FileRead, MY_CHATLOG_DATE, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\_My_Chatlog_Date\My_Chatlog_Date.txt WinWaitClose, GTA:SA:MP IfNotExist, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\%A_YYYY%%A_SPACE%%A_MM% FileCreateDir, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\%A_YYYY%%A_SPACE%%A_MM% FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\%A_YYYY%%A_SPACE%%A_MM%\%MY_CHATLOG_DATE%.txt, 1 } } return !Insert:: IfWinExist, chatlog.txt — Блокнот { WinClose, chatlog.txt — Блокнот } else Run, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt return RCtrl & F12:: IfWinActive GTA:SA:MP Sendinput {f6}/q{enter} else { IfWinNotExist, San Andreas Multiplayer 0.3.7 Run, E:\GTA SA\samp.exe 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 PostMessage, 0x112, 0xF060,,, ahk_class TfmMain ;Quit SAMP } return ^Home:: SetBatchLines, -1 Supersearch = InputBox, Supersearch, Supersearch, , , 450, 100 If Supersearch { SoundBeep, 600, 100 FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt Loop %A_MyDocuments%\GTA San Andreas User Files\SAMP\Zchatlog archive\*.txt, , 1 Loop, Read, %A_LoopFileLongPath%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt IfInString, A_LoopReadLine, %Supersearch%, FileAppend, %A_LoopFileName% %A_LoopReadLine%`n Loop, Read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Filtered Logs\%Supersearch%.txt IfInString, A_LoopReadLine, %Supersearch%, FileAppend, %MY_CHATLOG_DATE%.txt %A_LoopReadLine%`n 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, Не найдено } return !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, Не найдено } return vkAA:: ; Browser_Search ПАРОЛЬ FileRead, MY_PASS, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Password.txt sleep 150 Sendinput %MY_PASS%{enter} MY_PASS := "" return vkA8:: ; Browser_Refresh SoundBeep Reload return vkAB:: ; Browser_Favorites loop, read, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity Archive.txt { MY_CHARITY_COUNT := A_Index } MsgBox, % MY_CHARITY_COUNT return Capslock:: Send {vk12 down}{vk10}{vk12 up} ; Раскладка SoundBeep, 250, 100 return :?c:ЧВ::xD :?c:чВ::xD :?c:ЖВ:::D :?*c:Лут_Пгкг::Ken_Guru ;########################################################### SAMP #IfWinActive GTA:SA:MP ;================================================ F1-12 !Enter:: return !NumpadEnter:: return ;F1:: #MaxThreadsPerHotkey 3 F1:: #MaxThreadsPerHotkey 1 if SmartLoop { SmartLoop := false return } SmartLoop := true SendInput {f6}/Искать:{space} Input, MY_INPUT, V, {enter} Loop { sleep 1111 Sendinput {f6}/find %MY_INPUT%{enter} if not SmartLoop break } SmartLoop := false return /* Sendinput {f6}/inv{enter} */ return ^F1:: Sendinput {f6}/color{enter} return F2:: Sendinput {f6}/pm{space} return ^F2:: Sendinput {f6}/togwhisper{enter} return F3:: Sendinput {f6}/f{space} return ^F3:: Sendinput {f6}/togfam{enter} return F4:: Sendinput {f6}/j{space} return ^F4:: Sendinput {f6}/togjob{enter} return F5:: Sendinput {f6}/b{space} return ^F5:: Sendinput {f6}/s{space} return ~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, Ken_Guru внес 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\Причины ЧС SoundBeep } IfInString, MY_REPEAT_STRING, [BLACK LIST] Ken_Guru убил { FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Убийства ЧС SoundBeep } } return /* F9:: Sendinput {f6} return */ ^F9:: Sendinput {f6}/race 1000 Kangaroo Racing Club{enter} return F10:: loop 50 MY_BL%A_Index% := SendInput {f6}/bl{enter} sleep 600 FileRead, MY_CHATLOG, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt StringGetPos, MY_BL_POS, MY_CHATLOG, _[BLACK_LIST]_, R StringTrimLeft, MY_BL, MY_CHATLOG, %MY_BL_POS% StringTrimLeft, MY_BL, MY_BL, 42 Loop, Parse, MY_BL, `n { FoundPos := RegExMatch(A_LoopField, "\. (.*) \[id: .*\]; статус", MY_BL_NAME) If MY_BL_NAME1 MY_BL%A_Index% := MY_BL_NAME1 } MY_I := MY_BL := MY_CHATLOG := return ^F10:: Sendinput {f6}/members{enter} return F11:: Sendinput {f6}/toglogins{enter} return LCtrl & F11:: Sendinput {f6}/pl{enter} return RCtrl & F11:: SoundBeep 600, 100 Run, ipconfig.exe /release,,Hide sleep 9911 Run, ipconfig.exe /renew,,Hide SoundBeep 400, 100 return F12:: Sendinput {f6}/dl{enter} return LCtrl & F12:: Sendinput {f6}/stats{enter} return vkA6:: ; Browser_Back MY_I -= 1 If (MY_I > 0) { MY_BL_FIND := % MY_BL%MY_I% SendInput {f6}/find %MY_BL_FIND%{enter} MY_TARGET := MY_BL_FIND } else { MY_I += 1 SoundBeep } return vkA7:: ; Browser_Forward MY_I += 1 MY_BL_FIND := % MY_BL%MY_I% If MY_BL_FIND { SendInput {f6}/find %MY_BL_FIND%{enter} MY_TARGET := MY_BL_FIND } else { MY_I -= 1 MY_BL_FIND := % MY_BL%MY_I% SoundBeep } return vkAC:: ; Browser_Home Sendinput {f6}/clothes{enter} return vkB4:: ; Launch_Mail Sendinput {f6}/m{enter} return vkB1:: ; Media_Prev SoundBeep 600, 100 Run, ipconfig.exe /release,,Hide sleep 5000 Run, ipconfig.exe /renew,,Hide SoundBeep 400, 100 return vkAE:: ; Volume_Down SendInput {f6}/Время до{space} Input, MY_INPUT, V, {enter} sleep 1100 FileRead, MY_CHARITY_PPL, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity Archive.txt loop, read, %A_MyDocuments%\GTA San Andreas User Files\Charity\Name list.txt { IfNotInString, MY_CHARITY_PPL, %A_LoopReadLine% { SendInput {f6}/w %A_LoopReadLine% Отправьте любое смс на номер 888998 до %MY_INPUT%, чтобы получить 200.000$ в банк от фонда "ПОПО".{enter} sleep 1100 } } return vkAD:: ; Volume_Mute MY_CHARITY_MIN := 4 MY_CHARITY_MAX := 10 MY_CHARITY_AMOUNT := 200000 FileRead, MY_CHARITY, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity Archive.txt FileRead, MY_CHARITY2, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { IfInString, A_LoopReadLine, ] SMS: IfInString, A_LoopReadLine, `, Отправитель: { FoundPos := RegExMatch(A_LoopReadLine, "Отправитель: (.*) \(", MY_POOR) IfNotInString, MY_CHARITY, %MY_POOR1%`, IfNotInString, MY_CHARITY2, %MY_POOR1%`, { SendInput {f6}/lvl %MY_POOR1%{enter} sleep 500 MY_POOR_LVL1 := Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { IfInString, A_LoopReadLine, ) %MY_POOR1%; LVL: FoundPos := RegExMatch(A_LoopReadLine, "LVL: (.*)", MY_POOR_LVL) } If MY_POOR_LVL1 If (MY_CHARITY_MIN <= MY_POOR_LVL1 && MY_POOR_LVL1 <= MY_CHARITY_MAX) { loop, read, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity Archive.txt MY_CHARITY_COUNT := A_Index ; ############ РАСПИСАНИЕ ############# If (124 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 234) ; 22000к MY_CHARITY_COMMENT := "Mr.Johnny_Hobbs" If (234 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 239) ; 1000к MY_CHARITY_COMMENT := "Maksimilian_Gotti" If (239 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 329) ; 18000к MY_CHARITY_COMMENT := "Mr.Johnny_Hobbs" If (329 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 354) ; 5000к MY_CHARITY_COMMENT := "Jesus_Neymar" If (354 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 379) ; 5000к MY_CHARITY_COMMENT := "Evgeniy_Gotti" If (379 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 381) ; 400к MY_CHARITY_COMMENT := "Andrey_Amoralov" If (381 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 386) ; 1000к MY_CHARITY_COMMENT := "Toshiro_Kanburi" If (386 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 436) ; 10000к MY_CHARITY_COMMENT := "Aleksey_Gioveze" If (436 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 492) ; 11200к MY_CHARITY_COMMENT := "Pasha_Giotte" If (492 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 542) ; 10000к MY_CHARITY_COMMENT := "Mr.Johnny_Hobbs" If (542 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 557) ; 3000к MY_CHARITY_COMMENT := "Alex_Sylar" If (557 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 572) ; 3000к MY_CHARITY_COMMENT := "Anastasia_Hells" If (572 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 577) ; 1000к MY_CHARITY_COMMENT := "Sebastian_White" If (577 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 602) ; 5000к MY_CHARITY_COMMENT := "Joseph_White" If (602 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 607) ; 5000к MY_CHARITY_COMMENT := "Loren_Stug" If (607 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 608) ; 200к MY_CHARITY_COMMENT := "Ken_Guru" If (608 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 609) ; 200к MY_CHARITY_COMMENT := "Alexandr_Garikov" If (609 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 616) ; 1400к MY_CHARITY_COMMENT := "Freddy_Wallace" If (616 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 617) ; 200к MY_CHARITY_COMMENT := "Noah_Connor" If (617 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 652) ; 7000к MY_CHARITY_COMMENT := "Aleksey_Gioveze" If (652 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 654) ; 400к MY_CHARITY_COMMENT := "Ken_Guru" If (654 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 680) ; 3000к MY_CHARITY_COMMENT := "Ken_Guru" If (681 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 683) ; 400к MY_CHARITY_COMMENT := "Den_Rapsody" If (683 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 698) ; 3000к MY_CHARITY_COMMENT := "Groin_Visconti" If (698 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 741) ; Ken Guru MY_CHARITY_COMMENT := "Ken_Guru" If (741 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 751) ; 2000к MY_CHARITY_COMMENT := "Alex_Original" If (751 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 814) ; Ken Guru MY_CHARITY_COMMENT := "Ken_Guru" If (814 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 829) ; 3000k MY_CHARITY_COMMENT := "Emma_Wallace" If (829 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 853) ; Ken Guru MY_CHARITY_COMMENT := "Ken_Guru" If (853 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 878) ; 5000k MY_CHARITY_COMMENT := "Aleksey_Gioveze" If (878 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 884) ; Ken Guru MY_CHARITY_COMMENT := "Aleksey_Gioveze" If (884 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 904) ; 4000k MY_CHARITY_COMMENT := "Pasha_Giotte" If (904 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 932) ; Ken Guru MY_CHARITY_COMMENT := "Ken_Guru" If (932 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 947) ; 3000k MY_CHARITY_COMMENT := "Emma_Wallace" If (947 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 957) ; 2000k MY_CHARITY_COMMENT := "Ekaterina_Surovaya" If (957 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 958) ; 200k MY_CHARITY_COMMENT := "Leo_Flame" If (958 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 970) ; 2400k MY_CHARITY_COMMENT := "Alex_Sylar" If (970 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 980) ; 2000k MY_CHARITY_COMMENT := "Anastasia_Hells" If (980 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 1071) ; 18200k MY_CHARITY_COMMENT := "Kudax_Tax" If (1071 <= MY_CHARITY_COUNT && MY_CHARITY_COUNT < 9999) ; Ken Guru MY_CHARITY_COMMENT := "Ken_Guru" ;####################################################################### sleep 100 Click, 344, 344, 0 Click 2 sleep 500 Click, 344, 310, 0 Click 2 sleep 500 Sendinput %MY_POOR1%{enter} sleep 500 Sendinput %MY_CHARITY_AMOUNT%{enter} sleep 500 Sendinput Деньги от %MY_CHARITY_COMMENT%. sleep 500 Sendinput {enter} sleep 500 Sendinput {enter} sleep 100 SendInput {f6}/pm %MY_POOR1% Поздравляю, вы получили бонус от %MY_CHARITY_COMMENT%. Забрать деньги можно в любом банке.{enter} sleep 1200 FileAppend, %A_DD%.%A_MM%.%A_YYYY%%A_SPACE%%A_Hour%:%A_Min%:%A_Sec% - %MY_POOR1%`,`n, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity Archive.txt FileRead, MY_CHARITY, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity Archive.txt FileAppend, %A_DD%.%A_MM%.%A_YYYY%%A_SPACE%%A_Hour%:%A_Min%:%A_Sec% - %MY_POOR1%`,`n, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt FileRead, MY_CHARITY2, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt } else sleep 800 If (MY_POOR_LVL1 < MY_CHARITY_MIN || MY_POOR_LVL1 > MY_CHARITY_MAX) { IfNotInString, MY_CHARITY, %MY_POOR1%`, IfNotInString, MY_CHARITY2, %MY_POOR1%`, SendInput {f6}/pm %MY_POOR1% Акция проводится только для игроков от %MY_CHARITY_MIN% до %MY_CHARITY_MAX% уровня.{enter} sleep 1200 FileAppend, %A_DD%.%A_MM%.%A_YYYY%%A_SPACE%%A_Hour%:%A_Min%:%A_Sec% - %MY_POOR1%`,`n, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt FileRead, MY_CHARITY2, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt } } IfInString, MY_CHARITY, %MY_POOR1%`, IfNotInString, MY_CHARITY2, %MY_POOR1%`, { SendInput {f6}/pm %MY_POOR1% Вы уже получали бонус раньше, он выдается только один раз. Получить его можно в любом банке.{enter} sleep 1200 FileAppend, %A_DD%.%A_MM%.%A_YYYY%%A_SPACE%%A_Hour%:%A_Min%:%A_Sec% - %MY_POOR1%`,`n, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt FileRead, MY_CHARITY2, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity wrong.txt } } } return vkB3:: ; Media_Play_Pause Pause return vkB2:: ; Media_Stop loop 10 { Sendinput {vk57 down} sleep 50 } return vkAF:: ; Volume_Up loop, read, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Рейтинг.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 vkB0:: ; Media_Next MY_FACTION = Yakuza FileDelete, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Рейтинг.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\Speeches\Рейтинг.txt FileRead, MY_RESULT, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Рейтинг.txt } } FileDelete, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Рейтинг.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\Speeches\Рейтинг.txt If MY_RESULT_FINAL1 > 0 FileAppend, %MY_RESULT_FINAL2% (+%MY_RESULT_FINAL1%)`n, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Рейтинг.txt else FileAppend, %MY_RESULT_FINAL2% (%MY_RESULT_FINAL1%)`n, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Рейтинг.txt } } MY_NOTE_READ = Рейтинг MY_CHATLOG_FILE := MY_RESULT := Soundbeep return vkC0:: ; ~ loop 20 Send {RButton down}{RButton up} return #MaxThreadsPerHotkey 3 ~LButton & vkC0 :: ; LButton + ~ - езда на велосипеде. #MaxThreadsPerHotkey 1 SoundBeep if SmartLoop { SmartLoop := false return } SmartLoop := true Loop { Send {vk57 down} sleep 30 Send {vk57 up} sleep 30 if not SmartLoop break } SmartLoop := false return ;================================================ Alt + цифры !1:: SendInput {f6}/stopanim{enter} return !2:: Sendinput {f6}/anim Language() return !3:: return !4:: SendInput {f6}/handsup{enter} return !5:: Sendinput {f6}/rentroom{enter} return !6:: Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt If A_LoopReadLine IfInString, A_LoopReadLine, Пресса MY_WORD := A_LoopReadLine Loop, Parse, MY_WORD, %a_space% { If (Strlen(A_LoopField)>2) { IfInString, A_LoopField, . { MY_WORD_FINAL := A_LoopField Sort MY_WORD_FINAL, D. StringReplace, MY_WORD_FINAL, MY_WORD_FINAL, ., , 1 break } IfInString, A_LoopField, / { MY_WORD_FINAL := A_LoopField Sort MY_WORD_FINAL, D/ StringReplace, MY_WORD_FINAL, MY_WORD_FINAL, /, , 1 break } IfInString, A_LoopField, - If (StrLen(A_LoopField) > 1) { MY_WORD_FINAL := A_LoopField Sort MY_WORD_FINAL, D- StringReplace, MY_WORD_FINAL, MY_WORD_FINAL, -, , 1 break } } } Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\word_rus.txt { If (StrLen(MY_WORD_FINAL) = StrLen(A_LoopReadLine)) { MY_WORD_MB := Loop, Parse, A_LoopReadLine MY_WORD_MB .= a_loopfield . "`n" Sort, MY_WORD_MB StringReplace, MY_WORD_MB, MY_WORD_MB, `n, , 1 If (MY_WORD_FINAL = MY_WORD_MB) { SendInput {f6}/w 163 %A_LoopReadLine%{enter} return } } } SoundBeep return !7:: Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt If A_LoopReadLine { IfInString, A_LoopReadLine, ] Репортёр IfInString, A_LoopReadLine, / SIMON := A_LoopReadLine } StringGetPos, SIMON_POS, SIMON, / StringMid, SIMON, SIMON, (SIMON_POS+1) Sendinput {f6}%SIMON%{enter} Soundbeep Return !8:: Sendinput {f6}/exit{enter} return !9:: Sendinput {f6}/heal{enter} return !0:: Sendinput {f6}/drink{enter} sleep 50 loop 30 Send {LAlt down}{LAlt up} return !-:: Sendinput {f6}}/duty{enter} return !=:: Sendinput {f6}/pay{space} Language() return ;=============================================================================== ;================================================ Ctrl + цифры ;=============================================================================== ^1:: Sendinput {f6}/id{space} Language() return ^2:: Sendinput {f6}/lvl{space} Language() return ^3:: Sendinput {f6}/checkbl{space} Language() return ^4:: Sendinput {f6}/repair 1{left 2} Language() Return ^5:: Sendinput {f6}/refill 1{left 2} Language() Return ^6:: Sendinput {f6}Заправить, починить?{enter} Return ^7:: Sendinput {f6}/quitjob{enter} Return ^8:: MY_START: Random, MY_RANDOM, 1, 13 If (MY_RANDOM <> MY_RANDOM_OLD) { if MY_RANDOM = 1 Sendinput {f6}/s Водить учись, чайник{enter} if MY_RANDOM = 2 Sendinput {f6}/s Водить учись, дятел{enter} if MY_RANDOM = 3 Sendinput {f6}/s Водить учись, пенёк{enter} if MY_RANDOM = 4 Sendinput {f6}/s Водить учись, дурила{enter} if MY_RANDOM = 5 Sendinput {f6}/s Водить учись, балбес{enter} if MY_RANDOM = 6 Sendinput {f6}/s Водить учись, дубина{enter} if MY_RANDOM = 7 Sendinput {f6}/s Водить учись, бревно{enter} if MY_RANDOM = 8 Sendinput {f6}/s Водить учись, оболтус{enter} if MY_RANDOM = 9 Sendinput {f6}/s Водить учись, свинья{enter} if MY_RANDOM = 10 Sendinput {f6}/s Водить учись, скотина{enter} if MY_RANDOM = 11 Sendinput {f6}/s Водить учись, хамло{enter} if MY_RANDOM = 12 Sendinput {f6}/s Водить учись, баран{enter} if MY_RANDOM = 13 Sendinput {f6}/s Водить учись, ишак{enter} MY_RANDOM_OLD := MY_RANDOM } else goto MY_START Return ^9:: if (MY_FUEL := !MY_FUEL) Sendinput {f6}/fillcar{enter} else Sendinput {f6}/get fuel{enter} return ^0:: SendInput {f6}/music{enter} sleep 100 ;Click 330, 330, 0 ; Личные треки ;Click 2 MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32 MouseClick, Left, A_ScreenWidth/3.1, A_ScreenHeight/2.32 sleep 100 loop 11 { loop 10 { Sendinput {down} sleep 20 } sleep 100 SendInput {enter} sleep 100 ;Click 330, 330, 0 ; Удалить ;Click 2 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 ^-:: Sendinput {f6}/Music:{space} sleep 80 SendMessage, 0x50,, 0x4090409,, A Input, MY_INPUT, V, {enter} SendMessage, 0x50,, 0x4190419,, A sleep 200 If MY_INPUT { BlockInput, On Loop, read, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Муз.txt IfInString, A_LoopReadLine, %MY_INPUT% { Loop, Parse, A_LoopReadLine, %A_Space% IfInString, A_LoopField, mp3 MY_INPUT := A_LoopField break } sleep 900 SendInput {f6}/music{enter} sleep 100 ;Click 330, 330, 0 ; Личные треки ;Click 2 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} BlockInput, Off } return ^=:: SendInput {f6}%A_ScreenWidth% x %A_ScreenHeight% return ;=============================================================================== ;================================================ Разное + буквы ;=============================================================================== *MButton:: Sendinput {f6}/knockdown %MY_TARGET%{enter} return ~RButton & ~LButton:: KeyWait, RButton Send {LButton up} sleep 30 Send {vk43 down} sleep 20 Send {vk43 up} return ~LButton & ~RButton:: KeyWait, RButton Send {LButton up} sleep 30 Send {vk43 down} sleep 20 Send {vk43 up} return ~$WheelUp:: If GetKeyState("RButton", "P") loop 5 Sendinput {WheelUp} return ~$WheelDown:: If GetKeyState("RButton", "P") loop 5 Sendinput {WheelDown} return ~PgUp:: If GetKeyState("LButton", "P") loop 50 Send {WheelUp down}{WheelUp up} return ~PgDn:: If GetKeyState("LButton", "P") loop 50 Send {WheelDown down}{WheelDown up} return /* ~Space & ~vk57:: ~Space & ~vk41:: ~Space & ~vk53:: ~Space & ~vk44:: ~vk57 & ~Space:: ~vk41 & ~Space:: ~vk53 & ~Space:: ~vk44 & ~Space:: */ /* ~Space:: While GetKeyState("Space", "P") Send {LAlt down}{LAlt up} return */ ~vk57 & ~vk45:: ; W+E Send {LAlt down}{LAlt up} return vkE2:: ; |\ Sendinput {f6}/stopanim{enter} return !LControl:: return ^LAlt:: Sendinput {f6}/knockdown{space} Language() return ^vk52:: ; CTRL+R Sendinput {f6}Стоять{!} Ни с места, или стреляю{!}{enter} return !vk52:: ; Alt+R Sendinput {f6}Сдаюсь{!} Не стреляйте.{enter} return !vk5A:: ; Z Sendinput {f6}/animped{space} return !vk58:: ; X Sendinput {f6}/animfightc{space} return !vk43:: ; C Sendinput {f6}/animcrack{space} return !vk42:: ; B Sendinput {f6}/animotb{space} return !vk4E:: ; N Sendinput {f6}/animbsp{space} return ^vk5A:: ; Ctrl+Z FileRead, MY_SONG, %A_MyDocuments%\GTA San Andreas User Files\SAMP\My Song.txt StringSplit, MY_SONG, MY_SONG, `n Random, MY_RANDOM, 1, %MY_SONG0% MY_REPEAT_STRING := MY_SONG%MY_RANDOM% Sendinput {f6}%MY_REPEAT_STRING%{enter} loop %MY_SONG0% { MY_SONG%A_index% := } MY_SONG := return ^vk42:: ; Ctrl+B Sendinput {f6}/bag{enter} return ^vk50:: ; Ctrl+P Sendinput {f6}/p{enter} return ^vk48:: ; Ctrl+H Sendinput {f6}/h{enter} return ^vk4D:: ; Ctrl+M Sendinput {f6}/me{space} return ~lctrl & up:: Sendinput {f6}/pagesize 10{enter} return ~lctrl & down:: Sendinput {f6}/pagesize 20{enter} return ~lctrl & left:: Sendinput {f6}/fpslimit 20{enter} return ~lctrl & right:: Sendinput {f6}/fpslimit 60{enter} return ;=============================================================================== ;================================================ Numpad знаки ;=============================================================================== NumpadDiv:: Sendinput {f6}/id %MY_TARGET%{enter} return ^NumpadDiv:: Sendinput {f6}/music{enter} return NumpadMult:: Sendinput {f6}/find %MY_TARGET%{enter} return ^NumpadMult:: Sendinput {f6}/togfm{enter} return NumpadSub:: Sendinput {f6}/find{space} Language() return ^NumpadSub:: SendMessage, 0x50,, 0x4090409,, A Sendinput {f6}/id{space} Input, MY_TARGET, V, {enter} sleep 100 SendMessage, 0x50,, 0x4190419,, A Soundbeep 400, 100 return NumpadAdd:: Sendinput {f6}/usedrugs{enter} return ^NumpadAdd:: Sendinput {f6}/bluedrugs{enter} return !NumpadAdd:: Click 811, 304, 0 Click 2 sleep 150 Sendinput 1{enter} sleep 150 SendInput {f6}/usedrugs{enter} return NumpadEnter:: Sendinput {f6}{up}{enter} return ^NumpadEnter:: Sendinput {f6}{up}{up}{enter} return NumpadDot:: Sendinput {f6}/lock{enter} sleep 1100 Sendinput {f6}/lock{enter} return ^NumpadDot:: Sendinput {f6}/lock{enter} return ;=============================================================================== ;================================================ Numpad and Ctrl+Numpad ;=============================================================================== Numpad0:: Random, MY_RANDOM, 1, 6 if MY_RANDOM = 1 Sendinput {f6}Фермеры помнят о тебе, редиска.{enter} if MY_RANDOM = 2 Sendinput {f6}Фермеры - люди злопамятные.{enter} if MY_RANDOM = 3 Sendinput {f6}Фермеры о тебе не забыли, сорняк.{enter} if MY_RANDOM = 4 Sendinput {f6}Ты фермерам задолжал денег, дружище.{enter} if MY_RANDOM = 5 Sendinput {f6}Зря ты перешел дорогу фермерам.{enter} if MY_RANDOM = 6 Sendinput {f6}Фермеры не простили тебя.{enter} Return ^Numpad0:: Random, MY_RANDOM, 1,5 if MY_RANDOM = 1 Sendinput {f6}Эй, водила, тормози у обочины{!}{enter} if MY_RANDOM = 2 Sendinput {f6}Эй, притормози-ка{!}{enter} if MY_RANDOM = 3 Sendinput {f6}Тормози, эу{!}{enter} if MY_RANDOM = 4 Sendinput {f6}Стой, водила{!}{enter} if MY_RANDOM = 5 Sendinput {f6}Тормози у обочины{!}{enter} Return Numpad1:: SendInput {f6}/sm{enter} return ^Numpad1:: SendInput {f6}/bm 200{enter} return Numpad2:: SendInput {f6}/bl Нападение{left 10} return ^Numpad2:: SendInput {f6}/bl{space} return Numpad3:: SendInput {f6}/prisoners{enter} return ^Numpad3:: SendInput {f6}/order{space} return Numpad4:: Sendinput {f6}/eject{space} Language() Return ^Numpad4:: Sendinput {f6}/steal{space} Language() Return Numpad5:: Sendinput {f6}/tie{space} Language() Return ^Numpad5:: Sendinput {f6}/untie{space} Language() Return Numpad6:: Sendinput {f6}/gag{space} Language() Return ^Numpad6:: Sendinput {f6}/ungag{space} Language() Return Numpad7:: Sendinput {f6}/at{enter} return ^Numpad7:: Sendinput {f6}/dt{enter} return Numpad8:: Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { If A_LoopReadLine MY_REPEAT_STRING := A_LoopReadLine } StringSplit, MY_REPEAT_STRING_ARRAY, MY_REPEAT_STRING, %A_Space% IfInString, MY_REPEAT_STRING, ] PM < StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 else { StringGetPos, MY_REPEAT_STRING_POS, MY_REPEAT_STRING, :, L3 If Errorlevel = 0 StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, (MY_REPEAT_STRING_POS+2) else StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 } StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All Sendinput {f6}%MY_REPEAT_STRING%{enter} return ^Numpad8:: Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { If A_LoopReadLine MY_REPEAT_STRING := A_LoopReadLine } StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All Sendinput {f6}%MY_REPEAT_STRING%{enter} return Numpad9:: Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { If A_LoopReadLine MY_REPEAT_STRING := A_LoopReadLine MY_CHATLOG := (A_Index-1) } StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 Clipboard := MY_REPEAT_STRING StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All Sendinput {f6}%MY_REPEAT_STRING%^{vk41} Soundbeep return ^Numpad9:: MY_CHATLOG -= 2 FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG% StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11 StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All Sendinput {del}%MY_REPEAT_STRING%^{vk41} return ;=============================================================================== ;================================================ Alt + Numpad ;=============================================================================== lalt & Numpad0:: Sendinput {f6}/bag{enter} sleep 600 Click 771, 306, 0 Click 2 sleep 150 Sendinput 42{enter}{esc} Return lalt & Numpad1:: Sendinput {f6}/bag{enter} sleep 500 Click 852, 220, 0 Click sleep 150 Sendinput {enter} Return lalt & Numpad2:: Sendinput {f6}/bag{enter} sleep 500 Click 811, 304, 0 Click 2 sleep 300 Sendinput {enter}{esc} Return lalt & Numpad3:: Sendinput {f6}/bag{enter} sleep 500 Click 852, 221, 0 Click sleep 150 SendInput {down} sleep 150 SendInput {enter} sleep 150 Sendinput {enter}{esc} Return lalt & Numpad4:: Sendinput {f6}/bag{enter} sleep 600 Click 771, 306, 0 Click 2 sleep 150 Sendinput 42{enter} sleep 150 Click 771, 356, 0 Click 2 sleep 150 Sendinput 20{enter}{esc} return lalt & Numpad5:: Sendinput {f6}/Music:{space} sleep 80 SendMessage, 0x50,, 0x4090409,, A Input, MY_INPUT, V, {enter} SendMessage, 0x50,, 0x4190419,, A sleep 200 If MY_INPUT Loop, read, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Муз.txt { IfInString, A_LoopReadLine, %MY_INPUT% { SendInput {f6}%A_LoopReadLine% MY_NOTE_READ = Муз MY_NOTE_CURRENT := A_Index break } } return lalt & Numpad6:: Sendinput {f6}/ПОПО:{space} sleep 80 SendMessage, 0x50,, 0x4090409,, A Input, MY_INPUT, V, {enter} SendMessage, 0x50,, 0x4190419,, A sleep 200 If MY_INPUT Loop, read, %A_MyDocuments%\GTA San Andreas User Files\Charity\Charity archive.txt IfInString, A_LoopReadLine, %MY_INPUT% { SendInput {f6}%A_LoopReadLine%^{vk41} break } return lalt & Numpad7:: Sendinput {f6}/Страна/столица:{space} Input, MY_INPUT, V, {enter} sleep 200 If MY_INPUT Loop, read, %A_MyDocuments%\GTA San Andreas User Files\Speeches\Страны.txt IfInString, A_LoopReadLine, %MY_INPUT% { ;StringReplace, MY_INPUT, A_LoopReadLine, %A_Tab%, %A_space%, 1 StringSplit, MY_COUNTRY, A_LoopReadLine, %a_tab% IfInString, MY_COUNTRY1, %MY_INPUT% SendInput {f6}%MY_COUNTRY2% else IfInString, MY_COUNTRY2, %MY_INPUT% SendInput {f6}%MY_COUNTRY1% break } return #MaxThreadsPerHotkey 3 lalt & Numpad8:: #MaxThreadsPerHotkey 1 Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt MY_CHATLOG := (A_Index-1) if SmartLoop { SmartLoop := false SoundBeep, 200, 100 return } SmartLoop := true SoundBeep, 400, 100 SoundBeep, 400, 100 SetTimer, MY_MECHANIC_TIMER, 30000 Loop { /* If (A_Sec = 15 || A_Sec = 45) { Random, MY_RANDOM, 1, 3 If (MY_RANDOM = 1) SendInput {f6}/s Заправка 55л — 3333{!} Ремонт — 1000{enter} If (MY_RANDOM = 2) SendInput {f6}/s Заправляемся на 55л за 3333{!} Починю за 1000{enter} If (MY_RANDOM = 3) SendInput {f6}/s Кого заправить на 55л за 3333? Полный ремонт — 1000 баксов{enter} sleep 1100 Sendinput {vk57 down} ; w sleep 200 Sendinput {vk57 up} sleep 100 Sendinput {vk53 down} ; s sleep 250 Sendinput {vk53 up} } */ MY_REPEAT_STRING := FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG% If MY_REPEAT_STRING { IfInString, MY_REPEAT_STRING, ] * Механик Ken_Guru sleep 5100 IfInString, MY_REPEAT_STRING, ] сказал IfNotInString, MY_REPEAT_STRING, ] * Ken_Guru[ { FoundPos := RegExMatch(MY_REPEAT_STRING, "\* .*\[(.*)\] сказал:", MY_MECHANIC_ID) SendInput {f6}/repair %MY_MECHANIC_ID1% 1000{enter} sleep 1100 SendInput {f6}/refill %MY_MECHANIC_ID1% 3333{enter} sleep 1100 } MY_CHATLOG += 2 } if not SmartLoop break } SmartLoop := false return MY_MECHANIC_TIMER: Random, MY_RANDOM, 1, 3 If (MY_RANDOM = 1) SendInput {f6}/s Заправка 55л — 3333{!} Ремонт — 1000{enter} If (MY_RANDOM = 2) SendInput {f6}/s Заправляемся на 55л за 3333{!} Починю за 1000{enter} If (MY_RANDOM = 3) SendInput {f6}/s Кого заправить на 55л за 3333? Полный ремонт — 1000 баксов{enter} sleep 1100 Sendinput {vk57 down} ; w sleep 200 Sendinput {vk57 up} sleep 100 Sendinput {vk53 down} ; s sleep 250 Sendinput {vk53 up} return lalt & Numpad9:: 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 ;=============================================================================== ;================================================ Right Ctrl + Numpad ;=============================================================================== RCtrl & Numpad0:: Sendinput {f6}/home{enter} return RCtrl & Numpad1:: Sendinput {f6}/towcar{enter} return RCtrl & Numpad2:: Sendinput {f6}/safe{enter} return RCtrl & Numpad3:: Sendinput {f6}/editpickup{enter} return RCtrl & Numpad4:: SendInput {f6}/%MY_NOTE_READ%{space} Input, MY_INPUT, V, {enter} FileAppend, %MY_INPUT%`n, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt return RCtrl & Numpad5:: FileReadLine, MY_NOTE_FINAL, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt, %MY_NOTE_CURRENT% FileRead, MY_FILE, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt FileDelete, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt Loop, parse, MY_FILE, `n, `r { IfNotInString, A_LoopField, %MY_NOTE_FINAL% IfNotInString, MY_NOTE_FINAL, %A_LoopField% FileAppend, %A_LoopField%`n, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt } MY_NOTE_CURRENT -= 1 MY_NOTE_FINAL := FileReadLine, MY_NOTE_FINAL, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt, %MY_NOTE_CURRENT% Sendinput ^{vk41}{del}%MY_NOTE_FINAL% return RCtrl & Numpad6:: Sendinput {f6}/furn{enter} return RCtrl & Numpad7:: IfExist, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt { MY_NOTE_CURRENT := 1 FileReadLine, MY_NOTE_FINAL, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt, %MY_NOTE_CURRENT% StringReplace, MY_NOTE_FINAL, MY_NOTE_FINAL, !, {!}, All StringReplace, MY_NOTE_FINAL, MY_NOTE_FINAL, +, {+}, All Sendinput {f6}^{vk41}{del}%MY_NOTE_FINAL% } else Sendinput {f6}Текст не найден^{vk41} return RCtrl & Numpad8:: MY_NOTE_FINAL := MY_NOTE_CURRENT -= 1 FileReadLine, MY_NOTE_FINAL, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt, %MY_NOTE_CURRENT% If MY_NOTE_FINAL { StringReplace, MY_NOTE_FINAL, MY_NOTE_FINAL, !, {!}, All StringReplace, MY_NOTE_FINAL, MY_NOTE_FINAL, +, {+}, All Sendinput ^{vk41}{del}%MY_NOTE_FINAL% } else { Soundbeep MY_NOTE_CURRENT += 1 } return RCtrl & Numpad9:: MY_NOTE_FINAL := MY_NOTE_CURRENT += 1 FileReadLine, MY_NOTE_FINAL, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%MY_NOTE_READ%.txt, %MY_NOTE_CURRENT% If MY_NOTE_FINAL { StringReplace, MY_NOTE_FINAL, MY_NOTE_FINAL, !, {!}, All StringReplace, MY_NOTE_FINAL, MY_NOTE_FINAL, +, {+}, All Sendinput ^{vk41}{del}%MY_NOTE_FINAL% } else { Soundbeep MY_NOTE_CURRENT -= 1 } return ;=============================================================================== ;================================================ Hotstrings ;=============================================================================== :?:/набор:: Random, MY_RANDOM, 1,5 if MY_RANDOM = 1 Sendinput /ad Набор механиков в колхоз. У нас работа, деньги, много коз{!}{enter} if MY_RANDOM = 2 Sendinput /ad Если оно растет само, значит, это легально{!} Набор в колхоз{enter} if MY_RANDOM = 3 Sendinput /ad А снится нам трава, трава у дома{!} Зеленая, зеленая трава. Набор в колхоз{enter} if MY_RANDOM = 4 Sendinput /ad Приезжай, брат, урожай собрать. Набор в колхоз{enter} if MY_RANDOM = 5 Sendinput /ad Мы копаем навоз даже в лютый мороз. Набор крутых парней в колхоз{enter} Return :?:/ушел:: SendInput / Input, MY_INPUT, V, {enter} sleep 1111 SendInput {f6}/w %MY_INPUT% Привет, это автоответчик на тему, почему я ухожу с поста губернатора{!}{enter} sleep 1111 SendInput {f6}/w %MY_INPUT% А все дело в том, что я сделал все основные изменения, которые хотел - поменял законы и другое.{enter} sleep 1111 SendInput {f6}/w %MY_INPUT% Поэтому далее уже мало смысла оставаться в мэрии, ибо в ней довольно скучно. Спасибо за внимание.{enter} return :?:/чт:: Temp := Clipboard Keywait, Enter, D, T30 Sendinput ^{vk41}^{vk58} ClipWait 1 sleep 100 MY_NOTE_READ = %Clipboard% Clipboard := Temp return :?:/файлы:: Loop, %A_MyDocuments%\GTA San Andreas User Files\Speeches\* Sendinput %A_LoopFileName%{bs 4},{space} return :?:/удалить:: Temp := Clipboard Keywait, Enter, D, T30 Sendinput ^{vk41}^{vk58} ClipWait 1 sleep 100 FileRecycle, %A_MyDocuments%\GTA San Andreas User Files\Speeches\%Clipboard%.txt Clipboard := Temp return :?:/баланс:: 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 %MY_BALANCE% return :?:/321:: sleep 200 Sendinput {f6} 3{enter} sleep 1200 Sendinput {f6} 2{enter} sleep 1200 Sendinput {f6} 1{enter} sleep 1200 Sendinput {f6} Go{!}{enter} return :?:/счет:: Temp := Clipboard Clipboard = Keywait, Enter, D, T60 Sendinput ^{vk41}^{vk58} ClipWait 1 If Clipboard { IfInString, Clipboard, + { StringSplit, MY_CALC_NUMBER, Clipboard, {+} MY_CALC_RESULT := (MY_CALC_NUMBER1+MY_CALC_NUMBER2) sleep 100 Sendinput {f6}%MY_CALC_RESULT%{space} } IfInString, Clipboard, - { StringSplit, MY_CALC_NUMBER, Clipboard, {-} MY_CALC_RESULT := (MY_CALC_NUMBER1-MY_CALC_NUMBER2) sleep 100 Sendinput {f6}%MY_CALC_RESULT%{space} } IfInString, Clipboard, * { StringSplit, MY_CALC_NUMBER, Clipboard, {*} MY_CALC_RESULT := (MY_CALC_NUMBER1*MY_CALC_NUMBER2) sleep 100 Sendinput {f6}%MY_CALC_RESULT%{space} } IfInString, Clipboard, / { StringSplit, MY_CALC_NUMBER, Clipboard, {/} MY_CALC_RESULT := (MY_CALC_NUMBER1/MY_CALC_NUMBER2) sleep 100 Sendinput {f6}%MY_CALC_RESULT% } } Clipboard := Temp return :?:/штрафы:: sleep 200 Click 330, 330, 0 Click 2 loop 25 { sleep 50 Click 350, 303, 0 Click 2 sleep 50 Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { If A_LoopReadLine MY_REPEAT_STRING := A_LoopReadLine } IfInString, MY_REPEAT_STRING, Штрафов на Ваше имя не найдено break Else continue } 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 :?:/игнор:: SendInput /игнор:{space} Input, MY_INPUT, V, {enter} If MY_INPUT { sleep 1111 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) } sleep 800 SendInput {f6}/m{enter} sleep 100 MouseClick, Left, A_ScreenWidth/2.56, A_ScreenHeight/1.61 MouseClick, Left, A_ScreenWidth/2.56, A_ScreenHeight/1.61 sleep 100 SendInput {enter} sleep 100 SendInput %MY_NAME1%{enter} sleep 100 SendInput {enter} sleep 100 SendInput {esc} sleep 100 SendInput {esc} SoundBeep 250, 100 } return ;=============================================================================== ;================================================ Autoreplace ;=============================================================================== ;==== = = = = = = = = = = = :?:/зд::Здравствуйте. :?:/фонд::http://forum.rp.gw/index.php?/topic/38325-благотворительный-фонд-попо/ :?:/т1::Здравствуйте{!} Вас приветствует такси "Хер с вами". Куда едем? :?:/т2::Хер с вами, поехали. :?:/т3::Приехали, епта{!} Вас подождать, или хер с вами? :?:/т4::Ну и хер с вами{!} Удачного пути. :?:/т5:: MY_START2: Random, MY_RANDOM, 1,4 If (MY_RANDOM <> MY_RANDOM_OLDT) { If (MY_RANDOM = 1) SendInput Че, такой нищеброд, что своей машины нет? If (MY_RANDOM = 2) SendInput Че, права купили, тачку расхерачили? If (MY_RANDOM = 3) SendInput Ну и жирные вы, машина еле едет. If (MY_RANDOM = 4) SendInput У вас деньги-то хоть есть? А то выглядите, как бомж. MY_RANDOM_OLDT := MY_RANDOM } else goto MY_START2 return ;==== Команды :?:/ад::/ad :?:/адвокатс::/advokats :?:/адмемберс::/admembers :?:/админс::/admins :?:/анрент::/unrent :?:/антварн::/untwarn :?:/ацдрагс::/accept drugs :?*:/ацдп::/accept dp :?:/ацкар::/accept car :?:/ацмех::/accept mechanic :?:/ацреп::/accept repair :?:/ацреф::/accept refill :?:/бл::/bl :?:/бм::/bm :?:/гангтоп::/gangtop :?:/гб::/gb :?:/гв::/gw :?:/гд::/gd :?:/гетдрагс::/get drugs :?:/гивкей::/givekey :?:/гивтварн::/givetwarn :?:/гл::/givelicense :?:/гм::/gm :?:/го::/go :?*:/гов::/gov :?*:/гпс::/gps :?*:/дипинфо::/dipinfo :?:/д::/d :?:/ду::/do :?:/дюти::/duty :?:/ж::/j :?:/и::/i :?:/изнас::/iznas :?:/инв::/inv :?:/инвайт::/invite :?:/колл::/call :?:/коллкар::/callcar :?:/колор::/color :?:/корал::/coral :?:/куитджоб::/quitjob :?*:/лидерс::/leaders :?:/л::/limit :?*:/лицензерс::/licenzers :?:/лм::/lm :?:/лок::/lock :?:/маф::/maf :?:/майкар::/mycar :?:/мег::/meg :?*:/мемберс::/members :?:/ми::/me :?:/мтоп::/mafiatop :?:/намбер::/number :?:/олдкар::/oldcar :?*:/онлайн::/online :?:/ордер::/order :?:/парк::/park :?:/парккар::/parkcar :?:/пас::/pas :?*:/пл::/pl :?:/пм::/pm :?*:/порт::/portable :?:/призонерс::/prisoners :?:/присонерс::/prisoners :?:/пэй::/pay :?:/р::/r :?:/рейс::/race :?:/рентрум::/rentroom :?:/реп::/repair :?:/реф::/refill :?:/рз::/respzahvat :?:/рп::/report :?:/с::/s :?:/сг::/sg :?*:/сейф::/safe :?:/селлдрагс::/selldrugs :?:/селлдп::/selldp :?:/сит::/sit :?:/сл::/sl :?:/см::/sm :?:/смс::/sms :?:/тб::/tb :?:/тд::/td :?:/тм::/tm :?:/тогджоб::/togjob :?:/трай::/try :?:/у::/u :?:/ф::/f :?:/хедмув::/headmove :?:/чс::/bl :?:/чекбдлиц::/checkbdlic :?:/шоумк::/showmc :?:/эдитпикап::/editpickup :?:/экзитф::/exitf 5 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Will91195 Опубликовано: 17 мая 2017 Поделиться Опубликовано: 17 мая 2017 Сделайте, пожалуйста, калькулятор в ахк и скиньте желательно в скайп - will.prosto Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Nero_Alvarez Опубликовано: 17 мая 2017 Поделиться Опубликовано: 17 мая 2017 Ахк сказать что-то в чат? заранее спасибо ребята) Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
floydya Опубликовано: 17 мая 2017 Поделиться Опубликовано: 17 мая 2017 25 минут назад, Nero_Alvarez сказал: Ахк сказать что-то в чат? заранее спасибо ребята) F1:: SendInput {f6}1{enter} Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
•Bad Boy• Опубликовано: 21 мая 2017 Поделиться Опубликовано: 21 мая 2017 Сделайте ахк чтобы подавать объявление например нажимаешь на кнопку флудом пишется /ad ,опять нажимаешь на кнопку и останавливается,пример объявления: /ad Мы копаем навоз даже в лютый мороз. Набор крутых парней в колхоз Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
floydya Опубликовано: 21 мая 2017 Поделиться Опубликовано: 21 мая 2017 1 час назад, •Bad Boy• сказал: Сделайте ахк чтобы подавать объявление например нажимаешь на кнопку флудом пишется /ad ,опять нажимаешь на кнопку и останавливается,пример объявления: /ad Мы копаем навоз даже в лютый мороз. Набор крутых парней в колхоз #MaxThreadsPerHotkey 3 F1:: #MaxThreadsPerHotkey 1 if SmartLoop { SmartLoop := false return } SmartLoop := true Loop { sleep 1111 Sendinput {f6}/ad Куплю админку 100 уровня [pjr 0]{enter} if not SmartLoop break } SmartLoop := false return Чет типа такого 1 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.