M M.Gonzales Новичок Автор темы 1 0 24 Сен 2018 #1 Нужно чтобы вы мне помогли сделать АХК для сампа. Описание: напримар вопрос Как лечь ? /answ [id] лечь командой /lay Последнее редактирование: 24 Сен 2018
Нужно чтобы вы мне помогли сделать АХК для сампа. Описание: напримар вопрос Как лечь ? /answ [id] лечь командой /lay
S #saniwe глаза пофикси 218 107 24 Сен 2018 #2 Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки. так чекни тему по "чтению чата" и все поймешь как сделать..... Позитивный голос 0 Негативный голос
Revalto Известный 532 225 24 Сен 2018 #3 Выглядит как заказ, а не как помощь... Чекаешь чат, находишь фразу, после чего отправляешь ответ. Позитивный голос 0 Негативный голос
AnWu Известный Всефорумный модератор 4,778 5,406 24 Сен 2018 #4 такое лучше и проще на луа чиркануть. но уже не раз поднимался вопрос о миллионах вариаций одного вопроса. пиши ИИ Позитивный голос 0 Негативный голос
такое лучше и проще на луа чиркануть. но уже не раз поднимался вопрос о миллионах вариаций одного вопроса. пиши ИИ
Call_Dead Известный 3 1 24 Сен 2018 #5 M.Gonzales написал(а): Нужно чтобы вы мне помогли сделать АХК для сампа. Описание: напримар вопрос Как лечь ? /answ [id] лечь командой /lay Нажмите для раскрытия... Код: #IfWinActive GTA:SA:MP #include SAMP.ahk $~Enter:: $~NumpadEnter:: if(!checkHandles()) return LastLine:=GetChatText() File = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt if (lastLine==-1) return if RegExMatch(lastLine, "^\/answlay\s(\d+)", d) { sleep 200 nick := getPlayerNameById(d1) sleep 200 SendMessage, 0x50,, 0x4190419,, A SendChat("/answ " d1 " Лечь командой /lay") } return Позитивный голос 0 Негативный голос
M.Gonzales написал(а): Нужно чтобы вы мне помогли сделать АХК для сампа. Описание: напримар вопрос Как лечь ? /answ [id] лечь командой /lay Нажмите для раскрытия... Код: #IfWinActive GTA:SA:MP #include SAMP.ahk $~Enter:: $~NumpadEnter:: if(!checkHandles()) return LastLine:=GetChatText() File = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt if (lastLine==-1) return if RegExMatch(lastLine, "^\/answlay\s(\d+)", d) { sleep 200 nick := getPlayerNameById(d1) sleep 200 SendMessage, 0x50,, 0x4190419,, A SendChat("/answ " d1 " Лечь командой /lay") } return
S Smer4 Известный 426 52 24 Сен 2018 #6 Код: #NoEnv #Include samp.ahk num = 0 file = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt lp: Loop { num ++ FileRead, chatlog, %file% IfInString, chatlog, "Как лечить?" addChatMessage("/answ [id] лечь командой /lay") if num = 500 goto, clear clear: FileDelete, %file% FileAppend, ,%file% goto, lp } Последнее редактирование: 24 Сен 2018 Позитивный голос 0 Негативный голос
Код: #NoEnv #Include samp.ahk num = 0 file = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt lp: Loop { num ++ FileRead, chatlog, %file% IfInString, chatlog, "Как лечить?" addChatMessage("/answ [id] лечь командой /lay") if num = 500 goto, clear clear: FileDelete, %file% FileAppend, ,%file% goto, lp }