/* Single purpose rifle for political assassination
 *  not for general use or the faint of heart
 *   Public Domain, per its divine quality */
/* @BAKE gcc @FILE -o @SHORT libircclient.a -Iinclude @ARGS -D_GNU_SOURCE @STOP */
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <time.h>
#include <string.h>
#include <libircclient.h>
#include "hate.h"
#define report(msg) fprintf(stderr,"Session: %s\n",msg)
#define reportva(msg,...) fprintf(stderr,"Session: "msg"\n",__VA_ARGS__)
typedef const char*cc;
typedef cc*/* glory to the */ccp;
typedef unsigned int uint;
typedef irc_session_t*session;
cc botnick=BOTNICK;
cc botreal=BOTREAL;
#define randfloat() (((float)rand())/((float)RAND_MAX))
int word(cc haystack, cc needle) {
  cc offset = strcasestr(haystack, needle);
  if (!offset) return 0;
  char start = offset == haystack ? ' ' : offset[-1], end = offset[strlen(needle)];
  end = end == '\0' ? ' ' : end;
  return !isalpha(start) && !isalpha(end);
}
void hate(session s,cc origin,ccp param){
  static int chain=0,drop=0;
  if (drop<DROP){++drop;return;}
  char nick[NICK_LENGTH_LIMIT],buffer[2][SEND_BUFFER_SIZE];
  irc_target_get_nick(origin,nick,NICK_LENGTH_LIMIT);
  if(strcasecmp(nick,botnick)==0){return;}
  size_t nicklen=strlen(nick),choose=0;
  printf("<%s:%s> %s\n",!strcmp(botnick,param[0])?"":param[0],nick,param[1]);
  strcpy(buffer[1],HAIL_XOLATILE);
  if(!strncmp(botnick,param[1],strlen(botnick))&&param[1][strlen(botnick)]==':'){choose|=1;goto fulfill;}
  if(randfloat()<ODDS)if(word(param[1],ACTIVATION_PHRASE)){
      choose|=1;
      if(randfloat()<ODDS2){
        fulfill:
        if (nicklen+2+strlen(HATE)>SEND_BUFFER_SIZE-1){report("Cannot Buffer Message");return;}
	((char*)mempcpy(mempcpy(mempcpy(buffer[0],nick,nicklen),": ",2),HATE,strlen(HATE)))[0]=0; /* I could not dream, nor wonder */
      }else{
        if (nicklen+2+strlen(HATEHATE)>SEND_BUFFER_SIZE-1){report("Cannot Buffer Message");return;}
	((char*)mempcpy(mempcpy(mempcpy(buffer[0],nick,nicklen),": ",2),HATEHATE,strlen(HATEHATE)))[0]=0;
      }
    }
  if (randfloat()<ODDS3)if(word(param[1],HAIL_XOLATILE)){if(!chain){choose|=2;}chain=1;}else{chain=0;}
  cc target=strstr(botnick,param[0])?nick:param[0];
  int i,j;
  for(i=1,j=0;i<(1<<16);++j,i<<=1){
    if(choose&i){
      printf("Sending %s\n",buffer[j]);
      irc_cmd_msg(s,target,buffer[j]);
    }
  } /* God has reserved a special place for me in Hell */
}
void event_connect(session s,cc event,cc origin,ccp param,uint count){
  report("Connection Established");
}
void event_join(session s,cc event,cc origin,ccp param,uint count){report(param[0]);}
void event_channel(session s,cc event,cc origin,ccp param,uint count){hate(s,origin,param);}
void event_privmsg(session s,cc event,cc origin,ccp param,uint count){hate(s,origin,param);}
void event_numeric(session s,uint event,cc origin,ccp param,uint count){
  if(event==1){
  #ifdef NICKSERV_PASS
  report("Authenticating");
  irc_cmd_msg(s,"nickserv","IDENTIFY "NICKSERV_PASS);
  #endif
  irc_cmd_join(s,CHANNEL,NULL);
  }
}
int main(int ac,char**av){
  srand(time(NULL));
  irc_callbacks_t callbacks;
  memset(&callbacks,0,sizeof(irc_callbacks_t));
  callbacks.event_connect=event_connect;
  callbacks.event_join=event_join;
  callbacks.event_channel=event_channel;
  callbacks.event_privmsg=event_privmsg;
  callbacks.event_numeric=event_numeric;
  session s=irc_create_session(&callbacks);
  if(s){
    irc_option_set(s,LIBIRC_OPTION_STRIPNICKS);
    reportva("Connecting %s port %d",SERVER,PORT);
    if(irc_connect(s,SERVER,PORT,0,botnick,botnick,botreal)){goto end;}
    report("Entering Loop...");
    if(irc_run(s)){goto end;}
    report("Stopping Normally...");
    irc_destroy_session(s);
    return 0;
  }
end:
  report(irc_strerror(irc_errno(s)));
  irc_destroy_session(s);
  return 1;
}