*** Anti Spam Bot ***

menu channel,menubar {
  AntiSpam Bot:/dialog -m xantispam xantispam
}

dialog xantispam {
  title "AntiSpam Bot v.1."
  size -1 -1 270 150
  box "server",1,8 0 165 60
  edit "kuw.WeArab.Net",2, 10 20 160 22,autohs
  box "port",3,170 0 90 60
  edit "6667",4,175 20 80 22,center
  box "",5,8 60 164 80
  list 6,12 70 155 40,vsbar
  button "ConnecT",7,15 115 65 20
  button "ok",8,95 115 70 20,ok
  box "nick\Identd",9,170 60 90 80
  edit "Nick",10,183 77 65 20 ,autohs
  edit "Identd",11,183 107 65 20
}
on *:Dialog:xantispam:Init:0:did -a $dname 6 Status 'Off Line'
on *:Dialog:xantispam:sclick:7:{
  if ($did($dname,2) == $null) { did -ra $dname 6 Error: Enter Server Name | return }
  if ($did($dname,4) == $null) { did -ra $dname 6 Error: Enter Port Number | return }
  if ($did($dname,10) == Spider[a]) { did -ra $dname 6 Error: Enter Bot Nick | return }
  if ($did($dname,11) == Spam) { did -ra $dname 6 Error: Enter Bot Identd | return }
  else { 
    did -ra $dname 6 Connecting AntiSpam Bot
    did -a $dname 6 On: $did($dname,2)
    did -a $dname 6 Port: $did($dname,4)
    did -a $dname 6 Wait Please ... ...
    set %bb $did($dname,10) $did($dname,11) | sockopen AntiSpam $did($dname,2) $did($dname,4) | sockmark AntiSpam $gettok(%bb,1,32) | if ($portfree(113)) { socklisten ident 113 }
  }
}
on *:sockopen:AntiSpam:{
  if ($sockerr > 0) { return }
  var %i = 2- [ $+ [ $calc($numtok($sockname,46) - 1) ] ]
  sockwrite -tn $sockname $gettok($sockname,%i,46)
  sockwrite -tn $sockname user AntiSpam AntiSpam AntiSpam :AntiSpam Bot By Helpdesk 
  sockwrite -tn $sockname nick $sock($sockname).mark
  set %botz $gettok(%bb,1,32) | window @AntiSpam
  echo @AntiSpam < $+ $gettok(%bb,1,32) $+ > AntiSpam Bot Is Online Now
  halt
}
on *:sockread:AntiSpam:{
  sockread %sockread | tokenize 32 %sockread
  if ($gettok(%sockread,1,32) == PING) { sockwrite -tn $sockname PONG $gettok(%sockread,2,32) }
  if ($network !isin %sockread) && (($gettok(%sockread,2,32) == PRIVMSG) || ($gettok(%sockread,2,32) == NOTICE)) {
    var %strips $strip($gettok(%sockread,2,58))
    if ($chr(35) iswm %strips) || ($chr(35) isin %strips) || (*Http:* iswm %strips) || (*www.* iswm %strips) || (*Server* iswm %strips) || (*/j* iswm %strips) || (*/s* iswm %strips) { if (%Sockz. [ $+ [ $remove($gettok(%sockread,1,33),:) ] ] == $null) { kzz $remove($gettok(%sockread,1,33),:) | echo @AntiSpam *** Inviter Detected .. Nick: $remove($gettok(%sockread,1,33),:) .. Message: %strips | echo @AntiSpam --- | set -u5 %Sockz. [ $+ [ $remove($gettok(%sockread,1,33),:) ] ] ok } }
  }
  else { react $sockname $1- }
}
alias -l react {
  elseif ($3 isnum 2-607) { return }
  elseif ($right($gettok($2,1,33),-1) == $sock($1).mark && $3 == NICK) { sockmark $1 $right($4,-1) }
  elseif ($3 == KICK && $5 == $sock($1).mark) { sockwrite -n $1 JOIN $4 }
  return
}
on *:socklisten:ident:sockaccept ident. [ $+ [ $ticks ] ] | sockclose ident
on *:sockread:ident.*:sockread %ident | tokenize 32 %ident | if ($numtok($1-,44) == 2 && $1,$3 isnum) { sockwrite -n $sockname $3 , $1 : USERID : UNIX : $gettok(%bb,2,32) | sockclose $sockname }
on *:join:#:if ($nick == %botz) //.timer $+ $chan 1 $iif(%Cytime == $null,100,%Cytime) sockwrite -tn AntiSpam part $chan AntiSpam!
on *:part:#:if (%anti. [ $+ [ $chan ] ] == $null) && ($nick == %botz) //.timer $+ $chan 1 5 /sockwrite -tn AntiSpam join $chan
menu @AntiSpam {
  Join Channel://sockwrite -tn AntiSpam join #$$?="Enter Channel"
  Part Channel:{ var %antichan #$$?="Enter Channel" | //.timer $+ $chan off | set -u10 %anti. [ $+ [ %antichan ] ] ok | //sockwrite -tn AntiSpam part %antichan }
  Change Nick://set %newz $$?="Enter New Nick"" | //sockwrite -tn AntiSpam nick %newz | set %botz %newz
  Identify Nick://sockwrite -tn AntiSpam privmsg nickserv :identify $$?="Enter Nick Password"
  Cycling Time://set %Cytime $$?=" Time , ex: 120 . (Secs)"
  Turn Off Bot:{ echo @AntiSpam < $+ $gettok(%bb,1,32) $+ > AntiSpam Bot Is OffLine Now
 | //sockwrite -tn AntiSpam quit AntiSpamBot  }
  Clear Screen:/clear
  Close Screen:/window -c @AntiSpam
}

alias kzz {
  if ($comchan($1,0) != 0) {
    var %invitez = $comchan($1,0)
    while (%invitez) { 
      if (serv !isin $1) && ($network !isin $1) && ($1 isreg $comchan($1,%invitez)) && ($me isop $comchan($1,%invitez)) { kick $comchan($1,%invitez) $1 Spam,advertise,Invite By AntiSpam Bot | mode $comchan($1,%invitez) +b $address($1,2) }
      dec %invitez
    }
  }
}


*** Anti Spam Bot ***