Jump to content

Добро пожаловать на форум проекта RP GameWorld!

ヤクザ | Howaitosokku Sufamirī Yakuza [Флудилка]


Vlad_Voevodin

Recommended Posts

#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

 

Link to comment
Share on other sites

  • 1 month later...
  • 7 months later...
6 часов назад, Shakz сказал:

ой даже хз кто ты, но (Слово удалено системой) сколько утекло) 

(Слово удалено системой) дебил хахахаа, ток не говори что на гв вернешься

Link to comment
Share on other sites

12 часов назад, monterofam сказал:

(Слово удалено системой) дебил хахахаа, ток не говори что на гв вернешься

если мне кто-то поможет на мак установить Samp, то да) 

 

Link to comment
Share on other sites

6 часов назад, Shakz сказал:

если мне кто-то поможет на мак установить Samp, то да) 

 

Надеюсь тебе никто не поможет, что бы в это (Слово удалено системой) возвращаться)

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...