; usage: $caps(string of text or $nick or $1 etc)
alias caps return $regsubex($1-,/^(.)/S,$upper(\t))
if (%donger == $null) {
  set %donger 0
  set %dngr_hun 0
}


on *:TEXT:*:#:{
  if (%Nmes. [ $+ $nick ] > 0) {
    msg $chan $nick, you have %Nmes. [ $+ [ $nick ] ] unread messages.
    while (%Nmes. [ $+ [ $nick ] ] > 0) {
      var %usr = %usr. [ $+ [ $nick [ $+ [ . [ $+ [ %Nmes. [ $+ [ $nick ] ] ] ] ] ] ] ]
      var %msg = %msg. [ $+ [ $nick [ $+ [ . [ $+ [ %Nmes. [ $+ [ $nick ] ] ] ] ] ] ] ]
      msg $chan %usr said: %msg
      dec $Nmes. [ $+ [ $nick ] ]
      unset %usr. [ $+ [ $nick [ $+ [ . [ $+ [ %Nmes. [ $+ [ $nick ] ] ] ] ] ] ] ]
      unset %msg = %msg. [ $+ [ $nick [ $+ [ . [ $+ [ %Nmes. [ $+ [ $nick ] ] ] ] ] ] ] ]
    }
  }
}


on *:TEXT:*fainted!:#:{
  if ($nick == POKETEXT) && ($chan == #poketext) {
    msg #twitchplayspokemon <POKETEXT> $1-
  }
}

on *:TEXT:!fist*:#:{
  if ($3 == $NULL) {
    /describe $chan fists $2- a bit with a large Magikarp
  }
  else {
    /describe $chan fists $2 a bit with a large $3-
  }
}

on *:TEXT:!hail*:#:{
  if (natori !ison $chan) {
    msg $chan ヽ༼ຈل͜ຈ༽ﾉ HAIL $upper($2-) ヽ༼ຈل͜ຈ༽ﾉ
    timer 1 5 /echo -a hail timer timed out
  }
}


on *:TEXT:!riot*:#:{
  if (yelnaX !ison $chan) && (DootBot !ison $chan) {
    if ($upper($2) == DANCE) {
      msg $chan ♫ ┌༼ຈل͜ຈ༽┘ ♪ DANCE RIOT ♫ ┌༼ຈل͜ຈ༽┘ ♪
    }
    else {
      msg $chan ヽ༼ຈل͜ຈ༽ﾉ $upper($2-) RIOT ヽ༼ຈل͜ຈ༽ﾉ
    }
    timer 1 5 /echo -a riot timer timed out
  }
}

on *:TEXT:*ヽ༼ຈل͜ຈ༽ﾉ*:#:{
  inc %donger
  if (%donger == 100) {
    inc %dngr_hun 100
    set %donger 0
    msg $chan ヽ༼ຈل͜ຈ༽ﾉ %dngr_hun DONGERS COUNTED THIS SESSION ヽ༼ຈل͜ຈ༽ﾉ
  }
}

on *:TEXT:*riot:#:{
  if (yelnaX !ison $chan) && (DootBot !ison $chan) {
    if ($upper($1) == DANCE) {
      msg $chan ♫ ┌༼ຈل͜ຈ༽┘ ♪ DANCE RIOT ♫ ┌༼ຈل͜ຈ༽┘ ♪
    }
    else {
      msg $chan ヽ༼ຈل͜ຈ༽ﾉ $upper($1-) ヽ༼ຈل͜ຈ༽ﾉ
    }
    timer 1 5 /echo -a riot timer timed out
  }
}


on *:TEXT:!help:#:{
  msg $nick PikalaxALT - mIRC Scripts - (C) 2015
  msg $nick !riot [text] --> I will incorporate [text] into a custom riot, with dongers
  msg $nick [text] riot --> See above
  msg $nick !fist [text] --> I will fist [text]
  msg $nick !hail [text] --> I will issue a call to hail [text]
  msg $nick !later tell [user] [text] --> I will store [text] and play it back the next time [user] speaks.  I can only store one message at a time and will only retain the most recent message.
}


on *:TEXT:!later tell*:#:{
  if ($3 == $nick) {
    msg $chan ...
  }
  elseif ($3 == $me) {
    msg $chan Say it to my face, $nick.
  }
  else {
    if (%Nmes. [ $+ [ $3 ] ] == $null) {
      set %Nmes. $+ $3 1
    }
    else {
      inc %Nmes. $+ $3
    }
    set %usr. $+ $3 $+ . $+ %Nmes. [ $+ [ $3 ] ] $nick
    set %msg. $+ $3 $+ . $+ %Nmes. [ $+ [ $3 ] ] $4-
    msg $chan Stored message %Nmes. [ $+ [ $3 ] ] for $3.
  }
}