import requests
import discord
import random
import datetime
import re

import traceback
import sys
import wikipedia

from dateutil.parser import parse

from discord.object import Object
from ago import human
import simplejson as json
from collections import defaultdict
from nltk.tag import pos_tag
import wolframalpha

member_status = 'members.json'
deliveries_file = 'deliveries.json'
fortune_file = 'fortunes.json'
joke_file = 'jokes.json'
games_file = 'games.json'
credentials = 'creds.json'

muted_until = datetime.datetime.now()

client = discord.Client()
wolf = {}

def format_exception(e):
    exception_list = traceback.format_stack()
    exception_list = exception_list[:-2]
    exception_list.extend(traceback.format_tb(sys.exc_info()[2]))
    exception_list.extend(traceback.format_exception_only(sys.exc_info()[0], sys.exc_info()[1]))

    exception_str = "Traceback (most recent call last):\n"
    exception_str += "".join(exception_list)
    # Removing the last \n
    exception_str = exception_str[:-1]

    return exception_str

def leaders(xs, top=20):
    counts = defaultdict(int)
    for x in xs:
        counts[x] += 1
    return sorted(counts.items(), reverse=True, key=lambda tup: tup[1])[:top]

def byteify(input):
    if isinstance(input, dict):
        return {byteify(key):byteify(value) for key,value in input.iteritems()}
    elif isinstance(input, list):
        return [byteify(element) for element in input]
    elif isinstance(input, unicode):
        return input.encode('utf-8')
    else:
        return input

def search_youtube(query):
    query_string = {"search_query" : query}
    r = requests.get("http://www.youtube.com/results", params=query_string)
    search_results = re.findall(r'href=\"\/watch\?v=(.{11})', r.content)
    print("http://www.youtube.com/watch?v=" + search_results[0])
    return "http://www.youtube.com/watch?v=" + search_results[0]

def search_google_images(query, animated=False):
    headers = {'User-Agent': "Mozilla/5.0 (X11; FreeBSD amd64; rv:12.0) Gecko/20100101 Firefox/12.0"}
    query_string = {"safe": "off", "tbm": "isch", "q" : query}
    if animated:
        query_string = {"safe": "off", "tbm": "isch", "q" : query, 'tbs': 'itp:animated'}

    r = requests.get("http://www.google.com/search", params=query_string, headers=headers)

    start_idx = r.content.find('imgurl=') + 7
    if start_idx > 0:
        search_result = r.content[start_idx:r.content.find('&', start_idx)]
        if '/revision/' in search_result:
            search_result = search_result[:search_result.find('/revision/')]
        if '%' in search_result:
            search_result = search_result[:search_result.find('%')]
        print(search_result)
        return search_result
    return "boo you fail.."

@client.event
def on_socket_raw_send(payload, binary=False):
    check_msg_queue()

@client.event
def on_status(member):
    print("Status Changed %s" % (member,))
    try:
        json_data=open(member_status).read()
        data = json.loads(json_data)
    except ValueError:
        data = {}
    if not data:
        data = {}
    try:
        username = member.name.lower()
        user_id = member.id
        mention = member.mention()
        if username in data:
            is_afk = data[username]['is_afk']
            afk_at = data[username]['afk_at']
            status = data[username]['status']
            prev_status = data[username]['prev_status']
            status_change_at = data[username]['status_change_at']
            game_id = data[username]['game_id']
            games_played = data[username]['games_played']
            aliases = data[username]['aliases']
        else:
            is_afk = False
            afk_at = datetime.datetime.now().strftime('%Y/%m/%d %H:%M:%S')
            status = 'online'
            prev_status = 'offline'
            status_change_at = datetime.datetime.now().strftime('%Y/%m/%d %H:%M:%S')
            game_id = None
            games_played = []
            aliases = []
        if member.status == 'idle':
            afk_at = datetime.datetime.now().strftime('%Y/%m/%d %H:%M:%S')
            is_afk = True
        else:
            is_afk = False
        if status != member.status:
            prev_status = status
            status = member.status
            status_change_at = datetime.datetime.now().strftime('%Y/%m/%d %H:%M:%S')
        if game_id != member.game_id:
            game_id = member.game_id
            if game_id not in games_played:
                games_played.append(game_id)
        data[username] = {
            'id': user_id,
            'mention': mention,
            'is_afk': is_afk,
            'afk_at': afk_at,
            'status': status,
            'prev_status': prev_status,
            'status_change_at': status_change_at,
            'game_id': game_id,
            'games_played': games_played,
            'aliases': aliases
        }
        print('Status Change: %s' % (data,))
        jdata = json.dumps(data, ensure_ascii=False)
    except Exception as e:
        print('Error saving status change: %s' % (e),)
        return            

    open(member_status, 'wb+').write(jdata.encode('utf8'))
    check_msg_queue()

