Facebook , msn gibi yazılım uzmanları mirc bitmesinde bu duruma gelmesinde en cok önemi oynuyorlar bizde bu durumdan cok üzülüyoruz mIRC ücretsiz tamamen insan ların sohbet proglam larıyla irc sonuclarına bağlanıp kaçlarca çeşitli insan lar la tanıştıgı bir ağ olarak biliniyor gelin görür kine şimdik mirc portalları sonucularını bot clone den geçilmiyor nerde o eski mIRC Sevdalı insan ? hemsi bıraktı pes etti ugraşmıyor coguda farklı portallara hizmet vermeye girişmiş durumda acaba 2 3 sene sonra ne olcak ? izleyip bunu görcez.

Facebook: Çevrimiçi topluluğun hesapları yakında ücrete tâbi mi olacak?

Facebook 140 milyondan fazla aktif kullanıcısı ile internetteki en hızlı büyüyen sosyal network ağı. Ortalama bir kullanıcının 100 arkadaşı var, günde tahminen 30 milyon resim gönderiliyor. Dünya çapında her gün 200.000′in üzerinde yeni kullanıcı portala üye oluyor.

sermayenin büyük bir kısmı harcanmış durumda. Eğer büyüme oranları durursa peşin para stokları 2009′daki piyasa durgunluğunda tamamen eriyebilir

Bunları yapıp kodu eklediğinizde bütün dialoglarınız bir düzen içerisinde renklenmiş ve animasyonlu hale gelmiş olacaktır.

Kod:

;;Coded By SaW (Sercan)
;;01 Ocak 2009
;;Kaynak belirtilmeden kullanılmaması rica olunur.
;;iletişim: sercan@turkiyemirc.net

; dll’i tanıtıyoruz. (mdx aliasına atıyoruz.)
alias mdx return $dll(mdx.dll,$1,$2-)
;Animasyonu yapan kısım.
alias animac {
  var %i 0, %t 0, %s $rand(1,3)
  ; En sabit yukarı ve aşağı doğru animasyon
  if %s == 1 {
    while (%i <= $1 || %t <= $2) {
      dialog -srb $3 -1 -1 %i $2
      if (%t < $2) inc %t
      if (%i < $1) inc %i
    }
  }
  ; Boy sabit sağa ve sola doğru animasyon
  if %s == 2 {
    while (%i <= $1 || %t <= $2) {
      dialog -srb $3 -1 -1 $1 %t
      if (%t < $2) inc %t
      if (%i < $1) inc %i
    }
  }
  ; merkezden kenarlara doğru animasyon
  if %s == 3 {
    while (%i <= $1 || %t <= $2) {
      dialog -srb $3 -1 -1 %i %t
      if (%t < $2) inc %t
      if (%i < $1) inc %i
    }
  }
}

; Burada Dialogları Hem renklendiriyoruz, hemde animasyon komutunu burada veriyoruz
on *:DIALOG:*:init:*:{
  ; Bir dialog açıldığında o d dialogun enini, boyunu ve adını değişkene atıyoruz
  var %v = $calc($dialog($dname).w * 82 / 166) $calc($dialog($dname).h * 60 / 134) $dname
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  ; Dialogun arka plan rengini belirliyoruz. Buradan renkte değişiklik yapabilirsiniz
  mdx SetDialog $dname bgcolor $rgb(74,112,139)
  var %~ = 1
  ; Bu %j değişkeni bir dialogun içindeki id sayısıdır, genelde daha az olur
  ; ama büyük dialoglarda bu ve bundan daha fazlası da olabilir, ancak
  ; açılışta hem döngünün çok uzun sürüp yavaşlamaması hem de mümkün
  ; olduğunca eksik id kalmaması için 700 sayısını seçtim, eğer sizin
  ; scriptinizde daha fazla id’li dialog varsa artırın, eğer hep daha az id’ler varsa azaltabilirsiniz.
  var %j = 700
  var %s = 0
  ; Bütün 1′den 700′e kadar tüm id’ler için aşağıdaki komutları uygulatıyoruz.
  while %~ <= %j {
  ; Bu if’in açılmasının nedeni, dialogun içindeki bazı edit ve box kısımlarını 
  ; (değer girilebilen) mdx’in değiştirmemesi ve o kutucuk ve yazıların belirgin kalabilmesi..
    if ($did(%~).isid == $true) {
  ; Bu if ise, “eğer %~ değişkeninin ifade ettiği id değeri var ise” manasına gelmektedir.
      if ($did($dname,%~)) {
        ; Dialog içindeki yazı arka plan rengidir.. Dilerseniz değiştirebilirsiniz.
        mdx SetColor $dname %~ textbg $rgb(108,166,205)
        ; Dialog içindeki yazı rengidir.. Dilerseniz değiştirebilirsiniz.
        mdx SetColor $dname %~ text $rgb(232,232,232)
        ; Dialog içindeki genel arka plan rengidir.. Dilerseniz değiştirebilirsiniz.
        mdx SetColor $dname %~ background $rgb(108,166,205)
        ; Genel yazı fontu ve ayarlarıdır.. Dilerseniz değiştirebilirsiniz.
        mdx SetFont $dname %~ Turkish 14 200 arial      
      }
      inc %s
    }
    inc %~
  }
  ; dialog açıldığında 1 milisaniye sonra animasyona başlatır.
  .timer -m 1 1 animac %v
}