/* AMX Mod X script.
*
* (c) 2002-2004, OLO
*  modified by the AMX Mod X Development Team
*
* This file is provided as is (no warranties).
*/

#include <amxmod>
#include <amxmisc>

/* Commands Menus */

#define MAX_CMDS_LAYERS 3

new g_cmdMenuName[ MAX_CMDS_LAYERS ][ ] = {
  "Commands Menu", 
  "Configs Menu", 
  "Speech Menu"
}

new g_cmdMenuCmd[ MAX_CMDS_LAYERS ][ ] = {
  "amx_cmdmenu", 
  "amx_cfgmenu", 
  "amx_speechmenu"
}

new g_cmdMenuCfg[ MAX_CMDS_LAYERS ][ ] = {
  "cmds.ini",  
  "configs.ini", 
  "speech.ini"
}

new g_cmdMenuHelp[ MAX_CMDS_LAYERS ][ ] = {
  "- displays commands menu",  
  "- displays configs menu", 
  "- displays speech menu"
}

/* End of Commands Menu */

#define MAX_CMDS    32
#define MAX_CVARS   32

new g_cmdName[MAX_CMDS*MAX_CMDS_LAYERS][32]
new g_cmdCmd[MAX_CMDS*MAX_CMDS_LAYERS][64]
new g_cmdMisc[MAX_CMDS*MAX_CMDS_LAYERS][2]
new g_cmdNum[MAX_CMDS_LAYERS]

new g_cvarNames[MAX_CVARS][32]
new g_cvarMisc[MAX_CVARS][3]
new g_cvarCmd[MAX_CVARS*5][32]
new g_cvarCmdNum
new g_cvarNum

new g_menuPosition[33]
new g_menuSelect[33][64]
new g_menuSelectNum[33]
new g_menuLayer[33]

new g_cstrikeRunning

public plugin_init()
{
  register_plugin("Commands Menu","0.1","default")

  new basedir[32], workdir[64]
  get_basedir( basedir , 31 )
  for(new a = 0; a < MAX_CMDS_LAYERS; ++a)  {
    register_menucmd(register_menuid( g_cmdMenuName[ a ] ),1023,"actionCmdMenu")
    register_clcmd( g_cmdMenuCmd[ a ] ,"cmdCmdMenu",ADMIN_MENU, g_cmdMenuHelp[ a ] )
    format( workdir, 63, "%s/%s" , basedir , g_cmdMenuCfg[ a ] )   
    loadCmdSettings( workdir , a )  
  }
    
  register_menucmd(register_menuid("Cvars Menu"),1023,"actionCvarMenu")   
  register_clcmd("amx_cvarmenu","cmdCvarMenu",ADMIN_CVAR,"- displays cvars menu")
  
  format( workdir, 63, "%s/cvars.ini" , basedir )   
  loadCvarSettings( workdir )
  
  g_cstrikeRunning = is_running("cstrike")
}

/* Commands menu */

public actionCmdMenu(id,key)
{
  switch(key){
  case 8: displayCmdMenu(id,++g_menuPosition[id])
  case 9: displayCmdMenu(id,--g_menuPosition[id])
  default:{
      new option = g_menuSelect[ id ][ g_menuPosition[id] * 8 + key ]
      new flags = g_cmdMisc[ option ][ 1 ]
      if ( flags & 1)
        server_cmd( g_cmdCmd[ option ] )
      else if ( flags & 2)
        client_cmd(id, g_cmdCmd[ option ] )
      else if ( flags & 4)
        client_cmd(0, g_cmdCmd[ option ] )
      if ( flags & 8 )  displayCmdMenu(id,g_menuPosition[id])
    }
  }
  return PLUGIN_HANDLED
}