def get_game_names(game_id_list):
    json_data=open(games_file).read()
    data = json.loads(json_data)
    result = []
    for game_id in game_id_list:
        for game in data:
            if game['id'] == game_id:
                result.append(game['name'])
    return result

def get_mention_status(mention):
    try:
        json_data=open(member_status).read()
        data = json.loads(json_data)
    except ValueError:
        data = {}
    if not data:
        data = {}
    for user in data:
        if 'mention' in data[user]:
            if data[user]['mention'] == mention:
                return data[user]
    return None

def check_msg_queue():
    print("checking messages")
    try:
        json_data=open(deliveries_file).read()
        data = json.loads(json_data)
    except ValueError:
        data = {}
    if not data:
        data = {}    
    print("Data: %s" % data)
    new_data = {}
    for username in data:
        for author in data[username]:
            print("Message: %s" % data[username][author])
            delivery = datetime.datetime.strptime(data[username][author]['delivery_time'], '%Y/%m/%d %H:%M:%S')
            if delivery <= datetime.datetime.now():
                offline = False
                for member in client.get_all_members():
                    print('MEMBER MENTION: %s USERNAME: %s' % (member.mention(), username))
                    
                    if username == member.mention():
                        if member.status != 'online':
                            print('OFFLINE USER, TRY AGAIN LATER')
                            offline = True
                            break
                if offline:
                    new_data[username] = {}
                    new_data[username][author] = data[username][author]
                    break
                channel = Object(data[username][author]['channel'])                
                message = data[username][author]['message']
                client.send_message(channel, '{}, {} asked me to tell you "{}"'.format(username, author, message))
            else:
                new_data[username] = {}
                new_data[username][author] = data[username][author]
    
    jdata = json.dumps(new_data, ensure_ascii=False)
    print("New Data: %s" % new_data)
    open(deliveries_file, 'wb+').write(jdata.encode('utf8'))
    return    


