[AHK] Полезные бинды

[Kangaroo]

1 час назад, Гнилой сказал:

Здраствуйте хотел узнать есть бинд который показывает когда последний раз угнал машину ну или ограбил дом....(CRMP-RP)игра

Здравствуйте, я в это говно не играл, поэтому скриптов для него не имею.

[Гнилой]

22 минуты назад, Kangaroo сказал:

Здравствуйте, я в это (Слово удалено системой) не играл, поэтому скриптов для него не имею.

да я Samp пытался играть сложно чет команды трудные или привыкнуть стоит

 

[kaboomer]

9 часов назад, Kangaroo сказал:

Опиши нормально проблему, ничего не понятно))

 

И на какой другой бинд нажимаешь?

Смотри, я нажимаю бинд num2 - /inv, и всеровно он копирует чатлог, т.е я нажимаю на num2 - другой бинд ( /inv ), и он копирует строку, хотя копировать у меня совсем на другую клавишу

[Kangaroo]

47 минут назад, kaboomer сказал:

Смотри, я нажимаю бинд num2 - /inv, и всеровно он копирует чатлог, т.е я нажимаю на num2 - другой бинд ( /inv ), и он копирует строку, хотя копировать у меня совсем на другую клавишу

Звучит похоже на то, что в конце этих биндов не хватает return (отдельной строкой).

Если не поможет, то скинь текст всего скрипта.

 

[kaboomer]

1 час назад, Kangaroo сказал:

Звучит похоже на то, что в конце этих биндов не хватает return (отдельной строкой).

Если не поможет, то скинь текст всего скрипта.

 

!down::
SendMessage, 0x50,, 0x4190419,, A
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
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
Clipboard := MY_REPEAT_STRING
Sendinput {f6}%MY_REPEAT_STRING%^{vk41}
return
!up::
SendMessage, 0x50,, 0x4190419,, A
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
Clipboard := MY_REPEAT_STRING
Sendinput {del}%MY_REPEAT_STRING%^{vk41}
return

 

[Kangaroo]

15 минут назад, kaboomer сказал:

 

И бинд на num2 тоже скинь.

[kaboomer]

13 часа назад, Kangaroo сказал:

И бинд на num2 тоже скинь.

Numpad2::
Sendinput, {F6}/inv{enter}
return

 

 

Numpad1::
Sendinput, {F6}/towcar{enter}
return

[phoеnix]

help

ситуация такая: вместо  %myId% в чат пишет "0" (не мой iD в общем пишет)

 

Скрытый текст

^1::
SendMessage, 0x50,, 0x4190419,, A
sendinput, {f6}/id Jackson_Avery{enter}
sleep 1150
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    if RegExMatch(A_LoopReadLine, "^\[\d{2}\:\d{2}\:\d{2}\] ID\: \((\d+)\) (.*);?", lastidtarget)
    {
        myId := lastidtarget1
    }
    if RegExMatch(A_LoopReadLine, "^\[\d{2}\:\d{2}\:\d{2}\] ID\: \((\d+)\) (.*) \{\w{6}\}<PAUSE\: \d+ sec\.?>", lastidtarget)
    {
        myId := lastidtarget1
    }
}
SendInput, {f6}Приветствую Вас на тестировании{!} Сотрудник отдела кадров - Employee ICD, Jackson Avery.{Enter}
Sleep 2000 ;
SendInput, {f6}Прошу предоставить Ваш паспорт, лицензии, медицинскую карту.{Enter}
Sleep 1700 ;
SendInput, {F6}/b Используйте: /sl %myId%; /pas %myId%; /showmc %myId% {Enter}
Sleep 2000 ;
SendInput, {F6}После этого ожидайте пару минут - я проверю Вас в БДНП и ЧСПО.{enter}
Sleep 2000 ;
SendInput, {F6}/checkbl {space}
Return

 

Изменено 2 июля 2018 пользователем Vendettа

[Kangaroo]

1 час назад, Vendettа сказал:

help

ситуация такая: вместо  %myId% в чат пишет "0" (не мой iD в общем пишет)

Более удобный (и работающий) бинд:

 

^1::
MY_ID1 :=
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    IfInString, A_LoopReadLine, ] * Jackson_Avery[
        MY_ID := A_LoopReadLine
RegExMatch(MY_ID, "Jackson_Avery\[(.*)\]", MY_ID)
If !MY_ID
{
    SendInput {f6}/id Jackson_Avery{enter}
    sleep 1111
    Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        IfInString, A_LoopReadLine, ) Jackson_Avery
            MY_ID := A_LoopReadLine
    RegExMatch(MY_ID, "ID: \((.*)\) Jackson_Avery", MY_ID)
}
SendInput {f6}Приветствую Вас на тестировании{!} Сотрудник отдела кадров - Employee ICD, Jackson Avery.{Enter}
Sleep 2000
SendInput {f6}Прошу предоставить Ваш паспорт, лицензии, медицинскую карту.{Enter}
Sleep 1700
SendInput {F6}/b Используйте: /sl %MY_ID1%; /pas %MY_ID1%; /showmc %MY_ID1% {Enter}
Sleep 2000
SendInput {F6}После этого ожидайте пару минут - я проверю Вас в БДНП и ЧСПО.{enter}
Sleep 2000
SendInput {F6}/checkbl{space}
return

 

1 час назад, kaboomer сказал:

Numpad2::
Sendinput, {F6}/inv{enter}
return

 

 

Numpad1::
Sendinput, {F6}/towcar{enter}
return

Не вижу ничего неправильного. Можешь скинуть весь скрипт в скайп macropus9, протестирую сам.

[BlackTiger]

Пацаны или Ken, скиньте готовый бинд для доставания быстро оружия из рюкзака, " Ячейка 1-ая пистолет: глушитель 50патронов ", F1, буду очень благодарен. 

[Egor13]

1 час назад, Vitalik02 сказал:

Пацаны или Ken, скиньте готовый бинд для доставания быстро оружия из рюкзака, " Ячейка 1-ая пистолет: глушитель 50патронов ", F1, буду очень благодарен. 

1 слот рюкзака:

f1::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 50{enter}{esc}	; 50 - количество патронов для оружия в первом слоте
Return

2 слот рюкзака:

f2::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
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, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 10{enter}{esc}	; 10 - количество патронов для оружия во втором слоте
Return

Работает на любых разрешениях.

Изменено 2 июля 2018 пользователем Egor13

[BlackTiger]

6 минут назад, Egor13 сказал:

1 слот рюкзака:

f1::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
MouseClick, Left, A_ScreenWidth/1.33, A_ScreenHeight/2.56
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 50{enter}{esc}	; 50 - количество патронов для оружия в первом слоте
Return

2 слот рюкзака:

f2::
sendinput, {f6}/bag{enter}
sleep, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
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, 300 ; Задержка. Скрипт/сервер работает через жопу = увеличиваем, перезапускаем скрипт.
sendinput, 10{enter}{esc}	; 10 - количество патронов для оружия во втором слоте
Return

Работает на любых разрешениях.

Он даже /bag не открывает ну то что ты скинул бинд, скиньте мне сразу готовый.

[Kangaroo]

56 минут назад, Vitalik02 сказал:

Он даже /bag не открывает ну то что ты скинул бинд, скиньте мне сразу готовый.

Это готовый и работающий.

[BlackTiger]

3 часа назад, Kangaroo сказал:

Это готовый и работающий.

у меня он даже не открывает баг

[strozza]

38 minutes ago, Vitalik02 said:

у меня он даже не открывает баг

А ты вручную