displayCmdMenu(id,pos){

  if (pos < 0)  return
    
  new menuBody[512]
  new b = 0
  new start = pos * 8
  
  if (start >= g_menuSelectNum[id])
    start = pos = g_menuPosition[id] = 0
    
  new len = format(menuBody,511,g_cstrikeRunning ? 
  "\y%s\R%d/%d^n\w^n" : "%s %d/%d^n^n" , g_cmdMenuName[ g_menuLayer[id]  ], 
    pos+1,(  g_menuSelectNum[id] / 8 + ((g_menuSelectNum[id] % 8) ? 1 : 0 )) )
    
  new end = start + 8
  new keys = (1<<9)
  
  if (end > g_menuSelectNum[id])
    end = g_menuSelectNum[id]
      
  for(new a = start; a < end; ++a)
  {
    if ( g_cmdCmd[ g_menuSelect[id][ a ] ][0] == '-' )
    {
      if ( g_cstrikeRunning)
        len += format(menuBody[len],511-len,"\d%s^n\w",g_cmdName[ g_menuSelect[id][ a ] ] )
      else
        len += format(menuBody[len],511-len,"%s^n",g_cmdName[ g_menuSelect[id][ a ] ] )
      ++b
    }
    else
    {
      keys |= (1<<b)
      len += format(menuBody[len],511-len,"%d. %s^n",++b, g_cmdName[ g_menuSelect[id][ a ] ] )    
    }
  }
      
  if (end != g_menuSelectNum[id]) {
    format(menuBody[len],511-len,"^n9. More...^n0. %s", pos ? "Back" : "Exit")
    keys |= (1<<8)
  }
  else format(menuBody[len],511-len,"^n0. %s", pos ? "Back" : "Exit" )
  show_menu(id,keys,menuBody)
}

public cmdCmdMenu(id,level,cid)
{
  if (!cmd_access(id,level,cid,1)) return PLUGIN_HANDLED
  
  new szCmd[32]
  read_argv(0, szCmd, 31)
  
  new lvl = 0
  
  while( lvl < MAX_CMDS_LAYERS )
  {
    if ( equal( g_cmdMenuCmd[ lvl ], szCmd ) )
      break
      
    ++lvl
  }
  
  g_menuLayer[ id ] = lvl
      
  new flags = get_user_flags(id)
  
  g_menuSelectNum[id] = 0
  
  new a = lvl * MAX_CMDS
  new d , c = 0
  
  while( c < g_cmdNum[ lvl ] )
  {
    d = a + c
    
    if ( g_cmdMisc[ d ][0] & flags )
    {
      g_menuSelect[id][ g_menuSelectNum[id]++ ] = d
    }
      
    ++c
  }
    
  displayCmdMenu(id,g_menuPosition[id] = 0)
  
  return PLUGIN_HANDLED
}


