Miscellany

on *:text:!calc*:#: {
  set %calc $calc($replace($2-,$chr(44),$chr(46))),2
  notice $nick 7 $replace($2-,$chr(44),$chr(46)) $+ = $+ %calc
}
alias Calculator {
  dialog -m Calculator Calculator
}
menu * {
  Calculator:/dialog -m Calculator Calculator
}
Dialog Calculator {
  size -1 -1 200 300
  box "calcing:", 1, 1 1 196 296
  edit "", 2, 5 15 189 20
  box "Abilities", 3, 4 35 190 261
  button "1", 4, 5 50 30 30
  button "2", 5, 38 50 30 30
  button "3", 6, 71 50 30 30
  button "4", 7, 5 82 30 30
  button "5", 8, 38 82 30 30
  button "6", 9, 71 82 30 30
  button "7", 10, 5 114 30 30
  button "8", 11, 38 114 30 30
  button "9", 12, 71 114 30 30
  button "0", 13, 38 147 30 30
  button "*", 14, 104 50 30 30
  button "-", 15, 104 82 30 30
  button "+", 16, 104 114 30 62
  button "/", 17, 137 50 30 62
  button "=", 18, 137 114 30 62
  button "c", 19, 5 147 30 30
  button "off", 20, 5 179 163 30, cancel
  button ".", 21, 71 147 30 30
}
on *:dialog:Calculator:sclick:*: {
  if ($did == 4) { /did -a Calculator 2 1 }
  elseif ($did == 5) { /did -a Calculator 2 2 }
  elseif ($did == 6) { /did -a Calculator 2 3 }
  elseif ($did == 7) { /did -a Calculator 2 4 }
  elseif ($did == 8) { /did -a Calculator 2 5 }
  elseif ($did == 9) { /did -a Calculator 2 6 }
  elseif ($did == 10) { /did -a Calculator 2 7 }
  elseif ($did == 11) { /did -a Calculator 2 8 }
  elseif ($did == 12) { /did -a Calculator 2 9 }
  elseif ($did == 13) { /did -a Calculator 2 0 }
  elseif ($did == 15) { /did -a Calculator 2 - }
  elseif ($did == 16) { /did -a Calculator 2 + }
  elseif ($did == 14) { /did -a Calculator 2 * }
  elseif ($did == 17) { /did -a Calculator 2 / }
  elseif ($did == 21) { /did -a Calculator 2 . }
  elseif ($did == 19) { $remove($did(2),$did(2)) }
  elseif ($did == 18) { /did -a Calculator 2 $calc($replace($did(2),$chr(44),$chr(46))) }
}