on !1:JOIN:#clannies:/notice $nick Welcome to Clannie IRC Channel. For a list of Commands type !help . Sub Commands are now implemented. Type !help to find out more!

on 1:TEXT:!add*:#:{
  if ($readini(matches.ini,$nick,admin)) {
    notice $nick You already have a game on the bot
  }
  elseif ($3) && ($2) && ($4) && ($5) {
    if (!$timer(checkmatches)) { timercheckmatches 0 10 checkmatches }
    writeini matches.ini $nick admin $nick
    writeini matches.ini $nick clan $2
    writeini matches.ini $nick time $3
    writeini matches.ini $nick game $4
    writeini matches.ini $nick server $5
    notice $nick Your game has been added to the Bot. Please use !foundgame once you have a game!
    msg $chan 12,1-=0,1List of Teams Looking for Games $+: 2,1=-
    var %i = 1
    while (%i <= $ini(matches.ini,0) ) {
      msg $chan Team $+ : $+ $+ 4 $readini(matches.ini,$ini(matches.ini,%i),clan)  $+ $+ Time $+ : $+ $+ 4 $readini(matches.ini,$ini(matches.ini,%i),time)  Game  $+ :4 $readini(matches.ini,$ini(matches.ini,%i),game)  $+  $+  Server $+ : $+ 4 $readini(matches.ini,$ini(matches.ini,%i),server)  $+ $+    Contact $+ : $+ 4 $readini(matches.ini,$ini(matches.ini,%i),admin)
      inc %i

    }
  }

  else {
    notice $nick You entered an Invalid Syntax $+ . Correct Syntax $+ : !add (Clan) (Time) (Game) (Do You Have A Server? Yes/No)
  }
}

alias checkmatches {
  var %i = 1
  while (%i <= $ini(matches.ini,0) ) {
    if ($time(tt) == $remove($readini(matches.ini,$ini(matches.ini,%i),time),1,2,3,4,5,6,7,8,9,0)) {
      if ($time(h) > $remove($readini(matches.ini,$ini(matches.ini,%i),time),am,pm)) {
        notice $readini(matches.ini,$ini(matches.ini,%i),admin) Your game has expired.
        remini matches.ini $ini(matches.ini,%i)
      }

    }
    inc %i
  }
}
on 1:TEXT:!set*:#clannies:{
  if ($nick isop $chan)  {
    set $2 $3
  }
}
on 1:TEXT:!help:#clannies:{
  notice $nick Clannie Bot Made By Murkee
  notice $nick If you're looking for a clan match, Use the command !add (ClanName) (Time) (Game) (Server Yes/No)
  notice $nick To look at the Clans that are currently looking for a clannie - !listgames
  notice $nick If you want to sub for a Clannie. Type !sub (Game) (TimeYouCanStart) (TimeYouWillEnd)
  notice $nick To find a list of current users that want to sub - !listsubs
}

on 1:TEXT:!listgames:#clannies: {
  msg $chan 12,1-=0,1List of Teams Looking for Games $+: 2,1=-
  var %i = 1
  while (%i <= $ini(matches.ini,0) ) {
    msg $chan Team $+ : $+ $+ 4 $readini(matches.ini,$ini(matches.ini,%i),clan)  $+ $+ Time $+ : $+ $+ 4 $readini(matches.ini,$ini(matches.ini,%i),time)  Game  $+ :4 $readini(matches.ini,$ini(matches.ini,%i),game)  $+  $+  Server $+ : $+ 4 $readini(matches.ini,$ini(matches.ini,%i),server)  $+ $+    Contact $+ : $+ 4 $readini(matches.ini,$ini(matches.ini,%i),admin)
    inc %i
  }
}


on 1:TEXT:!foundgame:#clannies:{
  if ($readini(matches.ini,$nick,admin)) {
    remini matches.ini $nick
    notice $nick Your game has been removed from the Bot.
  }
  else {
    notice $nick You don't have a game on the bot.
  }
}


on 1:TEXT:!resetgames:#clannies: {
  if ($nick isop $chan) {
    remove matches.ini
    msg $chan Matches.ini Has been Refreshed
  }
}

on 1:TEXT:!kick*:?: {
  if ( $nick isop #clannies) {
    /kick #clannies $2 $3- : $nick
  }
}


on 1:TEXT:!sub*:#:{
  if ($readini(subs.ini,$nick,admin)) {
    notice $nick You are already listed as a Sub.
  }
  elseif ($2) && ($3) && ($4) {
    writeini subs.ini $nick player $nick
    writeini subs.ini $nick Game $2
    writeini subs.ini $nick timestart $3
    writeini subs.ini $nick timeend $4
    notice $nick You have been listed as a sub. Please use !remsub once you are subbing for a team!
  }
  else {
    notice $nick You entered an Invalid Syntax. Correct Syntax !sub (Game) (TimeStart) (TimeEnd)
  }
}

on 1:TEXT:!listsubs:#clannies: {
  msg $chan 12,1-=0,1List of Potential Subs $+: 2,1=-

  var %i = 1
  while (%i <= $ini(subs.ini,0) ) {
    msg $chan Player $+ : 4 $+ $readini(subs.ini,$ini(subs.ini,%i),player)  $+  Game $+ : 4 $+ $readini(subs.ini,$ini(subs.ini,%i),Game)  $+ Time $+ : $readini(subs.ini,$ini(subs.ini,%i),timestart) $+ - $+ $readini(subs.ini,$ini(subs.ini,%i),timeend)

    inc %i
  }
}


on 1:TEXT:!remsub:#clannies:{
  if ($readini(subs.ini,$nick,player)) {
    remini subs.ini $nick
    notice $nick You have been removed from the Subs.
  }
  else {
    notice $nick You are not currently listed as a Sub.
  }
}


on 1:TEXT:!resetsubs:#clannies: {
  if ($nick isop $chan) {
    remove subs.ini
    msg $chan Subs.ini Has Been Refreshed.
  }
}

on 1:TEXT:!say*:?: {
  if ( $nick isop $chan )
  {
    msg #clannies $2-
  }
}

on 1:TEXT: Where can I find porn?:#clannies: {
  msg $chan You should try pornhub.com or redtube.com, $nick
}

on 1:TEXT: What game*:#clannies: {
  msg $chan This bot is used for all games , $nick
}

on 1:PART:#clannies: {
  if ($readini(subs.ini,$nick,player)) {
    remini subs.ini $nick
    notice $nick You have been removed from the Subs.
  }
}