on *:TEXT:!onred:#: {
  $onred
}

on *:TEXT:!onred *:#: {
  $onred
}

alias onred {
  if ($flood) { return }
  set -u $+ $flooddelaychan $+(%,floodonred,#) ON
  set -u $+ $flooddelaynick $+(%,floodonred,#,.,$nick) ON
  msg # $read(love.txt)
}

alias flood {
  if (($($+(%,floodonred,#),2)) || ($($+(%,floodonred,#,.,$nick),2))) {
    return 1
  }
}

alias displayname {
  if ($isutf($msgtags(display-name).key) == 1) {
    return $msgtags(display-name).key
  }
  if ($isutf($msgtags(display-name).key) == 2) {
    return $utfdecode($msgtags(display-name).key)
  }
  return $capital($nick)
}

alias capital {
  return $upper($left($1,1)) $+ $mid($1,2-)
}

on *:connect:{
  if ($server = tmi.twitch.tv) {
    raw CAP REQ :twitch.tv/membership
    raw CAP REQ :twitch.tv/tags
    raw CAP REQ :twitch.tv/commands
  }
}