alias pred { $iif($me isop $chan, return 5@, $iif($me ishop $chan, return 10%, $iif($me isvoice $chan, return 7+))) }

On *:input:#:{
  if / != $left($1-,1) {
    echo -t $active 14« $+ $pred($me) $+ 14 $+ $me $+ » $1-
    .msg $active $1-
    haltdef
  }
  elseif / == $left($1-,1) && $ctrlenter {
    echo -t $active 14« $+ $pred($me) $+ 14 $+ $me $+ » $1-
    .msg $active $1-
    haltdef
  }
  if !addquote == $1 { write quote.txt $2- | echo Quote ajoutée. | halt }
  if !r == $1 { say $read(quote.txt) }
}