Andy Safino
Участник
- 69
- 4
Сохраняешь файл и меняешь формат на .ahkНарод, кто знает как сохранить showdialo в txt файл, видел подное но не могу найти
Сохраняешь файл и меняешь формат на .ahkНарод, кто знает как сохранить showdialo в txt файл, видел подное но не могу найти
F1::
SendChat("/members")
list_player := []
for k, v in getDialogLines()
{
if (RegExMatch(v, "^{.*}([A-z_]{4,24})\((\d{1,3})\)\s+(.*)\((\d+)\)\s+(\d)\s+(\d+)$", out_pars))
{
if (!isPlayerInStreamById(out_pars2, 30))
{
list_player.Push(v)
}
}
}
showDialog(4, "Проверка строя", GetText(list_player)[1], "X")
while (isDialogOpen() and Time < 500)
{
if (A_TickCount - Time > 500)
{
Return
}
While((GetKeyState("Enter", "P") or GetKeyState("LButton", "P") or (isDialogButtonSelected() = 1 and GetKeyState("LButton", "P"))))
{
selLine := getDialogLine(getDialogLineNumber())
if (RegExMatch(selLine, "^{.*}([A-z_]{4,24})\((\d{1,3})\)\s+(.*)\((\d+)\)\s+(\d)\s+(\d+)$", out_pars))
SendInput, {F6}/fwarn %out_pars2%{Space}
}
}
Return
а что бы например на 1 отыгрывалась одно действие на когда нажму 2 отыгрывалося 2 действие?AutoHotKey:F9:: ; какие-то действия KeyWait, 1, D ; ещё какие-то действия, после того, как нажмёшь 1 return
Если хочешь комбинацию клавиш, к примеру Alt+F12, то вот так
AutoHotKey:KeyWait, Alt, D KeyWait, F12, D
Cкопировать юдф в начало кода, пропустить 2 строки ( для удобства ) и вставить свой код.Доброго времени суток! Помогите, пожалуйста. Как соединить свой АХК с samp.udf, чтобы всё было в одном файле?
Спасибо! У меня возникла ещё одна проблема. Проверьте, пожалуйста, если не трудно код и исправьте ошибку. Программа должна считывать текст с файла, затем в чат высветить надпись. Вот сам код:Cкопировать юдф в начало кода, пропустить 2 строки ( для удобства ) и вставить свой код.
#Include SAMP.ahk
Chatlog = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Text = "АХК активирован!"
Loop
Fileread, Odin, %Chatlog%
If Odin contains Started
{
Addchatmessage(Text)
}
Return
По логике сначало идёт Edit, или другой итилет, потом за Edit либо другой функцией прописуешь IniWrite, при сохранении файл сам создаться там где твой файл ahk (A_ScriptDir)
IniRead, imy, %DIRSETTING%,HERO,Imy
IniRead, kimy, %DIRSETTING%,HERO,Kimy
IniRead, frak, %DIRSETTING%,HERO,Frak
IniRead, rang, %DIRSETTING%,HERO,Rang1
IniRead, nrang, %DIRSETTING%,HERO, Rang2
IniRead, teg, %DIRSETTING%,HERO,Teg1
IniRead, tegf, %DIRSETTING%,HERO,Teg2
IniRead, nomer, %DIRSETTING%,HERO,Nomer
IniRead, gres, %DIRSETTING%,HERO,Gres
IfExist, %DIR%\config.ini
Gosub, ReadSettings
if imy=ERROR
{
imy=
}
if kimy=ERROR
{
kimy=
}
if frak=ERROR
{
frak=
}
if nrang=ERROR
{
nrang=
}
if teg=ERROR
{
teg=
}
if tegf=ERROR
{
tegf=
}
if nomer=ERROR
{
nomer=
}
if gres=ERROR
{
gres=Сотрудник ПД
}
if rang=ERROR
{
rang=1
}
Gui, Add, Tab2, x2 y0 w510 h400 , Главная|Настройки|Другое|Клавиши|
Gui, Add, Picture, x-8 y20 w490 h370 , C:\Users\Артем\Desktop\мвд 2018-19\Без имени-1.jpg
Gui, Tab, Главная
Gui, Add, GroupBox, x145 y90 w200 h130 , Ваши данные
Gui, Add, Text, x152 y110 w80 h20 , Ник: %imy%
Gui, Add, Text, x152 y130 w80 h20 , Организация: %frak%
Gui, Add, Text, x152 y150 w80 h20 , Профиль: %gres%
Gui, Add, Text, x152 y170 w80 h20 , Ранг: %rang%
Gui, Add, Text, x110 y30 w270 h50 +Center, Если в тексте ниже нет Ваших данных или Вы хотите их изменить - перейдите в вкладку Настройки.
Gui, Add, Button, x155 y250 w180 h50 , Продолжить
Gui, Tab, Главная
Gui, Add, Text, x392 y0 w90 h30 +Center, Версия скрипта: 0.0.1
Gui, Tab, Настройки
Gui, Add, Text, x12 y30 w110 h20 , Полное имя (без _)
Gui, Add, Text, x12 y60 w80 h20 , Краткое имя
Gui, Add, Text, x12 y90 w110 h20 , Название фракции
Gui, Add, Text, x12 y120 w110 h20 , Название ранга
Gui, Add, Text, x12 y150 w130 h20 , Текст тэга для /r (с [ ] )
Gui, Add, Text, x12 y180 w130 h20 , Текст тэга для /f (с [ ] )
Gui, Add, Button, x172 y330 w160 h50 , Сохранить
Gui, Add, Edit, x162 y30 w100 h20 vimy, %imy%
Gui, Add, Edit, x162 y60 w100 h20 vkimy, %kimy%
Gui, Add, Edit, x162 y90 w100 h20 vfrak, %frak%
Gui, Add, Text, x12 y210 w130 h20 , Номер телефона
Gui, Add, Edit, x162 y120 w100 h20 vnrang, %nrang%
Gui, Add, Edit, x162 y150 w100 h20 vteg, %teg%
Gui, Add, Edit, x162 y180 w100 h20 vtegf, %tegf%
Gui, Add, Edit, x162 y210 w100 h20 vnomer, %nomer%
Gui, Add, Text, x12 y240 w130 h20 , Профиль
Gui, Add, DropDownList, x162 y240 w110 h20 , Сотрудник ПД|Сотрудник FBI|Сотрудник SWAT|Сотрудник ДПС|Лидер
GuiControl, ChooseString, gres, %gres%
Gui, Add, Text, x12 y270 w130 h20 , Ранг цифрой
Gui, Add, DropDownList, x162 y270 w110 h20 rang, 1|2|3|4|5|6|7|8|9|10
GuiControl, ChooseString, rang, %rang%
Gui, Show, w494 h401, by Den Frostow
return
GuiClose:
ExitApp
ReadSettings:
IniRead, imy, %DIRSETTING%,HERO,Imy
IniRead, kimy, %DIRSETTING%,HERO,Kimy
IniRead, frak, %DIRSETTING%,HERO,Frak
IniRead, rang, %DIRSETTING%,HERO,Rang1
IniRead, nrang, %DIRSETTING%,HERO, Rang2
IniRead, teg, %DIRSETTING%,HERO,Teg1
IniRead, tegf, %DIRSETTING%,HERO,Teg2
IniRead, nomer, %DIRSETTING%,HERO,Nomer
IniRead, gres, %DIRSETTING%,HERO,Gres
Return
ButtonСохранить:
Gui, Submit, NoHide
IniWrite, %imy%, %DIRSETTING%,HERO,Imy
IniWrite, %kimy%, %DIRSETTING%,HERO,Kimy
IniWrite, %frak%, %DIRSETTING%,HERO,Frak
IniWrite, %rang%, %DIRSETTING%,HERO,Rang1
IniWrite, %nrang%, %DIRSETTING%,HERO, Rang2
IniWrite, %teg%, %DIRSETTING%,HERO,Teg1
IniWrite, %tegf%, %DIRSETTING%,HERO,Teg2
IniWrite, %nomer%, %DIRSETTING%,HERO,Nomer
IniWrite, %gres%, %DIRSETTING%,HERO,Gres
Reload
Return
Либо убери переменную IniRead, которая тебе нафиг не нужна, либо в переменной Save удали - Reload и ReturnC++:IniRead, imy, %DIRSETTING%,HERO,Imy IniRead, kimy, %DIRSETTING%,HERO,Kimy IniRead, frak, %DIRSETTING%,HERO,Frak IniRead, rang, %DIRSETTING%,HERO,Rang1 IniRead, nrang, %DIRSETTING%,HERO, Rang2 IniRead, teg, %DIRSETTING%,HERO,Teg1 IniRead, tegf, %DIRSETTING%,HERO,Teg2 IniRead, nomer, %DIRSETTING%,HERO,Nomer IniRead, gres, %DIRSETTING%,HERO,Gres IfExist, %DIR%\config.ini Gosub, ReadSettings if imy=ERROR { imy= } if kimy=ERROR { kimy= } if frak=ERROR { frak= } if nrang=ERROR { nrang= } if teg=ERROR { teg= } if tegf=ERROR { tegf= } if nomer=ERROR { nomer= } if gres=ERROR { gres=Сотрудник ПД } if rang=ERROR { rang=1 } Gui, Add, Tab2, x2 y0 w510 h400 , Главная|Настройки|Другое|Клавиши| Gui, Add, Picture, x-8 y20 w490 h370 , C:\Users\Артем\Desktop\мвд 2018-19\Без имени-1.jpg Gui, Tab, Главная Gui, Add, GroupBox, x145 y90 w200 h130 , Ваши данные Gui, Add, Text, x152 y110 w80 h20 , Ник: %imy% Gui, Add, Text, x152 y130 w80 h20 , Организация: %frak% Gui, Add, Text, x152 y150 w80 h20 , Профиль: %gres% Gui, Add, Text, x152 y170 w80 h20 , Ранг: %rang% Gui, Add, Text, x110 y30 w270 h50 +Center, Если в тексте ниже нет Ваших данных или Вы хотите их изменить - перейдите в вкладку Настройки. Gui, Add, Button, x155 y250 w180 h50 , Продолжить Gui, Tab, Главная Gui, Add, Text, x392 y0 w90 h30 +Center, Версия скрипта: 0.0.1 Gui, Tab, Настройки Gui, Add, Text, x12 y30 w110 h20 , Полное имя (без _) Gui, Add, Text, x12 y60 w80 h20 , Краткое имя Gui, Add, Text, x12 y90 w110 h20 , Название фракции Gui, Add, Text, x12 y120 w110 h20 , Название ранга Gui, Add, Text, x12 y150 w130 h20 , Текст тэга для /r (с [ ] ) Gui, Add, Text, x12 y180 w130 h20 , Текст тэга для /f (с [ ] ) Gui, Add, Button, x172 y330 w160 h50 , Сохранить Gui, Add, Edit, x162 y30 w100 h20 vimy, %imy% Gui, Add, Edit, x162 y60 w100 h20 vkimy, %kimy% Gui, Add, Edit, x162 y90 w100 h20 vfrak, %frak% Gui, Add, Text, x12 y210 w130 h20 , Номер телефона Gui, Add, Edit, x162 y120 w100 h20 vnrang, %nrang% Gui, Add, Edit, x162 y150 w100 h20 vteg, %teg% Gui, Add, Edit, x162 y180 w100 h20 vtegf, %tegf% Gui, Add, Edit, x162 y210 w100 h20 vnomer, %nomer% Gui, Add, Text, x12 y240 w130 h20 , Профиль Gui, Add, DropDownList, x162 y240 w110 h20 , Сотрудник ПД|Сотрудник FBI|Сотрудник SWAT|Сотрудник ДПС|Лидер GuiControl, ChooseString, gres, %gres% Gui, Add, Text, x12 y270 w130 h20 , Ранг цифрой Gui, Add, DropDownList, x162 y270 w110 h20 rang, 1|2|3|4|5|6|7|8|9|10 GuiControl, ChooseString, rang, %rang% Gui, Show, w494 h401, by Den Frostow return GuiClose: ExitApp ReadSettings: IniRead, imy, %DIRSETTING%,HERO,Imy IniRead, kimy, %DIRSETTING%,HERO,Kimy IniRead, frak, %DIRSETTING%,HERO,Frak IniRead, rang, %DIRSETTING%,HERO,Rang1 IniRead, nrang, %DIRSETTING%,HERO, Rang2 IniRead, teg, %DIRSETTING%,HERO,Teg1 IniRead, tegf, %DIRSETTING%,HERO,Teg2 IniRead, nomer, %DIRSETTING%,HERO,Nomer IniRead, gres, %DIRSETTING%,HERO,Gres Return ButtonСохранить: Gui, Submit, NoHide IniWrite, %imy%, %DIRSETTING%,HERO,Imy IniWrite, %kimy%, %DIRSETTING%,HERO,Kimy IniWrite, %frak%, %DIRSETTING%,HERO,Frak IniWrite, %rang%, %DIRSETTING%,HERO,Rang1 IniWrite, %nrang%, %DIRSETTING%,HERO, Rang2 IniWrite, %teg%, %DIRSETTING%,HERO,Teg1 IniWrite, %tegf%, %DIRSETTING%,HERO,Teg2 IniWrite, %nomer%, %DIRSETTING%,HERO,Nomer IniWrite, %gres%, %DIRSETTING%,HERO,Gres Reload Return
Не знаю почему он не хочет создавать фаил,уже много чего перепробывал
Перед Text := «Ахк активировано» считай строчку путём RegExMatch ChatLineСпасибо! У меня возникла ещё одна проблема. Проверьте, пожалуйста, если не трудно код и исправьте ошибку. Программа должна считывать текст с файла, затем в чат высветить надпись. Вот сам код:
AutoHotKey:#Include SAMP.ahk Chatlog = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt Text = "АХК активирован!" Loop Fileread, Odin, %Chatlog% If Odin contains Started { Addchatmessage(Text) } Return
Все попробовал ничего не помоглоЛибо убери переменную IniRead, которая тебе нафиг не нужна, либо в переменной Save удали - Reload и Return
Если ты просишь написать за тебя, а судя по контексту твоего сообщения это так, то уж пиши сюдаПомогите написать скрипт который, при нажатии на клавишу кикал бы тебя с сервера и писало бы в чат "Вы были кикнуты по подозрению в читерстве" просто никак не могу найти нужные опкоды
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
#Include, SAMP.ahk ;название udf
#IfWinActive, GTA:SA:MP
o:= 0 ; количество станций
k:= 0 ; количество кругов
SetFormat, float, 0.0
z:= 0 ; зарплата
SetFormat, float, 0.0
F2:: ; Клавиша активации скрипта
Addchatmessage("{ff0000}Счётчик активирован")
way = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; Путь к ЧатЛогу
FileDelete, %way% ; Удаляем ЧатЛог
Loop
{
FileRead, file, %way% ; Читаем ЧатЛог
IfInString, file, Станция. Ждите пассажиров ; Ищем в ЧатЛоге фразу
{
Sleep 1500 ; Задержка
o:=o+1
k:=o/6
z:=o*408.33
AddChatMessage("{ffffff}Количество станций: {35bf4d}" o)
AddChatMessage("{ffffff}Количество кругов: {35bf4d}" k)
AddChatMessage("{ffffff}Зарплата: {35bf4d}~" z "{35bf4d}$" )
FileDelete, %way% ; Удаляем ЧатЛог
}
}
return
F3:: ; обнуление
o:=0
z:=0
Addchatmessage("{ff0000}Счётчик обнулён")
return
F11:: ; приостановка по F11.
If not Stop
{
Addchatmessage("{ff0000}Счётчик приостановился {00ff04}(F12 для включения)")
Stop := True
Pause
}
Return
F12:: ; возобновление по F12.
If Stop
{
Stop := False
Pause
Addchatmessage("{ff0000}Счётчик возобновился {00ff04}(F11 для выключения)")
}
return
#include SAMP.ahk
#IfWinActive GTA:SA:MP
sleep 2000
Addchatmessage("{ff0000}АнтиАфк включён. Для старта нажмите F2. Для паузы F11")
!F2::
Loop
{
SendMessage, 0x50,, 0x4190419,, A
sendChat("/me расслабился и закинул ноги на приборную панель")
sleep 2000
sendChat("/me взял рупор")
sleep 2000
sendChat("/s Дорогу, а то задавлю")
sleep 2000
sendChat("/me повесил рупор на место")
sleep 2000
sendChat("/do Чух-Чух-Чух")
sleep 2000
sendChat("/do поезд продолжает движение")
Sleep 30000
}
Return
!F11:: ; Приостановка по F11.
If not Stop
{
Addchatmessage("{ff0000}АнтиАфк приостановился {00ff04}(можно закрывать игру)")
Stop := True
Pause
}
Return
!F12:: ; Возобновление по F12.
If Stop
{
Stop := False
Pause
Addchatmessage("{ff0000}АнтиАфк возобновился {00ff04}(F11 для выключения)")
}
Return
Сейчас тебе отпишу полный кодВсе попробовал ничего не помогло
Этого на ахк сделать нельзя, так как системой киканья занимается сервер. Ты можешь на кнопку прописать команду /q.Помогите написать скрипт который, при нажатии на клавишу кикал бы тебя с сервера и писало бы в чат "Вы были кикнуты по подозрению в читерстве" просто никак не могу найти нужные опкоды
Кнопка::
SendInput, {F6}/q{enter}
return
Не понимаю ничего. Почему у тебя в проверке на "ERROR" написано config.ini, хотя прописано что проверка с "%DIRSETTING%" в IniRead. пропиши вместо DIRSETTING без процентов - сonfig.ini.C++:IniRead, imy, %DIRSETTING%,HERO,Imy IniRead, kimy, %DIRSETTING%,HERO,Kimy IniRead, frak, %DIRSETTING%,HERO,Frak IniRead, rang, %DIRSETTING%,HERO,Rang1 IniRead, nrang, %DIRSETTING%,HERO, Rang2 IniRead, teg, %DIRSETTING%,HERO,Teg1 IniRead, tegf, %DIRSETTING%,HERO,Teg2 IniRead, nomer, %DIRSETTING%,HERO,Nomer IniRead, gres, %DIRSETTING%,HERO,Gres IfExist, %DIR%\config.ini Gosub, ReadSettings if imy=ERROR { imy= } if kimy=ERROR { kimy= } if frak=ERROR { frak= } if nrang=ERROR { nrang= } if teg=ERROR { teg= } if tegf=ERROR { tegf= } if nomer=ERROR { nomer= } if gres=ERROR { gres=Сотрудник ПД } if rang=ERROR { rang=1 } Gui, Add, Tab2, x2 y0 w510 h400 , Главная|Настройки|Другое|Клавиши| Gui, Add, Picture, x-8 y20 w490 h370 , C:\Users\Артем\Desktop\мвд 2018-19\Без имени-1.jpg Gui, Tab, Главная Gui, Add, GroupBox, x145 y90 w200 h130 , Ваши данные Gui, Add, Text, x152 y110 w80 h20 , Ник: %imy% Gui, Add, Text, x152 y130 w80 h20 , Организация: %frak% Gui, Add, Text, x152 y150 w80 h20 , Профиль: %gres% Gui, Add, Text, x152 y170 w80 h20 , Ранг: %rang% Gui, Add, Text, x110 y30 w270 h50 +Center, Если в тексте ниже нет Ваших данных или Вы хотите их изменить - перейдите в вкладку Настройки. Gui, Add, Button, x155 y250 w180 h50 , Продолжить Gui, Tab, Главная Gui, Add, Text, x392 y0 w90 h30 +Center, Версия скрипта: 0.0.1 Gui, Tab, Настройки Gui, Add, Text, x12 y30 w110 h20 , Полное имя (без _) Gui, Add, Text, x12 y60 w80 h20 , Краткое имя Gui, Add, Text, x12 y90 w110 h20 , Название фракции Gui, Add, Text, x12 y120 w110 h20 , Название ранга Gui, Add, Text, x12 y150 w130 h20 , Текст тэга для /r (с [ ] ) Gui, Add, Text, x12 y180 w130 h20 , Текст тэга для /f (с [ ] ) Gui, Add, Button, x172 y330 w160 h50 , Сохранить Gui, Add, Edit, x162 y30 w100 h20 vimy, %imy% Gui, Add, Edit, x162 y60 w100 h20 vkimy, %kimy% Gui, Add, Edit, x162 y90 w100 h20 vfrak, %frak% Gui, Add, Text, x12 y210 w130 h20 , Номер телефона Gui, Add, Edit, x162 y120 w100 h20 vnrang, %nrang% Gui, Add, Edit, x162 y150 w100 h20 vteg, %teg% Gui, Add, Edit, x162 y180 w100 h20 vtegf, %tegf% Gui, Add, Edit, x162 y210 w100 h20 vnomer, %nomer% Gui, Add, Text, x12 y240 w130 h20 , Профиль Gui, Add, DropDownList, x162 y240 w110 h20 , Сотрудник ПД|Сотрудник FBI|Сотрудник SWAT|Сотрудник ДПС|Лидер GuiControl, ChooseString, gres, %gres% Gui, Add, Text, x12 y270 w130 h20 , Ранг цифрой Gui, Add, DropDownList, x162 y270 w110 h20 rang, 1|2|3|4|5|6|7|8|9|10 GuiControl, ChooseString, rang, %rang% Gui, Show, w494 h401, by Den Frostow return GuiClose: ExitApp ReadSettings: IniRead, imy, %DIRSETTING%,HERO,Imy IniRead, kimy, %DIRSETTING%,HERO,Kimy IniRead, frak, %DIRSETTING%,HERO,Frak IniRead, rang, %DIRSETTING%,HERO,Rang1 IniRead, nrang, %DIRSETTING%,HERO, Rang2 IniRead, teg, %DIRSETTING%,HERO,Teg1 IniRead, tegf, %DIRSETTING%,HERO,Teg2 IniRead, nomer, %DIRSETTING%,HERO,Nomer IniRead, gres, %DIRSETTING%,HERO,Gres Return ButtonСохранить: Gui, Submit, NoHide IniWrite, %imy%, %DIRSETTING%,HERO,Imy IniWrite, %kimy%, %DIRSETTING%,HERO,Kimy IniWrite, %frak%, %DIRSETTING%,HERO,Frak IniWrite, %rang%, %DIRSETTING%,HERO,Rang1 IniWrite, %nrang%, %DIRSETTING%,HERO, Rang2 IniWrite, %teg%, %DIRSETTING%,HERO,Teg1 IniWrite, %tegf%, %DIRSETTING%,HERO,Teg2 IniWrite, %nomer%, %DIRSETTING%,HERO,Nomer IniWrite, %gres%, %DIRSETTING%,HERO,Gres Reload Return
Не знаю почему он не хочет создавать фаил,уже много чего перепробывал
Хотелось бы самому узнать.Вопрос, как сделать активацию/деактивацию части скрипта через дилог? Например:
GunList [Отключено], При нажатии: GunList [Включено]