By Cheiron on Sep 01, 2008a mass action in channel in a way that will not cause you to flood off the server. as the script says... I seriously do not recommend using it. but the idea is there.
use at own risk.
goes into remotes
command to use is /hugflood #channelname
; /hugflood #channelname
;
; A flood-conscious way of hugging a channel.
; I seriously do not recommend using it, but it's still good practice.
alias hugflood {
; Argument check.
if ( $1 == $null ) {
echo -a /hugflood #channel
echo -a Hugs a whole channel.
return
}
; Enumerate total people in the channel.
var %hf.total $nick($$1,0)
; Initialize index
var %hf.i 1
; Set a timer for each user present at the time of the snapshot.
while ( %hf.i <= %hf.total ) {
if ( $nick($$1,%hf.i) != $me ) {
; THIS IS THE NOTICE LINE, uncomment it if you really want to notice all those people.
; .timerHF [ $+ [ %hf.i ] ] 1 %hf.i hf.noticer $nick($$1,%hf.i) $$1 $me hugs $nick($$1,%hf.i) tightly!
; THIS IS AN HARMLESS TEST LINE THAT PRINTS IN LOCAL
.timerHF [ $+ [ %hf.i ] ] 1 %hf.i echo -a notice $nick($$1,%hf.i) $me hugs $nick($$1,%hf.i) tightly!
}
inc %hf.i
}
}
; hf.noticer nick #channel message
alias hf.noticer {
; This is a service alias that makes sure that no one that exited the channel gets noticed.
if ( $$1 ison $$2 ) {
notice $$1 $$3-
}
}
Even stil one lineing it you have to cut it up if its to long most is liek 464 chars to a ling before it breaks off,so jsut have to cut it in half and send till ts done not a biggie but mite be 2 or 3 lines depending on the size of the channel,then again 2 or 3 long line sia far batter then 55 lines O_O.`-.-´
That's because you cannot echo $chr(32) because it is basically treated as a $null value. See for yourself: //echo -a $chr(32) -> * /echo: insufficient parameters.
Let's also not forget that sometimes there are large amounts of people in a channel, so this script may come dangerously close to flooding heh.
even tho its been Napatized and Dig just posted one i ll post mine that i jsut threw togetherones does th list top to bottom one does it bottom to top;p
alias _Hugs1 { var %_Nicks = $nick($chan,0) | while (%_Nicks) { | if ($nick($chan,%_Nicks) != $me) { var %_Hug $addtok(%_Hug,$nick($chan,%_Nicks),32)) } | if (%_Nicks == 1) { describe $chan Hugs %_Hug $+ ! } | dec %_Nicks } }
alias _Hugs2 { var %_Nicks = $nick($chan,0) , %_Nicks_X 1 | while (%_Nicks_X <= %_Nicks) { | if ($nick($chan,%_Nicks_X) != $me) { var %_Hug $addtok(%_Hug,$nick($chan,%_Nicks_X),32)) } | if (%_Nicks_X == %_Nicks) { describe $chan Hugs %_Hug $+ ! } | inc %_Nicks_X } }
