Code:

#---------------------------------------------------# AdminServ v2.0 (stable)## *## AdminServ is a channel service bot, # intended primarily to act as a # complete combination of ChanServ, # NickServ, OpServ, HelpServ, and # Global.## For questions & comments, you may# visit http://adminserv.cmx-networks.net# or irc.hazenet.org on channel# #adminserv## *## adminserv.conf# # *## $Id: adminserv.conf,v 2.0 2004/04/20 18:49:55 emac Exp $##---------------------------------------------------# Informational Settingsset nick "USB" // my botnameset altnick "USBhub"set realname "Userbits.org bot"set username "Apache"set admin "Apache <email: firesecret@gmail.com>"set owner "Apache"# Server Flags/Privledgesbind evnt - init-server evnt:init_serverproc evnt:init_server {type} {  global botnick  putquick "privmsg nickserv :identify xxxxx"  putquick "OPER USB xxxxxx"  putquick "MODE $botnick +ixkXno"}# Official Channel for AdminServ  set official(channel) "#userbits.org"# Global Settingsset global-flood-chan 0:0set global-flood-deop 0:0set global-flood-kick 0:0set global-flood-join 0:0set global-flood-ctcp 0:0set global-flood-nick 0:0# Staff Channel that will report admin cmds being used.  set staff(channel) "#userbits.staff"# Trigger that users will use for commands.  set trigger "-"# Version identifcation. (DO NOT CHANGE)global botnick  set adminserv(version) "$botnick Channel Services v2.0 (alpha), Built: April 20, 2004, 18:49:55"  set adminserv(versionarch) "dev@$botnick--2004-ASDev/$botnick--devo--2.0--patch-0"# Comment this out when you've edited your config. This ensures you've reviewed this file.# die "adminserv.conf unsuccessfully edited."# Do Not Editunbind msg - hello *msg:hellobind msg - root *msg:hello# AdminServ Loaded Filessource scripts/chanserv.csource scripts/nickserv.csource scripts/opserv.csource scripts/global.csource scripts/help.c### END OF CONFIGURATION ###putlog "AdminServ adminserv.conf loaded"

Code:

# opers tcl version1.0# techie# http://www.linuxirc.combind pub o !h pub:hbind pub o !c pub:cbind pub o !op pub:opbind pub o !vo pub:vobind pub o !devo pub:devobind pub o !k pub:kickbind pub o !b pub:banbind pub o !ub pub:ubbind pub o !kb pub:kbbind pub o !hop pub:hopbind pub o !dehop pub:dehopbind pub o !t pub:topicbind pub - !p pub:pbind pub n !jump pub:jumpbind pub n !die pub:diebind pub o !status pub:statusbind pub o !broadcast pub:broadcastbind pub o !deop pub:deopbind pub o !info pub:infoproc pub:h {nick uhost hand chan text} {  puthelp "NOTICE $nick :!c !op !deop !hop !dehop !vo !devo !k !b !ub !kb !t !p !info !jump !die !status !broadcast"}proc pub:c {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[isop $nick $chan] == 1} { pushmode $chan -o $nick } else { pushmode $chan +o $nick }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:op {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[onchan $tnick $chan]} { pushmode $chan +o $tnick }      } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !op <nick> -  ops a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:deop {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[onchan $tnick $chan]} { pushmode $chan -o $tnick }      } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !deop <nick> - deop a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:vo {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[onchan $tnick $chan]} { pushmode $chan +v $tnick }      } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !vo <nick> - voices a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:devo {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[onchan $tnick $chan]} { pushmode $chan -v $tnick }      } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !devo <nick> - devoices a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:hop {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[onchan $tnick $chan]} { pushmode $chan +h $tnick }      } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !hop <nick> - hop a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:dehop {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[onchan $tnick $chan]} { pushmode $chan -h $tnick }      } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !dehop <nick> - dehop a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:kick {nick uhost hand chan text} {  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[string length [lindex $text 1]] == 0} { set reason kicked } else { set reason [lrange $text 1 end] }      if {[onchan $tnick $chan]} { putkick $chan $tnick $reason } else { puthelp "NOTICE $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !k <nick> reason - kicks a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:ban {nick uhost hand chan text} {  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 10      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !b <nick> reason - bans a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:ub {nick uhost hand chan text} {  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[ischanban $tnick $chan]} { killchanban $chan $tnick } else { puthelp "NOTICE $nick :no such ban on $chan" }    } else { puthelp "NOTICE $nick :usage !ub <nick!user@host> - unbans an address" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:kb {nick uhost hand chan text} {  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 10        utimer 5 [putkick $chan $tnick $reason]      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage !kb <nick> reason - kicks and bans a nick" }  } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:topic {nick uhost hand chan text} {  if {[botisop $chan]} { putserv "TOPIC $chan :$text" } else { puthelp "NOTICE $nick :i dont have ops!" }}proc pub:p {nick uhost hand chan text} { putserv "PRIVMSG $chan :connected!" }proc pub:jump {nick uhost hand chan text} { jump $text }proc pub:die {nick uhost hand chan text} { die $text }proc pub:info {nick uhost hand chan test} { putserv "PRIVMSG $chan :opers.tcl version 1.0" }proc pub:status {nick uhost hand chan text} {  global server botname version  puthelp "PRIVMSG $chan :user records: [countusers], channels: [channels], date: [date], time: [time], os: [unames], server: $server, host: $botname,egg version: [lindex $version 0]"}proc pub:broadcast {nick uhost hand chan text} {  if {[string length $text] > 0} {    set text [string trim $text "{}"]    foreach n [channels] { puthelp "PRIVMSG $n :$text" }  } else { puthelp "NOTICE $nick :!broadcast <message> - sends message to all channels that the bot is" }}putlog "tcl: opers tcl loaded"

Code:

bind PUB n|- !regnick pub:regnickproc regnick { nickname hostname handle channel arguments } {set nick [lindex [split $arguments] 0]set password [lindex [split $arguments] 1]set email [lindex [split $arguments] 2]if {$nick == "" || $password == "" || $email == ""} {putquick "NOTICE $nickname :Not enough arguments."return 0}if {[string length $password] < 5} {putquick "NOTICE $nickname :The password isn't long enough"return 0}if {![string match -nocase "*@*" $email]} {putquick "NOTICE $nickname :Invalid email adress."return 0}##DO YOUR STUFF}