on join 2
Posted by chriscloyd
Monday, April 30, 2007
Description: on join 222
on *:JOIN:#: {
inc -u1 %join.1. [ $+ [ $chan ] ]
inc -u4 %join.5. [ $+ [ $chan ] ]
if (%join.1. [ $+ [ $chan ] ] == 4) || (%join.5. [ $+ [ $chan ] ] == 8) {
echo 4 -ta Possible join flood in $chan ( $+ $nick($chan,0) users)
if ($active != Status Window) echo 4 -ts Possible join flood in $chan ( $+ $nick($chan,0) users)
beep 1
}
if ($ulevel >= 100) {
var %info $ulist($address($nick,1),$ulevel,1).info
notice $chan [^B][^K]11,1[[^B] [^K]0[^B]CEGL[^B] [^K]11+[^K]11[^B] $nick [^B][^K]11+[^K]0 %info [^K]11]
}
who $nick n%na
set -u5 %who. $+ $fulladdress $nick
}
raw 354:*: if (%who. [ $+ [ $ial($2) ] ] == $2) echo -ag User account from user $2 is $3
//now i need to execute the findaccount
alias findaccount {
sockclose accountinfo
sockopen accountinfo www.chaoslegionclan.net 80
}
on *:SOCKOPEN:accountinfo:{
sockwrite -n $sockname GET cegl/files/get_user_info.php HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:accountinfo:{
}
on *:JOIN:#: {
inc -u1 %join.1. [ $+ [ $chan ] ]
inc -u4 %join.5. [ $+ [ $chan ] ]
if (%join.1. [ $+ [ $chan ] ] == 4) || (%join.5. [ $+ [ $chan ] ] == 8) {
echo 4 -ta Possible join flood in $chan ( $+ $nick($chan,0) users)
if ($active != Status Window) echo 4 -ts Possible join flood in $chan ( $+ $nick($chan,0) users)
beep 1
}
if ($ulevel >= 100) {
var %info $ulist($address($nick,1),$ulevel,1).info
notice $chan [^B][^K]11,1[[^B] [^K]0[^B]CEGL[^B] [^K]11+[^K]11[^B] $nick [^B][^K]11+[^K]0 %info [^K]11]
}
who $nick n%na
set -u5 %who. $+ $fulladdress $nick
}
raw 354:*: if (%who. [ $+ [ $ial($2) ] ] == $2) echo -ag User account from user $2 is $3
//now i need to execute the findaccount
alias findaccount {
sockclose accountinfo
sockopen accountinfo www.chaoslegionclan.net 80
}
on *:SOCKOPEN:accountinfo:{
sockwrite -n $sockname GET cegl/files/get_user_info.php HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:accountinfo:{
}