on ^*:snotice:*: { msg #kanalınızınismi $1- | halt }

Bunu mIRC’nizin remote kısmına ekleyerek veya mIRC klasörüne txt şeklinde atarak mIRC’inizde /load -rs dosyaismi.txt yazarak aktif hale getirebilirsiniz.

Popularity: 2% [?]

alias -l dw.tools {
if (!%ons) set %ons on
drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13
drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13
drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster
drawrect -r @karika $rgb(245,245,245) 1 $calc($2 – $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11)
drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 – $width(Kapat,Tahoma,11,1)) $calc($1 + 1) Kapat!
if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X
}
alias ktur { if ($1 == acik) { echo -a 4Her açlışta karikatür gösterimi açık! | set %ons on } | elseif ($1 == kapali) { echo -a 4Her açılışta karikatür gösterimi kapalı | set %ons off } }
alias ktr sockopen ka www.mIRCReal.com 80
on *:sockopen:ka: {
var %m = sockwrite -n $sockname
%m GET / HTTP/1.1
%m Host: www.mIRCReal.com
%m $crlf
}
on *:sockread:ka: {
sockread %xw
$iif(HTTP/1.1 500 * iswm %xw,echo -a 7(Karikatür Addonu)4Kaynak sitede şuan sorun var.Daha sonra tekrar deneyin.)
if (/karikaturgoster.asp isin %xw) {
write -c ss.jpg
set %kadd $gettok($remove($gettok(%xw,4,32),src=,”),1-2,46)
sockopen ktr www.mIRCReal.com 80
}
}
on *:sockopen:ktr: {
var %s = sockwrite -n $sockname
%s GET %kadd HTTP/1.1
%s Host: www.mIRCReal.com
%s $crlf
}
on *:sockread:ktr: {
sockread %s
$iif(Length: isin %s,set %by $gettok(%s,2,32))
if (Data isin %s) set %hazır sadsadsa
elseif (* !iswm %s) {
set %size $sock(ktr).rcvd | sockrename ktr re
}
}
on *:sockread:re: {
sockread &oo
bwrite ss.jpg -1 -1 &oo
var %yuz = $round($calc(100 * ($sock(re).rcvd – %size) / %by),1)
if (%yuz >= 100) {
set %pw $pic($shortfn(ss.jpg)).width
set %ph $calc($pic($shortfn(ss.jpg)).height + 30)
window -dohpBk[0]C +dL @karika 0 0 %pw %ph
window -a @karika
drawrect -rf @karika $rgb(245,245,245) 1 0 0 %pw %ph
drawpic @karika 0 0 $shortfn(ss.jpg)
drawrect -r @karika $rgb(0,0,0) 1 0 0 %pw %ph
drawrect -r @karika $rgb(0,0,0) 1 0 $calc(%ph – 30) %pw 1
dw.tools $calc(%ph – 20) $calc(%pw – 20)
.remove $shortfn(ss.jpg)
unset %hazır %by %s %size %xw %kadd
}
}
menu @karika {
uclick: {
if ($inrect($mouse.x,$mouse.y,20,$calc(%ph – 20),13,13)) {
if (%ons == on) { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph – 20) 13 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph – 20) 13 13 | set %ons off }
else { drawrect -rf @karika $rgb(255,255,255) 1 20 $calc(%ph – 20) 14 13 | drawrect -r @karika $rgb(0,0,0) 1 20 $calc(%ph – 20) 14 13 | drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $calc(%ph – 20) X | set %ons on }
}
if ($inrect($mouse.x,$mouse.y,$calc((%pw – 20) – $width(Kapat,Tahoma,11,1)),$calc((%ph – 20) + 1),$width(Kapat,Tahoma,11,1),$height(Kapat,Tahoma,11))) { window -c @karika | unset %ph %pw }
}
}
on *:start: { if (!%ons) set %ons on | if (%ons == on) ktr }

Popularity: 2% [?]

alias cancalc { dialog -m cancalc cancalc }
dialog cancalc {
title “..::| Edit ßy Professional |::..”
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.mircreal.com”, 23, 61 98 42 8
link “www.mircreal.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.mircreal.com }
if ($did == 22) { run www.mircreal.net }
if ($did == 24) { did -r cancalc 111,222,333,16 | set %sc 111 }
}

Popularity: 2% [?]