Jump to content
[RP] GameWorld Forum

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


Recommended Posts

10 часов назад, SSSSS9 сказал:

Пытался, к примеру, забиндить ввод чит-кодов, но игра никак не реагировала, никаких действий или движений не происходило. Поэтому хотел узнать, может есть какие-то особенности при игре в синглплеере в отношении биндов?

$1::sendCheat("hesoyam") ; Armor, health, and money
$2::sendCheat("lxgiwyl") ; Weapons (tier 1)
$3::sendCheat("professionalskit") ; Weapons (tier 2)
$4::sendCheat("uzumymw") ; Weapons (tier 3)
$5::sendCheat("cpktnwt") ; Destroy all cars 
$6::sendCheat("turnuptheheat") ; Raise wanted level
$7::sendCheat("turndowntheheat") ; Lower wanted level
$8::sendCheat("jumpjet") ; Spawn Hydra
$9::sendCheat("aiwprton") ; Spawn Rhino
$0::sendCheat("everyoneisrich") ; Sports car traffic


sendCheat(cheat)
{
	winGetTitle windowTitle, A

	if (windowTitle == "GTA: San Andreas") {
		setKeyDelay 40, 30
		send %cheat%
	} else {
		send % subStr(A_ThisHotkey, 2)
	}
}

 

Link to post
Share on other sites
  • Replies 1.7k
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Список последних изменений.   Всем привет. Я решил собрать в одной теме несколько полезных биндов, которыми я пользуюсь и которые могут пригодиться вам.  Если вы не знаете, что т

скайп давай, так скину F2:: loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt { i=%A_Index% } FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.

F1:: Sendinput {f6}/s Какого хуя машины где попало ставите, заебали уже{!}{enter} sleep 1111 Sendinput {f6}/me сплюнул из окна эвакуатора.{enter} sleep 1111 Sendinput {f6}/at{enter}

1 час назад, Eugeniy Silver сказал:

@Kangaroo @Koala Если у меня на букву R стоит бинд, то как сделать, дабы при вводе текста чат, бинд не активировался каждый раз при вводе буквы R

If !IsInChat()
   *ДЕЙСТВИЕ*

 

  • I like it (+1) 1
  • Thanks (+1) 1
Link to post
Share on other sites
7 часов назад, strozzac сказал:

If !IsInChat()
   *ДЕЙСТВИЕ*

 

Ещё можно костыль написать: при активном окне ГТА при нажатии F6 & T переменная станет True, при тех же условиях если True станет False. Будут минусы если не ждать следующего открытия/закрытия чата, возможны конфликты с Input в AHK так же.

  • Thanks (+1) 1
Link to post
Share on other sites
4 часа назад, Eugeniy Silver сказал:

Помогите вставить это в бинд
r::
SendInput {F9}
return

Я бы не стал делать бинды на одну букву.

Но если у тебя есть упомянутая выше функция, то можно так:
 

vk52:: ; R

If !IsInChat()

{
SendInput {F9}

}
return

  • Thanks (+1) 1
Link to post
Share on other sites
3 часа назад, Kostya_Niger сказал:

Уважаемые, скиньте бинд расчета стоимости лицензий для лицеров. Не могу найти его

для тебя всё бесплатно

Link to post
Share on other sites

@Kostya_Niger

 

В 2/24/2018 в 5:18 PM, strozza сказал:

Оторвал от хелперского бинда кусочек

Переменные:

fishlic - цена на ловлю

driverlic - цена на права

shiplic - цена на морские T/C

gunlic - цена на оружие

flylic - цена на воздушные Т/C

Вводная переменная уровня - llvl


lpricecount:
If (llvl > 1)
{
    driver := 10.000 * llvl
    If (driver > 100.000)
    {
        driver := 100.000
    }
    driverlic := "$" driver ""
}
If (llvl = 1)
{
    driver := "бесплатно"
    driverlic := driver
}
If (llvl < 3)
{
    fish := "недоступна"
    ship := "недоступна"
    fly := "недоступна"
    fishlic := fish 
    shiplic := ship
    flylic := fly
}
If (llvl = 3)
{
    fish := 15.000
    ship := 25.000
    fly := 50.000
    fishlic := "$" fish ""
    shiplic := "$" ship ""
    flylic := "$" fly ""
}
If (llvl > 3)
{
    fish := 15.000
    ship := 40.000
    fly := 10.000 * llvl + 20.0000
    If (fly > 200.000)
    {
        fly := 200.000
    }
    fishlic := "$" fish ""
    shiplic := "$" ship ""
    flylic := "$" fly ""
}
If (llvl = 5)
{
    gun := 70.000
    gunlic := "$" gun ""
}
If (llvl > 5)
{
    gun := 10.000 * llvl + 20.000
    If (gun > 150.000)
    {
        gun := 150.000
    }
    gunlic := "$" gun ""
}
If (llvl < 5)
{
    gun := "недоступна"
    gunlic := gun
}
return

 

 

