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

Kangaroo

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

Recommended Posts

@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
 

 

Share this post


Link to post
Share on other sites

!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
Может кто-то настроить бинд на нумпад "-". Заранее спасибо

Share this post


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

Share this post


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.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.