/* kidnap funciton
written by mansonh
Feb 2010
*/
#include <a_samp>
#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

enum KIDNAPINFO
{
    k_victimID,
    k_ransom
}
new kidnapped[MAX_PLAYERS]; //the kidnapees kidnapper
new kidnap[MAX_PLAYERS][KIDNAPINFO]; //the kidnapping info

public OnFilterScriptInit()
{
    print("\n#########################################");
    print(" Kidnapping Filterscript by Mansonh");
    print(" Last update: February 24rd, 2010");
    print(" FS Version: 1.0");
    print("#########################################\n");

    for(new playerid=0; playerid<MAX_PLAYERS; playerid++)
    {
        ResetKidnapping(playerid, playerid);
    }
}
public OnPlayerConnect(playerid){
    ResetKidnapping(playerid, playerid);
}
public OnPlayerDisconnect(playerid){
    if(kidnapped[playerid] != -1) CancelKidnapper(kidnapped[playerid], playerid, "Your Victim has disconnected");
    if(kidnap[playerid][k_victimID] != -1) CancelVictim(playerid, kidnap[playerid][k_victimID], "Your Kidnapper has disconnected, you are free");
}
public OnPlayerDeath(playerid, killerid, reason){

    if(kidnapped[playerid] != -1) CancelKidnapper(kidnapped[playerid], playerid, "Your Victim has died");
    if(kidnap[playerid][k_victimID] != -1) CancelVictim(playerid, kidnap[playerid][k_victimID], "Your Kidnapper has died, you are free");
}
stock CancelKidnapper(kidnapperid, victimid, reason[]){
//Victim has disconnected or died
    if(IsPlayerConnected(kidnapperid)) SendClientMessage(kidnapperid, 0xAA0000AA, reason);
    ResetKidnapping(kidnapperid, victimid);
}
stock CancelVictim(kidnapperid, victimid, reason[]){
    if(IsPlayerConnected(victimid)) SendClientMessage(victimid, 0xAA0000AA, reason);
    ResetKidnapping(kidnapperid, victimid);
}
stock ResetKidnapping(kidnapperid, victimid){
    kidnap[kidnapperid][k_victimID] = -1;
    kidnap[kidnapperid][k_ransom] = 0;
    kidnapped[victimid] = -1;
    TogglePlayerControllable(victimid, true);
}

