Перейти к содержанию
ABSOLUTE

AutoHotkey и всё, что с ним связано)

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

Ребят стоит autobind От Dumona  и тиар плаер ид  как настроить  впродке все написал правильно а   првоеряет и дает зв не рядом стоящему игроку а  нулевому илу что за х не опйму помогите . Написано все правильно вроде {f6}/tazer (id){enter}{f6}/frisk (*id){enter}

Купить программу у настоящего Димона, а не скачивать с Интернета. :du:

Изменено пользователем (Eagle_Max)

Поделиться сообщением


Ссылка на сообщение

Купить программу у настоящего Димона, а не скачивать с Интернета. :du:

подскзаал бы лучшше прога его скачаная в инете и ве робит просто в чем то не разобрался

Поделиться сообщением


Ссылка на сообщение

Кто то недавно спрашивал про знак "!" как его отправлять в чат . 

Пример : 

SendInput {f6}privetiki{!}{!}{enter} 

Занеся его вот в такие вот скобочки " { } "

Ну и другим тоже на заметку.  ;) 

Поделиться сообщением


Ссылка на сообщение

подскзаал бы лучшше прога его скачаная в инете и ве робит просто в чем то не разобрался

В инете твоем лежит старая версия этой программы , для SAMP 0.3x скорее всего или просто защита какая нибудь стоит , с которой ты не сможешь справится . 

Изменено пользователем DeeeP

Поделиться сообщением


Ссылка на сообщение

подскзаал бы лучшше прога его скачаная в инете и ве робит просто в чем то не разобрался

В интернете не рабочая версия программы. :bz:

Изменено пользователем (Eagle_Max)

Поделиться сообщением


Ссылка на сообщение

В общем такая проблемка, есть advertising timer. Он пишет в /f чат, когда, что откат до рекламы 5 сек. А есть такой, который пишет это в простой чат?? Весь форум и гугл облазил, не нашел. 

Поделиться сообщением


Ссылка на сообщение

В общем такая проблемка, есть advertising timer. Он пишет в /f чат, когда, что откат до рекламы 5 сек. А есть такой, который пишет это в простой чат?? Весь форум и гугл облазил, не нашел. 

Нет такого :\

Сделать не сложно. 

Поделиться сообщением


Ссылка на сообщение

не особо разбираюсь в скриптах ахк,прошу помощь

ввёл код под спойлером, переобразовал его с .ahk на .exe при помощь Ahk2exe.

Скомпилировался, открыл его,зашел в игру- далее не работают кнопки энтер и F6,при закрытии скрипта кнопки работают

