/*
 Author: Alek + Vorex Version: 0.2 Beta
 Adds basic games to anope.
 Current Games:
 Russian Roulette
 Rock Paper Scissors
 Hi-Low
 Magic 8-Ball
 More help can be provided by /msg gameserv help
 Abducted IRC Network: irc.abducted.us #abducted - dev.abducted.us
*/

#include "module.h"

#define AUTHOR "Alek + Vorex"
#define VERSION "0.2B"

#define hash(chan)      ((tolower((chan)[0])&31)<<5 | (tolower((chan)[1])&31))

int my_privmsg(char *source, int ac, char **av);
CommandHash *Gameserv_cmdTable[MAX_CMD_HASH];

void addClient(char *nick, char *realname);
void addMessageList(void);
void delClient(char *nick);
char *s_GameServ = "GameServ";
void gameserv(User * u, char *buf);
void gamechanmsgs(User *u, ChannelInfo *ci, char *buf);

/* GameServ struct */
typedef struct gameinfo_ GameInfo;

struct gameinfo_ {
    GameInfo *prev, *next;
    char *chan;
    int join;
    int chamber;   
    long hilow;
    int rps;
    int rpsgo;
};

GameInfo *gilists[1024];

GameInfo *findgame(const char *chan){
    GameInfo *gi;
    
    for (gi = gilists[hash(chan)]; gi; gi = gi->next){
        if (!stricmp(chan, gi->chan))
           return gi;
    }
    
    return NULL;
}

GameInfo *newgame(const char *chan){
    GameInfo *gi;
    int index;       
    gi = scalloc(1, sizeof(GameInfo));
    gi->chan = strdup(chan);
    index = hash(chan);

        gi->prev = NULL;
        gi->next = gilists[index];
    if (gi->next)
        gi->next->prev = gi;
        gilists[index] = gi;
   
    return gi;
}

/* Commands */
int gs_join(User *u);
int gs_help(User *u);
int gs_help_join(User *u);
int gs_help_rps(User *u);
int gs_rps(User *u);

void AnopeInit(void)
{
    Message *msg = NULL;
    int status;
    msg = createMessage("PRIVMSG", my_privmsg);
    status = moduleAddMessage(msg, MOD_HEAD);
    if (status == MOD_ERR_OK) {
        addClient(s_GameServ, "GameServ");
        addMessageList();    
    }
    moduleAddAuthor(AUTHOR);
    moduleAddVersion(VERSION);
    alog("ircd_gameserv.so: loaded, message status [%d]", status);
}

void AnopeFini(void)
{
 alog("ircd_gameserv.so: unloading");   
 delClient(s_GameServ);
}

int my_privmsg(char *source, int ac, char **av)
{
    ChannelInfo *ci;
    GameInfo *gi;
    User *u;
    char *s;

    /* First, some basic checks */
    if (ac != 2)
        return MOD_CONT;        /* bleh */
    if (!(u = finduser(source))) {
        return MOD_CONT;
    }                           /* non-user source */
    
    if (*av[0] == '#') {
        if (s_GameServ && (ci = cs_findchan(av[0])) && (gi = findgame(av[0])))
          if (gi->join && ci->c){
            gamechanmsgs(u, ci, av[1]);
          return MOD_CONT;
          }
     return MOD_CONT;
    }
    /* Channel message */
    /* we should prolly honour the ignore list here, but i cba for this... */
    s = strchr(av[0], '@');
    if (s) {
        *s++ = 0;
        if (stricmp(s, ServerName) != 0)
            return MOD_CONT;
    }
    if ((stricmp(av[0], s_GameServ)) == 0) {     /* its for US! */
        gameserv(u, av[1]);
        return MOD_CONT;
    } else {                    /* ok it isnt us, let the old code have it */
        return MOD_CONT;
    }
return MOD_CONT;
}

void addClient(char *nick, char *realname)
{
    NEWNICK(nick, "GameServ", ServiceHost, realname, "+", 1);
}

void delClient(char *nick)
{
    send_cmd(s_GameServ, "QUIT :Powering off");
}

