Top

/opstat


mIRC Code
+ 0 likes
Please Register to submit score.
Bookmark and Share
Average Score  0.0 (of 0 scores)
Date Added  Oct 31, 2009
Last Updated  Oct 31, 2009
Tags  multiserver  operator  stats  status 

Introduction

just put in remotes and do /opstat (its dutch)

Grab the Code

alias opstat {
  set %stat.user 0
  set %stat.reg 0
  set %stat.voice 0
  set %stat.hop 0
  set %stat.op 0
  set %stat.prot 0
  set %stat.owner 0
  set %stat.user2 0
  set %stat.status reg
 
  set %stat.count2 1
  while (%stat.count2 <= $chan(0)) {
 
    set %stat.count3 1
 
    if (%stat.status == hop) { set %stat.user2 $calc(%stat.user2 + %stat.temp.reg + %stat.temp.voice) }
    if (%stat.status == op) { set %stat.user2 $calc(%stat.user2 + %stat.temp.reg + %stat.temp.voice + %stat.temp.hop + %stat.temp.op) }
    if (%stat.status == prot) { set %stat.user2 $calc(%stat.user2 + $nick(%stat.chan,0) - %stat.temp.owner) }
    if (%stat.status == owner) { set %stat.user2 $calc(%stat.user2 + $nick(%stat.chan,0)) }
 
    set %stat.chan $chan(%stat.count2)
 
    set %stat.temp.reg 0
    set %stat.temp.voice 0
    set %stat.temp.hop 0
    set %stat.temp.op 0
    set %stat.temp.prot 0
    set %stat.temp.owner 0
 
    set %stat.user $calc(%stat.user + $nick(%stat.chan,0))    
    while (%stat.count3 <= $nick(%stat.chan,0)) {
      set %stat.pnick $nick(%stat.chan,%stat.count3).pnick
      set %stat.nick $nick(%stat.chan,%stat.count3)
 
      if (%stat.nick == %stat.pnick) { inc %stat.temp.reg }
      if ($left(%stat.pnick,1) == +) { inc %stat.temp.voice }
      if ($left(%stat.pnick,1) == %) { inc %stat.temp.hop }
      if ($left(%stat.pnick,1) == @) { inc %stat.temp.op }
      if ($left(%stat.pnick,1) isin &!) { inc %stat.temp.prot }
      if ($left(%stat.pnick,1) isin *~) { inc %stat.temp.owner }
 
      if (%stat.nick == $me) && (%stat.nick == %stat.pnick) { inc %stat.reg | set %stat.status reg }
      if (%stat.nick == $me) && ($left(%stat.pnick,1) == +) { inc %stat.voice | set %stat.status voice }
      if (%stat.nick == $me) && ($left(%stat.pnick,1) == %) { inc %stat.hop | set %stat.status hop }
      if (%stat.nick == $me) && ($left(%stat.pnick,1) == @) { inc %stat.op | set %stat.status op }
      if (%stat.nick == $me) && ($left(%stat.pnick,1) isin &!) { inc %stat.prot | set %stat.status prot }
      if (%stat.nick == $me) && ($left(%stat.pnick,1) isin *~) { inc %stat.owner | set %stat.status owner }
 
 
 
 
 
      inc %stat.count3
    }
    inc %stat.count2
  }
  var %stat.server $scon(0)
  if (%stat.status == hop) { set %stat.user2 $calc(%stat.user2 + %stat.temp.reg + %stat.temp.voice) }
  if (%stat.status == op) { set %stat.user2 $calc(%stat.user2 + %stat.temp.reg + %stat.temp.voice + %stat.temp.hop + %stat.temp.op) }
  if (%stat.status == prot) { set %stat.user2 $calc(%stat.user2 + $nick(%stat.chan,0) - %stat.temp.owner) }
  if (%stat.status == owner) { set %stat.user2 $calc(%stat.user2 + $nick(%stat.chan,0)) }
 
  var %totalchans $calc((%stat.owner)+(%stat.prot)+(%stat.op)+(%stat.hop)+(%stat.voice)+(%stat.reg))
 
  say 7stats voor: 14 $+ $me 14,01
  say 7Eigenaar 14( $+ %stat.owner $+ ) 7Beschermd 14( $+ %stat.prot $+ ) 7Op 14( $+ %stat.op $+ ) 7HalfOp 14( $+ %stat.hop $+ ) 7Voice 14( $+ %stat.voice $+ ) 7Normaal 14( $+  %stat.reg $+ )
  say 7Totale channels: 14( $+ %totalchans $+ ) 7totale gebruikers: 14( $+ %stat.user $+ ) 07Servers: 14( $+ %stat.server $+ ) 7Macht over: 14( $+ %stat.user2 $+ ) 7gebruikers  14( $+ $calc(%stat.user2 / %stat.user * 100) $+ % $+ )
}
 

Comments

  (3)  RSS
Ghost-writer
Comments: 256
 
mIRC Snippet:  /opstat
Posted on Oct 31, 2009 9:56 pm
Could be smaller but good job, no idea what launguage it is tho.
Grant-
Comments: 91
 
mIRC Snippet:  /opstat
Posted on Oct 31, 2009 10:00 pm
Quote:
Could be smaller but good job, no idea what launguage it is tho.
If you'd actually read the description, you'd know it's dutch
Atr
Comments: 60
 
mIRC Snippet:  /opstat
Posted on Nov 2, 2009 10:06 am
Would be nice if you set local variables instead of global variables.. in fact, I don't think you need to declare all those variables at the beginning as 0 at all..

Commenting Options

Register or Login to Hawkee.com or use your Facebook or Twitter account by clicking the corresponding button below.

  
Bottom