Kembali Berbanjirian..

Gian dah lama tak main banjir kat zildjan.mine.nu...

Contoh Remote Banjir:-

#style on
on *:join:#flood: if ($nick == $me) .msg birc op #flood 123456
On ^@+*:Text:*:#:{
  if ($nick isreg $chan) && ($me isop $chan) {
    .hinc -u20m row [ $+ [ # ] ] $nick 1 | .hinc -u25m rep [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(32),$chr(160)),32) 1
    if ($hget(rep [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(32),$chr(160)),32)) >= 3) { .bom ( 4repeats 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }
    Elseif ($eval($regsub($strip($1-),/(http|tp:|#)/g,,%Bun)) > 0) { .bom 11spyware 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/(fuck|dick|suck|zakar)/g,,%Bun)) > 0) { .bom 9badword 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($1-,/[[:cntrl:]]/g,,%mata)) > 50) { .bom 6coding 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:upper:]]/g,,%matb)) > 50) { .bom 13capslock 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:digit:]]/g,,%matc)) > 50) { .bom 14numerics 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:punct:]]/g,,%matd)) > 50) { .bom 5symbols 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[ $+ $chr(160) $+ ]/g,,%mate)) > 50) { .bom 12blanks 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[ $chr(174) ]/g,,%matf)) > 50) { .bom 15ascii 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($1-,/[[:lower:]]/g,,%matg)) > 200) { .bom 8lenght 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    if ($eval($regsub($strip($1-),/[ $chr(174) ]/g,,%math)) > 49) { .bom 7,15ascii 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”| halt }  
    Elseif ($hget(row [ $+ [ # ] ],$nick) >= 5) { .bom ( 9,8Lines 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }
  }
}

On ^@+*:Notice:*:#:{
  if ($nick isreg $chan) && ($me isop $chan) {
    .hinc -u20m row [ $+ [ # ] ] $nick 1 | .hinc -u25m rep [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(32),$chr(160)),32) 1
    if ($hget(rep [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(32),$chr(160)),32)) >= 3) { .bom ( 4repeats 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }
    Elseif ($eval($regsub($strip($1-),/(http|tp:|#)/g,,%Bun)) > 0) { .bom 11spyware 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/(fuck|dick|suck|zakar)/g,,%Bun)) > 0) { .bom 9badword 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($1-,/[[:cntrl:]]/g,,%mata)) > 50) { .bom 6coding 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:upper:]]/g,,%matb)) > 50) { .bom 13capslock 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:digit:]]/g,,%matc)) > 50) { .bom 14numerics 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:punct:]]/g,,%matd)) > 50) { .bom 5symbols 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[ $+ $chr(160) $+ ]/g,,%mate)) > 50) { .bom 12blanks 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[ $chr(174) ]/g,,%matf)) > 50) { .bom 15ascii 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($1-,/[[:lower:]]/g,,%matg)) > 200) { .bom 8lenght 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    if ($eval($regsub($strip($1-),/[ $chr(174) ]/g,,%math)) > 49) { .bom 7,15ascii 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”| halt }  
    Elseif ($hget(row [ $+ [ # ] ],$nick) >= 5) { .bom ( 9,8Lines 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }

  }
}
On ^@+*:Action:*:#:{
  if ($nick isreg $chan) && ($me isop $chan) {
    .hinc -u20m row [ $+ [ # ] ] $nick 1 | .hinc -u25m rep [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(32),$chr(160)),32) 1
    if ($hget(rep [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(32),$chr(160)),32)) >= 3) { .bom ( 4repeats 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }
    Elseif ($eval($regsub($strip($1-),/(http|tp:|#)/g,,%Bun)) > 0) { .bom 11spyware 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/(fuck|dick|suck|zakar)/g,,%Bun)) > 0) { .bom 9badword 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($1-,/[[:cntrl:]]/g,,%mata)) > 50) { .bom 6coding 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:upper:]]/g,,%matb)) > 50) { .bom 13capslock 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:digit:]]/g,,%matc)) > 50) { .bom 14numerics 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[[:punct:]]/g,,%matd)) > 50) { .bom 5symbols 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[ $+ $chr(160) $+ ]/g,,%mate)) > 50) { .bom 12blanks 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($strip($1-),/[ $chr(174) ]/g,,%matf)) > 50) { .bom 15ascii 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    Elseif ($eval($regsub($1-,/[[:lower:]]/g,,%matg)) > 200) { .bom 8lenght 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.” | halt }
    if ($eval($regsub($strip($1-),/[ $chr(174) ]/g,,%math)) > 49) { .bom 7,15ascii 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”| halt }  
    Elseif ($hget(row [ $+ [ # ] ],$nick) >= 5) { .bom ( 9,8Lines 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }

  }
}

On @!*:ctcpreply:*:if ($nick isreg #) && ($nick != $me) { $bom(ctcpreply) }
Ctcp @!*:*:*:if ($nick isreg #) && ($nick != $me) { $bom( 8ctcps 7“The two hardest things to say in life are hello for the first time and goodbye for the last time.”) }
============================================================================================================
alias bom {
  .set %nick $nick | set %chan $chan | set %reason $1-
  .write clone.txt %nick
  .hinc -mu9 kick a
  if ($hget(kick,a) > $r(30,75)) {
    .inc -u5m %tendang
  if (%tendang < 20) { $eval(!kick %chan $ial($address($nick,3)).nick) %reason } }    
  .hinc -mu120 kick c
  if ($hget(kick,c) > 50) {
    goto next
  }
  haltdef | return
  :next
  .timerdelay 1 1 delayed
  .timerclear -o 1 120 write -c clone.txt
  haltdef
}

================================================================================================================
alias delayed {
  set %nick $read(clone.txt) | /Bankedian %chan
  if (%nick != $null) {
    if (%nick ison %chan) {
      .kick %chan %nick %reason | .timerf -omc 1 950 delayed | return
      if (%nick !ison %chan) {
        .timerreply 1 1 delayed
        .write -dl1 clone.txt  
      }
    }
  }
}
on 1:op:%chan: {
  if ($opnick == $me) { timerloop2 1 0 delayed }
  else { return }
}
==========================================================================================================================================
ON 1:KICK:#: {
  write -ds $+ $knick clone.txt
  if ($nick === $me) {
    .hadd -mu60 xp $knick $+ !*@ $+ $1- $+ *
    if (!$window(@kick)) window -e @kick | echo @kick - $1-  
  }
}

Alias Bankedian {
  .timerbanX1 1 5 /mode $1 $+(+,$str(b,12)) $hget(xp,1).item $hget(xp,2).item $hget(xp,3).item $hget(xp,4).item $hget(xp,5).item $hget(xp,6).item $hget(xp,7).item $hget(xp,8).item $hget(xp,9).item $hget(xp,10).item $hget(xp,11).item $hget(xp,12).item
  .timerbanX2 1 7 /mode $1 $+(+,$str(b,12)) $hget(xp,13).item $hget(xp,14).item $hget(xp,15).item $hget(xp,16).item $hget(xp,17).item $hget(xp,18).item $hget(xp,19).item $hget(xp,20).item $hget(xp,21).item $hget(xp,22).item $hget(xp,23).item $hget(xp,24).item
  .timerbanX3 1 8 /mode $1 $+(+,$str(b,12)) $hget(xp,25).item $hget(xp,26).item $hget(xp,27).item $hget(xp,28).item $hget(xp,29).item $hget(xp,30).item $hget(xp,31).item $hget(xp,32).item $hget(xp,33).item $hget(xp,34).item $hget(xp,35).item $hget(xp,36).item  
  .timerbanX4 1 9 /mode $1 $+(+,$str(b,12)) $hget(xp,37).item $hget(xp,38).item $hget(xp,39).item $hget(xp,40).item $hget(xp,41).item $hget(xp,42).item $hget(xp,43).item $hget(xp,44).item $hget(xp,45).item $hget(xp,46).item $hget(xp,47).item $hget(xp,48).item  
  .timerbanX5 1 10 /mode $1 $+(+,$str(b,12)) $hget(xp,49).item $hget(xp,50).item $hget(xp,51).item $hget(xp,52).item $hget(xp,53).item $hget(xp,54).item $hget(xp,55).item $hget(xp,56).item $hget(xp,57).item $hget(xp,58).item $hget(xp,59).item $hget(xp,60).item  
  .timerbanX6 1 11 /mode $1 $+(+,$str(b,12)) $hget(xp,61).item $hget(xp,62).item $hget(xp,63).item $hget(xp,64).item $hget(xp,65).item $hget(xp,66).item $hget(xp,67).item $hget(xp,68).item $hget(xp,69).item $hget(xp,70).item $hget(xp,71).item $hget(xp,72).item  
  .timerbanX7 1 12 /mode $1 $+(+,$str(b,12)) $hget(xp,73).item $hget(xp,74).item $hget(xp,75).item $hget(xp,76).item $hget(xp,77).item $hget(xp,78).item $hget(xp,79).item $hget(xp,80).item $hget(xp,81).item $hget(xp,82).item $hget(xp,83).item $hget(xp,84).item
  .timerbanX8 1 13 /mode $1 $+(+,$str(b,12)) $hget(xp,85).item $hget(xp,86).item $hget(xp,87).item $hget(xp,88).item $hget(xp,89).item $hget(xp,90).item $hget(xp,91).item $hget(xp,92).item $hget(xp,93).item $hget(xp,94).item $hget(xp,95).item $hget(xp,96).item  
  .timerbanX9 1 14 /mode $1 $+(+,$str(b,12)) $hget(xp,97).item $hget(xp,98).item $hget(xp,99).item $hget(xp,101).item $hget(xp,102).item $hget(xp,103).item $hget(xp,104).item $hget(xp,105).item $hget(xp,106).item $hget(xp,107).item $hget(xp,108).item $hget(xp,109).item  
  .timerbanX10 1 15 /mode $1 $+(+,$str(b,12)) $hget(xp,110).item $hget(xp,112).item $hget(xp,113).item $hget(xp,114).item $hget(xp,115).item $hget(xp,116).item $hget(xp,117).item $hget(xp,118).item $hget(xp,119).item $hget(xp,120).item $hget(xp,121).item $hget(xp,122).item  
  .timerbanX11 1 16 /mode $1 $+(+,$str(b,12)) $hget(xp,123).item $hget(xp,124).item $hget(xp,125).item $hget(xp,126).item $hget(xp,127).item $hget(xp,128).item $hget(xp,129).item $hget(xp,130).item $hget(xp,131).item $hget(xp,132).item $hget(xp,133).item $hget(xp,134).item
}

On 1:disconnect:{ .timer off | .server zildjan.mine.nu 7000 }
raw *:*:{
  if ($istok(1;2;3;4;5;6;7;8;9;251;252;253;254;255;265;266;267;277;275;324;329;332;333;353;366;367;368;372;375;376;377;386;401;441;478,$numeric,59)) {
    haltdef
  }
}
Raw *:*: {
  var %:N = $numeric
  if (%:N  == 001) { halt }
  if (%:N  == 002) { halt }
  if (%:N  == 003) { halt }
  if (%:N  == 004) { halt }
  if (%:N  == 005) { halt }
  if (%:N  == 006) { halt }
  if (%:N  == 007) { halt }
  if (%:N  == 008) { halt }
  if (%:N  == 009) { halt }
  if (%:N  == 250) { halt }
  if (%:N  == 251) { halt }
  if (%:N  == 252) { halt }
  if (%:N  == 253) { halt }
  if (%:N  == 254) { halt }
  if (%:N  == 255) { halt }
  if (%:N  == 265) { halt }
  if (%:N  == 266) { halt } | if (%:N  == 353) { halt } | if (%:N  == 302) { halt } | if (%:N  == 366) { halt } | if (%:N  == 367) {
  halt } | if (%:N  == 368) { halt } | if (%:N  == 372) { halt } | if (%:N  == 375) { halt } | if (%:N  == 376) { halt } | if (%:N  == 401) { halt } | if (%:N  == 441) { halt } | if (%:N  == 442) { halt } | if (%:N  == 478) { halt } | if (%:N  == 494) { halt }
}
alias -l konter { .inc -u10 %konter | return %konter }
alias k { .inc -u10 %kira 1 | return %kira }
on ^*:part:#: haltdef
on ^*:join:#:{ haltdef }
off ^*:ban:#:{ haltdef }
on ^*:unban:#:{ haltdef }
off ^*:kick:#:{ haltdef }

#style end
kredit to masta H

0 Response to "Kembali Berbanjirian.."

Post a Comment