function bot_karma_add_karma($object, $good, $reason, $who) {
  $positive = '';
  $negative = '';
  $select = db_fetch_object(db_query("SELECT * from {bot_karma} WHERE object = '%s'", $object));
  if (!$good) {
    $negative = $select->negative + 1;
  }
  else {
    $positive = $select->positive + 1;
  }
  $reasons = implode(",", $select->reason);
  $reasons .= ',' . $reason;
  $reasons = explode(",", $reasons);
  $whos = implode(",", $select->who);
  $whos .= ',' . $who;
  $whos = explode(",", $whos . $who);
  if ($select) {
    $query = "UPDATE {bot_karma} SET type = '%s' positive = '%d' negative = '%d' reason = '%s' who = '%s' WHERE object = '%s'";
  }
  else {
    $query = "INSERT INTO {bot_karma} (type, object, positive, negative, reason, who) VALUES ('%s', '%d', '%d', '%s', '%s') WHERE object = '%s'";
  
  }
  db_query($query, 'irc', $positive, $negative, $reasons, $whos, $object);
}