NoEnv Persistent SingleInstance force Include SAMP-UDF-037-R1 ahk glob

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#NoEnv
#Persistent
#SingleInstance, force
#Include, SAMP-UDF-037-R1.ahk
global num := 10 ; лимит тп
global ignor := [] ; список игнорирования(обнуление)
global tempnum := 0 ; временный лимит(обнуление)
global chatLog := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt" ; путь к чатлогу
Return
F3:: ; бинд запуска тп-хания
ignor := [] ;(обнуление)
tempnum := 0 ;(обнуление)
SetTimer, startTeleportForSMS, 50 ;запуск цикла
Return
startTeleportForSMS()
{
if (tempnum >= num)
{
SetTimer, startTeleportForSMS, off
Return addChatMessage("Лимит привышен")
}
FileRead, textChatLog, % chatLog
for k, v in StrSplit(textChatLog, "`n")
{
if (RegExMatch(v, "\] Вы получили СМС от (?<nick>[A-z_]+)\[(?<id>[0-9]+)\]\(Тел\.(?<phone>[0-9]+)\):(?<text>.*)", out_) && RegExMatch(out_text, "[+]") && !serchInArray(out_id, ignor))
{
save(chatLog)
ignor.Push(out_id)
addChatMessage("/gethere " out_id)
tempnum++
}
}
Return true
}
save(chatlog)
{
static logschat := A_MyDocuments "\GTA San Andreas User Files\SAMP\ChatLogs\"
static chat := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
FileCreateDir, % logschat A_MM "-" A_YYYY
FileAppend, % chatlog, % logschat A_MM "-" A_YYYY "\" A_DD "." A_MM "." A_YYYY ".txt"
FileDelete, % chat
}
serchInArray(id, array)
{
for k, v in array
if (v == id)
Return v
Return
}