@client.event
def on_message(message):
    #print message.content
    #print message.author
    #print client.user
    global muted_until
    # we do not want the bot to reply to itself
    if message.author == client.user:
        return

    if message.content.lower().startswith(client.user.name.lower()):
        print('Someone is talking to %s' % (client.user.name.lower(),))
        if ' or ' in message.content:
            questions = message.content[len(client.user.name)+1:].replace('?', '').split(' or ')
            client.send_message(message.channel, '{} I choose: {}'.format(message.author.mention(), random.choice(questions).encode('utf-8',errors='ignore')))


    if message.content.startswith('!help') or message.content.startswith('!commands'):
        client.send_message(message.channel, 
            """{} Available Commands:
You can ask compound or questions and I will choose. Example: HellsBot Rui is a Faggot or Rui is a faggot?

User Info:
    !aliases - Returns a list of all aliases a user has set for themselves.
    !addalias <alias> - Adds an alias to your list of aliases.
    !lastseen <username> - Returns info on when the user was last seen and their status.
Messages:
    !msg <username> in 5 minutes Tea is ready
    !msg <username> in 45 seconds Your finished masterbating
    !msg <username> in 2 hours The movie is over
    !msg <username> on 12/22/2015 Happy Birthday!
Games:
    !games <username> - Returns a list of games played for a username.
    !gameslist <count> - Returns a list of the top 20 games and the number of people who have played that game. if you pass a limit it will show that many games instead.
    !whoplayed <gamename> - Returns a list of players who have played the game.
Spam:
    !youtube <search term> - Returns the first video from the search results for the search term.
    !gif <search term> - Returns the first gif from the search results.
    !image <search term> - Returns the first image from the search results.
Stuff:
    !addfortune <fortune> - Adds a new fortune.
    !fortune - Returns your fortune.
    !addjoke <joke> - Adds a new joke (it can be multiline but must all be in a single message).
    !joke - Returns a random joke.
    !roll <1d20> - Roll X number of dice of size X. 1d20 returns 1 roll 1-20. 3d6 returns 3 rolls of 1-6 etc...
    !secret
    !shutup - disables all image / gif / youtube span for 5 minutes
    !bemyirlwaifu""".format(message.author.mention()))
        return

    if message.content.startswith('!lastseen'):
        data = None
        try:
            json_data=open(member_status).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'I am a bit confused right now.. maybe I need more data. {}!'.format(message.author.mention()))            
        else:
            username = message.content[10:].replace('@', '').lower()
            if username in data:
                out_string = ''
                if data[username]['is_afk'] == True:
                    out_string = 'Went AFK at: {}\n'.format(data[username]['afk_at'])
                elif data[username]['status'] == 'offline':
                    out_string = 'Currently Offline\n'                    
                else:
                    out_string = 'Currently Online\n'
                out_string += 'Last Status: {} at {} which was {}\nPrevious Status: {}\n'.format(data[username]['status'], 
                    data[username]['status_change_at'], 
                    human(datetime.datetime.strptime(data[username]['status_change_at'], '%Y/%m/%d %H:%M:%S')),
                    data[username]['prev_status'])

                client.send_message(message.channel, 'Last Information on {}:\n{}'.format(username, out_string))
            else:
                client.send_message(message.channel, 'I don\'t have any data on {} yet {}'.format(username, message.author.mention()))

    if message.content.startswith('!shutup'):        
        muted_until = datetime.datetime.now() + datetime.timedelta(minutes=5)
        client.send_message(message.channel, search_youtube(query))
        return

    if message.content.startswith('!youtube'):
        if datetime.datetime.now() < muted_until:
            return
        query = message.content[9:]
        client.send_message(message.channel, search_youtube(query))
        return

    if message.content.startswith('!image'):
        if datetime.datetime.now() < muted_until:
            return
        query = message.content[7:]
        client.send_message(message.channel, search_google_images(query))
        return

    if message.content.startswith('!gif'):
        if datetime.datetime.now() < muted_until:
            return
        query = message.content[7:]
        client.send_message(message.channel, search_google_images(query, True))
        return

    if message.content.startswith('!roll'):
        request = message.content[6:]
        count = 1
        dice = 100
        if request.strip() != '':
            if 'd' in request:
                dice_parts = request.split('d')
                if len(dice_parts) == 2:
                    if dice_parts[0].isdigit() and dice_parts[1].isdigit():
                        count = int(dice_parts[0])
                        dice = int(dice_parts[1])
        if count > 100000000000000000:
            client.send_message(message.channel, '{} stop fucking around with those stupid numbers...'.format(message.author.mention()))
            return

        if count > 100:
            client.send_message(message.channel, '{} 100 is the largest number of dice I will roll.'.format(message.author.mention()))
            return
        roll_results = []
        for i in range(count):
            roll_results.append(random.randint(1,dice))
        out_string = '{} your roll {}d{}: {} = {}'.format(message.author.mention(), count, dice, '+'.join(str(r) for r in roll_results), sum(roll_results))
        client.send_message(message.channel, out_string)
        return

    if message.content.startswith('!gameslist'):
        data = None
        try:
            json_data=open(member_status).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'I am a bit confused right now.. maybe I need more data. {}!'.format(message.author.mention()))            
        else:
            parts = message.content.split(' ')
            limit = 20
            if len(parts) > 1 and parts[1].isdigit():
                limit = int(parts[1])

            game_list = []
            for user in data:
                if 'games_played' in data[user]:
                    print('%s' % data[user])

                    game_list += data[user]['games_played']
            print('%s' % game_list)
            games_sorted = leaders(get_game_names(game_list), top=limit)
            print('%s' % games_sorted)
            out_string = ''
            for game in games_sorted:
                #print('%s' % game)
                out_string += '    {} - {}\n'.format(game[1], game[0])

            client.send_message(message.channel, 'The games I have seen people playing are: \n{}'.format(out_string))
        return

    if message.content.startswith('!aliases'):
        data = None
        try:
            json_data=open(member_status).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'I am a bit confused right now.. maybe I need more data. {}!'.format(message.author.mention()))            
        else:
            username = message.content[9:].replace('@', '').lower()
            if username.strip() == '':
                client.send_message(message.channel, '{} please provide a username. !aliases <username>'.format(message.author.mention()))
                return
            if username in data and 'aliases' in data[username]:
                client.send_message(message.channel, '{} has the following aliases: {}'.format(username, ', '.join(data[username]['aliases'])))
            else:
                client.send_message(message.channel, 'No known alises for {} yet {}'.format(username, message.author.mention()))
        return

    if message.content.startswith('!addalias'):
        data = None
        try:
            json_data=open(member_status).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'I am a bit confused right now.. maybe I need more data. {}!'.format(message.author.mention()))            
        else:
            alias = message.content[10:]
            username = message.author.name.lower()
            if username in data:
                if 'aliases' not in data[username]:
                    data[username]['aliases'] = []
                data[username]['aliases'].append(alias)
                jdata = json.dumps(data, ensure_ascii=False)

                open(member_status, 'wb+').write(jdata.encode('utf8'))
                client.send_message(message.channel, '{} has been added to your aliases'.format(alias))
            else:
                client.send_message(message.channel, 'Something horrible happened and it is all your fault.')
        return

    if message.content.startswith('!games'):
        data = None
        try:
            json_data=open(member_status).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'I am a bit confused right now.. maybe I need more data. {}!'.format(message.author.mention()))            
        else:
            username = message.content[7:].replace('@', '').lower()
            if username in data:
                games = ', '.join(get_game_names(data[username]['games_played']))
                client.send_message(message.channel, 'I have seen {} playing: {}'.format(username, games))
            else:
                client.send_message(message.channel, 'I don\'t have any data on {} yet {}'.format(username, message.author.mention()))
        return

    if message.content.startswith('!whoplayed'):
        member_data = None
        try:
            json_data=open(member_status).read()
            member_data = json.loads(json_data)
        except ValueError:
            pass
        if not member_data:
            client.send_message(message.channel, 'I am a bit confused right now.. maybe I need more data. {}!'.format(message.author.mention()))            
        else:
            game_name = message.content[11:]
            json_data=open(games_file).read()
            data = json.loads(json_data)
            game_id = 0
            for game in data:
                if game['name'].lower() == game_name.lower():
                    game_id = game['id']
            if game_id == 0:
                client.send_message(message.channel, 'I don\'t have any data on {} yet {}'.format(game_name, message.author.mention()))

            matched_usernames = []
            for username in member_data:
                if 'games_played' in member_data[username]:
                    for id in member_data[username]['games_played']:
                        if id == game_id:
                            matched_usernames.append(username)
            client.send_message(message.channel, 'I have seen {} playing: {}'.format(', '.join(matched_usernames), game_name))

        return
    # !msg joe in 5 minutes YOU ARE A DICK
    if message.content.startswith('!msg'):
        try:
            json_data=open(deliveries_file).read()
            data = json.loads(json_data)
        except ValueError:
            data = {}
        if not data:
            data = {}
        channel = message.channel
        author = message.author
        #author = message.author.name
        username = ''
        try:
            message_bits = message.content.split(" ")
            msg_datetime = datetime.datetime.now()
            msg_idx = 2
            if message_bits[2] == 'in' and message_bits[3].isdigit():
                time = int(message_bits[3])
                msg_idx = 4
                if message_bits[4].startswith('sec'):
                    msg_datetime = msg_datetime + datetime.timedelta(seconds=time)
                    msg_idx = 5
                elif message_bits[4].startswith('hour'):
                    msg_datetime = msg_datetime + datetime.timedelta(hours=time)
                    msg_idx = 5
                else: # minutes by default
                    msg_datetime = msg_datetime + datetime.timedelta(minutes=time)
                    msg_idx = 5
            elif message_bits[2] == 'on':
                try:
                    tmp_date = parse(message_bits[3])
                    msg_datetime = tmp_date
                    msg_idx = 4
                except ValueError:
                    client.send_message(channel, 'Your shitty message has been rejected {}. Next time learn how to date...MM\\DD\\YYYY'.format(message.author.mention()))
                    return            
                    
            username = message_bits[1]
            user_mention = ''
            for member in client.get_all_members():
                print("MEMBER: %s" % member)
                if username.lower() == member.name.lower():
                    user_mention = member.mention()
                    user_id = member.id
            if user_mention == '':
               client.send_message(channel, 'Your shitty message has been rejected {}. That user does not exist.'.format(message.author.name))
               return            

            msg_text = byteify(' '.join(message_bits[msg_idx:]))
            message = {'user_id': user_id, 'channel': channel.id, 'delivery_time': msg_datetime.strftime('%Y/%m/%d %H:%M:%S'), 'message': msg_text}
            print("Message: %s" % message)
            data[user_mention] = {}
            data[user_mention][author.mention()] = message
            jdata = json.dumps(data, ensure_ascii=False)
            print("Data: %s" % data)
            #test_ch = Object(channel.id)
            #client.send_message(test_ch, 'Test Message {}.'.format(author))
        except Exception as e:
           client.send_message(channel, 'Your shitty message has been rejected {}. {}'.format(author.name, e))
           return            
        open(deliveries_file, 'wb+').write(jdata.encode('utf8'))
        if msg_datetime < datetime.datetime.now():
            client.send_message(channel, '{} your message will be delivered to {} as soon as they are available.'.format(author.name, user_mention))
        else:
            client.send_message(channel, '{} your message will be delivered to {} {}.'.format(author.name, user_mention, human(msg_datetime)))            
        check_msg_queue()
        return

    if message.content.startswith('!addfortune'):
        try:
            json_data=open(fortune_file).read()
            data = json.loads(json_data)
        except ValueError:
            data = []
        if not data:
            data = []
        try:
            if 'aa737a5846' in message.content[12:]:
                client.send_message(message.channel, '{} you stop it, you are a pedofile, stop looking at little girls.'.format(message.author.mention()))
                return

            data.append(byteify(message.content[12:]))
            jdata = json.dumps(data, ensure_ascii=False)
        except Exception as e:
            print e.message
            client.send_message(message.channel, 'Your shitty fortune has been rejected {}.'.format(message.author.mention()))
            return            

        open(fortune_file, 'wb+').write(jdata.encode('utf8'))
        client.send_message(message.channel, 'Your shitty fortune has been added {}.'.format(message.author.mention()))

    if message.content.startswith('!fortune'):
        data = None
        try:
            json_data=open(fortune_file).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'Try adding a fortune with "!addfortune <fortune>" {}!'.format(message.author.mention()))            
        else:
            client.send_message(message.channel, '{} Your fortune is... {}'.format(message.author.mention(), random.choice(data).encode('utf-8',errors='ignore')))


    if message.content.startswith('!question'):
        question = message.content[10:]
        res = wolf.query(question)
        try:
            if len(res.pods):
                pod_text = []
                for pod in res.pods:
                    if pod.text:
                        pod_text.append(pod.text)
                client.send_message(message.channel, '{} {}.'.format(message.author.mention(), byteify("\n".join(pod_text)[:1990])))
            else:
                tagged_sent = pos_tag(question.replace('?', '').split())
                proper_nouns = [word for word, pos in tagged_sent if pos == 'NNP']
                wiki_search = " ".join(proper_nouns)
                if wiki_search.strip() != "":
                    print "Looking up {}".format(wiki_search)
                    wiki_out = wikipedia.summary(wiki_search, sentences=3)
                    client.send_message(message.channel, '{} {}.'.format(message.author.mention(), byteify(wiki_out)))
                else:
                    client.send_message(message.channel, 'I don\'t know {}.'.format(message.author.mention()))
            return
        except Exception as e:
            print(format_exception(e))
            client.send_message(message.channel, 'I don\'t know {}.'.format(message.author.mention()))
            return

    if message.content.startswith('!addjoke'):
        try:
            json_data=open(joke_file).read()
            data = json.loads(json_data)
        except ValueError:
            data = []
        if not data:
            data = []
        try:
            if 'aa737a5846' in message.content[9:]:
                client.send_message(message.channel, '{} you stop it, you are a pedofile, stop looking at little girls.'.format(message.author.mention()))
                return

            data.append(byteify(message.content[9:]))
            jdata = json.dumps(data, ensure_ascii=False)
        except Exception as e:
            print e.message
            client.send_message(message.channel, 'Your shitty joke has been rejected {}.'.format(message.author.mention()))
            return            

        open(joke_file, 'wb+').write(jdata.encode('utf8'))
        client.send_message(message.channel, 'Your shitty joke has been added {}.'.format(message.author.mention()))

    if message.content.startswith('!joke'):
        data = None
        try:
            json_data=open(joke_file).read()
            data = json.loads(json_data)
        except ValueError:
            pass
        if not data:
            client.send_message(message.channel, 'Try adding a joke with "!addjoke <joke>" {}!'.format(message.author.mention()))            
        else:
            client.send_message(message.channel, '{} {}'.format(message.author.mention(), random.choice(data).encode('utf-8',errors='ignore')))

    if message.content.startswith('!secret'):
        client.send_message(message.channel, 'git gud {}! My source is here: http://git.savsoul.com/barry/discordbot'.format(message.author.mention()))

    if message.content.startswith('!bemyirlwaifu'):
        client.send_message(message.channel, 'http://orig13.deviantart.net/b25e/f/2014/175/3/d/no_waifu_no_laifu_by_imtheonenexttome-d7nsx3b.gif {}!'.format(message.author.mention()))

    if message.content.startswith('HILLARY 2016'):
        client.send_message(message.channel, ':bomb: Ohhhhhh, now you done it...:bomb:'.format(message.author.mention()))

    if message.content.startswith('!hello'):
        client.send_message(message.channel, 'Hello {}!'.format(message.author.mention()))

@client.event
def on_ready():
    print('Logged in as')
    print(client.user.name)
    print(client.user.id)
    print('------')

retries = 0
while retries < 1000:
    try:
        json_data=open(credentials).read()
        creds = json.loads(json_data)
        wolf = wolframalpha.Client(creds['wolframkey'])
        client.login(creds['username'], creds['password'])

        client.run()
    except KeyboardInterrupt:
        quit()
    except:
        retries += 1
        print("Shit I crashed: Retry %s" % (retries,))