mIRC Stats — File Browser

mIRCStatsv4.61 / mIRCStatsv4.61 / stats / webpages / classic / classic.mrc

classic.mrc — 24.33 KB — Download this file

alias statswebclassic {
  var %ticks = $ticks

  sw <html>
  sw <head>
  sw <style type="text/css"><!--
  sw body $chr(123) background: #4F526A; scrollbar-face-color: #30323F; scrollbar-shadow-color: #616161; scrollbar-highlight-color: #6A7478; scrollbar-3dlight-color: #98ACB1; scrollbar-darkshadow-color: #8A9194; scrollbar-track-color: #3C3E4F; scrollbar-arrow-color: #8A9194; font-family: verdana, arial, helvetica, sans-serif; font-size: 11px; color: #BDD5E0; $chr(125)
  sw table $chr(123) font-size: 10px; color: #BDD5E0; $chr(125)
  sw a $chr(123) color: #EBEBEB; text-decoration: none; font-weight: bold; $chr(125)
  sw a:hover $chr(123) color: #99B4CD; text-decoration: none; font-weight: bold; $chr(125)
  sw .bold $chr(123) font-size: 10px; color: #BDD5E0; font-weight: bold; $chr(125)
  sw .contentborder $chr(123) border-top: 1px solid #8498A2; border-left: 1px solid #8498A2; border-right: 1px solid #8498A2; border-bottom: 1px solid #8498A2; $chr(125)
  sw --></style>

  sw <title> $sinfo(p,wintitle) - mIRC Stats $sinfo(p,version) </title>
  sw </head>

  sw <body leftmargin="10" topmargin="10">

  sw <center>
  sw <font size=3><b> $sinfo(p,pagetitle) </b></font></br><a href=".">Servers</a> $iif($sinfo(p,showcount),- <a href="./?=counters">Counters</a>) $iif($sinfo(p,showsys),- <a href=".?=system">System Stats</a>) <br><br>
  if ($sinfo(p,piclink)) { sw <img src=" $+ $sinfo(p,piclink) $+ "> }
  sw </center>

  sw <table width="100%" height="60%" border="0" cellpadding="0" bgcolor="#4F526A">

  sw <tr><td valign="top">

  sw <table width="300" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
  sw <tr><td colspan=2 bgcolor=#30323F><b>Personal Information:</b></td></tr>
  sw <tr><td width="80">Main Nick:</td><td> $iif($sinfo(p,nick),$ifmatch,-) </td></tr>
  sw <tr><td>Alt-Nick:</td><td> $iif($sinfo(p,anick),$ifmatch,-) </td></tr>
  sw <tr><td>Full name:</td><td> $iif($sinfo(p,fullname),$ifmatch,-) </td></tr>
  sw <tr><td>Location:</td><td> $iif($sinfo(p,location),$ifmatch,-) </td></tr>
  sw <tr><td>Age:</td><td> $iif($sinfo(p,age),$ifmatch,-) </td></tr>
  sw <tr><td>Gender:</td><td> $iif($sinfo(p,gender),$ifmatch,-) </td></tr>
  sw <tr><td colspan=2></td></tr>
  sw <tr><td colspan=2></td></tr>
  sw <tr><td>Hobbies:</td><td> $iif($sinfo(p,hobbies),$ifmatch,-) </td></tr>
  sw <tr><td>Occupation:</td><td> $iif($sinfo(p,occ),$ifmatch,-) </td></tr>
  sw <tr><td>Bio:</td><td> $iif($sinfo(p,bio),$ifmatch,-) </td></tr>
  sw <tr><td colspan=2></td></tr>
  sw <tr><td colspan=2></td></tr>
  sw <tr><td>E-mail:</td><td><a href="mailto: $+ $strip($sinfo(p,email)) $+ "> $iif($sinfo(p,email),$ifmatch,-) </a></td></tr>
  sw <tr><td>Website:</td><td><a href=" $+ $strip($sinfo(p,website)) $+ "> $iif($sinfo(p,website),$ifmatch,-) </a></td></tr>
  sw <tr><td>MSN Addy:</td><td> $iif($sinfo(p,msn),$ifmatch,-) </td></tr>
  sw <tr><td>AIM Nick:</td><td> $iif($sinfo(p,aim),$ifmatch,-) </td></tr>
  sw <tr><td>ICQ Number:</td><td> $iif($sinfo(p,icq),$ifmatch,-) </td></tr>
  sw <tr><td>Yahoo Addy:</td><td> $iif($sinfo(p,yahoo),$ifmatch,-) </td></tr>
  sw <tr><td colspan=2></td></tr>
  sw <tr><td>IRC Networks:</td><td> $iif($sinfo(p,nets),$ifmatch,-) </td></tr>
  sw <tr><td>IRC Chans:</td><td> $iif($sinfo(p,chans),$ifmatch,-) </td></tr>
  sw <tr><td>IRC Nicks:</td><td> $iif($sinfo(p,nicks),$ifmatch,-) </td></tr>
  sw </table><br>

  if ($sinfo(p,showtime)) {
    sw <table width="300" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>Time:</b></td></tr>
    sw <tr><td width="100">Hour:</td><td> $sinfo(t,time) </td></tr>
    sw <tr><td>Date:</td><td> $sinfo(t,date) </td></tr>
    sw <tr><td colspan=2></td></tr>
    sw <tr><td colspan=2></td></tr>
    sw <tr><td>Total online:</td><td> $sinfo(t,totalonline) </td></tr>
    sw <tr><td>mIRC uptime:</td><td> $sinfo(t,mirc) </td></tr>
    sw <tr><td>System uptime:</td><td> $sinfo(t,system) </td></tr>
    sw </table>
  }

  sw </td><td width="1" height="100%" bgcolor="#8498A2" align="left" valign="top"></td><td width=1></td><td width=1></td><td valign="top">

  if (/?=counters isin $1) && ($sinfo(p,showcount)) {
    sw <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#4F526A">
    sw <tr><td align="left" valign="top">

    sw <table width="320" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=4 bgcolor=#30323F><b>Text Stuff:</b></td></tr>
    sw <tr><td colspan=4>Since $sinfo(e,date) I have said/typed:</td></tr>
    sw <tr><td>Lines:</td><td> $sinfo(e,lines) </td><td> ( $+ $sinfo(e,lines).day per day) </td></tr>
    sw <tr><td>Words:</td><td> $sinfo(e,words) </td><td> ( $+ $sinfo(e,words).day per day) </td></tr>
    sw <tr><td>Characters:</td><td> $sinfo(e,chars) </td><td> ( $+ $sinfo(e,chars).day per day) </td></tr>
    sw <tr><td>Punctuations:</td><td> $sinfo(e,puncs) </td><td> ( $+ $sinfo(e,puncs).day per day) </td></tr>
    sw <tr><td>Smilies</td><td> $sinfo(e,smilies) </td><td> ( $+ $sinfo(e,smilies).day per day) </td></tr>
    sw </table>
    sw </td><td align="left" valign="top">

    sw <table width="320" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=4 bgcolor=30323F><b>Basic events:</b></td></tr>
    sw <tr><td colspan=4>Since $sinfo(e,firstdate) I have:</td></tr>
    sw <tr><td>Started mIRC:</td><td> $sinfo(e,started) </td><td> ( $+ $sinfo(e,started).day per day) </td></tr>
    sw <tr><td>Viewed stats:</td><td> $sinfo(e,viewed) </td><td> ( $+ $sinfo(e,viewed).day per day) </td></tr>
    sw <tr><td>Echos:</td><td> $sinfo(e,echo) </td><td> ( $+ $sinfo(e,echo).day per day) </td></tr>
    sw <tr><td>CTCP replies:</td><td> $sinfo(e,ctcps) </td><td> ( $+ $sinfo(e,ctcps).day per day) </td></tr>
    sw <tr><td>Send DCC files:</td><td> $sinfo(e,dccsend) </td><td>Size:</td><td> $bytes($sinfo(e,dccsendsize),3).suf </td></tr>
    sw <tr><td>Recieved DCC files:</td><td> $sinfo(e,dccget) </td><td>Size:</td><td> $bytes($sinfo(e,dccgetsize),3).suf </td></tr>
    sw <tr><td>Webpage hits:</td><td> $sinfo(e,pagehits) </td><td> ( $+ $sinfo(e,pagehits).day per day) </td></tr>
    sw </table>
    sw </td></tr><tr><td align=left valign=top colspan=2>

    sw <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor=" $+ $hg(colorback) $+ "><br>
    sw <tr><td align=left valign=top>

    sw <table width="210" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=30323F><b>Been Stats:</b></td></tr>
    sw <tr><td colspan=2>Since $sinfo(b,date) times I've been:</td></tr>
    sw <tr><td>Oped:</td><td> $sinfo(b,oped) ( $+ $sinfo(b,oped).day per day) </td></tr>
    sw <tr><td>Deoped:</td><td> $sinfo(b,deoped) ( $+ $sinfo(b,deoped).day per day) </td></tr>
    sw <tr><td>Halfoped:</td><td> $sinfo(b,halfoped) ( $+ $sinfo(b,halfoped).day per day) </td></tr>
    sw <tr><td>Dehalfoped:</td><td> $sinfo(b,dehalfoped) ( $+ $sinfo(b,dehalfoped).day per day) </td></tr>
    sw <tr><td>Voiced:</td><td> $sinfo(b,voiced) ( $+ $sinfo(b,voiced).day per day) </td></tr>
    sw <tr><td>Devoiced:</td><td> $sinfo(b,devoiced) ( $+ $sinfo(b,devoiced).day per day) </td></tr>
    sw <tr><td>Kicked:</td><td> $sinfo(b,kicked) ( $+ $sinfo(b,kicked).day per day) </td></tr>
    sw <tr><td>Banned:</td><td> $sinfo(b,banned) ( $+ $sinfo(b,banned).day per day) </td></tr>
    sw </table>

    sw </td><td align=left valign=top>

    sw <table width="210" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=30323F><b>Have Stats:</b></td></tr>
    sw <tr><td colspan=2>Since $sinfo(h,date) times I have:</td></tr>
    sw <tr><td>Oped:</td><td> $sinfo(h,oped) ( $+ $sinfo(h,oped).day per day) </td></tr>
    sw <tr><td>Deoped:</td><td> $sinfo(h,deoped) ( $+ $sinfo(h,deoped).day per day) </td></tr>
    sw <tr><td>Halfoped:</td><td> $sinfo(h,halfoped) ( $+ $sinfo(h,halfoped).day per day) </td></tr>
    sw <tr><td>Dehalfoped:</td><td> $sinfo(h,dehalfoped) ( $+ $sinfo(h,dehalfoped).day per day) </td></tr>
    sw <tr><td>Voiced:</td><td> $sinfo(h,voiced) ( $+ $sinfo(h,voiced).day per day) </td></tr>
    sw <tr><td>Devoiced:</td><td> $sinfo(h,devoiced) ( $+ $sinfo(h,devoiced).day per day) </td></tr>
    sw <tr><td>Kicked:</td><td> $sinfo(h,kicked) ( $+ $sinfo(h,kicked).day per day) </td></tr>
    sw <tr><td>Banned:</td><td> $sinfo(h,banned) ( $+ $sinfo(h,banned).day per day) </td></tr>
    sw <tr><td>Changed Nick:</td><td> $sinfo(h,nick) ( $+ $sinfo(h,nick).day per day) </td></tr>
    sw <tr><td>Set Topic:</td><td> $sinfo(h,topic) ( $+ $sinfo(h,topic).day per day) </td></tr>
    sw <tr><td>Joined Chan:</td><td> $sinfo(h,joined) ( $+ $sinfo(h,joined).day per day) </td></tr>
    sw <tr><td>Parted Chan:</td><td> $sinfo(h,parted) ( $+ $sinfo(h,parted).day per day) </td></tr>
    sw <tr><td>Query's:</td><td> $sinfo(h,query) ( $+ $sinfo(h,query).day per day) </td></tr>
    sw <tr><td>Connected:</td><td> $sinfo(h,connected) ( $+ $sinfo(h,connected).day per day) </td></tr>
    sw <tr><td>Quit Server:</d><td> $sinfo(h,quit) ( $+ $sinfo(h,quit).day per day) </td></tr>
    sw </table>

    sw </td><td align=left valign=top>

    sw <table width="210" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>Seen Stats:</b></td></tr>
    sw <tr><td colspan=2>Since $sinfo(s,date) times I've seen:</td></tr>
    sw <tr><td>Oped:</td><td> $sinfo(s,oped) ( $+ $sinfo(s,oped).day per day) </td></tr>
    sw <tr><td>Deoped:</td><td> $sinfo(s,deoped) ( $+ $sinfo(s,deoped).day per day) </td></tr>
    sw <tr><td>Halfoped:</td><td> $sinfo(s,halfoped) ( $+ $sinfo(s,halfoped).day per day) </td></tr>
    sw <tr><td>Dehalfoped:</td><td> $sinfo(s,dehalfoped) ( $+ $sinfo(s,dehalfoped).day per day) </td></tr>
    sw <tr><td>Voiced:</td><td> $sinfo(s,voiced) ( $+ $sinfo(s,voiced).day per day) </td></tr>
    sw <tr><td>Devoiced:</td><td> $sinfo(s,devoiced) ( $+ $sinfo(s,devoiced).day per day) </td></tr>
    sw <tr><td>Kicked:</td><td> $sinfo(s,kicked) ( $+ $sinfo(s,kicked).day per day) </td></tr>
    sw <tr><td>Banned:</td><td> $sinfo(s,banned) ( $+ $sinfo(s,banned).day per day) </td></tr>
    sw <tr><td>Nick Change:</td><td> $sinfo(s,nick) ( $+ $sinfo(s,nick).day per day) </td></tr>
    sw <tr><td>Topic Set:</td><td> $sinfo(s,topic) ( $+ $sinfo(s,topic).day per day) </td></tr>
    sw <tr><td>Chan Join:</td><td> $sinfo(s,joined) ( $+ $sinfo(s,joined).day per day) </td></tr>
    sw <tr><td>Chan Part:</td><td> $sinfo(s,parted) ( $+ $sinfo(s,parted).day per day) </td></tr>
    sw <tr><td>Quit Server:</d><td> $sinfo(s,quit) ( $+ $sinfo(s,quit).day per day) </td></tr>
    sw </table>

    sw </table>
    sw </td></tr>
    sw </table>
  }

  elseif (/?=system isin $1) && ($sinfo(p,showsys)) {
    sw <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#4F526A">
    sw <tr><td align="left" valign="top">

    sw <table width="240" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>cpu / ram:</b></td></tr>
    sw <tr><td>cpu:</td><td> $iif($sinfo(y,cpu),$ifmatch,-) </td></tr>
    sw <tr><td>Megahertz:</td><td> $iif($sinfo(y,mhz),$ifmatch,-) </td></tr>
    sw <tr><td>Cache:</td><td> $iif($sinfo(y,cache),$ifmatch,-) </td></tr>
    sw <tr><td>Load:</td><td> $iif($sinfo(y,load),$ifmatch,-) </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td><br></td></tr> 
    sw <tr><td>ram ammount:</td><td> $iif($sinfo(y,ram),$ifmatch,-) </td></tr>
    sw <tr><td>In use:</td><td> $iif($sinfo(y,ramuse),$ifmatch,-) </td></tr>

    sw </table>

    sw </td><td align=left valign=top>

    sw <table width="200" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>os:</b></td></tr>
    sw <tr><td>os:</td><td> $iif($sinfo(y,os),$ifmatch,-) </td></tr>
    sw <tr><td>version:</td><td> $iif($sinfo(y,osver),$ifmatch,-) </td></tr>
    sw <tr><td>build:</td><td> $iif($sinfo(y,osbuild),$ifmatch,-) </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td>Installed for:</td><td> $iif($sinfo(y,osinst),$ifmatch,-) </td></tr>
    sw <tr><td>Uptime:</td><td> $iif($sinfo(y,osup),$ifmatch,-) </td></tr>
    sw </table>

    sw </td><td align=left valign=top>

    sw <table width="200" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>gfx:</b></td></tr>
    sw <tr><td>gfx card:</td><td> $iif($sinfo(y,gfx) == -1,-,$ifmatch) </td></tr>
    sw <tr><td>resolution:</td><td> $iif($sinfo(y,gfxres),$ifmatch,-) </td></tr>
    sw <tr><td>refresh rate:</td><td> $iif($sinfo(y,gfxref),$ifmatch,-) </td></tr>
    sw <tr><td>depth:</td><td> $iif($sinfo(y,gfxdepth),$ifmatch,-) </td></tr>
    sw </table>

    sw </td></tr>
    sw </table><br>

    sw <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#4F526A">
    sw <tr><td align="left" valign="top">
    sw <table width="250" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>dial-up connection:</b></td></tr>
    sw <tr><td>connection:</td><td> $iif($sinfo(y,con),$ifmatch,-)  </td></tr>
    sw <tr><td>speed:</td><td> $iif($sinfo(y,conspeed),$ifmatch,-)  </td></tr>
    sw <tr><td>downloaded:</td><td> $iif($sinfo(y,condown),$ifmatch,-)  </td></tr>
    sw <tr><td>uploaded:</td><td> $iif($sinfo(y,conup),$ifmatch,-)  </td></tr>
    sw <tr><td>active for:</td><td> $iif($sinfo(y,conactive),$ifmatch,-)  </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td>ip:</td><td> $iif($sinfo(y,ip),$ifmatch,-)  </td></tr>
    sw </table>

    sw </td><td align="left" valign="top">

    sw <table width="250" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=2 bgcolor=#30323F><b>ethernet:</b></td></tr>
    sw <tr><td>Name:</td><td> $iif($sinfo(y,eth),$ifmatch,-) </td></tr>
    sw <tr><td>Speed:</td><td> $iif($sinfo(y,ethspeed),$ifmatch,-) </td></tr>
    sw <tr><td><br></td></tr>
    sw <tr><td>Recieved:</td><td> $iif($sinfo(y,ethget),$ifmatch,-) </td></tr>
    sw <tr><td>Sent:</td><td> $iif($sinfo(y,ethsent),$ifmatch,-) </td></tr>
    sw </table>

    sw </td></tr>
    sw </table><br>

    sw <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#4F526A">
    sw <tr><td align="left" valign="top">

    sw <table width="500" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=4 bgcolor=#30323F><b>hdd:</b></td></tr>
    sw <tr><td><u>Drive</u></td><td><u>Size</u></td><td><u>Free</u></td><td><u>% Free</u></td></tr>
    var %l = 67,%tfs = 0,%ts = 0,%i = 2,%rtfs = 0,%rts = 0
    while (%l <= 90) {
      if ($disk($chr(%l))) {
        if ($disk($chr(%l)).type == fixed) || ($disk($chr(%l)).type == cdrom) || ($disk($chr(%l)).type == removable) {
          var %f = $disk($chr(%l)).free,%s = $disk($chr(%l)).size
          inc %tfs %f
          inc %ts %s
          if ($+($chr(%l),: ( $+ $iif($disk($chr(%l)).label,$disk($chr(%l)).label,No label) $+ ),</td><td> $bytes(%s,3).suf,</td><td> $bytes(%f,3).suf,</td><td> $round($calc((%f / %s)*100),1),%) != %i) {
            sw <tr><td> $ifmatch </td></tr>
            var %dn = 1
          }
          inc %i
        }
        elseif ($disk($chr(%l)).type == remote) {
          var %rf = $disk($chr(%l)).free,%rs = $disk($chr(%l)).size
          inc %rtfs %rf
          inc %rts %rs
          if ($+($chr(%l),: ( $+ $disk($chr(%l)).unc $+ ),</td><td> $bytes(%rs,3).suf,</td><td> $bytes(%rf,3).suf,</td><td> $round($calc((%rf / %rs)*100),1),%) != %i) {
            sw <tr><td> $ifmatch </td></tr>
            var %dn = 1,%rdn = 1
          }
          inc %i
        }
      }
      inc %l
    }
    if (%dn) {
      sw <tr><td><br></td></tr>
      if (%rdn) {
        sw <tr><td>Local total</td><td> $+($bytes(%ts,3).suf,</td><td> $bytes(%tfs,3).suf,</td><td> $round($calc((%tfs / %ts)*100),1),%) </td></tr>
        sw <tr><td>Mapped total</td><td> $+($bytes(%rts,3).suf,</td><td> $bytes(%rtfs,3).suf,</td><td> $round($calc((%rtfs / %rts)*100),1),%) </td></tr>
        sw <tr><td><br></td></tr>
      }
      sw <tr><td>Total</td><td> $+($bytes($calc(%ts + %rts),3).suf,</td><td> $bytes($calc(%rtfs + %tfs),3).suf,</td><td> $round($calc(((%rtfs + %tfs)/(%ts + %rts))*100),1),%) </td></tr>
    }
    sw </table>
    sw </td></tr>
    sw </table><br>
  }

  else {
    sw <table width="650" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
    sw <tr><td colspan=6 bgcolor=#30323F><b>Current Servers Information:</b></td></tr>
    sw <tr><td width="150"><u>Server</u></td><td width="100"><u>Network</u></td><td width="100"><u>Nick</u></td><td width="30"><u>Chans</u></td><td width="30"><u>Query's</u></td><td width="60"><u>More Info</u></td></tr>
    if ($scon(1).status == disconnected) { sw <tr><td colspan=6>Not connected</td></tr> }
    var %s1 = $scon(0),%s2 = 1
    while (%s2 <= %s1) {
      if ($scon(%s2).status == connected) { scon %s2 | sw <tr><td><a href="irc:// $+ $server $+ /"> $server </a></td><td> $iif($network,$ifmatch,unknown) </td><td> $me </td><td> $chan(0) </td><td> $query(0) </td><td><a href="./?id= $+ %s2 $+ ">Click!</a></tr> }
      inc %s2 1
    }
    sw </table>

    if (/?id=* iswm $1) {
      var %s3 $right($1,-5)
      scon %s3
      sw <br>
      sw <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#4F526A">
      sw <tr><td align="left" valign="top">

      sw <table width="300" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
      sw <tr><td colspan=2 bgcolor=#30323F><b>Server Information:</b></td></tr>
      sw <tr><td>Server:</td><td> $server </td></tr>
      sw <tr><td>Network:</td><td> $iif($network,$network,-) </td></tr>
      sw <tr><td>Port:</td><td> $iif($port,$port,-) </td></tr>
      sw <tr><td>IP address:</td><td> $iif($serverip,$serverip,-) </td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td>Nickname:</td><td> $me </td></tr>
      sw <tr><td>Usermodes:</td><td> $iif($usermode != $chr(43),$left($usermode,1) $right($usermode,-1),-) </td></tr>
      sw <tr><td>Connected:</td><td> $uptime(server,1) </td></tr>
      sw <tr><td>Idle time:</td><td> $duration($idle) </td></tr>
      sw <tr><td>Away:</td><td> $iif($away == $true,yes,no) </td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td colspan=2></td></tr>
      sw <tr><td>Chan types:</td><td> $iif($chantypes,$ifmatch,-) </td></tr>
      sw <tr><td>Chan modes:</td><td> $iif($chanmodes,$ifmatch,-) </td></tr>
      sw <tr><td>Mode prefix:</td><td> $iif($prefix,$prefix,-) </td></tr>
      sw <tr><td>Mode params:</td><td> $iif($modespl,$ifmatch,-) </td></tr>
      sw </table><br>

      sw <table width="300" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
      sw <tr><td bgcolor=#30323F><b>Channels:</b></td></tr>
      var %c1 $chan(0)
      var %c2 1
      var %c3
      var %c5 $1
      tokenize 45 $1
      while (%c2 <= %c1) {
        if (s isin $gettok($chan(%c2).mode,1,32)) && (&hg(webhidesec) == true) { goto noshow }
        elseif (p isin $gettok($chan(%c2).mode,1,32)) && ($hg(webhidepriv) == true) { goto noshow }
        else { set %c3 %c3 $+ $iif(%c2 != 1,$chr(44)) <a href=" $+ $1 $+ -c $+ %c2 $+ "> $+ $chan(%c2) $+ </a> }
        :noshow
        inc %c2 1
      }
      if (%c3 == $null) { sw <tr><td>none</td></tr> }
      else { sw <tr><td> %c3 </td></tr> }
      sw </table><br>

      sw <table width="300" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
      sw <tr><td bgcolor=#30323F><b>Query's:</b></td></tr>
      var %q1 $query(0)
      var %q2 1
      var %q3
      while (%q2 <= %q1) {
        set %q3 %q3 $+ $iif(%q2 != 1,$chr(44)) <a href=" $+ $1 $+ -q $+ %q2 $+ "> $+ $query(%q2) $+ </a>
        inc %q2 1
      }
      if (%q3 == $null) { sw <tr><td>none</td></tr> }
      else { sw <tr><td> %q3 </td></tr> }
      sw </table><br>

      if (*c* iswm $2) {
        sw </td><td valign="top" align="left">
        var %c4 = $right($2,-1)
        scon %s3
        sw <table width="335" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
        sw <tr><td colspan=2 bgcolor=#30323F><b>Channel Information:</b></td></tr>
        sw <tr><td>Channel:</td><td> $chan(%c4) </td></tr>
        sw <tr><td>Total users:</td><td> $nick($chan(%c4),0,a) <a href=" $+ %c5 $+ -u $+ ">view</a></td></tr>
        sw <tr><td>Ops:</td><td> $nick($chan(%c4),0,o) ( $+ $iif($int($calc($nick($chan(%c4),0,o) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,o) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td>Halfops:</td><td> $nick($chan(%c4),0,h) ( $+ $iif($int($calc($nick($chan(%c4),0,h) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,h) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td>Voiced:</td><td> $nick($chan(%c4),0,v) ( $+ $iif($int($calc($nick($chan(%c4),0,r) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,v) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td>Regulars:</td><td> $nick($chan(%c4),0,r) ( $+ $iif($int($calc($nick($chan(%c4),0,r) / $nick($chan(%c4),0,a) * 100)) == $null,0,$int($calc($nick($chan(%c4),0,r) / $nick($chan(%c4),0,a) * 100)))) $+ % $+ ) </td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Topic:</td><td> $iif($chan(%c4).topic,$strip($ifmatch),-) </td></tr>
        sw <tr><td>Modes:</td><td> $iif($chan($chan(%c4)).mode,$left($chan($chan(%c4)).mode,1) $right($chan($chan(%c4)).mode,-1),-) </td></tr>
        sw <tr><td>Key:</td><td> $iif($chan(%c4).key,$ifmatch,-) </td></tr>
        sw <tr><td>Limit:</td><td> $iif($chan(%c4).limit,$ifmatch,-) </td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Window ID:</td><td> $chan(%c4).wid </td></tr>
        sw <tr><td>Connection ID:</td><td> $chan(%c4).cid </td></tr>
        sw </table><br>
      }
      if (*u* iswm $3) {
        sw <table width="335" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
        sw <tr><td colspan=3 bgcolor=#30323F><b>Users for $chan(%c4) $+ :</b></td></tr>
        sw <tr><td colspan=2>Total:</td><td> $nick($chan(%c4),0) </td></tr>
        var %u1 $nick($chan(%c4),0)
        var %u2 1
        while (%u2 <= %u1) {
          sw <tr><td> %u2 $+ .</td><td> $iif($nick($chan(%c4),%u2) !isreg $chan(%c4),$left($nick($chan(%c4),%u2).pnick,1)) $nick($chan(%c4),%u2) </td></tr>
          if (%u2 >= 100) { <tr><td colspan=2><b>- Too much users to list!</b></td></tr> | break }
          inc %u2 1
        }
        sw </table>
      }

      if (*q* iswm $2) {
        sw </td><td valign="top" align="left">
        var %q4 $right($2,-1)
        scon %s3
        sw <table width="335" border="0" class="contentborder" cellpadding="0" bgcolor="#3C3E4F">
        sw <tr><td colspan=2 bgcolor=#30323F><b>Query Information:</b></td></tr>
        sw <tr><td>Nickname:</td><td> $query(%q4) </td></tr>
        sw <tr><td>Address:</td><td> $iif($query(%q4).addr,$ifmatch,-) </td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Comchans:</td><td> $comchan($query(%q4),0) </td></tr>
        var %q5 $comchan($query(%q4),0)
        var %q6 1
        while (%q6 <= %q5) {
          sw <tr><td> $iif($query(%q4) !isreg $comchan($query(%q4),%q6),$left($nick($comchan($query(%q4),%q6),$query(%q4)).pnick,1)) </td><td> $comchan($query(%q4),%q6) </td></tr>
          inc %q6
        }
        sw <tr><td colspan=2></td></tr>
        sw <tr><td colspan=2></td></tr>
        sw <tr><td>Window ID:</td><td> $query(%q4).wid </td></tr>
        sw <tr><td>Connection ID:</td><td> $query(%q4).cid </td></tr>
        sw </table>
      }
      sw </table>
    }
  }
  sw </td></tr></table>
  sw <center>
  if ($hg(webpiclink2)) { sw <img src=" $+ $sinfo(p,piclink2) $+ "><br> }
  sw <font size=1><br><b>- Generated File in $calc(($ticks - %ticks) /1000) $+ secs -<br><br>- <a href="http://www.voiceofpower.us/scripts/mstats461.zip">get mIRC Stats</a> - © by: <a href="mailto:marckuiper@hotmail.com">Voice_of_Power</a> -<br>- made for use with a resolution of 1024x768 or higher -</b></font>
  sw </center>
  sw </body>
  sw </html>
}