#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, * Ваш автомобиль припаркован. Если Вы не нашли свой автомобиль, используйте: /mycar
{
Checkchat("/tognews")
sleep 1111
Checkchat("/mafiatop")
sleep 1111
Checkchat("/members")
sleep 1111
}
IfInString, MY_REACTION_STRING, * Материалов в машине
{
sleep 15000
Checkchat("/inv")
sleep 30000
Checkchat("/inv")
sleep 45000
Checkchat("/inv")
sleep 60000
Checkchat("/inv")
}
IfInString, MY_REACTION_STRING, * ТС успешно пригнано, Вы получили
{
sleep 600
Checkchat("/FAM [JACKCAR ALERT] ТС УСПЕШНО ПРИГНАНО{!}")
sleep 1380000
Checkchat("/FAM [JACKCAR ALERT] УГОН НОВОГО ТС ДОСТУПЕН{!}")
sleep 600
Checkchat("/FAM [JACKCAR ALERT] УГОН НОВОГО ТС ДОСТУПЕН{!}")
sleep 600
Checkchat("/FAM [JACKCAR ALERT] УГОН НОВОГО ТС ДОСТУПЕН{!}")
}
IfInString, MY_REACTION_STRING, предлагает вам дозаправку за $1, (введите /accept refill)
{
Checkchat("/accept refill")
sleep 1500
}
IfInString, MY_REACTION_STRING, грамм наркотиков. Введите /td для согласия
{
Checkchat("/td")
sleep 1111
}
}
}
IfWinNotExist GTA:SA:MP
MY_STRING_NUMBER := 1
return
#IfWinActive, GTA:SA:MP
F1::
Sendinput {f6}/drink{enter}
sleep 50
loop 60
{
Send {space down}{space up}
}
return
#MaxThreadsPerHotkey 3
^2::
#MaxThreadsPerHotkey 1
if SmartLoop
{
SmartLoop := false
return
}
SmartLoop := true
SendInput {f6}/find{space}
Input, MY_INPUT, V, {enter}
Loop
{
sleep 1111
Sendinput {f6}/find %MY_INPUT%{enter}
if not SmartLoop
break
}
SmartLoop := false
return
^ё::
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
}
If MY_SHIP
{
IfInString, MY_SHIP, ] [MATERIALS] В порт
{
FoundPos := RegExMatch(MY_SHIP, "(.*) \[MATERIALS\] В порт (.*) прибыл корабль с материалами", MY_FINAL_SHIP)
SendInput {f6}/f [MATERIALS] Лодка находится в порту %MY_FINAL_SHIP2% с %MY_FINAL_SHIP1%{enter}
}
IfInString, MY_SHIP, ] [MATERIALS] Корабль с материалами покинул
{
FoundPos := RegExMatch(MY_SHIP, "(.*) \[MATERIALS\] Корабль с материалами покинул штат.", MY_FINAL_SHIP)
SendInput {f6} Последняя лодка уплыла в %MY_FINAL_SHIP1%{home}
}
}
else SendInput {f6}/f [MATERIALS] Информация о последней лодке отсутствует [НЕИЗВЕСТНО]{enter}
return
^NumPad0::
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
^Numpad4::
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 1111
SendInput {f6}/mafiatop{enter}
sleep 800
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}/f С %MAFIA_Y_START1%: L: %MAFIA_L_RESULT1%, %MAFIA_L_RESULT2%, %MAFIA_L_RESULT3%. || R: %MAFIA_R_RESULT1%, %MAFIA_R_RESULT2%, %MAFIA_R_RESULT3%. || Yakuza; Materials: %MAFIA_Y_RESULT1% Narko: %MAFIA_Y_RESULT2% Blanks: %MAFIA_Y_RESULT3%{enter}
return
^NumPad5::
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}/u [MAFIA ALERT] Последний конфискат был в %MY_KONFISKAT1% на %MY_KONFISKAT2%.{enter}
return
home::
Sendinput {f6}/tie{space}
Input, MY_TARGET, V, {enter}
Sleep 1200
Sendinput {f6}/gag %MY_TARGET%{enter}
Sleep 1200
Sendinput {f6}/steal %MY_TARGET%{enter}
Sleep 1200
Sendinput {f6}/eject %MY_TARGET%{enter}
Return
F2::
sendinput, {f6}/bag{enter}
sleep, 301
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
sleep, 301
sendinput, 21{enter}
sleep, 50
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, 301
sendinput, 100{enter}{esc}
Return
^NumPad6::
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
^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
Sendinput {f6}%MY_REPEAT_STRING%^{vk41}
Soundbeep
return
F3::
sendinput, {f6}/healme{enter}
return
ё::
sendinput, {f6}South Carolina{enter}
return
^NumPad8::
sendinput, {f6}/ad Пушки и Нарко от Yakuza{enter}
return
^1::
sendinput, {f6}/bl{enter}
return
#SingleInstance, force
#IfWinActive, GTA:SA:MP
F10::
Sleep, 550
Loop
{
SendInput, {Up Down}
SendInput, {Up Up}
}
F11::
Reload
return
:?:/угон::
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}/fam Последний угон совершен в %JACKCAR1%^{enter}
return
Del::
sendinput, {f6}/u [MAFIA ALERT] ВНИМАНИЕ{!} КОНФИСКАТ БУДЕТ ДОСТУПЕН В [] [LAST:]{left 9}
return
End::
sendinput, {f6}/selldrugs{space}1{space}98{space}15000{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{space}
return