miRC Titlebar Eklenti

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 mIRC15 $version 0Sistem15 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))
}


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«•»-    ############################