init

ADD-TO-IRCRC

@@ -0,0 +1,79 @@
+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 "*"