Chanstats, Simple

By Bielie on Apr 22, 2010

A simple script.

If someone could test this and confirms that it works. I would be very happy :D

I always edit my posts after i received help thanks to all of you guys :D

This one doesnt work.. Im uploading a new one soon!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;            0             0     ;;;;
;;;    4    4    2       2      1    ;;;
;;  0                   2          1  ;;
;           SCRIPT BY BIELIE©          ;
;;  3                                 ;;
;;;     0     4       1  0      3    ;;;
;;;;      2       3       1         ;;;;   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:kick:#: {  
  inc %kicked [ $+ [ $chan ] ] 
  if ( %kicked == $null ) { return 0 }
}

on *:JOIN: { 

  var %user = $read(joins.txt, $chan, $nick)

  if ( %user == $nick ) { 
    return
  }

  else { 
    inc %users [ $+ [ $chan ] ] 
    writeini -n joins.txt joins $chan $nick 1 
    halt
  }
}

on $*:text:/^[.!@]chanstat\b/iS:#: {
  if ($me != Snuffy) && ($chan == #Snuffy) { return 
  }

  if ($(,$+(%,flood234,$nick))) { return }
  set -eu3 $+(%,flood234,$nick)

  msg $chan 14This channel 3( $chan 3) 14currently has a total of:6 $nick($chan,0) 14users. There are6 $vnick($chan,0) 14users voice,6 $hnick($chan,0) 14halfop,6 $opnick($chan,0) 14op and6 $nick($chan,0,r) 14guest. There are6 $ibl($chan,0) 14users banned,6 $iel($chan,0) 14users excepted. In total there have been6 $calc( %kicked [ $+ [ $chan ] ] + 0 ) 14kicks served. 

}

on $*:text:/^[.!@]bans\b/iS:#: {
  if ($me != Snuffy) && ($chan == #Snuffy) { return 
  }

  if ($(,$+(%,flood224,$nick))) { return }
  set -eu3 $+(%,flood224,$nick)

  notice $nick You can do that yourself! Type: /mode $chan b .  1(MIRC users only)
  notice $nick You can check yourself by doubleclicking the chatinterface and switching to the 6"bans" 5tab. 1(SK users only)
  return
}
}
}

;on *:JOIN:{ if (!$ini(joins.txt, $chan, $nick)) { inc %users [ $+ [ $chan ] ] | writeini -n joins.txt joins $chan $nick $null } }

Comments

Sign in to comment.
Memoli   -  Apr 29, 2010

how can i use this cmd lol ? =)

 Respond  
GuitarMasterx7   -  Apr 22, 2010

jus looking at it, it seems ur missing a lot of brakets

 Respond  
WorldDMT   -  Apr 22, 2010

There are %bans users that missing # bcz u allready set %bans $+ # so this most be
There are $($+(%,bans,#),2) users
same for other %var

but u have $ibl to use for bans no need to set %bans

 Respond  
jaytea   -  Apr 22, 2010

r for regular, so $nick(chan,0,r)

i would advise against $(,string) to evaluate string twice, this could very well break in future versions. use $(string,2) or $eval(string,2) for readability.

$opnick(), $hnick(), $vnick() are really old; we use $nick() now :p

 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.