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