Перейти к публикации

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

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


Vlad_Voevodin

Рекомендованные сообщения

#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

 

Ссылка на комментарий
Поделиться на других сайтах

  • 1 месяц спустя...
  • 7 месяцев спустя...
6 минут назад, monterofam сказал:

Выйди, тут никого нет

теперь я здесь. пришел улучшить гв своим присутствием 

 

Ссылка на комментарий
Поделиться на других сайтах

2 hours ago, Shakz said:

теперь я здесь. пришел улучшить гв своим присутствием 

 

много воды утекло...

Ссылка на комментарий
Поделиться на других сайтах

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

много воды утекло...

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

Ссылка на комментарий
Поделиться на других сайтах

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

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

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

Ссылка на комментарий
Поделиться на других сайтах

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

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

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

 

Ссылка на комментарий
Поделиться на других сайтах

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

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

 

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

Ссылка на комментарий
Поделиться на других сайтах

Shakz посмотри в инете есть различные видео , ищи источники информаций разве сложно.

Ссылка на комментарий
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в теме...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    • Нет пользователей, просматривающих эту страницу.
×
×
  • Создать...