Software Area

dalam ruangan ini nanti aku akan muat turun beberapa software untuk kegunaan anda

body remote gettok

if ($gettok($regex($1-,/[[:cntrl:]]/g),1,46) > 49) $s(codes)
if ($gettok($regex($1-,/[[:upper:]]/g),1,46) > 49) $s(caps)
if ($gettok($regex($1-,/[[:digit:]]/g),1,46) > 49) $s(numbers)
if ($gettok($regex($1-,/[[:punct:]]/g),1,46) > 49) $s(symbols)
if ($gettok($regex($1-,/[ $chr(160) ]/g),1,46) > 49) $s(blurs)
if ($gettok($regex($1-,/[ $chr(174) ]/g),1,46) > 49) $s(asciis)
if ($gettok($regex($1-,/[[:lower:]]/g),1,46) > 199) $s(lenghts)
if ($gettok($regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si),1,46)) $s(swear)
if ($gettok($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si),1,46)) $s(advertise)

hregex remote

on !^*:text:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
on !^*:notice:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
on !^*:action:*:#: { if ($nick isreg #) { $e($1-) | haltdef } }
alias e {
.hadd -u2m a $regex($1-,/[[:codes:]]/g)
if ($hregex(a,$regex($1-,/[[:codes:]]/g)) > 49) $s(codes)
.hadd -u2m b $regex($1-,/[[:upper:]]/g)
if ($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49) $s(caps)
.hadd -u2m c $regex($1-,/[[:digit:]]/g)
if ($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49) $s(number)
.hadd -u2m d $regex($1-,/[[:punct:]]/g)
if ($hregex(d,$regex($1-,/[[:punct:]]/g)) > 49) $s(symbol)
.hadd -u2m e $regex($1-,/[ $chr(160) ]/g)
if ($hregex(e,$regex($1-,/[ $chr(160) ]/g)) > 49) $s(blur)
.hadd -u2m f $regex($1-,/[ $chr(174) ]/g)
if ($hregex(f,$regex($1-,/[ $chr(174) ]/g)) > 49) $s(ascii)
.hadd -u2m g $regex($1-,/[[:lower:]]/g)
if ($hregex(g,$regex($1-,/[[:lower:]]/g)) > 199) $s(lenght)
.hadd -u2m h $regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))
if ($hregex(h,$regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))) $s(badword)
.hadd -u2m i $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hregex(i,$regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3 })\S*)|#[^\40]\S*)/Si))) $s(advertise)
.hinc -u15m newrow [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newrow [ $+ [ # ] ],$address($nick,3)) > 4) { $s(rowXtion) | halt }
.hinc -u15m newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { $s(specialXtion) | halt }
}
[alias kick boleh ambil dalam blog ini utk percubaan ataupun utk main terus pun tak apa..haha]

Aliases Kicker Banjirian

assalaimualaikum..
disini aku release serba sikit alias kick yg aku dah buat selama aku main banjirian dari irc.banjir.info sampai la ke server zildjan.mine.nu
dan disini jugak aku berterima kasih la kepada masta-masta yang selama ini ajar aku sampai la sekarang :)

-TYPE INC-
[simple alias kick]
alias kick {
.inc -u10 %go
if (%go isnum 1-21) { .kick # $nick $1- }
alias ban kat sini
}

[eval alias kick]
alias kick {
.inc -u10 %go
if (%go isnum 1-21) { $eval(kick # $nick $1-,1) }
alias ban kat sini
}

[str alias kick]
alias kick {
.inc -u10 %go
if (%go isnum 1-21) { $str(kick # $nick $1-,1) }
alias ban kat sini
}

[strip alias kick]
alias kick {
.inc -u10 %go
if (%go isnum 1-21) { $strip(kick # $nick $1-,1) }
alias ban kat sini
}

[raw + eval alias kick]
alias kick {
.inc -u10 %go
if (%go isnum 1-21) { raw -q $eval(kick # $nick $1-,1) }
alias ban kat sini
}

[sorttok alias kick]
alias kick {
.inc -u10 %go
if (%go isnum 1-21) { $sorttok(kick # $nick $1-,a) }
alias ban kat sini
}

kalau nak jadikan dia hinc pun boleh
hanya tukar kick # $nick ke $str(kick # $nick $1-,1) dan inc -u10 boleh tukar jugak ikut sedap korang lah..hehehehehehe
ada setengah org cakap nanti ada error plak kat status kalau buat alias kick pelik2 mcm nie..
nak tahu error ker tak error buat cuba sendiri baru tahu ada error ataupun tak :)
selamat mencuba..

p/s:bila kita diatas jgn lupa org dibawah yerk :)

IRC Socket Bot

on *:sockopen:bot*: {
if ($sockerr > 0) return
.sockwrite -n $sockname connect %server $+ :7000 $+(HTTP/1.0,$CRLF,$CRLF)
.sockwrite -tn $sockname $chr(13) $+ $chr(10)
.sockwrite -tn $sockname user gen Linux 1234 %sockusernames
.sockwrite -tn $sockname nick %socknick
.sockwrite -tn * ns IDENTIFY %pass
}
on *:sockread:bot*: {
if ($sockerr > 0) return
:mafia
.sockread %mafia.buffer
.tokenize 32 %mafia.buffer
if ($sockbr == 0) return
if ($1 == ping) .sockwrite -tn $sockname PONG $remove($2,:)
if ($2 == 376) { .sockwrite -tn * join #flood,#unicore }
;if ($gettok(%mafia.buffer,2,32) == 441) { .sockwrite -n bot* $str(kick %chan %nick %in 4RAW,1) }
;if ($gettok(%mafia.buffer,2,32) == 474) { .echo -a 14[-13Sock Clear14-] | .clear }
goto mafia
}

socket ni asal dari revenge aku dah tukar kan dia jadik socket utk banjirian...
yang lain² kalau nak kena message edu
sekian..
terima kasih..