В 2/25/2018 в 1:53 AM, Kangaroo сказал:

Чуток обновил, проверь расценки на всякий случай.

Работает так: нажимаешь кнопку, вводишь через пробел уровень игрока и далее каждую из нужных ему лицензий именно такими словами: права, оружие, полеты, лодка, рыбалка. Лицензии указывать в любом порядке, но уровень всегда должен быть сначала.

Например:

10 оружие права

20 права оружие полеты лодка рыбалка

и т.д.

 

F9:: 
SendInput {f6}/LIC:{space}
Input, MY_LICENCE, V, {enter}
If MY_LICENCE
{
StringSplit, OutputArray, MY_LICENCE, %A_Space%
левел = %OutputArray1%

IfInString, MY_LICENCE, права
{
    права := 10000*левел
    if права > 100000
    права := 100000   
    if левел = 1
    права := 0
}
else права = 0

IfInString, MY_LICENCE, оружие
{
    оружие := 70000
    if левел > 5
    оружие := (20000+10000*левел) 
    if оружие > 150000
    оружие := 150000   
}
else оружие = 0

IfInString, MY_LICENCE, полеты
{
    полеты := 50000
    if левел > 3
    полеты := (20000+10000*левел)   
    if полеты > 200000
    полеты := 200000 
}
else полеты = 0

IfInString, MY_LICENCE, лодка
{
    лодка := 25000
    if левел > 3
    лодка := 40000
}
else лодка = 0
    
IfInString, MY_LICENCE, рыбалка
{
    рыбалка := 15000
}
else рыбалка = 0

стоимость := (права+оружие+полеты+лодка+рыбалка)
sleep 1111
Sendinput {f6}Итоговая стоимость: %стоимость%
}
return
 

 

  • Thanks (+1) 1
Link to post
Share on other sites
  • 4 weeks later...

!F1::
    sendInput {F6}/Введите ID:{space}
    Input, myclid, V, {enter}
    If myclid is number 
    { 
        sleep 1300 
        SendInput {f6}/lvl %myclid%{enter} 
        sleep 300 
        Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt 
        { 
            IfInString, A_LoopReadLine, ] ID: ( 
            FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME) 
            MY_INPUT := MY_NAME1 
        } 
        sleep 1200
        sendInput {f6}С документами все в порядке, я проверю Вас по базе данных нарушителей.{enter}
        sleep 1200
        sendInput {f6}/me достал планшет и ввел %MY_INPUT% в поиск по базе данных.{enter}
        sleep 1200
        whr := ComObjCreate("WinHttp.WinHttpRequest.5.1") 
        whr.Open("GET", "https://raw.githubusercontent.com/DmitriyMclegend/GWLicenzers/master/Новый текстовый документ.txt", true) 
        whr.Send() 
        whr.WaitForResponse() 
        MY_BLACKLIST := whr.ResponseText
        sendInput {f6}/checkbdlic %myclid%{enter}
        sleep 1200
        sendInput {f6}/lvl %myclid%{enter}
        Sleep 1200
        Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        {
            IfInString, A_LoopReadLine, ] Водительские права
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAME)
                if(MY_NAME1 = "Запретов нет")
                {
                    text_driver := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAM)
                    text_driver := "Водительские права отобраны до " MY_NAM2 "."
                }
            }
            IfInString, A_LoopReadLine, ] Лицензия на полёты
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAMEs)
                if(MY_NAMEs1 = "Запретов нет")
                {
                    text_fly := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAMs)
                    text_fly := "Лицензия на полеты отобрана до " MY_NAMs2 "."
                }
            }
            IfInString, A_LoopReadLine, ] Лицензия на водный транспорт
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAMEss)
                if(MY_NAMEss1 = "Запретов нет")
                {
                    text_lodka := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAMss)
                    text_lodka := "Лицензия на водный транспорт отобрана до " MY_NAMss2 "."
                }
            }
            IfInString, A_LoopReadLine, ] Лицензия на оружие
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAMEsss)
                if(MY_NAMEsss1 = "Запретов нет")
                {
                    text_gun := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAMsss)
                    text_gun := "Лицензия на оружие отобрана до " MY_NAMsss2 "."
                }
            }
        }
        if(text_driver != -2)
        {
            sendInput {f6}%text_driver%{enter}
            sleep 1200
        }
        if(text_fly != -2)
        {
            sendInput {f6}%text_fly%{enter}
            sleep 1200
        }
        if(text_lodka != -2)
        {
            sendInput {f6}%text_lodka%{enter}
            sleep 1200
        }
        if(text_gun != -2)
        {
            sendInput {f6}%text_gun%{enter}
            sleep 1200
        }
        IfInString, MY_BLACKLIST, %MY_INPUT% 
        {
            sendInput {f6}/me нашел %MY_INPUT% в базе данных нарушителей.{enter}
            Sleep 1200
            sendInput {f6}Вы находитесь в черном списке Автошколы.{enter}
            Sleep 1200
            sendInput {f6}Обслужить мы Вас не можем. Всего доброго.{enter}
            Sleep 1200
            sendInput {f6}/stoplesson %myclid%{enter}
        }
        else 
        {
            sendInput {f6}Хорошо, в базе данных нарушителей Вы отсутствуете.{enter}
            Sleep 1200
            sendInput {f6}/me свернул приложение и убрал планшет в сумку.{enter}
        }
    }
    MY_BLACKLIST := 
    MY_INPUT := 
    myclid := 