void addMessageList(void)
{
         Command *c;
         c = createCommand("join", gs_join, NULL, -1, -1, -1, -1, -1);
         alog("ircd_gameserv.so: Add command 'join' Status %d", moduleAddCommand(Gameserv_cmdTable, c, MOD_HEAD));
         c = createCommand("help", gs_help, NULL, -1, -1, -1, -1, -1);
         alog("ircd_gamserv.so: Add command 'help' Status %d", moduleAddCommand(Gameserv_cmdTable, c, MOD_HEAD));
         c = createCommand("rps", gs_rps, NULL, -1, -1, -1, -1, -1);
         alog("ircd_gameserv.so: Add command 'rps' Status %d", moduleAddCommand(Gameserv_cmdTable, c, MOD_HEAD));

}

/*****************************************************************************/
/* Main GameServ routine. */
void gameserv(User * u, char *buf)
{
  char *cmd, *s;
    cmd = strtok(buf, " ");

    if (!cmd) {
        return;
    } else if (stricmp(cmd, "\1PING") == 0) {
        if (!(s = strtok(NULL, "")))
            s = "\1";
        notice(s_GameServ, u->nick, "\1PING %s", s);
    } else if (skeleton) {
        notice_lang(s_GameServ, u, SERVICE_OFFLINE, s_GameServ);
    } else {
        mod_run_cmd(s_GameServ, u, Gameserv_cmdTable, cmd);
    }
}

void gamechanmsgs(User *u, ChannelInfo *ci, char *buf){
    char *cmd; 
    GameInfo *gi = findgame(ci->name);
    if (!u)
      return;

      /* Answer to Pings */ 
      if (!strnicmp(buf, "\1PING", 5))
         notice(s_GameServ, u->nick, buf);

      if (!strnicmp(buf, "\1ACTION ", 8))
         buf += 8;

      if (buf && *buf == '!'){
         cmd = myStrGetToken(buf,' ', 0);
      if (cmd){
      /* !hi-low */
      if (!stricmp(cmd, "!hi-low")){
      	char *numbers = myStrGetToken(buf, ' ', 1);
        long number;
        if (numbers){
                if (!(number = atoi(numbers)))
                    return;
        } else if (!numbers)
            number = 10;
   
        if (number < 0)
            number = 10;

        if (gi->hilow)
            gi->hilow = 0;
            srand(time(NULL));    
            gi->hilow = (1 + rand() % number);
            privmsg(s_GameServ, ci->name, "Guess a number between 1 and %d using !guess <number>", number);
           return;
      }
   if (!stricmp(cmd, "!guess")){  
      char *yours = myStrGetToken(buf, ' ', 1);
      long you;
      
      if (yours)
         you = atoi(yours);
      else
         return; 
   
       if (gi->hilow == 0){
         privmsg(s_GameServ, ci->name, "You must initialize the game using !hi-low");
         return; 
       }
    
      if (gi->hilow < you)
        privmsg(s_GameServ, ci->name, "%s: Your number was to high", u->nick);
      else if (gi->hilow > you)
        privmsg(s_GameServ, ci->name, "%s: Your number was to low", u->nick);
      else {
       privmsg(s_GameServ, ci->name, "Thats right, %s is the one", u->nick);
       gi->hilow = 0;
      }
   }

   if (!stricmp(cmd, "!8ball")){
    int ball = 1 + rand() % 12;
    if (ball == 1)
     privmsg(s_GameServ, ci->name, "%s: Sorry, unlikely.", u->nick);
    if (ball == 2)
     privmsg(s_GameServ, ci->name, "%s: Almost certain.", u->nick);
    if (ball == 3)
     privmsg(s_GameServ, ci->name, "%s: Yes.", u->nick);
    if (ball == 4)
     privmsg(s_GameServ, ci->name, "%s: No.", u->nick);
    if (ball == 5)
     privmsg(s_GameServ, ci->name, "%s: All I know is that Vorex is a hoe.", u->nick);
    if (ball == 12)
     privmsg(s_GameServ, ci->name, "%s: Not on your life.", u->nick);
    if (ball == 6)
     privmsg(s_GameServ, ci->name, "%s: Maybe so.", u->nick);
    if (ball == 7)
     privmsg(s_GameServ, ci->name, "%s: Reading foggy -- try again later.", u->nick);
    if (ball == 8)
     privmsg(s_GameServ, ci->name, "%s: It is decidedly so.", u->nick);
    if (ball == 9)
     privmsg(s_GameServ, ci->name, "%s: Maybe so.", u->nick);
    if (ball == 10)
     privmsg(s_GameServ, ci->name, "%s: Absolutely not.", u->nick);
    if (ball == 11)
     privmsg(s_GameServ, ci->name, "%s: You never know.  Neither do I.", u->nick);
  }

  if (!stricmp(cmd, "!coinflip")){

    int side = 1 + rand() % 2;
    if (side == 1)
     privmsg(s_GameServ, ci->name, "Heads");
    if (side == 2)
     privmsg(s_GameServ, ci->name, "Tails");
  }
  
  if (!stricmp(cmd, "!help")){
    gs_help(u);
  }

  if (!stricmp(cmd, "!rps")){
    privmsg(s_GameServ, ci->name, "\001Action Initiates rock paper scissors. (/msg gameserv help rps)");
    gi->rpsgo = 1;
    return;
  }

   
  if (!stricmp(cmd, "!roulette")){
    if (gi->chamber){
	  kill_user(s_GameServ, u->nick, "BANG - Don't stuff bullets into a loaded gun");
	  return;
    }
    
     privmsg(s_GameServ, ci->name, "\001Action loads the gun and sets it on the table");
     gi->chamber = 1 + rand() % 6;
     return;
  }

  if (!stricmp(cmd, "!shoot")){
    if (gi->chamber <= 0) {
      privmsg(s_GameServ, ci->name, "Please type !roulette to start a new round");
      return; 
    }
    
    gi->chamber--;
    if (gi->chamber == 0) {
        privmsg(s_GameServ, ci->name, "Bang!!!");
        privmsg(s_GameServ, ci->name, "Better luck next time, %s", u->nick);
	kill_user(s_GameServ, u->nick, "BANG!!!!");
    } else
      privmsg(s_GameServ, ci->name, "Click");
  }
  return;
}
}
}

