Телепорт(telmenu.amxx)

 /* AMX Mod X
*   Teleport Menu Plugin
*
* by the AMX Mod X Development Team
*  originally developed by OLO
*
* This file is part of AMX Mod X.
*
*
*  This program is free software; you can redistribute it and/or modify it
*  under the terms of the GNU General Public License as published by the
*  Free Software Foundation; either version 2 of the License, or (at
*  your option) any later version.
*
*  This program is distributed in the hope that it will be useful, but
*  WITHOUT ANY WARRANTY; without even the implied warranty of
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
*  General Public License for more details.
*
*  You should have received a copy of the GNU General Public License
*  along with this program; if not, write to the Free Software Foundation,
*  Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*  In addition, as a special exception, the author gives permission to
*  link the code of this program with the Half-Life Game Engine ("HL
*  Engine") and Modified Game Libraries ("MODs") developed by Valve,
*  L.L.C ("Valve"). You must obey the GNU General Public License in all
*  respects for all of the code used other than the HL Engine and MODs
*  from Valve. If you modify this file, you may extend this exception
*  to your version of the file, but you are not obligated to do so. If
*  you do not wish to do so, delete this exception statement from your
*  version.
*/

#include <amxmodx>
#include <amxmisc>
#include <fun>

new g_menuPosition[33]
new g_menuPlayers[33][32]
new g_menuPlayersNum[33]
new g_menuOption[33] = {-1, ...}
new g_menuOrgin[33][3]
new g_coloredMenus

public plugin_init()
{
    register_plugin("Teleport Menu", AMXX_VERSION_STR, "AMXX Dev Team")
    register_dictionary("telemenu.txt")
    register_dictionary("common.txt")
    register_clcmd("amx_teleportmenu", "cmdTelMenu", ADMIN_CFG, "- displays teleport menu")
    register_menucmd(register_menuid("Teleport Menu"), 1023, "actionTelMenu")

    g_coloredMenus = colored_menus()
}

public actionTelMenu(id, key)
{
    switch (key)
    {
        case 6:
        {
            g_menuOption[id] = 1 - g_menuOption[id]
            displayTelMenu(id, g_menuPosition[id])
        }
        case 7:
        {
            if (g_menuOption[id] < 0)    /* unlocking position for the first time */
                g_menuOption[id] = 0
            
            get_user_origin(id, g_menuOrgin[id])
            displayTelMenu(id, g_menuPosition[id])
        }
        case 8: displayTelMenu(id, ++g_menuPosition[id])
        case 9: displayTelMenu(id, --g_menuPosition[id])
        default:
        {
            new player = g_menuPlayers[id][g_menuPosition[id] * 6 + key]
            new name2[32]
        
            get_user_name(player, name2, 31)

            if (!is_user_alive(player))
            {
                client_print(id, print_chat, "%L", id, "CANT_PERF_DEAD", name2)
                displayTelMenu(id, g_menuPosition[id])
                return PLUGIN_HANDLED
            }

            if (g_menuOption[id] > 0)
            {
                set_user_origin(player, g_menuOrgin[id])
            } else {
                new origin[3]
                
                get_user_origin(id, origin)
                set_user_origin(player, origin)
            }

            new authid[32], authid2[32], name[32]

            get_user_authid(id, authid, 31)
            get_user_authid(player, authid2, 31)
            get_user_name(id, name, 31)

            log_amx("Cmd: ^"%s<%d><%s><>^" teleport ^"%s<%d><%s><>^"", name, get_user_userid(id), authid, name2, get_user_userid(player), authid2)

            show_activity_key("ADMIN_TELEPORT_1", "ADMIN_TELEPORT_2", name, name2);

            displayTelMenu(id, g_menuPosition[id])
        }
    }
    
    return PLUGIN_HANDLED
}

displayTelMenu(id, pos)
{ 
    if (pos < 0)
        return

    get_players(g_menuPlayers[id], g_menuPlayersNum[id])

    new menuBody[512]
    new b = 0
    new i
    new name[32]
    new start = pos * 6
    new bool:blockMenu = (is_user_alive(id) && g_menuOption[id] < 1) ? true : false

    if (start >= g_menuPlayersNum[id])
        start = pos = g_menuPosition[id] = 0

    new len = format(menuBody, 511, g_coloredMenus ? "\y%L\R%d/%d^n\w^n" : "%L %d/%d^n^n", id, "TELE_MENU", pos + 1, (g_menuPlayersNum[id] / 6 + ((g_menuPlayersNum[id] % 6) ? 1 : 0)))
    new end = start + 6
    new keys = MENU_KEY_0|MENU_KEY_8

    if (end > g_menuPlayersNum[id])
        end = g_menuPlayersNum[id]

    for (new a = start; a < end; ++a)
    {
        i = g_menuPlayers[id][a]
        get_user_name(i, name, 31)

        if (blockMenu || !is_user_alive(i) || (id != i && get_user_flags(i) & ADMIN_IMMUNITY))
        {
            ++b
        
            if (g_coloredMenus)
                len += format(menuBody[len], 511-len, "\d%d. %s^n\w", b, name)
            else
                len += format(menuBody[len], 511-len, "#. %s^n", name)
        } else {
            keys |= (1<<b)
            
            if (is_user_admin(i))
                len += format(menuBody[len], 511-len, g_coloredMenus ? "%d. %s \r*^n\w" : "%d. %s *^n", ++b, name)
            else
                len += format(menuBody[len], 511-len, "%d. %s^n", ++b, name)
        }
    }

    if (g_menuOption[id] > 0)    // 1
    {
        keys |= MENU_KEY_7
        len += format(menuBody[len], 511-len, "^n7. To location: %d %d %d^n", g_menuOrgin[id][0], g_menuOrgin[id][1], g_menuOrgin[id][2])
    }
    else if (g_menuOption[id])    // -1
    {
        if (g_coloredMenus)
            len += format(menuBody[len], 511-len, "^n\d7. %L^n\w", id, "CUR_LOC")
        else
            len += format(menuBody[len], 511-len, "^n#. %L^n", id, "CUR_LOC")
    } else {                    // 0
        keys |= MENU_KEY_7
        len += format(menuBody[len], 511-len, "^n7. %L^n", id, "CUR_LOC")
    }

    len += format(menuBody[len], 511-len, "8. %L^n", id, "SAVE_LOC")

    if (end != g_menuPlayersNum[id])
    {
        format(menuBody[len], 511-len, "^n9. %L...^n0. %L", id, "MORE", id, pos ? "BACK" : "EXIT")
        keys |= MENU_KEY_9
    }
    else
        format(menuBody[len], 511-len, "^n0. %L", id, pos ? "BACK" : "EXIT")

    show_menu(id, keys, menuBody, -1, "Teleport Menu")
}

public cmdTelMenu(id, level, cid)
{
    if (cmd_access(id, level, cid, 1))
        displayTelMenu(id, g_menuPosition[id] = 0)

    return PLUGIN_HANDLED
}