public OnPlayerCommandText(playerid, cmdtext[])
{
    dcmd(kidnap, 6, cmdtext);
    dcmd(release, 7, cmdtext);
    dcmd(ransom, 6, cmdtext);
    return 1;
}
dcmd_kidnap(playerid, params[]){
    new kidnapeeID, ransom;
    if(sscanf(params, "dd", kidnapeeID, ransom) || GetPlayerState(playerid) != PLAYER_STATE_DRIVER
        || !IsPlayerConnected(kidnapeeID) || GetPlayerState(kidnapeeID) != PLAYER_STATE_PASSENGER
        || GetPlayerVehicleID(playerid) != GetPlayerVehicleID(kidnapeeID))
        return SendClientMessage(playerid, 0xFF0000AA, "/kidnap id amount (player must be a passenger in your vehicle)");
    //Passenger is in vehicle
    if(kidnap[playerid][k_victimID] != -1)
        return SendClientMessage(playerid, 0xAA0000AA, "You cannot kidnap two people use /release to let your first victim go");
    if(kidnapped[playerid] != -1)
        return SendClientMessage(playerid, 0xAA0000AA, "You cannot kindap someone while being kidnapped");

    //Kidnap the passenger
    TogglePlayerControllable(kidnapeeID, false);
    kidnap[playerid][k_victimID] = kidnapeeID;
    kidnap[playerid][k_ransom] = ransom;
    kidnapped[kidnapeeID] = playerid;
    new msg[128];
    format(msg, sizeof(msg), "You have successfully kidnapped player %d for %d, /release free them or wait for the ransom", kidnapeeID, ransom);
    SendClientMessage(playerid, 0xAAAA00AA, msg);
    format(msg, sizeof(msg), "You have been kidnapped by player %d, for $%d, type /ransom to pay", playerid, ransom);
    SendClientMessage(kidnapeeID, 0xAA0000AA, msg);
    format(msg, sizeof(msg), "Player %d has been kidnapped, type /ransom %d to pay their ransom");
    SendClientMessageToAll(0x00AA00AA, msg);

    //release any kidnappers kidnappees
    new subKidnapeeID = kidnap[kidnapeeID][k_victimID];
    if( kidnapeeID != -1)
        CancelVictim(kidnapeeID, subKidnapeeID, "Your kidnapper has been kidnapped, you are free to go");
    return 1;
}
dcmd_release(playerid, params[]){
    #pragma unused params
    if(kidnap[playerid][k_victimID] != -1)
        return SendClientMessage(playerid, 0xAA0000AA, "You have not kidnapped anyone, so have no one to release");
    CancelVictim(playerid, kidnap[playerid][k_victimID], "Your kidnapper has changed his mind, you are free to go");
    return 1;
}
dcmd_ransom(playerid, params[]){
    new releaseid, kidnapperid, msg[128];
    if(sscanf(params, "d", releaseid))
    {
        kidnapperid = kidnapped[releaseid];
        if(!IsPlayerConnected(playerid))
        {
            format(msg, sizeof(msg), "Player %d is not connected", releaseid);
            return SendClientMessage(playerid, 0xAA0000AA, msg);
        }
        else if(kidnapperid == -1)
        {
            format(msg, sizeof(msg), "Player %d has not been kidnapped! /ransom id, or /ransom to release yourself", releaseid);
            return SendClientMessage(playerid, 0xAA0000AA, msg);
        }
        else if(GetPlayerMoney(playerid) < kidnap[kidnapperid][k_ransom])
        {
            format(msg, sizeof(msg), "You do not have enough money to pay for Player %d's ransom: $%d", releaseid, kidnap[kidnapperid][k_ransom]);
            return SendClientMessage(playerid, 0xAA0000AA, msg);
        }
        GivePlayerMoney(playerid, -kidnap[kidnapperid][k_ransom]);
        GivePlayerMoney(kidnapperid, kidnap[kidnapperid][k_ransom]);
        format(msg, sizeof(msg), "Thank you for paying Player %d's ransom, they have been released");
        SendClientMessage(playerid, 0xAA00AAAA, msg);
        format(msg, sizeof(msg), "Player %d, has paid %d's ransom");
        SendClientMessageToAll(0xAAAAAAAA, msg);
        RemovePlayerFromVehicle(releaseid);
        CancelVictim(kidnapperid, releaseid, "Someone paid your ransom you have been released");
    }
    else if(kidnapped[playerid] != -1)
    {
        if(GetPlayerMoney(playerid) < kidnap[kidnapperid][k_ransom])
        {
            format(msg, sizeof(msg), "You do not have enough money to pay your ransom ransom: $%d", releaseid, kidnap[kidnapperid][k_ransom]);
            return SendClientMessage(playerid, 0xAA0000AA, msg);
        }
        GivePlayerMoney(playerid, -kidnap[kidnapperid][k_ransom]);
        GivePlayerMoney(kidnapperid, kidnap[kidnapperid][k_ransom]);
        format(msg, sizeof(msg), "You have paid your ransom, you are free to go");
        SendClientMessage(playerid, 0xAA00AAAA, msg);
        format(msg, sizeof(msg), "Player %d, has paid their own ransom");
        SendClientMessageToAll(0xAAAAAAAA, msg);
        RemovePlayerFromVehicle(releaseid);
        CancelKidnapper(kidnapperid, releaseid, "Your victim paid their ransom and have been relesed");
    }
    else SendClientMessage(playerid, 0xAA0000AA, "You have not been kidnapped, /release id, to release someone else");
    return 1;
}

