on *:INPUT:?: { 
  if ($1 == @bind) {
    if (!$2 || !$3) { 
      notice $nick Invalid syntax.  Please use @bind <commandname> <text>.
    }
    else {
      writeini binds.ini binds $2 $encode($3-,m)
      notice $nick $2 has been binded.
    }
  }
  if ($1 == @unbind) {
    if (!$2) {
      notice $nick Invalid syntax.  Please use: @unbind <commandname>.
    }
    else {
      remini binds.ini binds $2
      notice $nick $2 unbinded.
    }
  }
}
on *:OPEN:?: {
  msg $nick Thanks for pming me.
  msg $nick Please use @commands while waiting.
}
on *:TEXT:*:?: {
  if ($readini(binds.ini,binds,$remove($1,@))) {
    msg $nick $decode($v1,m)
  }
  if ($1 == @commands) {
    var %lines 1
    while ($ini(binds.ini,binds,%lines)) {
      set %bindlist %bindlist @ $+ $v1
      inc %lines
    }
    msg $nick %bindlist
    unset %bindlist
  }
}