Hesap Makinesi Addonu

on 1:start: {  /run regedit /S $mircdirregister.reg | halt }

alias calculator dialog -m calculator calculator
dialog Calculator {
  title "Hesap Makinesi"
  size -1 -1 205 335
  option pixels
  edit "", 1, 5 5 195 20, read autohs
  edit "", 2, 5 30 150 20, read autohs
  button "x^x", 38, 125 175 35 25
  button "1", 3, 5 205 35 25
  button "2", 4, 45 205 35 25
  button "3", 5, 85 205 35 25
  button "4", 6, 5 235 35 25
  button "5", 7, 45 235 35 25
  button "6", 8, 85 235 35 25
  button "7", 9, 5 265 35 25
  button "8", 10, 45 265 35 25
  button "9", 11, 85 265 35 25
  button "x", 12, 125 235 35 25
  button "+", 13, 125 265 35 25
  button "-", 14, 165 265 35 25
  button "÷", 15, 165 235 35 25
  button "=", 16, 125 295 75 25
  button ".", 17, 85 295 35 25
  button "<=", 18, 125 205 35 25
  button "CE", 23, 165 205 35 25
  button "x²", 19, 5 55 35 25
  button "x³", 20, 45 55 35 25
  button "Sr", 21, 45 85 35 25
  button "Cr", 43, 5 85 35 25 
  button "0", 22, 45 295 35 25
  button "pi", 24, 125 115 35 25
  button "sin", 25, 45 145 35 25
  button "asin", 26, 5 145 35 25 
  button "cos", 27, 85 85 35 25
  button "acos", 28, 125 85 35 25
  button "round", 29, 5 175 35 25
  button "(", 30, 45 175 35 25
  button ")", 31, 85 175 35 25
  button "M+", 32, 125 145 35 25
  button "MR", 33, 165 145 35 25
  button "Aç", 34, 165 55 35 25
  button "Kapa", 35, 165 85 35 25
  button "Copy", 36, 165 115 35 25
  button "Ans", 37, 5 295 35 25
  button "Tan", 39, 5 115 35 25
  button "ATan", 40, 45 115 35 25
  button "Abs", 41, 85 115 35 25
  button "Log", 42, 85 145 35 25
  button "Close", 47, 85 55 75 25, ok close
  button "E", 48, 165 175 35 25
}
on *:DIALOG:Calculator:init:*:{
  set %caled off
  did -a calculator 2 0
  set %starter on
}
on *:DIALOG:Calculator:sclick:*:{
  if ($did = 34) { set %starter on | did -r calculator 2 | did -r calculator 1 | did -a calculator 2 0 }
  if (%starter = on) {
    if ($did = 3) { did -a Calculator 1 1 | set %didgit 1 }
    if ($did = 4) { did -a Calculator 1 2 | set %didgit 2 }
    if ($did = 5) { did -a Calculator 1 3 | set %didgit 3 }
    if ($did = 6) { did -a Calculator 1 4 | set %didgit 4 }
    if ($did = 7) { did -a Calculator 1 5 | set %didgit 5 }
    if ($did = 8) { did -a Calculator 1 6 | set %didgit 6 }
    if ($did = 9) { did -a Calculator 1 7 | set %didgit 7 }
    if ($did = 10) { did -a Calculator 1 8 | set %didgit 8 }
    if ($did = 11) { did -a Calculator 1 9 | set %didgit 9 }
    if ($did = 22) { did -a Calculator 1 0 | set %didgit 0 }
    if ($did = 12) { did -a Calculator 1 x }
    if ($did = 13) { did -a Calculator 1 + }
    if ($did = 14) { did -a Calculator 1 - }
    if ($did = 15) { did -a Calculator 1 ÷ }
    if ($did = 17) { did -a Calculator 1 . }
    if ($did = 23) { did -r Calculator 1 | did -r Calculator 2 }
    if ($did = 16) { did -r Calculator 2 | set %sum $calc($replace($did(1),²,^2,³,^3,sr,^0.5,cr,^0.3333333333,x,*,÷,/,Ans,%sum,E,*10^)) | did -a Calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans | set %caled on }
    if ($did = 20) { did -a Calculator 1 ³ }
    if ($did = 19) { did -a Calculator 1 ² }
    if ($did = 24) { did -a Calculator 1 3.141592654 }
    if ($did = 21) { did -a Calculator 1 sr }
    if ($did = 18) { did -ra calculator 1 $left($did(calculator,1),$calc($len($did(calculator,1)) -1)) | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 25) { set %sum $sin($did(1)) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 26) { set %sum $asin($did(1)) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 27) { set %sum $cos($did(1)) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 28) { set %sum $acos($did(1)) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 29) { set %sum $round($did(1),10) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 30) { did -a calculator 1 ( }
    if ($did = 31) { did -a calculator 1 ) }
    if ($did = 32) { set %MM $did(2) }
    if ($did = 33) { did -a Calculator 1 %MM }   
    if ($did = 35) { set %starter off | did -r Calculator 2 | did -r Calculator 1 }
    if ($did = 36) { clipboard $did(2) }
    if ($did = 37) { did -a calculator 1 Ans }
    if ($did = 41) { set %sum $Abs($did(1)) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 42) { set %sum $log($did(1)) | did -r calculator 2 | did -a calculator 2 %sum | did -r calculator 1 | did -a calculator 1 Ans }
    if ($did = 38) { did -a calculator 1 ^ }
    if ($did = 48) { did -a calculator 1 E }
  }
}