/***********************************************************/

int gs_join(User *u){
    ChannelInfo *ci;
    GameInfo *gi;
    
    char *chan = strtok(NULL, " ");
    char *cmd = strtok(NULL, " ");

    if (!chan || !cmd)
        return MOD_CONT;

    if (!(ci = cs_findchan(chan))){
        notice(s_GameServ, u->nick, "Sorry that channel does not appear to exist");
        return MOD_CONT;
    }
    
    if (!((is_founder(u, ci) || (is_services_oper(u))))){
        notice(s_GameServ, u->nick, "Sorry, you do not have access");
        return MOD_CONT;
    }
    
    if (!(gi = findgame(chan)))
        gi = newgame(chan);

    if (!stricmp(cmd, "ON")){
        gi->join = 1;
        send_cmd(s_GameServ, "join %s", chan);
    } else if (!stricmp(cmd, "OFF")){
        gi->join = 0;
        send_cmd(s_GameServ, "part %s", chan);
    } else {
        notice(s_GameServ, u->nick, "\2/msg GameServ HELP JOIN for more information"); 
    }
    return MOD_CONT;
} 

int gs_help(User *u){
    char *cmd = strtok(NULL, " ");
    if (cmd){
	    if (!stricmp(cmd, "JOIN")){
	       gs_help_join(u);
		   return MOD_CONT;
	   }
	
 	   if (!stricmp(cmd, "RPS")){
		gs_help_rps(u);
		return MOD_CONT;
		}
    }

notice(s_GameServ, u->nick, "GameServ is a game providing service, generally designed for fun");
notice(s_GameServ, u->nick, "JOIN #chan ON Causes GameServ to join a channel");
notice(s_GameServ, u->nick, "!hi-low <number> Begin a hi-low game");
notice(s_GameServ, u->nick, "!guess <number> Allows you to guess a number");
notice(s_GameServ, u->nick, "!coinflip Flips a coin");
notice(s_GameServ, u->nick, "!roulette initializes a game of roulette");
notice(s_GameServ, u->nick, "!shoot Play roulette =)");
notice(s_GameServ, u->nick, "!rps to initializes a game of rock, paper, scissors");
return MOD_CONT;

}

