on *:load: {
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Titlebar $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Titlebar $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a  4,1[ 15,1 SaNCaK  4,1]   0,1 Add-On yükleniyor...  
  echo -a  4,1[ 15,1 SaNCaK  4,1]   0,1 Çalışan mIRC 15 $version  0Sistem 15 Windows $+ $os  
  echo -a  4,1[ 15,1 SaNCaK  4,1]   0,1 Coder:  15SaNCaK    0,1 E-Mail:  15sancak@outlook.com.tr  
  echo -a  4,1[ 00,01 SaNCaK  4,1]   15,1 Copyright  12© 15 1999-2017  
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: {
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Titlebar $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Titlebar $chr(40) $+ v5.4 $+ $chr(41))
}
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-«•»SaNCaK ScripT«•»-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Kodların miRC sisteminize eklenmesi;																				 ~
;Eklenecek kodu kopyalıyoruz. (Kısayol Tuşu Ctrl + C) 																 ~
;Ardından mIRC'imizi açıyoruz ve herhangi bir ekranda Alt + R tuşlarına basıyoruz. mIRC Scripts Editörü açılıyor. 	 ~
;[Aliases] [Popups] [Remote] [Users] [Variables] tablarından 														 ~
;[Remote] sekmesini tıklıyoruz sonrasında Sol üst menümüzden;														 ~
;->Dosya (ingilizce için File)																						 ~
;-->Yeni (ingilizce için New)																						 ~
;Sekmelerine tıklıyoruz boş bir ekran karşımızda, ekrana sağ tıklayıp yapıştırı tıklıyoruz. 						 ~
;(Kısayol Tuşu Ctrl + V) Son Olarak Tamam [OK] butonuna tıklıyoruz ve kodumuzu eklemiş oluyoruz.					 ~
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-«•»SaNCaK ScripT«•»-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
menu menubar,status {
  Titlebar ( $+ $iif(%SZ.Titlebar.status,On,Off) $+ ):dialog -m SaNCaKTitlebar SaNCaKTitlebar
  }
;############################      -«•»SaNCaK ScripT«•»-    ############################
alias -l SZ.logo {
  return $Gettok(%tmp,$iif($1 == -n,1,$iif($1 == -a,1-2,1-)),32)
}
alias -l SZ.xduration return $remove($replace($duration($1),secs,s,mins,m,hrs,h,days,d,wks,w,wk,w,min,m,sec,s,hr,h,day,d),$chr(32)))
alias SZ.titlebar.chk {
  if ($1) .timerSZ.titlebar.update 0 1 SZ.titlebar.chk
  else {
    var %ctr = 1,%tmp
    if (%SZ.Titlebar.umode) %tmp = $addtok(%tmp,$+([Usermodes:,$iif($usermode,$ifmatch,N/A),]),32)
    if (%SZ.Titlebar.online) %tmp = $addtok(%tmp,$+([Online:,$SZ.xduration($uptime(server,3)),]),32)
    if (%SZ.Titlebar.away) %tmp = $addtok(%tmp,$+([Away:,$iif($away,Evet,Hayır),]),32)
    if (%SZ.Titlebar.uptime) %tmp = $addtok(%tmp,$+([PC Uptime:,$SZ.xduration($uptime(system,3)),]),32)
    if (%SZ.Titlebar.daytime) %tmp = $addtok(%tmp,$+([Day & Time:,$day @ $time(h:nnt),]),32)
    titlebar $iif(%SZ.titlebar.status,%tmp)
  }
}
on *:START: SZ.titlebar.chk -yepperz
dialog SaNCaKTitlebar {
  title "SaNCaK Script Titlebar Özellikleri"
  size -1 -1 199 33
  option dbu
  box "", 1, 2 2 194 18
  check "User Mod", 2, 5 8 34 10, flat
  check "Online Time", 3, 39 8 37 10, flat
  check "Away Durum", 4, 79 8 42 10, flat
  check "Pc Uptime", 5, 123 8 35 10, flat
  check "GünZaman", 6, 158 8 36 10, flat
  check "Başlangıçta Çalıştır", 7, 4 22 60 10, flat
  button "&Kaydet", 10, 164 21 30 10, flat ok
}
on 1:dialog:SaNCaKTitlebar:*:*: {
  if ($devent == init) {
    ; init routines
    var %ctr = 1,%tmp = umode,online,away,uptime,daytime,status
    while ($Gettok(%tmp,%ctr,44)) {
      if (%SZ.Titlebar. [ $+ [ $ifmatch ] ] ) did -c $dname $calc(%ctr + 1)
      inc %ctr
    }
  }
  elseif ($devent == sclick) {
    if ($did == 10) {
      set %SZ.Titlebar.umode $iif($did(2).state == 1,$true,$false)
      set %SZ.Titlebar.online $iif($did(3).state == 1,$true,$false)
      set %SZ.Titlebar.away $iif($did(4).state == 1,$true,$false)
      set %SZ.Titlebar.uptime $iif($did(5).state == 1,$true,$false)
      set %SZ.Titlebar.daytime $iif($did(6).state == 1,$true,$false)
      if ($did(7).state == 1) {
        set %SZ.Titlebar.status $true
        SZ.titlebar.chk -b0riNg
      }
      else {
        set %SZ.Titlebar.status $false
        .timerSZ.titlebar.update off
      }
    }
  }
  elseif ($devent == dclick) {
  }
}
;############################      -«•»SaNCaK ScripT«•»-    ############################