123 |
# irc.inter.net.il: 353 FireEgl @ #pgpnet @Jax @Parker @Delta` @Dispatch @Lilo @Whore @DJ @Harley @Robin @Skyway @Slut` @Batman FireEgl @pgpbot @Deryl @ardya @pgpkeys |
# irc.inter.net.il: 353 FireEgl @ #pgpnet @Jax @Parker @Delta` @Dispatch @Lilo @Whore @DJ @Harley @Robin @Skyway @Slut` @Batman FireEgl @pgpbot @Deryl @ardya @pgpkeys |
124 |
# irc.inter.net.il: 329 FireEgl #pgpnet 1064713818 |
# irc.inter.net.il: 329 FireEgl #pgpnet 1064713818 |
125 |
# irc.inter.net.il: 401 FireEgl Deryl_ No such nick/channel |
# irc.inter.net.il: 401 FireEgl Deryl_ No such nick/channel |
126 |
|
# irc.choopa.net: 402 FireEgl papillon No such server |
127 |
|
|
128 |
proc ::tcldrop::irc::resetchan {channel} { |
proc ::tcldrop::irc::resetchan {channel} { |
129 |
putquick "MODE $channel +b" |
putquick "MODE $channel +b" |
266 |
lappend joinchannels $channel |
lappend joinchannels $channel |
267 |
} elseif {![botisop $channel]} { |
} elseif {![botisop $channel]} { |
268 |
callneed $channel op |
callneed $channel op |
269 |
|
if {![botishalfop $channel]} { |
270 |
|
# FixMe: This should only ask for halfop's on networks that support halfops. |
271 |
|
callneed $channel halfop |
272 |
|
if {![botisvoice $channel]} { |
273 |
|
callneed $channel voice |
274 |
|
} |
275 |
|
} |
276 |
} |
} |
|
# Note/FixMe: This is where support for need-voice and need-halfops would go, if we want that. |
|
277 |
} |
} |
278 |
if {[info exists joinchannels]} { putserv "JOIN [join $joinchannels ,]" } |
if {[info exists joinchannels]} { putserv "JOIN [join $joinchannels ,]" } |
279 |
if {[info exists partchannels]} { puthelp "PART [join $partchannels ,]" } |
if {[info exists partchannels]} { puthelp "PART [join $partchannels ,]" } |
738 |
set handle [finduser $from] |
set handle [finduser $from] |
739 |
set dest [lindex $larg 0] |
set dest [lindex $larg 0] |
740 |
set text [string range [join [lrange $larg 1 end]] 1 end] |
set text [string range [join [lrange $larg 1 end]] 1 end] |
741 |
|
# FixMe: Support for ctcr binds go here. |
742 |
# Call all the notc binds: |
# Call all the notc binds: |
743 |
foreach b [binds notc] { |
foreach b [binds notc] { |
744 |
foreach {type flags mask count proc} $b {} |
foreach {type flags mask count proc} $b {} |