int gs_help_join(User *u){
	notice(s_GameServ, u->nick, "JOIN #chan ON to make GameServ join a channel");
	notice(s_GameServ, u->nick, "JOIN #chan OFF to make GameServ part");
return MOD_CONT;
}

int gs_help_rps(User *u){
	notice(s_GameServ, u->nick, "Use RPS #chan rock, paper, or scissors");
return MOD_CONT;
}

int gs_rps(User *u){
 ChannelInfo *ci;
 GameInfo *gi;
 char *chan = strtok(NULL, " ");
 char *cmd = strtok(NULL, " ");
 
 if (!chan || !cmd)
  return MOD_CONT; 
 
 if (!(ci = cs_findchan(chan))){
  notice(s_GameServ, u->nick, "Sorry that channel does not appear to exist");
  return MOD_CONT;
 } else if (!(gi = findgame(chan))){
  notice(s_GameServ, u->nick, "Please make sure GameServ is in the channel");
  return MOD_CONT;
 } else if (gi->rpsgo != 0) {
  if (!stricmp(cmd, "rock")){
   if (gi->rpsgo == 2) { 
    if(gi->rps == 1) { privmsg(s_GameServ, ci->name, "Draw."); }
    if(gi->rps == 2) { privmsg(s_GameServ, ci->name, "Rock Gets Covered by Paper."); }
    if(gi->rps == 3) { privmsg(s_GameServ, ci->name, "Rock Crushes Scissors."); }
    gi->rpsgo = 0; 
    gi->rps = 0; 
   } else {
    privmsg(s_GameServ, ci->name, "%s has choosen.", u->nick);
    gi->rps = 1;
    gi->rpsgo = 2;
   }
   if (gi->rpsgo != 2) { privmsg(s_GameServ, ci->name, "%s has choosen.", u->nick); }
  } 
  else if (!stricmp(cmd, "paper")){
   if (gi->rpsgo == 2) { 
    if(gi->rps == 1) { privmsg(s_GameServ, ci->name, "Paper Covers Rock."); }
    if(gi->rps == 2) { privmsg(s_GameServ, ci->name, "Draw."); }
    if(gi->rps == 3) { privmsg(s_GameServ, ci->name, "Paper Gets Cut by Scissors."); }
    gi->rpsgo = 0; 
    gi->rps = 0; 
   }
   else {
    privmsg(s_GameServ, ci->name, "%s has choosen.", u->nick);
	gi->rps = 2;
    gi->rpsgo = 2;
   }
   if (gi->rpsgo != 2) { privmsg(s_GameServ, ci->name, "%s has choosen.", u->nick); }
  } 
  else if (!stricmp(cmd, "scissors")){
   if (gi->rpsgo == 2) { 
    if(gi->rps == 1) { privmsg(s_GameServ, ci->name, "Scissors Get Crushed by Rock."); }
    if(gi->rps == 2) { privmsg(s_GameServ, ci->name, "Scissors Cut Paper."); }
    if(gi->rps == 3) { privmsg(s_GameServ, ci->name, "Draw."); }
 	gi->rpsgo = 0; 
    gi->rps = 0; 
   }
   else {
      privmsg(s_GameServ, ci->name, "%s has choosen.", u->nick);
	  gi->rps = 3;
      gi->rpsgo = 2;
   }
  } 
  else {
   notice(s_GameServ, u->nick, "\2/msg GameServ HELP RPS for more information"); 
  }
 }
 return MOD_CONT;
}