mIRC Titlebar

on *:LOAD: {
  echo -a _____________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Loading Add-On... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-on: 09 Titlebar 15 Add-On 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 You are running mIRC $version on $os  $+ .
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15SaNCaK@SaNCaK.gen.tr 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Copyright © 200915 http://www.sancak.gen.tr
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
menu menubar,status {
  Titlebar ( $+ $iif(%SZ.Titlebar.status,On,Off) $+ ):dialog -m sz_titlebar sz_titlebar
}

;############################      -«•»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 sz_titlebar {
  title "SaNCaK Script Titlebar Özellikleri"
  size -1 -1 199 33
  option dbu
  box "", 1, 2 2 194 18
  check "User Mod", 2, 5 8 37 10, flat
  check "Online Time", 3, 44 8 37 10, flat
  check "Away Durum", 4, 82 8 39 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, ok flat
}


on 1:dialog:sz_titlebar:*:*: {
  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) {
    ; sclick routines

    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
      }
    }
    if ($did == 11) run http://www.sancak.gen.tr
    if ($did == 13) run http://www.sancak.gen.tr
  }
  elseif ($devent == dclick) {
    ; dclick routines

    if ($did == 11) run http://www.sancak.gen.tr
    if ($did == 13) run http://www.sancak.gen.tr
  }
}
;############################      -«•»SaNCaK ScripT«•»-    ############################