return

 

 

Edited by The_Only
Может кто-то настроить бинд на нумпад "-". Заранее спасибо
Link to post
Share on other sites
1 час назад, The_Only сказал:

!F1::
    sendInput {F6}/Введите ID:{space}
    Input, myclid, V, {enter}
    If myclid is number 
    { 
        sleep 1300 
        SendInput {f6}/lvl %myclid%{enter} 
        sleep 300 
        Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt 
        { 
            IfInString, A_LoopReadLine, ] ID: ( 
            FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME) 
            MY_INPUT := MY_NAME1 
        } 
        sleep 1200
        sendInput {f6}С документами все в порядке, я проверю Вас по базе данных нарушителей.{enter}
        sleep 1200
        sendInput {f6}/me достал планшет и ввел %MY_INPUT% в поиск по базе данных.{enter}
        sleep 1200
        whr := ComObjCreate("WinHttp.WinHttpRequest.5.1") 
        whr.Open("GET", "https://raw.githubusercontent.com/DmitriyMclegend/GWLicenzers/master/Новый текстовый документ.txt", true) 
        whr.Send() 
        whr.WaitForResponse() 
        MY_BLACKLIST := whr.ResponseText
        sendInput {f6}/checkbdlic %myclid%{enter}
        sleep 1200
        sendInput {f6}/lvl %myclid%{enter}
        Sleep 1200
        Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        {
            IfInString, A_LoopReadLine, ] Водительские права
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAME)
                if(MY_NAME1 = "Запретов нет")
                {
                    text_driver := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAM)
                    text_driver := "Водительские права отобраны до " MY_NAM2 "."
                }
            }
            IfInString, A_LoopReadLine, ] Лицензия на полёты
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAMEs)
                if(MY_NAMEs1 = "Запретов нет")
                {
                    text_fly := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAMs)
                    text_fly := "Лицензия на полеты отобрана до " MY_NAMs2 "."
                }
            }
            IfInString, A_LoopReadLine, ] Лицензия на водный транспорт
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAMEss)
                if(MY_NAMEss1 = "Запретов нет")
                {
                    text_lodka := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAMss)
                    text_lodka := "Лицензия на водный транспорт отобрана до " MY_NAMss2 "."
                }
            }
            IfInString, A_LoopReadLine, ] Лицензия на оружие
            {
                FoundPos := RegExMatch(A_LoopReadLine, ": (.*)", MY_NAMEsss)
                if(MY_NAMEsss1 = "Запретов нет")
                {
                    text_gun := -2
                }
                else 
                {
                    FoundPos := RegExMatch(A_LoopReadLine, ": (.*) до (.*)", MY_NAMsss)
                    text_gun := "Лицензия на оружие отобрана до " MY_NAMsss2 "."
                }
            }
        }
        if(text_driver != -2)
        {
            sendInput {f6}%text_driver%{enter}
            sleep 1200
        }
        if(text_fly != -2)
        {
            sendInput {f6}%text_fly%{enter}
            sleep 1200
        }
        if(text_lodka != -2)
        {
            sendInput {f6}%text_lodka%{enter}
            sleep 1200
        }
        if(text_gun != -2)
        {
            sendInput {f6}%text_gun%{enter}
            sleep 1200
        }
        IfInString, MY_BLACKLIST, %MY_INPUT% 
        {
            sendInput {f6}/me нашел %MY_INPUT% в базе данных нарушителей.{enter}
            Sleep 1200
            sendInput {f6}Вы находитесь в черном списке Автошколы.{enter}
            Sleep 1200
            sendInput {f6}Обслужить мы Вас не можем. Всего доброго.{enter}
            Sleep 1200
            sendInput {f6}/stoplesson %myclid%{enter}
        }
        else 
        {
            sendInput {f6}Хорошо, в базе данных нарушителей Вы отсутствуете.{enter}
            Sleep 1200
            sendInput {f6}/me свернул приложение и убрал планшет в сумку.{enter}
        }
    }
    MY_BLACKLIST := 
    MY_INPUT := 
    myclid := 
return

 

 

NumpadSub::

Edited by Kostya98
Link to post
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...