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

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

MorrisonLegend

Пользователь
  • Публикаций

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

  • Посещение

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

    6

Все публикации пользователя MorrisonLegend

  1. Хорошая работа, Олег

  2. MorrisonLegend

    Ёлка

    🤣 как обычно это бывает на гв, года идут ничего не меняется
  3. Ты рофлишь какие новички😂😂😂😂😂😂
  4. Переcтанови Windws XP
  5. MorrisonLegend

    Когда выборы?

    Создал партию из ботов с фермы или чишо ща?
  6. MorrisonLegend

    Обновления

    …Скоро…
  7. Не уходи в АФК в интерьере Не благодари
  8. MorrisonLegend

    Сампик на macOS для олдфага

    *Звуки богатства*
  9. Сколько Финчеров на базе?

     

  10. Ты (Слово удалено системой)

  11. #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
×
×
  • Создать...