[spoiler=спойлер]Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
F10::
on=1
SendInput {f6}vkl{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, nimnul
{
if (InStr(stroka, "обыскал игрока")) or (InStr(stroka, "посадил")) or (InStr(stroka, "бахнул тазером")) or (InStr(stroka, "закован в наручники"))
{
Sleep 100
Sendinput {F3}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, Ты увеличил
{
if (InStr(stroka, "розыск")) or (InStr(stroka, "Ты увеличил"))
{
Sleep 100
Sendinput {F3}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, Ты дал
{
if (InStr(stroka, "звезды")) or (InStr(stroka, "звезд")) or (InStr(stroka, "Ты дал"))or (InStr(stroka, "Причина"))
{
Sleep 100
Sendinput {F3}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return

F11::
if on=1
{
on=2
Sendinput {f6}vikl{enter}
}
return
F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
enter UP::
if block=1
{
sleep 600
block=0
}
return

 

Изменено пользователем Nimnul

Поделиться сообщением


Ссылка на сообщение

Нет такого :\

Сделать не сложно. 

Для меня сложно, я вообще в этом не шарю :(

Поделиться сообщением


Ссылка на сообщение

не особо разбираюсь в скриптах ахк,прошу помощь

ввёл код под спойлером, переобразовал его с .ahk на .exe при помощь Ahk2exe.

Скомпилировался, открыл его,зашел в игру- далее не работают кнопки энтер и F6,при закрытии скрипта кнопки работают

[spoiler=спойлер]Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

block=0

F10::

on=1

SendInput {f6}vkl{enter}

Loop, read, %Filename%

nstroki=%A_Index%

start:

if on=2

return

if block=1

goto start

FileReadLine, stroka, %Filename%, %nstroki%

if ErrorLevel

{

nstroki-=1

goto start

}

if stroka=

{

nstroki+=1

goto start

}

IfInString, stroka, nimnul

{

if (InStr(stroka, "обыскал игрока")) or (InStr(stroka, "посадил")) or (InStr(stroka, "бахнул тазером")) or (InStr(stroka, "закован в наручники"))

{

Sleep 100

Sendinput {F3}

Sleep 300

nstroki+=1

goto start

}

}

IfInString, stroka, Ты увеличил

{

if (InStr(stroka, "розыск")) or (InStr(stroka, "Ты увеличил"))

{

Sleep 100

Sendinput {F3}

Sleep 300

nstroki+=1

goto start

}

}

IfInString, stroka, Ты дал

{

if (InStr(stroka, "звезды")) or (InStr(stroka, "звезд")) or (InStr(stroka, "Ты дал"))or (InStr(stroka, "Причина"))

{

Sleep 100

Sendinput {F3}

Sleep 300

nstroki+=1

goto start

}

}

nstroki+=1

goto start

return

 

F11::

if on=1

{

on=2

Sendinput {f6}vikl{enter}

}

return

F6 UP::

if block=0

{

block=1

return

}

if block=1

{

sleep 600

block=0

}

return

enter UP::

if block=1

{

sleep 600

block=0

}

return

 

F11::

if on=1

{

on=2

Sendinput {f6}vikl{enter}

}

return

F6 UP:: вот это на это ~$f6 UP::

if block=0

{

block=1

return

}

if block=1

{

sleep 600

block=0

}

return

enter UP::  вот это замени на это ~$enter UP::

if block=1

{

sleep 600

block=0

}

return

 

 

 

если не получится попробуй эти же строки заменить на эти

~$Enter UP::
~$f6 UP::
Изменено пользователем __.KingSize.__

Поделиться сообщением


Ссылка на сообщение
IfInString, stroka, Str@nN[i]cK
{
if (InStr(stroka, "принял вызов от")) or (InStr(stroka, "достал что-то из аптечки"))
{
Sleep 100
Sendinput {F8} 
Sleep 300
nstroki+=1

 скринит 2 раза )) чет я не пойму в чем проблемка, хотелось бы что б 1 раз было)

Изменено пользователем Str@nN[1]cK

Поделиться сообщением


Ссылка на сообщение

не особо разбираюсь в скриптах ахк,прошу помощь

ввёл код под спойлером, переобразовал его с .ahk на .exe при помощь Ahk2exe.

Скомпилировался, открыл его,зашел в игру- далее не работают кнопки энтер и F6,при закрытии скрипта кнопки работают

[spoiler=спойлер]Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

block=0

F10::

on=1

SendInput {f6}vkl{enter}

Loop, read, %Filename%

nstroki=%A_Index%

start:

if on=2

return

if block=1

goto start

FileReadLine, stroka, %Filename%, %nstroki%

if ErrorLevel

{

nstroki-=1

goto start

}

if stroka=

{

nstroki+=1

goto start

}

IfInString, stroka, nimnul

{

if (InStr(stroka, "обыскал игрока")) or (InStr(stroka, "посадил")) or (InStr(stroka, "бахнул тазером")) or (InStr(stroka, "закован в наручники"))

{

Sleep 100

Sendinput {F3}

Sleep 300

nstroki+=1

goto start

}

}

IfInString, stroka, Ты увеличил

{

if (InStr(stroka, "розыск")) or (InStr(stroka, "Ты увеличил"))

{

Sleep 100

Sendinput {F3}

Sleep 300

nstroki+=1

goto start

}

}

IfInString, stroka, Ты дал

{

if (InStr(stroka, "звезды")) or (InStr(stroka, "звезд")) or (InStr(stroka, "Ты дал"))or (InStr(stroka, "Причина"))

{

Sleep 100

Sendinput {F3}

Sleep 300

nstroki+=1

goto start

}

}

nstroki+=1

goto start

return

 

F11::

if on=1

{

on=2

Sendinput {f6}vikl{enter}

}

return

F6 UP::

if block=0

{

block=1

return

}

if block=1

{

sleep 600

block=0

}

return

enter UP::

if block=1

{

sleep 600

block=0

}

return

 

В скайпе помог.

 

IfInString, stroka, Str@nN[i]cK
{
if (InStr(stroka, "принял вызов от")) or (InStr(stroka, "достал что-то из аптечки"))
{
Sleep 100
Sendinput {F8} 
Sleep 300
nstroki+=1

 скринит 2 раза )) чет я не пойму в чем проблемка, хотелось бы что б 1 раз было)

 

Это весь код чтоли?

Поделиться сообщением


Ссылка на сообщение

В скайпе помог.

 

Это весь код чтоли?

неа не весь, вот пожалуйста весь код, но смысл ? функция срабатывания клавиши происходит после этих ключевых слов  

Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
Ctrl & NumPad1:: 
on=1
SendInput {f6}/b (: Auto ScreenShot Активирован :){enter} 
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, Str@nN[i]cK
{
if (InStr(stroka, "принял вызов от")) or (InStr(stroka, "достал что-то из аптечки"))
{
Sleep 100
Sendinput {F8} 
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, Сделка
{
if (InStr(stroka, "купил у тебя лекарство за $2000")) or (InStr(stroka, "купила у тебя лекарство за $2000"))
{
Sleep 100
Sendinput {F8} 
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, Ты вылечил
{
if (InStr(stroka, "на 100 процентов, стоимость лечения $1")) or (InStr(stroka, "на 120 процентов, стоимость лечения $1")) or (InStr(stroka, "на 140 процентов, стоимость лечения $1"))or (InStr(stroka, "на 160 процентов, стоимость лечения $1"))
{
Sleep 100
Sendinput {F8}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return

Alt & NumPad1::
if on=1
{
on=2
Sendinput {f6}/b ): Auto ScreenShot Диактивирован :({enter} 
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return 

Поделиться сообщением


Ссылка на сообщение

неа не весь, вот пожалуйста весь код, но смысл ? функция срабатывания клавиши происходит после этих ключевых слов 

Очень сложно реализовано. Я бы переписал при помощи RegMatch и масок. Гораздо проще будет выглядеть и можно задать кол-во символов с конца.

Поделиться сообщением


Ссылка на сообщение

Есть ли у кого-то скрипт, чтобы команду можно было вводить не полностью например: /usedrugs cocaine( ввод: /uc ) , так же и с другими командами

Поделиться сообщением


Ссылка на сообщение

Скиньте пожалуйста авто зв.

Чтобы при обыске сразу давались звезды.

Искал в этой теме...нашел только autostars, а ссылка не работает.

Поделиться сообщением


Ссылка на сообщение

Скиньте пожалуйста авто зв.

Чтобы при обыске сразу давались звезды.

Искал в этой теме...нашел только autostars, а ссылка не работает.

Лс почисти

Поделиться сообщением


Ссылка на сообщение

Помогите написать, пожалуйста.

Допустим, когда у меня выходит подобный текст: Участник твоей фракции [nick][id] зашел в игру. - у меня автоматический прописывало ему в /pm какой-нибудь текст. Буду благодарен, сам сделать не смог, пытался.

Поделиться сообщением


Ссылка на сообщение
 

Помогите написать, пожалуйста.

Допустим, когда у меня выходит подобный текст: Участник твоей фракции [nick][id] зашел в игру. - у меня автоматический прописывало ему в /pm какой-нибудь текст. Буду благодарен, сам сделать не смог, пытался.

MsgBox, Скрипт успешно включён. Подробная информация в "Помощь"(щелкнуть правой кнопкой мыши по значку в трее).
menu, tray, NoStandard
menu, tray, add , Помощь
menu, tray, add , Выйти
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
LShift & 3::
on=1
SendInput {f6}/s Скрипт для автоматического ответа в /pm On.{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, Участник твоей
{
if (InStr(stroka, "фракции")) or (InStr(stroka, "в игру"))
{
RegExMatch(stroka, "фракции.*\[(.*)\].зашел", idigroka)
Sendinput {F6}/pm %idigroka1% текст{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
LShift & 4::
if on=1
{
on=2
Sendinput {f6}/s Скрипт для автоматического ответа в /pm Off.{enter}
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return
Помощь:
msgbox 32,,
(
Включить: LShift+3. Выключить: LShift+4.
)
return
Выйти:
exitapp
Return
Изменено пользователем (Eagle_Max)

Поделиться сообщением


Ссылка на сообщение

 

 
MsgBox, Скрипт успешно включён. Подробная информация в "Помощь"(щелкнуть правой кнопкой мыши по значку в трее).
menu, tray, NoStandard
menu, tray, add , Помощь
menu, tray, add , Выйти
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
LShift & 3::
on=1
SendInput {f6}/s Скрипт для автоматического ответа в /pm On.{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, Участник твоей
{
if (InStr(stroka, "фракции")) or (InStr(stroka, "в игру"))
{
RegExMatch(stroka, "фракции.*\[(.*)\].зашел", idigroka)
Sendinput {F6}/pm %idigroka1% текст{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
LShift & 4::
if on=1
{
on=2
Sendinput {f6}/s Скрипт для автоматического ответа в /pm Off.{enter}
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return
Помощь:
msgbox 32,,
(
Включить: LShift+3. Выключить: LShift+4.
)
return
Выйти:
exitapp
Return

 

Спасибо. ;3

Поделиться сообщением


Ссылка на сообщение

Как сравнить ? В первой переменной у меня есть число , которое считывается и остается не измененным , а во второй переменной мне надо сверить данные из файла , записаны данные на каждой строке новые .

И как сделать следующие . 

Если переменная 1 равна второй если во второй переменной найдено совпадение . 

Ух , криво наверное написал , но думаю суть понятна)

Поделиться сообщением


Ссылка на сообщение

 

Как сравнить ? В первой переменной у меня есть число , которое считывается и остается не измененным , а во второй переменной мне надо сверить данные из файла , записаны данные на каждой строке новые .

И как сделать следующие . 

Если переменная 1 равна второй если во второй переменной найдено совпадение . 

Ух , криво наверное написал , но думаю суть понятна)

 

 

PEREMENNAYA : = "DeeP использует КПК."

FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Pattern := ",*DeeP,*" , sPos := -150

Start:
LogFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileRead, Log, *t %LogFile%
If RegExMatch(Log, Pattern, Match1, sPos)
{
IfInString, Match1, %PEREMENNAYA%
{
Действия
}
}
Goto Start
Изменено пользователем ABSOLUTE

Поделиться сообщением


Ссылка на сообщение
PEREMENNAYA : = "DeeP использует КПК."

FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Pattern := ",*DeeP,*" , sPos := -150

Start:
LogFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileRead, Log, *t %LogFile%
If RegExMatch(Log, Pattern, Match1, sPos)
{
IfInString, Match1, %PEREMENNAYA%
{
Действия
}
}
Goto Start

 

Решил вообще все гораздо проще)

FileRead, text, D:\test.txt
perneizm := 321

IfInString, text, %perneizm%
{
msgbox, Найдено 
}
else 
{
msgbox, не найдено
}

Знаю что он будет писать найдено в таких случаях "3219" если в строке хотя бы будет "321" , но мне и так сойдет ) Так как неизменяемая переменная будет шифроваться .

Изменено пользователем DeeeP

Поделиться сообщением


Ссылка на сообщение

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

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×