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

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

MorrisonLegend

Пользователь
 Профиль  Активность

  • Публикаций

    714

  • Зарегистрирован

  • Посещение

  • Дней в лидерах

    6

 Тип публикации 

Сообщения, опубликованные пользователем MorrisonLegend

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

    в Yakuza

    Опубликовано: 

    #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

     

    Семейный Чат

    в Grove Street Gang

    Опубликовано:

    В 6/17/2015 в 9:36 PM, Mishka Tenpeny сказал:

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

     

    • Нравится (+1) 1
×
×
  • Создать...