mIRCMerkez

mIRC, anlık olarak iletişim programlarının atalarındandır. Daha sonra geliştirilen, MSN ve Skype tarzı programlardan farklı olarak özel sohbetlerin yanında kanallarda çoğul sohbet imkanıda sağlamaktadır. Ayrıca, mirc programı geliştirmesi kolay bir sistem ile yazılmıştır. Günümüzde yüzlerce mIRC programı farklı özellikler eklenerek kullanıcılara sunulmaktadır. mIRC programının eklentiler ile geliştirilmiş haline mIRC Script adı verilir. mIRCMerkez, uzun bir süredir mIRC geliştirme çalışmalarını başarı ile yürütmektedir. MSN ve benzeri programlarındaki özellikleri mIRC Scripting’e aktararak gelişmiş bir sohbet programı yaratmıştır. mIRCMerkez Script Geliştirme Ekibi tarafından hazırlanan son sürüm mIRC programını bilgisayarınıza indirmek için BURAYA tıklayın.

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.