Titlebar System

By SaNCaKx on Nov 08, 2016

on *:load: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Titlebar System $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Thank you for using this Addon,igo,Addon: Titlebar System $chr(40) $+ v5.4 $+ $chr(41))
  .echo -s _____________________________________________________
  .echo -s 0,1 Loading 9,1Titlebar System0,1 Add-On... 
  .echo -s 0,1 You are running mIRC $version on Windows $+ $os
    .echo -sa 0,1 Web: 9,1 http://0,1www.lidersohbet.com 
  .echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Titlebar System $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 System $chr(40) $+ v5.4 $+ $chr(41))
}
;############################  -«•»SaNCaK ScripT«•»-    ############################

menu menubar,status {
  Titlebar ( $+ $iif(%SaNCaK.Titlebar.status,On,Off) $+ ):dialog -m SaNCaK_Titlebar SaNCaK_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 SaNCaK.Titlebar.chk {
  if ($1) .timerSaNCaK.Titlebar.update 0 1 SaNCaK.Titlebar.chk
  else {
    var %ctr = 1,%tmp
    if (%SaNCaK.Titlebar.umode) %tmp = $addtok(%tmp,$+([Usermodes:,$iif($usermode,$ifmatch,N/A),]),32)
    if (%SaNCaK.Titlebar.online) %tmp = $addtok(%tmp,$+([Online:,$SZ.xduration($uptime(server,3)),]),32)
    if (%SaNCaK.Titlebar.away) %tmp = $addtok(%tmp,$+([Away:,$iif($away,Evet,Hayır),]),32)
    if (%SaNCaK.Titlebar.uptime) %tmp = $addtok(%tmp,$+([PC Uptime:,$SZ.xduration($uptime(system,3)),]),32)
    if (%SaNCaK.Titlebar.daytime) %tmp = $addtok(%tmp,$+([Day & Time:,$day @ $time(h:nnt),]),32)
    titlebar $iif(%SaNCaK.Titlebar.status,%tmp)
  }
}
on *:START: SaNCaK.Titlebar.chk -yepperz

dialog SaNCaK_Titlebar {
  title "Titlebar Preferences"
  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 "Day", 6, 158 8 36 10, flat
  check "Start on", 7, 4 22 60 10, flat
  button "&Save", 10, 164 21 30 10, ok flat
}

on 1:dialog:SaNCaK_Titlebar:*:*: {
  if ($devent == init) {
    ; init routines
    var %ctr = 1,%tmp = umode,online,away,uptime,daytime,status
    while ($Gettok(%tmp,%ctr,44)) {
      if (%SaNCaK.Titlebar. [ $+ [ $ifmatch ] ] ) did -c $dname $calc(%ctr + 1)
      inc %ctr
    }
  }
  elseif ($devent == sclick) {
    ; sclick routines

    if ($did == 10) {
      set %SaNCaK.Titlebar.umode $iif($did(2).state == 1,$true,$false)
      set %SaNCaK.Titlebar.online $iif($did(3).state == 1,$true,$false)
      set %SaNCaK.Titlebar.away $iif($did(4).state == 1,$true,$false)
      set %SaNCaK.Titlebar.uptime $iif($did(5).state == 1,$true,$false)
      set %SaNCaK.Titlebar.daytime $iif($did(6).state == 1,$true,$false)

      if ($did(7).state == 1) {
        set %SaNCaK.Titlebar.status $true
        SaNCaK.Titlebar.chk -b0riNg
      }
      else {
        set %SaNCaK.Titlebar.status $false
        .timerSaNCaK.Titlebar.update off
      }
    }
    if ($did == 11)
    if ($did == 13)
  }
  elseif ($devent == dclick) {
    ; dclick routines

    if ($did == 11)
    if ($did == 13)
  }
}
;############################      -«•»SaNCaK ScripT«•»-    ############################

Comments

Sign in to comment.
DashRipr0ck   -  Apr 07, 2022

/if: insufficient parameters (line 78, TitlebarSystem.mrc)

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.