proc rjoin {frombot command text} {
set rnick [lindex [split $text] 0]
set rchan [lindex [split $text] 1]
set flags [lindex [split $text] 2]
if {[string index $flags 0] != "+"} {
set flags "+$flags"
return 0
}
if {![validchan $rchan]} {
channel add $rchan
set rhost [getchanhost $rnick $rchan]
if {[string match -nocase "*quakenet.org" "$rhost"]} {
set rhost *!*@[lindex [split $hostname @] 1]
} else {
set rhost *!$hostname
}
if {[validuser [hand2nick $nickname]]} {
chattr [nick2hand $rnick] +|almnoR $rchan
putserv "NOTICE $rnick :Request accepted: Please give me $flags on [rservice $rchan] using: /msg [rservice $rchan $::botnick $flags"
save
} elseif {![validuser $nickname]} {
adduser $nickname $rhost
chattr [nick2hand $rnick] +|almnoR $rchan
putserv "NOTICE $rnick :Request accepted: Please give me $flags on [rservice $rchan] using: /msg [rservice $rchan] $::botnick $flags"
putserv "NOTICE $rnick :Please setup your password using: /msg $::botnick pass <new_password>"
save
}
}
}
proc rservice {$rchan} {
if {[onchan L $rchan]} {
return L
} elseif {[onchan Q $rchan]} {
return Q
} else {
return "Q/L"
}
}
This the request script but i want to use it with Chanserv and Nickserv not with L and Q it's possible? All the script can be found here http://www.geocities.com/tclfreak/request.zip