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

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

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


Kangaroo

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

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)
	}
}

 

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

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

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

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

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

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

 

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

7 часов назад, strozzac сказал:

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

 

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

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

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

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

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

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

vk52:: ; R

If !IsInChat()

{
SendInput {F9}

}
return

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

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

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

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

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

@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
 

 

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

  • 4 недели спустя...

!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

 

 

Изменено пользователем The_Only
Может кто-то настроить бинд на нумпад "-". Заранее спасибо
Ссылка на комментарий
Поделиться на других сайтах

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::

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

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

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

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

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

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

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

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

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

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

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