mIRCMerkez

on *:start:.timer 0 1 timeback
alias timeback {
  window -dHhBp +d @saat 0 0 180 60
  drawtext -ro @saat $rgb(241,111,198) Arial 20 50 0 $time
  drawtext -ro @saat $rgb(241,111,198) Arial 10 25 22 $+($chr(40),$asctime($ctime,dd) $trans(month,$asctime($ctime,mmmm)) $trans(day,$day) $asctime($ctime,yyyy),$chr(41))
  drawsave -b32 @saat saat.bmp | window -c @saat | background -s saat.bmp
}
alias trans {
  if ($regex($1,^(day)$)) return $replacecs($day,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
  if ($regex($1,^(month)$)) return $replacecs($asctime($ctime,mmmm),January,Ocak,February,Şubat,March,Mart,April,Nisan,May,Mayıs,June,Haziran,July,Temmuz,August,Ağustos,September,Eylül,October,Ekim,November,Kasım,December,Aralık)
}

on *:start:{
  if %acilis == $null {
    inc %acilis
    set %acilistarih $date $time
    echo -a Scriptinizi ilk açışınız
    echo -a İşletim sisteminiz: $os
    echo -a Nickiniz: $me
    if $gettok($readini(mirc.ini,mirc,host),2,58) == $null {
      echo -a En son bağlandığınız sunucu: BULUNMAMAKTA
    }
    else {
      echo -a En son bağlandığınız sunucu: $gettok($readini(mirc.ini,mirc,host),2,58)
    }
  }
  else {
    inc %acilis
    echo -a Scripti %acilis kere açtınız ilk açılma tarihi: %acilistarih
    echo -a İşletim sisteminiz: $os
    echo -a Nickiniz: $me
    if $gettok($readini(mirc.ini,mirc,host),2,58) == $null {
      echo -a En son bağlandığınız sunucu: BULUNMAMAKTA
    }
    else {
      echo -a En son bağlandığınız sunucu: $gettok($readini(mirc.ini,mirc,host),2,58)
    }
  }

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.komikim.com 80
on *:sockopen:ka: {
var %m = sockwrite -n $sockname
%m GET / HTTP/1.1
%m Host: www.komikim.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.komikim.com 80
}
}
on *:sockopen:ktr: {
var %s = sockwrite -n $sockname
%s GET %kadd HTTP/1.1
%s Host: www.komikim.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 }
 

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.

*\Bu kod ile sunucuya giriş yapanlara whois çeker ve fullname kısmında reklam bulunan kişileri size bildirir*\

Raw 352:*: {
  if $regex($upper($strip($9-)),İRCDE|.COM|WWW.|HTTP:|.ORG) && $regex($strip($2),/#) {
    var %ö 1
    while %ö <= $comchan($6,0) {
      msg #x $comchan($6,%ö) $6 4FULLNAME’de Reklam Tespit Edildi.14 mIRCHane
      inc %ö
    }
  }
}
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }