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:{
}
Submit a comment
Oops! You need to login or register before you can post a comment!

ebaum's world