mIRC Hesap Makinasi

alias cancalc { dialog -m cancalc cancalc }
dialog cancalc {
title "..::| Coded BY CaN |::.."
size -1 -1 105 108
option dbu
button "1", 1, 27 31 10 10
button "2", 2, 37 31 10 10
button "3", 3, 47 31 10 10
button "4", 4, 27 41 10 10
button "5", 5, 37 41 10 10
button "6", 6, 47 41 10 10
button "7", 7, 27 51 10 10
button "8", 8, 37 51 10 10
button "9", 9, 47 51 10 10
button "0", 10, 27 61 30 10
button "+", 11, 62 31 10 10
button "-", 12, 62 41 10 10
button "*", 13, 62 51 10 10
button "/", 14, 62 61 10 10
button "=", 15, 27 75 46 10
edit "", 222, 58 7 38 10, read autohs
box "", 17, 3 0 95 30
box "", 18, 25 26 35 48
box "", 19, 59 26 17 48
box "", 20, 25 70 51 18
edit " Coder By CaN", 21, 25 88 51 10, read
edit "", 111, 5 7 39 10, read autohs
edit "", 16, 5 17 91 10, read autohs
link "www.mircdb.com", 23, 61 98 42 8
link "www.ircrehberi.net", 22, 1 98 50 8
edit "", 333, 44 7 14 10, read
button "SiL", 24, 3 30 20 60
button "Kapat", 25, 78 30 20 60, cancel
}

on 1:dialog:cancalc:init:*:{
set %sc 111
did -a cancalc 111,222,16
}
On 1:dialog:cancalc:close:*:{ unset %cancalcsonuc | unset %sc | unset %sx }
on 1:dialog:cancalc:sclick:*:{
if ($did == 1) { did -a cancalc %sc 1 }
if ($did == 2) { did -a cancalc %sc 2 }
if ($did == 3) { did -a cancalc %sc 3 }
if ($did == 4) { did -a cancalc %sc 4 }
if ($did == 5) { did -a cancalc %sc 5 }
if ($did == 6) { did -a cancalc %sc 6 }
if ($did == 7) { did -a cancalc %sc 7 }
if ($did == 8) { did -a cancalc %sc 8 }
if ($did == 9) { did -a cancalc %sc 9 }
if ($did == 10) { did -a cancalc %sc 0 }
if ($did == 11) { did -a cancalc 333 + | set %sc 222 | set %sx + }
if ($did == 12) { did -a cancalc 333 - | set %sc 222 | set %sx - }
if ($did == 13) { did -a cancalc 333 * | set %sc 222 | set %sx * }
if ($did == 14) { did -a cancalc 333 / | set %sc 222 | set %sx / }
if ($did == 15) {
set %cancalcsonuc $calc($did(111) %sx $did(222))
did -a cancalc 16 %cancalcsonuc
}
if ($did == 23) { run www.mircdb.com }
if ($did == 22) { run www.ircrehberi.net }
if ($did == 24) { did -r cancalc 111,222,333,16 | set %sc 111 }
}