stock sscanf(string[], format[], {Float,_}:...){
    #if defined isnull
        if (isnull(string))
    #else
        if (string[0] == 0 || (string[0] == 1 && string[1] == 0))
    #endif
        {
            return format[0];
        }
    #pragma tabsize 4
    new
        formatPos = 0,
        stringPos = 0,
        paramPos = 2,
        paramCount = numargs(),
        delim = ' ';
    while (string[stringPos] && string[stringPos] <= ' ')
    {
        stringPos++;
    }
    while (paramPos < paramCount && string[stringPos])
    {
        switch (format[formatPos++])
        {
            case '\0':
            {
                return 0;
            }
            case 'i', 'd':
            {
                new
                    neg = 1,
                    num = 0,
                    ch = string[stringPos];
                if (ch == '-')
                {
                    neg = -1;
                    ch = string[++stringPos];
                }
                do
                {
                    stringPos++;
                    if ('0' <= ch <= '9')
                    {
                        num = (num * 10) + (ch - '0');
                    }
                    else
                    {
                        return -1;
                    }
                }
                while ((ch = string[stringPos]) > ' ' && ch != delim);
                setarg(paramPos, 0, num * neg);
            }
            case 'h', 'x':
            {
                new
                    num = 0,
                    ch = string[stringPos];
                do
                {
                    stringPos++;
                    switch (ch)
                    {
                        case 'x', 'X':
                        {
                            num = 0;
                            continue;
                        }
                        case '0' .. '9':
                        {
                            num = (num << 4) | (ch - '0');
                        }
                        case 'a' .. 'f':
                        {
                            num = (num << 4) | (ch - ('a' - 10));
                        }
                        case 'A' .. 'F':
                        {
                            num = (num << 4) | (ch - ('A' - 10));
                        }
                        default:
                        {
                            return -1;
                        }
                    }
                }
                while ((ch = string[stringPos]) > ' ' && ch != delim);
                setarg(paramPos, 0, num);
            }
            case 'c':
            {
                setarg(paramPos, 0, string[stringPos++]);
            }
            case 'f':
            {

                new changestr[16], changepos = 0, strpos = stringPos;
                while(changepos < 16 && string[strpos] && string[strpos] != delim)
                {
                    changestr[changepos++] = string[strpos++];
                    }
                changestr[changepos] = '\0';
                setarg(paramPos,0,_:floatstr(changestr));
            }
            case 'p':
            {
                delim = format[formatPos++];
                continue;
            }
            case '\'':
            {
                new
                    end = formatPos - 1,
                    ch;
                while ((ch = format[++end]) && ch != '\'') {}
                if (!ch)
                {
                    return -1;
                }
                format[end] = '\0';
                if ((ch = strfind(string, format[formatPos], false, stringPos)) == -1)
                {
                    if (format[end + 1])
                    {
                        return -1;
                    }
                    return 0;
                }
                format[end] = '\'';
                stringPos = ch + (end - formatPos);
                formatPos = end + 1;
            }
            case 'u':
            {
                new
                    end = stringPos - 1,
                    id = 0,
                    bool:num = true,
                    ch;
                while ((ch = string[++end]) && ch != delim)
                {
                    if (num)
                    {
                        if ('0' <= ch <= '9')
                        {
                            id = (id * 10) + (ch - '0');
                        }
                        else
                        {
                            num = false;
                        }
                    }
                }
                if (num && IsPlayerConnected(id))
                {
                    setarg(paramPos, 0, id);
                }
                else
                {
                    #if !defined foreach
                        #define foreach(%1,%2) for (new %2 = 0; %2 < MAX_PLAYERS; %2++) if (IsPlayerConnected(%2))
                        #define __SSCANF_FOREACH__
                    #endif
                    string[end] = '\0';
                    num = false;
                    new
                        name[MAX_PLAYER_NAME];
                    id = end - stringPos;
                    foreach (Player, playerid)
                    {
                        GetPlayerName(playerid, name, sizeof (name));
                        if (!strcmp(name, string[stringPos], true, id))
                        {
                            setarg(paramPos, 0, playerid);
                            num = true;
                            break;
                        }
                    }
                    if (!num)
                    {
                        setarg(paramPos, 0, INVALID_PLAYER_ID);
                    }
                    string[end] = ch;
                    #if defined __SSCANF_FOREACH__
                        #undef foreach
                        #undef __SSCANF_FOREACH__
                    #endif
                }
                stringPos = end;
            }
            case 's', 'z':
            {
                new
                    i = 0,
                    ch;
                if (format[formatPos])
                {
                    while ((ch = string[stringPos++]) && ch != delim)
                    {
                        setarg(paramPos, i++, ch);
                    }
                    if (!i)
                    {
                        return -1;
                    }
                }
                else
                {
                    while ((ch = string[stringPos++]))
                    {
                        setarg(paramPos, i++, ch);
                    }
                }
                stringPos--;
                setarg(paramPos, i, '\0');
            }
            default:
            {
                continue;
            }
        }
        while (string[stringPos] && string[stringPos] != delim && string[stringPos] > ' ')
        {
            stringPos++;
        }
        while (string[stringPos] && (string[stringPos] == delim || string[stringPos] <= ' '))
        {
            stringPos++;
        }
        paramPos++;
    }
    do
    {
        if ((delim = format[formatPos++]) > ' ')
        {
            if (delim == '\'')
            {
                while ((delim = format[formatPos++]) && delim != '\'') {}
            }
            else if (delim != 'z')
            {
                return delim;
            }
        }
    }
    while (delim > ' ');
    return 0;
}