1

Тема: [SAMP] Помогите пожалуйста сделать автоответчик

Помогите пожалуйста сделать автоответчик

; Script Function:

#NoEnv  ;
SendMode Input  ; 
SetWorkingDir %A_ScriptDir%  ;
Script := "Вы тут?"

Kenzo:
fileread, sms, %a_mydocuments%\gta san andreas user files\samp\chatlog.txt
if sms contains %Script%
     {
     SendMessage, 0x50,, 0x4190419,, A
     Send, {F6}да, тут{Enter}
     sleep, 10
     filedelete,%a_mydocuments%\gta san andreas user files\samp\chatlog.txt
     }
return

!7::
ExitApp
return

Когда администратор пишет то получается
Администратор Nick_Nick[228] для Nick_Nick[221]: вы тут?

2

Re: [SAMP] Помогите пожалуйста сделать автоответчик

А если администратор напишет "тут ли вы"? На секундочку, после ответа администратор телепортирует бота к себе и попросит сделать пару простых приёмов. Все ещё видите целесообразность своего скрипта?

Когда вы говорите что не можете сделать, вам всего-лишь не хватает фантазии придумать какой-нибудь костыль.

3

Re: [SAMP] Помогите пожалуйста сделать автоответчик

belyankin12
Не телепортирует

4 (изменено: belyankin12, 2017-10-06 13:02:09)

Re: [SAMP] Помогите пожалуйста сделать автоответчик

И все равно крайне не советую вам это использовать. Машине не обмануть человека.

   global path_log := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"  ; путь к chatlog
Loop {
     log := {str:"",find:0,num:0}    ,    log.str := [] ; AutoInfo
     Loop, read, %path_log%
     log.str.Insert(A_LoopReadLine)    ,log.num := A_Index
     loop 3
          if RegExMatch(log.str[log.num + 1 - A_Index],"\[(.*)\]  Администратор (.*)\[(.*)\] для (.*)\[(.*)\]: вы тут?", bakulin_no_slip) and (log.find:=log.num + 1 - A_Index)
     break
     if (bakulin_no_slip != "") {
          sendinput {F6}Да, тут{Enter}
     }
}
Когда вы говорите что не можете сделать, вам всего-лишь не хватает фантазии придумать какой-нибудь костыль.