Miscellany

on *:TEXT:.calc*:#:{
  if (* $+ a $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ b $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ c $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ d $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ e $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ f $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ g $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ h $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ i $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ j $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ l $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ m $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ n $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ o $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ p $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ q $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ r $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ s $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ t $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ u $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ v $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ w $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ x $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ y $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ z $+ * iswm $2- ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Cannot Calculate letters | halt }
  if ($2- == $null ) { /msg $chan 7«4 $+ ERROR(@calc CMD) $+ 7» Nothing to calculate!
    halt
  }
  else {
    %len = $len($nick)
    %left = $upper($left($nick,1))
    %lencalc = $calc(%len - 1)
    %right = $right($nick,%lencalc)   
    /msg $chan $+(12«7,%left,,%right,12») 7 $+($2-,=,$bytes($calc($replace($2-,k,000,÷,/)),b))
    unset %len*
    unset %left
    unset %right
  }
}