Hızlı Kanal Bilgileri (Popups)

on *:load: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Channel info $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: Channel info $chr(40) $+ v5.4 $+ $chr(41))
  .echo -s _____________________________________________________
  .echo -s 0,1 Loading 9,1Channel info0,1 Add-On... 
  .echo -s 0,1 You are running mIRC $version on Windows $+ $os
  .echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Channel info $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: Channel info $chr(40) $+ v5.4 $+ $chr(41))
}
;############################  -«•»SaNCaK ScripT«•»-    ############################

menu channel {
— $chan —
.&Quickinfo  $chan:channel
.-
.Users   $nick($chan,0):say Users --> $nick($chan,0)
.Owners  $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ ):say Owners --> $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ )
.Protect     $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ ):say Protect --> $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ )
.Ops         $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ ):say Ops --> $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ )
.Halfops     $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ ):say Halfops --> $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ )
.Voices  $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ ):say Voices --> $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ )
.Normal  $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ ):say Normal --> $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ )
.&Modes  $chan($chan).mode:say Active Mode for $active $chan($chan).mode
.All Say: {
  say Users --> $nick($chan,0)
  say Owners --> $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ )
  say Protect --> $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ )
  say Ops --> $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ )
  say Halfops --> $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ )
  say Voices --> $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ )
  say Normal --> $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ )
  say Active Mode for $active $chan($chan).mode
}
.-
. $iif($network != $null,$network,n/a) Info
..Conn. ID $cid:say Conn. ID $cid
..Net $iif($network != $null,$network,n/a):say Net $iif($network != $null,$network,n/a)
..Server $iif($server != $null,$server,n/a):say Server $iif($server != $null,$server,n/a)
..Server IP $iif($serverip != $null,$serverip,n/a):say Server IP $iif($serverip != $null,$serverip,n/a)
..Port $iif($server != $null,$port,n/a):say Port $iif($server != $null,$port,n/a)
..Channels On $chr(9)  $chan(0):say $chan(0)
..DCC Get $get(0):say $get(0)
..DCC Send $send(0):say $send(0)
..Connected by $iif($server != $null,$uptime(server,1),n/a):say $iif($server != $null,$uptime(server,1),n/a)
..Idle $iif($idle,$duration($idle),n/a):say $iif($idle,$duration($idle),n/a)
. $me Info
..Prefixes $chr(9) $iif($server != $null,$prefix,n/a):say Prefixes $iif($server != $null,$prefix,n/a)
..-
..Nick - $me:say Nick $me
..Host - $host:say Host $host
..IP - $ip:say IP $ip
..Current Server - $server:say Current Server $server
..Port - $port:say Port $port
..Sistem - $os :say Sistem $os
..-
..Date - $date(dd/mm/yyyy):say Date $date(dd/mm/yyyy)
..Day - $day:say Day $day
..Hour - $time:say Hour $time
..Saytime:say [Day: $day $+ ] [Date: $ord($date(dd)) $+ ] [Month: $time(mmmm) $+ ] [Year: $date(yyyy) $+ ] [Time: $time(hh:nn:ss TT) $+ ] [Meridian: $iif($time(TT) == pm,Evening,Morning) $+ ] [GMT: $iif($left($duration($remove($timezone,-)),1) != -,+) $+ $replace($duration($remove($timezone,-)),hr,hour) $+ ] [Daylight savings: $iif($daylight != 0,Yes,No) $+ ]
..Mirc $version:say Mirc $version
}