Couple things...
Posted by cs2r`nonamee
Tuesday, April 13, 2004
Description: err..
Ok, so one day i was thinkin.. dang... I hate getting kicked and banned when there was something really funny/important was said and that channel, now its gone!... so..
[I added a nick completer in there too, you can take it out]
Okay, and i was also thinkin... man i hate when i join a channel and i talk *#$% about someone i know and they're right there in the channel! so...
*shrug* Feel free to edit them, i doubt many people think like i do, but hey, ya never know.. :D
Ok, so one day i was thinkin.. dang... I hate getting kicked and banned when there was something really funny/important was said and that channel, now its gone!... so..
on *:TEXT:*:#:{
write $chan $+ .txt $date $timestamp < $+ $nick $+ > $1-
}
on *:INPUT:#:{
var %i 0
while (%i < $nick(#,0)) {
inc %i
if ($remove($1,:) isin $nick(#,%i)) && (*: iswm $1) {
haltdef
msg $chan $nick(#,%i) $+ : $2-
}
}
write $chan $+ .txt $date $timestamp < $+ $nick $+ > $1-
}
on *:BAN:#:{
if ($me isin $1-) {
set %imbanned $chan
}
}
on *:UNBAN:#:{
unset %imbanned
}
on *:KICK:#:{
if ($me isin $1-) && (%banned.me == $chan) {
window @ $+ $chan
.play -a echo @ $+ $chan $chan $+ .txt 10
}
}
[I added a nick completer in there too, you can take it out]
Okay, and i was also thinkin... man i hate when i join a channel and i talk *#$% about someone i know and they're right there in the channel! so...
on *:JOIN:#:{
if ($nick == $me) {
timer 1 1 onjoincheck
set %nick $nick
set %chan $chan
}
}
alias onjoincheck {
if ($nick(%chan,0) > 1) {
echo %chan ________________________Common Channel Start________________________
if ($hget(comchan,1)) { hfree comchan }
unset %toreturn.comchan
set %comchan.inc 0
var %i 0
while (%i < $nick(%chan,0)) {
inc %i
if ($comchan($nick(%chan,%i),0) > 1) {
inc %comchan.inc
var %z 0
while (%z < $nick(%chan,0)) {
inc %z
set %toreturn.comchan %toreturn.comchan $comchan($nick(%chan,%i),%z)
}
hadd -m comchan %comchan.inc $nick(%chan,%i) $+ ( $+ %toreturn.comchan
unset %toreturn.comchan
}
}
var %p 0
while (%p < $hget(comchan,0).item) {
inc %p
if ($gettok($hget(comchan,%p),1,40) != Chanserv) && ($gettok($hget(comchan,%p),1,40) != $me) { echo %chan [^B]( $+ $gettok($hget(comchan,%p),1,40) $+ ):[^B] $chr(123) $replace($gettok($hget(comchan,%p),2,40),$chr(32),$chr(32) $+ - $+ $chr(32)) $chr(125) }
}
echo %chan ________________________End Common Channels________________________
}
}
*shrug* Feel free to edit them, i doubt many people think like i do, but hey, ya never know.. :D