on *:TEXT:!calc*:#: {
if (!$2) {
notice $nick You needed a calculator to figure that out?
}
else { set %equation [ $+ [ $nick ] ] $replace($2,x,*)
set %answer [ $+ [ $nick ] ] $calc( %equation [ $+ [ $nick ] ] )
notice $nick $2- $+ $chr(32) $+ = $+ $chr(32) $+ %answer [ $+ [ $nick ] ]
unset %answer [ $+ [ $nick ] ]
unset %equation [ $+ [ $nick ] ] } } 

on *:TEXT:@calc*:#: {
if (!$2) {
msg $chan You needed a calculator to figure that out?
}
else { 
set %equation [ $+ [ $nick ] ] $replace($2,x,*)
set %answer [ $+ [ $nick ] ] $calc( %equation [ $+ [ $nick ] ] )
msg $chan $2- $+ $chr(32) $+ = $+ $chr(32) $+ %answer [ $+ [ $nick ] ]
unset %answer [ $+ [ $nick ] ]
unset %equation [ $+ [ $nick ] ] } }