loadCmdSettings( szFilename[], level )
{
  if ( !file_exists ( szFilename ) ) 
    return 0
  
  new text[256], szFlags[32], szAccess[32]
  new a,  pos = 0, c, d = level * MAX_CMDS
  
  while ( g_cmdNum[ level ] < MAX_CMDS && read_file (szFilename,pos++,text,255,a) )
  {
    if ( text[0] == ';' ) continue
    
    c = d + g_cmdNum[ level ]
          
    if ( parse( text , g_cmdName[ c  ] , 31 ,
      g_cmdCmd[ c ] ,63,szFlags,31,szAccess,31 ) > 3 )
    {     
      while ( replace( g_cmdCmd[ c ] ,63,"\'","^"") ) {
          // do nothing
      }
            
      g_cmdMisc[ c ][ 1 ] = read_flags ( szFlags )
      g_cmdMisc[ c ][ 0 ] = read_flags ( szAccess )
      g_cmdNum[ level ]++ 
    }
  }
    
  return 1
}


/* Cvars menu */

public actionCvarMenu(id,key)
{
  switch(key){
  case 8: displayCvarMenu(id,++g_menuPosition[id])
  case 9: displayCvarMenu(id,--g_menuPosition[id])
  default:{

      new option = g_menuSelect[ id ][ g_menuPosition[id] * 8 + key ]
            
      new szValue[32]
      get_cvar_string( g_cvarNames[ option ], szValue ,31)
      
      new end = g_cvarMisc[ option ][ 2 ]
      new start = g_cvarMisc[ option ][ 1 ]
      
      for(new i = start ; ; ++i )
      {
        if ( i < end )
        {
          if ( equal( szValue , g_cvarCmd[ i  ]  ) )  
          {
            if (++i >= end)   
            {
              i = start
            }
            set_cvar_string( g_cvarNames[ option ], g_cvarCmd[ i ] )
            break
          }
        }
        else
        {
          set_cvar_string( g_cvarNames[ option ], g_cvarCmd[ start ] )
          break
        }
      }     
      
      displayCvarMenu(id, g_menuPosition[id] )
    }
  }
  return PLUGIN_HANDLED
}


displayCvarMenu(id,pos){

  if (pos < 0)  return
    
  new menuBody[512]
  new b = 0
  new start = pos * 8
  
  if (start >= g_menuSelectNum[id])
    start = pos = g_menuPosition[id] = 0
    
  new len = format(menuBody,511, g_cstrikeRunning ? 
    "\yCvars Menu\R%d/%d^n\w^n" : "Cvars Menu %d/%d^n^n",
    pos+1,(  g_menuSelectNum[id] / 8 + ((g_menuSelectNum[id] % 8) ? 1 : 0 )) )
    
  new end = start + 8
  new keys = (1<<9)
  new szValue[64]
  
  if (end > g_menuSelectNum[id])
    end = g_menuSelectNum[id]
    
  for(new a = start; a < end; ++a)
  {
    get_cvar_string( g_cvarNames[ g_menuSelect[id][ a ] ],szValue,31)
    keys |= (1<<b)
    ++b   
    if ( g_cstrikeRunning )
      len += format(menuBody[len],511-len,"%d. %s\R%s^n\w",   b, g_cvarNames[ g_menuSelect[id][ a ] ], szValue )
    else
      len += format(menuBody[len],511-len,"%d. %s    %s^n",   b, g_cvarNames[ g_menuSelect[id][ a ] ], szValue )
  }
      
  if (end != g_menuSelectNum[id]) {
    format(menuBody[len],511-len,"^n9. More...^n0. %s", pos ? "Back" : "Exit")
    keys |= (1<<8)
  }
  else format(menuBody[len],511-len,"^n0. %s", pos ? "Back" : "Exit")
  show_menu(id,keys,menuBody)
}

public cmdCvarMenu(id,level,cid)
{
  if (!cmd_access(id,level,cid,1)) return PLUGIN_HANDLED
  
  new flags = get_user_flags(id)
  
  g_menuSelectNum[id] = 0
  
  for(new a = 0; a < g_cvarNum; ++a)
    if ( g_cvarMisc[ a ][0] & flags )
      g_menuSelect[id][ g_menuSelectNum[id]++ ] = a
    
  displayCvarMenu(id,g_menuPosition[id] = 0)
  
  return PLUGIN_HANDLED
}

loadCvarSettings( szFilename[] )
{
  if ( !file_exists ( szFilename ) ) 
    return 0
  
  new text[256], szValues[12][32]
  new inum , a,  pos = 0
  new cvar_values = MAX_CVARS * 5
  // a b c d
  while ( g_cvarNum < MAX_CVARS && read_file (szFilename,pos++,text,255,a) )
  {
    if ( text[0] == ';' ) continue
    
    inum = parse( text , g_cvarNames[ g_cvarNum ] , 31 ,
      szValues[0] ,31 , szValues[1] ,31 , szValues[2] ,31 ,
      szValues[3] ,31 , szValues[4] ,31 , szValues[5] ,31 ,
      szValues[6] ,31 , szValues[7] ,31 , szValues[8] ,31 ,
      szValues[9] ,31 , szValues[10] ,31 , szValues[11] ,31 )
          
    inum -= 2
          
    if ( inum < 2 ) continue
    
    g_cvarMisc[ g_cvarNum ][1] = g_cvarCmdNum
      
    for( a = 0 ; a < inum && g_cvarCmdNum < cvar_values ; ++a )
    {
        while ( replace( szValues[ a ] ,31 , "\'" , "^"" ) ) {
          // do nothing
        }
        
        copy ( g_cvarCmd[ g_cvarCmdNum ] , 31 , szValues[ a ]  )
        g_cvarCmdNum++
    }
    
    g_cvarMisc[ g_cvarNum ][2] = g_cvarCmdNum
    g_cvarMisc[ g_cvarNum ][0] = read_flags( szValues[ inum ] )     
    g_cvarNum++
    
  }
  
  return 1
}