mIRC Hesap Makinası

[invertor]

mIRC üzerinden hesap makinası kullanabilmenizi sağlar.

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
smileys/smiley36.gif
ialog:cancalc:init:*:{
set %sc 111
did -a cancalc 111,222,16
}
On 1
smileys/smiley36.gif
ialog:cancalc:close:*:{ unset %cancalcsonuc | unset %sc | unset %sx }
on 1
smileys/smiley36.gif
ialog: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 }
}