AHK для дальнобойщика

Я видел давно,что есть сканер у дальнобойщиков (сколько грузов перевез,денег и т.д).
Но ссылку ни как не найду.
Будьте добры скиньте ссылку на AHK

 

Спойлер: code

;Скрипт "Помощник дальнобойщика"
;Автор GlassyQuasar
;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}/lock{Enter}
Return

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

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

!4::
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/do Бортовой компьютер сообщает: Количество совершенных поездок: %poezdki%{Enter}
Sleep 1100
SendInput, {F6}/do Бортовой компьютер сообщает: Количество перевезенных тонн: %gruz%{Enter}
Sleep 1100
SendInput, {F6}/do Бортовой компьютер сообщает: Количество полученных денег: %dengi%{Enter}
return

^2::
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/f Прием. Загрузил %Amount% тонн нефти, отправляюсь на разгрузку.{Enter}
return

^3::
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/f Прием. Разгрузился на нефтезаводе, отправляюсь на загрузку.{Enter}
return

!5::
SendMessage, 0x50,, 0x4190419,, A
SendInput,{F6}/do Навигатор указал примерное время загрузки/разгрузки %hour%:%min%:%sec% {Enter}
return

 

Мой скрипт -

Спойлер: AHK

PHP:

NumPad 1 - Закрыть Т/C
NumPad 2: Разгрузиться
NumPad 3: Загрузить необходимое кол-во тонн
NumPad 4: Кол-во поездок, перевезенных тонн и общий заработок
NumPad 7: Время до загрузки/разгрузки


NumPad1::
SendInput, {F6}/Vlock{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
NumPad3::
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

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

NumPad7::
SendMessage, 0x50,, 0x4190419,, A
SendInput,{F6}/do Навигатор указал примерное время загрузки/разгрузки %hour%:%min%:%sec% {Enter}
return 

 

Ответы выше.

 

выше

closed.