mirc quote bot script

on *:TEXT:!*:#: {
  //set %quoteFile " $+ $mircdir $+ quotes.txt $+ "
  //set %quoteLog " $+ $mircdir $+ quotes.log $+ "
  if ($1 == !addquote) {
    //write -a %quoteLog $fulldate $+ $chr(32) $+ $address($nick, 5) added $2-
    //notice $nick semen insertion successful. 
    //write -a %quoteFile $2-
  }
  else if ($1 == !quote) {
    //inc -u10 %quoteCount
    if (%quoteCount < 4) {
      if ($isfile(%quoteFile)) {
        //timer 1 1 /msg $chan $read(%quoteFile)
      }
      else {
        //timer 1 1 /msg $chan Noone has said anything worth quoting here ;)
      }
    }
  }
}


on *:INPUT:#: {
  //set %quoteFile " $+ $mircdir $+ quotes.txt $+ "
  //set %quoteLog " $+ $mircdir $+ quotes.log $+ "
  if ($1 == !addquote) {
    //write -a %quoteLog $fulldate $+ $chr(32) $+ $address($me, 5) added $2-
    //write -a %quoteFile $2-
    //notice $me semen insertion successful.
  }
  if ($1 == !quote) {
    if ($isfile(%quoteFile)) {
      //timer 1 1 /msg $chan $read(%quoteFile)
    }
    else {
      //timer 1 1 /msg $chan No one has said anything worth quoting here ;)
    }
  }
}