Вопросы по AHK-скриптингу
- Автор темы gwplayer
- Дата начала
madrasso
Потрачен
- 883
- 324
Такое дело, товарищи. Есть ахк по просьбам админов в админ чате, должен выдавать наказания, но работает через раз, иногда пашет, а иногда просто два пробела в чат, в чем проблема, помогите
Помогите написать скрипт для сампа, который при виде определенного сообщения в чате, будет копировать ее тебе в чат
Код:
#IfWinActive GTA:SA:MP
#SingleInstance Force
#NoEnv
ListLines Off
SetBatchLines -1
chatlog := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
FileDelete, %chatlog%
Words = (kick|mute|jail|sethp|unmute|unjail|sban|spcar|ban|sban|warn|skick|setskin|ao|unban|unwarn|setskin|skick|banip|banoff|warnoff|plveh|sban)
F2::
FileRead, Str, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringReplace, Str, Str, `r`n, `n, 1
StringReplace, Str, Str, `r, `n, 1
RegExMatch("`n" Str "`n", "i).*\n\[\d+:\d+:\d+]\s*\[A].*?\[.*?]:\s*(/`*" Words "\s.*?)\n", Match)
ToolTip % Clipboard := Match1
FileAppend,%Match1%`n,logachat.ini
SendMessage, 0x50,, 0x4190419,, A
Sleep 150
SendInput,{F6}%match1% {space}
clipboard =
ToolTip
FileDelete,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
ReturnПомогите написать скрипт для сампа, который при виде определенного сообщения в чате, будет копировать ее тебе в чат
Последнее редактирование модератором:
как сделат что бы при вводе /дбм выскакивало окошко с 3 действиями:
1.Увал
2.Выг
3.Увольнительная
Много раз пробовал но не полачалося
1.Увал
2.Выг
3.Увольнительная
Много раз пробовал но не полачалося
Это полный код, по поводу выговор не заморачивайся, лучше всего систему выдачи выговор будет написать на lua, на ахк будет много мороки с чекером диалога (RegExMatch).
Код:
#Include samp udf.ahk
;--Функция LineResult()
LineResult() {
if (!isDialogOpen() || getDialogStyle() = 0 || getDialogStyle() = 1 || getDialogStyle() = 3)
return false
while (isDialogOpen())
continue
if(GetKeyState("Esc", "P"))
return false
return getDialogLineNumber()
}
;------------------------------
:?:/дбм::
showDialog(2, "Helper","[1]Уволить игрока`n[2]Выдать выговор`n[3]Увольнительный рапорт", "ОК")
Result := LineResult()
if (!Result)
return
Gosub, dil%Result%
return
dil1:
действия/отыгровки.
dil2:
действия/отыгровки.
dil3:
действия/отыгровки
returnНет, нельзя, но ты можешь написать диалоги на lua, и там изначально пожно сделать больше, из-за того что lua, не отдельный интерфейс а встроенный в игру
Вопрос по регуляркам
Есть текст диалога
Необходимо получить число из строки: "Из них онлайн: 6"
количество строк может быть любым, также как и число, но сама строка является неизменной
Есть текст диалога
Код:
Уровень Ранг Телефон Имя{FFFFFF}
7 6 999292 Hate_You[31]-AFK
14 7 229999 Maksim_Gorech[53]
7 6 133311 Danya_Milkovich[89]
9 7 223345 Benz_Truck[101]
13 9 636667 Stan_Lamare[104]
6 1 1768922 Lesha_Ovchinnikov[139]
{00FF99}Всего в подразделении: 355
Из них онлайн: 6
На паузе: 1количество строк может быть любым, также как и число, но сама строка является неизменной
Проблема: при выборе ЛЮБОЙ строки из меню, ReturnLine() возвращает запредельно высокое число, у меня это 256. Строки 256 не существует и даже если бы возвращало просто общее кол-во строк, было бы 2.
Код:
F10::
{
sleep 100
ShowDialog(2, "Меню MST", "1.Function 1. `n2. Function 2.","Ок")
ResultFunc := LineResult()
sleep 50
if (!ResultFunc)
return
while(isDialogOpen()) {
sleep 100
}
if(ResultFunc == 1) ; Меню MST-TP
{
addChatMessage("LigneNumber = " ResultFunc)
}
if(ResultFunc == 2) ; Меню MST-TP
{
addChatMessage("LigneNumber = " ResultFunc)
}
else
{
addChatMessage("Error!")
addChatMessage("LigneNumber = " ResultFunc)
}
return
}
Мой ReturnLine()
LineResult() {
if (!isDialogOpen())
return false
if (getDialogStyle() = 0 || getDialogStyle() = 1 || getDialogStyle() = 3)
return false
while(!GetKeyState("LButton", "P") && !GetKeyState("Enter", "P") && !GetKeyState("Esc", "P"))
continue
if (GetKeyState("Enter", "P"))
return getDialogIndex()
else if (GetKeyState("Esc", "P"))
return false
else{
KeyWait, LButton
KeyWait, LButton, D T0.4
if (isDialogOpen())
return LineResult()
else
return getDialogIndex()
}
}
Код:
$~Enter::
if (IsInChat() = 1)
{
sleep, 200
dwAddress := dwSAMP + 0x12D8F8
chat := readString(hGTA, dwAddress, 256)
if (chat == "/find")
{
back:
if (isDialogOpen() = 1)
{
Dtext:=getDialogText()
RegExMatch(Dtext, "Из них онлайн:(.*)\n", out)
RegExMatch(out1, "[0-9]+", chel)
sendchat("/me достав КПК перешел во вкладку ""Список сотрудников""")
sleep 1500
sendchat("/do Количество сотрудников в штате: " chel ".")
return
}
if (isDialogOpen() = 0)
{
goto, back
}
}
}
Adam_Rockwell
Активный
- 143
- 25
Сделать отыгровки через функцию SendChat
number := RegExReplace(number, "(\d)(\d)(\d)", "$1-$2-$3")
Ты нигде не вызываешь метку YourPol.
Вызови её через gosub в метке Save.
Последнее редактирование:
Возможно ли как-то сделать так, чтобы когда целишься в игрока и нажимаешь допустим клавишу "Insert", у тебя считывался его ID и прописывалось бы в чат команду "/vigovor [его ID] нарушение устава"? Если да, то подскажите пожалуйста как, буду благодарен!
