register_command('player', array(
    description: 'Displays information about yourself or another player',
    permission: 'server.goblin',
    noPermMsg: color(c).'You must be a server member to use this command',
    usage: color(gray).' Usage:'.color(aqua).' /player info [player]',
    aliases: array('players'),
    executor: closure(@al, @p, @args, @cmd,
	    if(@args[1] == '?') {
				msg(color(gray),' Usage:',color(aqua),' /player info [player]')
				msg(color(gray),' - Displays information about yourself or another player')
				execute(closure(die()))
        }
		@p = player()
		@tag = concat(color(white),'[',color(yellow),'RPG',color(white),'] ')
		@tagGlobal = concat(color(white),'[',color(red),'RPG Global',color(white),'] ')

		include('includes/rpg_functions.ms')
		@kingdoms = _kingdoms()
		@governments = _governments()

		if(@args[0] == 'info'){
			if(@args[1] == ''){
				@player = player()
			}else{
				@player = _nameCheck(@args[1])
			}
			
			if(@player == false){
				if(get_value('players.' . puuid(@args[1],True). '.laston.data') == null){
					msg(@tag,color(red),@args[1],color(gray),' has not joined this server')
					execute(closure(die()))
				}
			}

			@name = _pinfo(@player,'name')
			@kingdom = _pinfo(@player,'kingdom')
			@position = _pinfo(@player,'position')
			@title = _pinfo(@player,'title')
			@joined = _pinfo(@player,'joined')
			@laston = _pinfo(@player,'laston')
			@infamy = _pinfo(@player,'infamy')
			
			msg(color(gray),'======= ',color(yellow),'Player',color(gray),' - ',color(aqua),@name,color(gray),' =======')
			if(@kingdom == null){
				msg(color(yellow),' Kingdom: ',color(white),'None')
			}else{
				msg(color(yellow),' Kingdom: ',color(green), @kingdom)
			}
			if(@kingdom == null){
				msg(color(yellow),' Position: ',color(white),'Peasant')
			}else if(@position == null){
				msg(color(yellow),' Position: ',color(green),'Citizen')
			}else{
				msg(color(yellow),' Position: ',color(gold), @position)
			}
			if(@title == null){
				msg(color(yellow),' Title: ',color(red),'n/a')
			}else{
				msg(color(yellow),' Title: ',color(white), @title)
			}
			msg(color(yellow),' Balance: ',color(aqua),acc_balance(@name),' Rupees')
			if(@infamy == null){
				msg(color(yellow),' Infamy: ',color(white),'0')
			}else{
				if(@infamy >= 33){
					@color = 'red'
				}else if(@infamy >= -33){
					@color = 'white'
				}else if(@infamy < -33){
					@color = 'green'
				}
				msg(color(yellow),' Infamy: ',color(@color), @infamy)
			}
				
			if(ponline(@player)){
				msg(color(yellow),' Last On: ',color(green),'Online')
			}else if(@laston == null){
				msg(color(yellow),' Last On: ',color(red),'n/a')
			}else{
				msg(color(yellow),' Last On: ',color(blue), @laston)
			}
			execute(closure(die()))
		}else{
			msg(color(gray),'======= ',color(yellow),'Command Help',color(gray),' - ',color(aqua),'/player',color(gray),' =======')
			msg(' /player info [player]')
			msg(color(yellow),' Type ',color(aqua),'/player [cmd] ?',color(yellow),' for more information about a command')
			execute(closure(die()))
		}
	),
    tabcompleter: closure(@al, @p, @args, @cmd,
        @players = all_players()
        if(array_size(@args) == 2) {
            @c = to_lower(@args[1])
            @returnable = array()
            foreach(@p in @players){
				@len = length(@c)
				@pTest = to_lower(substr(@p,0,@len))
                if(@pTest == @c) {
                    array_push(@returnable, @p)
                }
            }
            return(@returnable)
        } else {
            return(array())
        }
    )
))