Ахк для дальнобоя и ап/аб

Тема в разделе "Курилка", создана пользователем Boris_Corleone, 12 авг 2018.

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

    Boris_Corleone Участник

    Сообщения:
    246
    Симпатии:
    32
    Баллы:
    28
    Сервер:
    01
    Новые скрипты ))



    ;Alt+1 - /vlock
    ;Alt+2 - Отправляет в чат /tload и ждет, пока не введете число, после чего, если произошла загрузка, запускает таймер до разгрузки
    ;Alt+3 - Отправляет в чат /tunload и, если произошла разгрузка, запускает таймер до загрузки
    ;Левый Ctrl+2 - сообщение в рацию о том, что загрузились
    ;Левый Ctrl+3 - сообщение в рацию о том, что разгрузились
    ;Alt+4 - Счетчик перевезенного груза/заработанныхъ денег
    ;Alt+5 - Показать еще раз время, оставшееся до загрузки/разгрузки
    poezdki=0
    gruz= 0
    dengi=0
    !1::
    SendInput, {F6}/Vlock{Enter}
    Return
    !3::
    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
    !2::
    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

    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}Здравия желаю !!! Я "ЗВАНИЯ" АП{ENTER}
    Sleep 1500
    SendInput,{F6}/me Достал документы , затем передал{ENTER}
    Sleep 1000
    SendInput,{F6}/showpass{SPACE}
    Return
    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput, {F6}/me отстегнул электрошокер "Аир-107у" с крепления на разгрузке{ENTER}
    Sleep, 1350
    Sendinput, {F6}/me применил электрошокер на нарушителе/преступнике{ENTER}
    Sleep, 1350
    SendInput, {f6}/tazer {SPASE}
    Return
    Numpad3::
    SendMessage 0x50,, 0x4190419,, A
    Sendinput, {F6}Прошу покинуть тереторию или я пременю меры .{ENTER}
    Sleep, 1350
    Sendinput, {F6}1{ENTER}
    Sleep, 1350
    SendInput, {f6}2{ENTER}
    Sleep 1350
    SendInput, {f6}3{ENTER}
    Return
    Numpad4::
    SendMessage 0x50,, 0x4190419,, A
    Sendinput, {F6}/me Достал автомать и-за спины{ENTER}
    sleep 1500
    Sendinput, {F6}/me Снял с предохронителя{ENTER}
    Sleep 1500
    Sendinput, {F6}/me Оружия в боеготовности{ENTER}
    Return
    Numpad5::
    SendMessage 0x50,, 0x4190419,, A
    Sendinput, {F6}/me Поставил автомат на предохронитель{ENTER}
    sleep 1500
    Sendinput, {F6}/me Убрал автомат за спину{ENTER}
    Sleep 1500
    Sendinput, {F6}/do Автомат за спиной{ENTER}
    Return
    Numpad6::
    SendMessage 0x50,, 0x4190419,, A
    Sendinput, {F6}/me Достал пистолет и-за спины{ENTER}
    sleep 1500
    Sendinput, {F6}/me Снял с предохронителя{ENTER}
    Sleep 1500
    Sendinput, {F6}/me Оружия в боеготовности{ENTER}
    Return
    Numpad5::
    SendMessage 0x50,, 0x4190419,, A
    Sendinput, {F6}/me Поставил пистолет на предохронитель{ENTER}
    sleep 1500
    Sendinput, {F6}/me Убрал пистолет за спину{ENTER}
    Sleep 1500
    Sendinput, {F6}/do Пистолет за спиной{ENTER}
    Return
     
  2. Larry Elison

    Larry Elison Young Millionaire

    Сообщения:
    221
    Симпатии:
    39
    Баллы:
    43
    Сервер:
    04
    Прикольно
     
  3. НикоБеллик

    НикоБеллик Участник

    Сообщения:
    74
    Симпатии:
    30
    Баллы:
    18
    Род занятий:
    программист
    Адрес:
    (GMT+4)
    Сайт:
    Ник:
    Leonard
    Сервер:
    05
    Скрипты не новые. Скрипт дальнобоя не ваш, вы его просто скопировали! Это заметно на уже вашем 2-ом скрипте...
    Красным отмечены ошибки в коде и орфографические ошибки.
    Синим отмечены скорее не ошибки, а примечания.(при запуске кода, в чат будет выводиться не самая красивая информация)
    Вы никак не могли написать скрипт дальнобоя имея столько ошибок во втором.
    Не знаю на что вы рассчитывали выкладывая эти скрипты... Которые уже имеются на оф.странице фракций. И если вы написали скрипт, то первым делом нужно его проверить на наличие ошибок! Как системных так и орфографических!
     
    Последнее редактирование: 13 авг 2018
  4. Andrey_Omelianenko.

    Andrey_Omelianenko. Anscheinend ist es das Ende...

    Сообщения:
    508
    Симпатии:
    594
    Баллы:
    93
    Адрес:
    Планета Земля
    Ник:
    Andrey_Omelianenko
    Сервер:
    01
    Просто скопировал...
     
  5. Boris_Corleone

    Boris_Corleone Участник

    Сообщения:
    246
    Симпатии:
    32
    Баллы:
    28
    Сервер:
    01
    -
     
  6. Thomas_Zhykov

    Thomas_Zhykov Легенда

    Сообщения:
    71
    Симпатии:
    92
    Баллы:
    113
    Ник:
    Thomas_Zhykov
    Сервер:
    06
    Здравствуйте дорогой игрок Gta Role Play
    Данная тема не Актуальна.
    Приятной игры на Gta Role Play.​
     
    Thomas_Brooks нравится это.
  7. Ernesto_Montano

    Ernesto_Montano #06forever

    Сообщения:
    3.520
    Симпатии:
    1.050
    Баллы:
    113
    Сервер:
    06
    Неактуально
     
Статус темы:
Закрыта.

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