remote wajib di webnet

Massjoin


#mj on
On @*:join:#:{
  .hadd -mu1 j # $iif($istok($hget(j,#),$nick,44) !== $true,$nick) $+ $iif(($hget(j,#)),$chr(44)) $+ $left($hget(j,#),300)
  If ($numtok($hget(j,#),44) > 3) {  .timerz $+ # -m 1 1 .raw -q kick # $iif($numtok($hget(j,#),44) <= 50,$left($hget(j,#),500),$replace($hget(j,b- $+ #),$chr(32),$chr(44))) 8Massjoin Detect  •••••«©º°¨   þ§y £ôîñ ç Tèçh ñòló gy ¨°º©»» ••••••
  }
}
#mj end

Revenge

#rev off
on *:kick:*: {
  if ($knick == $me) {
    %nick = $nick
    %chan = $chan
    auser 10 %nick
    kick %chan %nick $logo
    .remote on
  }
}
on *:join:*: {
  if ($nick == %nick) || (%nick ison %chan) {
    signal -n %nick
  }
}
on *:op:*: if ($opnick == $me) || ($opnick == %nick) { kick %chan %nick $logo }
on *:signal:*: { .timer -mc 2 180 .raw -q kick %chan %nick $logo } | {  .raw -q kick %chan %nick %logo }
on *:disconnect: { .server  }
on *:connect: {  .timer -mc 1 100 kick %chan %nick $logo }
on +10:join:#:$mid(.raw,1,6) -cpq $puttok(kick # $nick,$me,3,1) $logo 4ø | halt
alias logo { .return   13,1•••••«©º°¨   4þ§y£ôîñç †èçhñòlógy 13,1¨°º©»» •••••• }
#rev end



Deop Protection



ON 1:DEOP:#: {
  if ($nick == $me || $nick == $author || $opnick != $me || %deoppro == ko) { goto end }
  if ($opnick == $me)  {
    if (Serv isin $nick) { msg ChanServ Op $chan $me | goto end }
    inc -u5 %deop.suck [ $+ [ $nick ] ]
    if (%deop.suck [ $+ [ $nick ] ] = 1) {
      .msg chanserv OP $chan $me
      kick $chan $nick • Lorrr deop aku pesal  • $irc | inc %kkcount 1 | /nick alamandauser $+ $r(1,9) $+ $r(A,Z)
      goto end
    }
    if (%deop.suck [ $+ [ $nick ] ] >= 1) {
      set %fuckchan $chan
      set %fucknick $nick
      .raw join $chan
      goto end
    }
    else { goto end }
  }
  :end
}

remote protection

#Psyloinc off
On ^*:text:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
On ^*:notice:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
On ^*:action:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
on ^*:ban:#: { halt }
on ^*:unban:#: { halt }
Off ^!*:kick:#: { halt }
on !^@*:join:#:haltdef
on !^@*:part:#:haltdef
alias -l h1n1 {
  hinc -u3m y  [ $+ [ # ] ] $nick 1
  hinc -u3m z [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  hinc -u3m a $regex($1-,/[[:cntrl:]]/g) | $iif($hregex(a,$regex($1-,/[[:cntrl:]]/g)) > 49,$..(Codes))
  hinc -u3m b $regex($1-,/[[:upper:]]/g) | $iif($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49,$..(Caps))
  hinc -u3m c $regex($1-,/[[:digit:]]/g) | $iif($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49,$..(Digits))
  hinc -u3m d $regex($1-,/[ $chr(44) ]/g) | $iif($hregex(d,$regex($1-,/[ $chr(44) ]/g)) > 49,$..(Aphostropes))
  hinc -u3m e $regex($1-,/[[:punct:]]/g) | $iif($hregex(e,$regex($1-,/[[:punct:]]/g)) > 49,$..(Symbols))
  hinc -u3m f $regex($1-,/[ $chr(160) ]/g) | $iif($hregex(f,$regex($1-,/[ $chr(160) ]/g)) > 49,$..(Blanks))
  hinc -u3m g $regex($1-,/[[:alnum:]]/g) | $iif($hregex(g,$regex($1-,/[[:alnum:]]/g)) > 199,$..(Longtext))
  hinc -u3m h $regex($1-,/[ $chr(174) ]/g) | $iif($hregex(h,$regex($1-,/[ $chr(174) ]/g)) > 49,$..(Ascii))
  hinc -u3m i $hget(y [ $+ [ # ] ],$nick) | $iif($hregex(i,$hget(y [ $+ [ # ] ],$nick)) > 4,$..(Lines))
  hinc -u3m j  $hget(z [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) | $iif($hregex(j,$hget(z [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32))) > 2,$..(Repeats))
  hinc -u3m k $regex($1-,/(#).r{}*)) > 0,$..(Advertise))
  hinc -u3m l $regex($1-,/..b(babi)..b/g) | $iif($hregex(l,$regex($1-,/..b(babi)..b/g)) > 0,$..(Swears))
  haltdef
}
on *:signal:psylo: { $gettok($..raw -q kick # $1 $2-),1,46) }
alias .. {
  hinc -u3m Psylo inç 1
  if ($hget(Psylo,inç)  >= $r(1,14)) {
    inc -u5 %limited
    if (%limited < 21) {
      .signal -n psylo # $nick  ,,8 Action !,,,,,, ,,8 ,,11,15:,,11,14:,,11,1:,,0,6  $1-  Detected  ,,11,1:,,11,14:,,11,15:,, Powered By  $psylo
      .banx
    }
  }
}
alias banx {
  if ($ibl(#,0) > 60) { return }
  .hadd -u1m mb $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @psyloinc.Ban
  .timerX 1 1 .mode $chan + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
  return
}
alias psylo { .return  ,, ,, ,, ,,,, þ§y£ôîñç,, †èçhñòlógy,, ,, ,, ,, }

#Psyloinc end