Code:

#  abuse user report by H@0 ver 1.0.  #  configuration     #  variables          set validchannel "#reportcentre"          set abuselogfile "logs/abuse.log"          if {![info exists validchannel]} {die "ERROR:Check back again in set validchannel settings.."}          set arg.v "Abuse User Report"     #  bindings          bind KICK -   *                   abuse_kick          bind NEED -   "* -o"              abuse_deop          bind PUB  n   -history            abuse_report     #  source (again DO NOT change anything if you are not 100% sure)      #  process kickedproc abuse_kick {nick host handle chan who excuse} {  global abuselogfile botnick validchannel  if {$who != $botnick} {return 0}    set data "Info: Kick $botnick by $nick from $chan with excuse ($excuse)"  if {$abuselogfile != ""} {set r [open $abuselogfile a+]; puts $r "[strftime "%d %b %Y, %H:%M %z"]: $data"; close $r}    putquick "privmsg $validchannel :Important: (Bot: $botnick) (Action: Kicked) (Channel: $chan) (Reason: $excuse) (User: $nick)"return 0}     #  process deoppedproc abuse_deop {nick uhost handle chan arg} {  global abuselogfile botnick validchannel  if {$who != $botnick} {return 0}    set data "Info: Deop $botnick by $nick in $chan"  if {$abuselogfile != ""} {set r [open $abuselogfile a+]; puts $r "[strftime "%d %b %Y, %H:%M %z"]: $data"; close $r}    putquick "privmsg $validchannel :Important: (Bot: $botnick) (Action: Deopped) (Channel: $chan) (User: $nick)"return 0}     #  process reportproc abuse_report {nick host handle channel var} {global abuselogfile botnick validchannelset fd [open $abuselogfile r]set abuselist { }while {![eof $fd]} { set tmp [gets $fd] if {[eof $fd]} {break}  set abuselist [lappend abuselist [string trim $tmp]] } close $fd if {[llength $abuselist] == 0} {     putserv "privmsg $validchannel :Error: There is no history for $botnick."      return 0 } putserv "privmsg $validchannel :Log History for $botnick:" foreach tmp $abuselist {   putserv "privmsg $validchannel :$tmp" }putserv "privmsg $validchannel : End of Abuselist\n" return 0}