mIRC Hesap Makinası

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: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 } 
}

Özür dilerim, ben biraz acemiyim, bu kodu nereye yazıcaz. ?

mirc içerisinde Alt+R yaparak scriptin Remote bölümüne bu kodları ekleyin

mIRC Hesap makinesini çalıştırmak içinse aşşağıda verdiğim kodu mirc içersinde yazınız kolay gelsin.

/dialog -m cancalc cancalc