//=========================================================================//
//* Automatic Client Message Sender Filterscript
//* Version: 3.0
//=========================================================================//
//* Created by:
//* Biesmen
//          http://forum.sa-mp.com/member.php?u=52068
//=========================================================================//

#include <a_samp>
#include <sscanf2> // SSCANF by Y_Less

#define dcmd(%1,%2,%3) if ((strcmp((%3)[1], #%1, true, (%2)) == 0) && ((((%3)[(%2) + 1] == 0) && (dcmd_%1(playerid, "")))||(((%3)[(%2) + 1] == 32) && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1


forward MessageTimer();

new Lines[20][256],
    MessageTime = 1,
    MessageTimerS,
    MaxLines,
    NextLine;

stock WriteFileLine()
{
    new cline = 0;
    new File:name = fopen("messages.txt", io_write);
    while(cline != MaxLines)
    {
        cline++;
        fwrite(name, Lines[cline]);
    }
    fclose(name);
    return 1;
}

stock ReadLines()
{
    new str[256], dlines = 0;
    new File:Messages = fopen("messages.txt", io_read);
    while(fread(Messages, str, sizeof(str)))
    {
        dlines++;
        format(Lines[dlines],256,"%s",str);
    }
    MessageTime = strval(Lines[1]);
    MaxLines = dlines;
    fclose(Messages);
    return 1;
}

////////////////////////////////
// Created by Ryder`         //
///////////////////////////////
stock ColouredText(text[])
{
    new
        pos = -1,
        string[(128 + 16)]
    ;
    strmid(string, text, 0, 128, (sizeof(string) - 16));

    while((pos = strfind(string, "#", true, (pos + 1))) != -1)
    {
        new
            i = (pos + 1),
            hexCount
        ;
        for( ; ((string[i] != 0) && (hexCount < 6)); ++i, ++hexCount)
        {
            if(!(('a' <= string[i] <= 'f') || ('A' <= string[i] <= 'F') || ('0' <= string[i] <= '9')))
            {
                break;
            }
        }
        if((hexCount == 6) && !(hexCount < 6))
        {
            string[pos] = '{';
            strins(string, "}", i);
        }
    }
    return string;
}
////////////////////////////////

public OnFilterScriptInit()
{
    ReadLines();
    MessageTimerS = SetTimer("MessageTimer", MessageTime*1000, true);
    print("\n--------------------------------------");
    print(" Automatic Client Message sender");
    print(" Created by: Biesmen");
    print("--------------------------------------\n");
    return 1;
}

public OnFilterScriptExit()
{
    return 1;
}

public MessageTimer()
{
    new rand;
    if(NextLine == 0)
    {
        rand = random(MaxLines);
        if(strlen(Lines[rand]) == 0) return MessageTimer();
        if(strcmp(Lines[rand], Lines[1], true) == 0) return MessageTimer();
    }
    else
    {
        rand = NextLine;
        NextLine = 0;
    }
    SendClientMessageToAll(0xFFFFFFAA, Lines[rand]);
    printf("%s", Lines[rand]);
    return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
    dcmd(nextline, 8, cmdtext);
    dcmd(setline, 7, cmdtext);
    dcmd(messagetime, 11, cmdtext);

    if (strcmp("/toggletimer", cmdtext, true) == 0)
    {
        if(IsPlayerAdmin(playerid))
        {
            if(MessageTimerS != 0)
            {
               KillTimer(MessageTimerS);
               MessageTimerS = 0;
               SendClientMessage(playerid, 0xFF8040FF, "The Message Timer has been deactivated.");
            }
            else
            {
                MessageTimerS = SetTimer("MessageTimer", MessageTime*1000, true);
                SendClientMessage(playerid, 0xFF8040FF, "The Message Timer has been activated.");
            }
        }
        return 1;
    }
    return 0;
}

dcmd_nextline(playerid, params[])
{
    new line, str[128];
    if(IsPlayerAdmin(playerid))
    {
        if(sscanf(params, "i", line)) return SendClientMessage(playerid, 0xFF8040FF, "USAGE: /nextline [line]");
        if(line > MaxLines-1 || line < 1) return SendClientMessage(playerid, 0xFF8040FF, "ERROR: This line doesn't exist!");
        NextLine = line+1;
        format(str, sizeof(str), "Next line to be announced is Line %i", line);
        SendClientMessage(playerid, 0xFFC68CFF, str);
    }
    return 1;
}

dcmd_setline(playerid, params[])
{
    new line, message[256];
    if(IsPlayerAdmin(playerid))
    {
        if(sscanf(params, "is[256]", line, message)) return SendClientMessage(playerid, 0xFF8040FF, "USAGE: /setline [line] [message]");
        if(strlen(message) > 256) return SendClientMessage(playerid, 0xFF8040FF, "ERROR: Message too long!");
        if(line > MaxLines-1 || line < 1) return SendClientMessage(playerid, 0xFF8040FF, "ERROR: This line doesn't exist!");
        message = ColouredText(message);
        format(Lines[line+1], 256, "%s\r\n", message);
        WriteFileLine();
        format(message, sizeof(message), "[LINE %i]{FF8040} has changed into: %s", line, message);
        SendClientMessage(playerid, 0xFFC68CFF, message);
    }
    return 1;
}

dcmd_messagetime(playerid, params[])
{
    new string[53], time;
    if(IsPlayerAdmin(playerid))
    {
        if(sscanf(params, "i", time)) return SendClientMessage(playerid, 0xFF8040FF, "USAGE: /messagetime [seconds]");
        KillTimer(MessageTimerS);
        MessageTime = time;
        MessageTimerS = SetTimer("MessageTimer", MessageTime*1000, true);
        format(string, sizeof(string), "The messages will now display once every %i seconds", MessageTime);
        SendClientMessage(playerid, 0xFF8040FF, string);
        format(Lines[1], 256, "%i\r\n", time);
        WriteFileLine();
    }
    return 1;
}