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