Нужна помощь. Скрипт нуждается в лечении :)

Статус
В этой теме нельзя размещать новые ответы.

zxc21346

Новичок
Автор темы
11
0
Часть скрипта была взята с одного бот хелпера для админов, то есть это автоответ, но скрипт по какой то причине не работал, да и вообще вырезать я его полностью так и не смог,возможно ли дописать этот код?
В чатлоге вопрос в репорт отображается вот так: Guno_Morocelo[13] : {FFCD00}242 gm


Код:
IfInString, A_LoopReadLine, спасиб
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Администрация желает вам приятной игры на сервере DRP Onyx :3")
}
IfInString, A_LoopReadLine, благодарю
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Администрация желает вам приятной игры на Diamond RP | Onyx :3")
}
IfInString, A_LoopReadLine, привет
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Здравствуйте, приятной игры на Diamond RP | Onyx :3")
}
IfInString, A_LoopReadLine, доброе утро
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Здравствуйте, приятной игры на Diamond RP | Onyx :3")
}
IfInString, A_LoopReadLine, здравствуйте
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Здравствуйте, приятной игры на Diamond RP | Onyx :3")
}
IfInString, A_LoopReadLine, оруж
IfInString, A_LoopReadLine, дат
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Что бы передать ед. оружия - /giveguns, патроны /givepatr.")
}
IfInString, A_LoopReadLine, патр
IfInString, A_LoopReadLine, дат
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Что бы передать ед. оружия - /giveguns, патроны /givepatr.")
}
IfInString, A_LoopReadLine, такси
IfInString, A_LoopReadLine, вызв
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Экстренные службы - /call 911 || Такси - /call 555")
}
IfInString, A_LoopReadLine, механик
IfInString, A_LoopReadLine, вызв
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Экстренные службы - /call 911 || Такси - /call 555")
}
IfInString, A_LoopReadLine, такси
IfInString, A_LoopReadLine, позв
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Экстренные службы - /call 911 || Такси - /call 555")
}
IfInString, A_LoopReadLine, механик
IfInString, A_LoopReadLine, позв
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Экстренные службы - /call 911 || Такси - /call 555")
}
IfInString, A_LoopReadLine, такси
IfInString, A_LoopReadLine, ном
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Экстренные службы - /call 911 || Такси - /call 555")
}
IfInString, A_LoopReadLine, механик
IfInString, A_LoopReadLine, ном
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Экстренные службы - /call 911 || Такси - /call 555")
}
IfInString, A_LoopReadLine, номер
IfInString, A_LoopReadLine, узнат
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Что бы узнать номер игрока введите /number Name_Surname")
}
IfInString, A_LoopReadLine, тп
IfNotInString, A_LoopReadLine, отправ
IfNotInString, A_LoopReadLine, отписа
IfNotInString, A_LoopReadLine, мп
IfNotInString, A_LoopReadLine, чит
IfInString, A_LoopReadLine, {FFCD00}
{
sendChatMessage("/ans " id " Администрация не телепортирует игроков и не телепортируется.")
}
IfInString, A_LoopReadLine, телепорт
IfNotInString, A_LoopReadLine, отправ
IfNotInString, A_LoopReadLine, мп
IfNotInString, A_LoopReadLine, чит
IfInString, A_LoopReadLine, {FFCD00}
 

kvengl

Новичок
13
8
Код:
FileCLog:=% A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Loop
{
    StringCaseSense, Locale
    lastline := GetNewLine(FileCLog)
    RegExMatch(lastline, "i)] (.*)\[([\d]+)] : {FFCD00}(.*)", id)
    RegExMatch(id1, "(.*)_.*", nick)
    if id3 contains спасиб,благодарю,спс,sps,thk, thank,спосиб,сяп,сяб,пасиб
       sendchatmessage("/ans " id2 " " nick1 ", администрация DRP Onyx желает вам приятной игры :3")
    else
       sendchatmessage("/ans " id2 " " id1 ",  администрация DRP Onyx желает вам приятной игры :3")
}

GetNewLine(filename)
{
    static old
    static new
    if !old
    {
        FileGetSize, old, %filename%
        new := old
    }
    while old = new
        FileGetSize, new, %filename%
    old := new
    Loop, read, %filename%
    if A_LoopReadLine
        last := A_LoopReadLine
    return last
}

На остальные сообщения делай по примеру выше.
 
Статус
В этой теме нельзя размещать новые ответы.