АХК для дальнобойщиков.

Тема в разделе "Корзина", создана пользователем Serg_Galchenko, 7 фев 2019.

Статус темы:
Закрыта.
  1. Serg_Galchenko

    Serg_Galchenko Участник

    Сообщения:
    253
    Симпатии:
    44
    Баллы:
    28
    Род занятий:
    Футбол
    Сайт:
    Ник:
    Serg_Galchenko
    Сервер:
    01
    Скиньте пожалуйстка АХК для дальнобойщиков, там где примерное время загрузки/разгрузки. Буду благодарен! За ранее спасибо!
     
  2. Leha_Washington

    Leha_Washington ♕[05]♕

    Сообщения:
    327
    Симпатии:
    66
    Баллы:
    28
    Род занятий:
    Радиостанция Арзамаса
    Адрес:
    Екатеринбург
    Ник:
    Leha_Washington
    Сервер:
    05
    NumPad1::
    SendInput, {F6}/Vlock{Enter}
    Return
    NumPad3::
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\CR-MP\GenerationC\chatlog.txt
    FileRead, info, %checkfile%
    FileDelete %checkfile%
    FileAppend %checkfile%
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/tunload{Enter}
    sleep 1600
    FileRead, info, %checkfile%
    if info contains Вы разгрузили
    {
    ruda=0
    gruz+= %Amount%
    poezdki+=1
    ruda+=%Amount%
    ruda*=800
    dengi+= %ruda%
    SendInput,{F6}/do Время на часах приборной панели %A_Hour%:%A_Min%:%A_Sec%.{Enter} ;
    hour = %A_Hour%
    min = %A_Min%
    sec = %A_Sec%
    min+= 5
    sec+= 30
    if (sec >= 60) {
    sec-= 60
    min+= 1
    }
    if(min >=60) {
    min-= 60
    hour+= 1
    }
    if (hour >= 24) {
    hour-= 24
    }
    if (sec < 10){
    sec= 0%sec%
    }
    if (min < 10){
    min= 0%min%
    }
    Sleep 1100
    SendInput,{F6}/do Навигатор указал примерное время загрузки %hour%:%min%:%sec%{Enter}
    loop
    {
    if ( A_Hour = hour and A_Min = min and A_Sec = sec) {
    SoundPlay, *48
    Exit
    }
    }
    }
    return
    NumPad2::
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\CR-MP\GenerationC\chatlog.txt
    FileRead, info, %checkfile%
    FileDelete %checkfile%
    FileAppend %checkfile%
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/tload{Space}
    Input, Amount, V, {Enter}
    sleep 1600
    FileRead, info, %checkfile%
    if info contains Вы загрузили
    {
    SendInput,{F6}/do Время на часах приборной панели %A_Hour%:%A_Min%:%A_Sec%.{Enter}
    hour = %A_Hour%
    min = %A_Min%
    sec = %A_Sec%
    min+= 5
    sec+= 30
    if (sec >= 60) {
    sec-= 60
    min+= 1
    }
    if(min >=60) {
    min-= 60
    hour+= 1
    }
    if (hour >= 24) {
    hour-= 24
    }
    if (sec < 10){
    sec= 0%sec%
    }
    if (min < 10){
    min= 0%min%
    }
    Sleep 1100
    SendInput,{F6}/do Навигатор указал примерное время разгрузки %hour%:%min%:%sec% {Enter}
    loop
    {
    if ( A_Hour = hour and A_Min = min and A_Sec = sec) {
    SoundPlay, *48
    Exit
    }
    }
    }
    return
    NumPad4::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/do Бортовой компьютер сообщает: Количество совершенных поездок: %poezdki%{Enter}
    Sleep 1100
    SendInput, {F6}/do Бортовой компьютер сообщает: Количество перевезенных тонн: %gruz%{Enter}
    Sleep 1100
    SendInput, {F6}/do Бортовой компьютер сообщает: Количество полученных денег: %dengi%{Enter}
    return
    NumPad5::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/f Прием. Загрузил %Amount% тонн нефти, отправляюсь на разгрузку.{Enter}
    return
    NumPad6::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/f Прием. Разгрузился на нефтезаводе, отправляюсь на загрузку.{Enter}
    return
    NumPad7::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/do Навигатор указал примерно время загрузки/разгрузки %hour%:%min%:%sec%{Enter}
    return
     
    Moror41k нравится это.
  3. Serg_Galchenko

    Serg_Galchenko Участник

    Сообщения:
    253
    Симпатии:
    44
    Баллы:
    28
    Род занятий:
    Футбол
    Сайт:
    Ник:
    Serg_Galchenko
    Сервер:
    01
    Благодарю
     
  4. Serg_Galchenko

    Serg_Galchenko Участник

    Сообщения:
    253
    Симпатии:
    44
    Баллы:
    28
    Род занятий:
    Футбол
    Сайт:
    Ник:
    Serg_Galchenko
    Сервер:
    01
    Работает только 1 раз когда съездил на 2 - ой не запускается.
     
  5. Wayn_Friday

    Wayn_Friday Участник

    Сообщения:
    102
    Симпатии:
    0
    Баллы:
    16
    Род занятий:
    Кушать.
    Адрес:
    Казахстан г.Житикара
    Сайт:
    Ник:
    Diego_Rothmans
    Сервер:
    05
    Ответ дан.
     
  6. Serg_Galchenko

    Serg_Galchenko Участник

    Сообщения:
    253
    Симпатии:
    44
    Баллы:
    28
    Род занятий:
    Футбол
    Сайт:
    Ник:
    Serg_Galchenko
    Сервер:
    01
    Биндер не работает.
     
  7. .dope

    .dope Участник

    Сообщения:
    527
    Симпатии:
    73
    Баллы:
    28
    Сервер:
    01
    Ответ дан выше. Приятной игры.
     
  8. ❤️ seffqa ❤️

    ❤️ seffqa ❤️ Известный

    Сообщения:
    203
    Симпатии:
    1.596
    Баллы:
    93
    выше
     
  9. Jacob_Richardson

    Jacob_Richardson masher

    Сообщения:
    243
    Симпатии:
    131
    Баллы:
    43
    Сервер:
    06
    Ответ выше. Приятной игры.
     
  10. Areest_Aliyev

    Areest_Aliyev ☢CRMPшник ヅ ☢

    Сообщения:
    454
    Симпатии:
    62
    Баллы:
    28
    Род занятий:
    ➥ Заниматься фигней ͡ᵔ ͜ʖ ͡ᵔ
    Сайт:
    Ник:
    Areest_Aliyev
    Сервер:
    01
    Я тоже как и все "ответ выше =]"
     
  11. Oliver_Hellwood

    Oliver_Hellwood Помощник

    Сообщения:
    1.389
    Симпатии:
    868
    Баллы:
    113
    Сервер:
    02
    Здравствуйте.

    В настоящее время актуальна версия AHK-скрипта:
    NumPad0::
    SendInput, {F6}/lock{Enter}
    sleep 1000
    SendInput, {F6}/rem{Enter}
    Return
    NumPad2::
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    FileRead, info, %checkfile%
    FileDelete %checkfile%
    FileAppend %checkfile%
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/tunload{Enter}
    sleep 1600
    FileRead, info, %checkfile%
    if info contains Вы разгрузили
    {
    ruda=0
    gruz+= %Amount%
    poezdki+=1
    ruda+=%Amount%
    ruda*=800
    dengi+= %ruda%
    SendInput,{F6}/do Время на часах приборной панели %A_Hour%:%A_Min%:%A_Sec%.{Enter} ;
    hour = %A_Hour%
    min = %A_Min%
    sec = %A_Sec%
    min+= 5
    sec+= 30
    if (sec >= 60) {
    sec-= 60
    min+= 1
    }
    if(min >=60) {
    min-= 60
    hour+= 1
    }
    if (hour >= 24) {
    hour-= 24
    }
    if (sec < 10){
    sec= 0%sec%
    }
    if (min < 10){
    min= 0%min%
    }
    Sleep 1100
    SendInput,{F6}/do Навигатор указал примерное время загрузки %hour%:%min%:%sec%{Enter}
    loop
    {
    if ( A_Hour = hour and A_Min = min and A_Sec = sec) {
    SoundPlay, *48
    Exit
    }
    }
    }
    return
    NumPad1::
    checkfile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    FileRead, info, %checkfile%
    FileDelete %checkfile%
    FileAppend %checkfile%
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/tload{Space}
    Input, Amount, V, {Enter}
    sleep 1600
    FileRead, info, %checkfile%
    if info contains Вы загрузили
    {
    SendInput,{F6}/do Время на часах приборной панели %A_Hour%:%A_Min%:%A_Sec%.{Enter}
    hour = %A_Hour%
    min = %A_Min%
    sec = %A_Sec%
    min+= 5
    sec+= 30
    if (sec >= 60) {
    sec-= 60
    min+= 1
    }
    if(min >=60) {
    min-= 60
    hour+= 1
    }
    if (hour >= 24) {
    hour-= 24
    }
    if (sec < 10){
    sec= 0%sec%
    }
    if (min < 10){
    min= 0%min%
    }
    Sleep 1100
    SendInput,{F6}/do Навигатор указал примерное время разгрузки %hour%:%min%:%sec% {Enter}
    loop
    {
    if ( A_Hour = hour and A_Min = min and A_Sec = sec) {
    SoundPlay, *48
    Exit
    }
    }
    }
    return
    NumPad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/do Бортовой компьютер сообщает: Количество совершенных поездок: %poezdki%{Enter}
    Sleep 1100
    SendInput, {F6}/do Бортовой компьютер сообщает: Количество перевезенных тонн: %gruz%{Enter}
    Sleep 1100
    SendInput, {F6}/do Бортовой компьютер сообщает: Количество полученных денег: %dengi%{Enter}
    return
    NumPad5::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/f Прием. Загрузил %Amount% тонн нефти, отправляюсь на разгрузку.{Enter}
    return
    NumPad7::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {F6}/f Прием. Разгрузился на нефтезаводе, отправляюсь на загрузку.{Enter}
    return
    NumPad9::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/do Навигатор указал примерное время загрузки/разгрузки %hour%:%min%:%sec% {Enter}
    return

    Приятной игры.
     
Статус темы:
Закрыта.

Поделиться этой страницей