# hat.tcl
# updated sort of for 1.1 cause a stupid friend (hi digidog) asked me to - LSC
#
# /msg <bot> chat
# will send a dcc chat request to a user on irc
# in case they can't initiate dcc chats, only accept them
#
bind msg p chat msg_chat
# bitchass [censored] 1.1 needs a cmd to get the telnet port
# so set this as the telnet port you want the users to enter
set userport 1360
proc msg_chat {nick uhost hand arg} {
global userport
listen $userport users
putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $userport\001"
return 1
}
This is from the chanserv.tcl :-
##############################################
# Chanserv.tcl 0.1 by #egghelp@efnet (KuNgFo0)
#
# Set the next line as your bot's password on nickserv
set nickserv_pass "vixen69"
# Set the next line as the channels you want to run in
set chanserv_chans "#flirty_30s"
bind join - * join_chanserv
global init-server
if {![string match *con_nickserv* ${init-server}]} {
set init-server "${init-server} ; con_nickserv"
}
putlog "*** Chanserv.tcl 0.1 by #egghelp@efnet loaded"
proc join_chanserv {nick uhost hand chan} {
global botnick chanserv_chans
if {(([lsearch -exact [string tolower $chanserv_chans] [string tolower $chan]] != -1) || ($chanserv_chans == "*")) && ($nick == $botnick)} {
channel set $chan need-op "time_chanserv $chan"
utimer 5 "time_chanserv $chan"
}
}
proc time_chanserv {chan} {
global botnick
if {![botisop $chan]} {
putlog "*** Requesting ops from ChanServ on channel $chan"
putserv "PRIVMSG ChanServ :op $chan $botnick"
}
}
proc con_nickserv {} {
global nickserv_pass
putserv "PRIVMSG NickServ :identify $nickserv_pass"
}Statistics: Posted by Fiery_WA — Tue Aug 05, 2008 9:39 am
]]>
