80 lines
2.5 KiB
Plaintext
80 lines
2.5 KiB
Plaintext
on ^367 * if ([$4] != []) {echo *** $1 \($3 - $stime($4)) $2} {echo *** $1-}
|
||
on ^333 * echo *** Topic for $1 set by $2 on $stime($3)
|
||
on ^317 * if (index(012345679 $3) != -1) {echo *** $1 has been idle for $2 seconds. Signon at $stime($3)} {echo *** $1 has been idle for $2 seconds.}
|
||
On ^329 "*" echo *** $1 : created $stime($2)
|
||
alias silence quote silence
|
||
alias sile quote silence
|
||
on ^raw_irc "% SILENCE %" echo *** $*
|
||
|
||
@ hideit = 0
|
||
on ^server_notice "% % NOTICE -- CLIENT*" if (hideit != 1) {echo *** $2-}
|
||
alias show @ hideit = 0;echo *** You can now see clients connecting/exiting
|
||
alias hide @ hideit = 1;echo *** You will no longer see clients connecting/exiting
|
||
|
||
|
||
# ctime and sendq written by bry
|
||
# modified by Mmmm
|
||
|
||
alias ctime {
|
||
^on 211 -
|
||
if ( [$0] )
|
||
{ ^assign SS $0- }
|
||
{ ^assign SS $S }
|
||
|
||
^on ^211 * {
|
||
eval ^assign hrs2 ${ ([$7]/60)/60}
|
||
eval ^assign min2 ${[$7]/60}
|
||
|
||
eval ^assign dys ${[$HRS2]/24}
|
||
eval ^assign hrs ${[$HRS2]-([$DYS]*24)}
|
||
eval ^assign min ${[$MIN2] - ( ([$HRS]+([$DYS]*24) )*60)}
|
||
eval ^assign sec ${[$7]-([$MIN2]*60)}
|
||
@ a = index(\[ $1) - 1
|
||
@ b = left($a $1)
|
||
if (index(. $b) == -1)
|
||
{eval echo *** $1 $[2]DYS days, $[2]HRS hrs, $[2]MIN min, $[2]SEC s}
|
||
{eval echo *** $1 $[2]DYS days, $[2]HRS hrs, $[2]MIN min, $[2]SEC s}
|
||
}
|
||
^stats l $SS
|
||
}
|
||
|
||
alias sendq {
|
||
eval ^on ^211 "$SRV *" {
|
||
@ a = index(\[ $1) - 1
|
||
@ b = left($a $1)
|
||
if (index(. $b) == -1)
|
||
{eval echo *** $[11]2 sendq $1}
|
||
{eval echo *** $[11]2 sendq $1}
|
||
}
|
||
if ( [$0] )
|
||
{ ^assign SRV $0- }
|
||
{ ^assign SRV $S }
|
||
stats l $SRV
|
||
wait -cmd eval ^on ^211 -"$SRV *"
|
||
}
|
||
|
||
# If you use Daveman's toolbox or any auto rejoin line, remove the old
|
||
# on raw_irc for KICK, and use the foll. one instead: (Run)
|
||
#
|
||
#ON ^RAW_IRC "% KICK % % *" {
|
||
# IF ([$3]==[$N])
|
||
# {
|
||
# //QUOTE JOIN $2
|
||
# ECHO $MID(11 5 $STIME($TIME())) * You have been kicked off channel $2 by $LEFT($INDEX(! $0) $0) \($MID(1 256 $4-)\)
|
||
# }
|
||
# {
|
||
# ECHO $MID(11 5 $STIME($TIME())) * $3 has been kicked off channel $2 by $LEFT($INDEX(! $0) $0) \($MID(1 256 $4-)\)
|
||
# }
|
||
# }
|
||
|
||
# Since 2.9.x :
|
||
|
||
alias UPING QUOTE UPING
|
||
alias RPING QUOTE RPING $0 : $time()
|
||
On ^RAW_IRC "% RPONG *" {
|
||
echo *** Pingtime $0 - $3 : $4 ms \(total delay: ${[$6]-[$time()]} s\)
|
||
}
|
||
alias MAP QUOTE MAP
|
||
On ^SERVER_NOTICE "% ??? NOTICE -- *" echo *N* $4-
|
||
On ^007 "*"
|