ANOTHER BLOG

Bagi rekan-rekan yang mungkin nggak hoby Mirc, tapi lebih suka dengan seni. Kalian bisa klik disini untuk melihat sebagian karya puisi-puisi yang aku punya. Mungkin bisa di jadikan inspirasi untuk memberikan puisi itu kepada kekasih ataupun mantan kekasih. Ataupun mungkin pingin di buatkan tidak apa, bisa pesan ke chat box di sebelah.

CLONE SCAN ( untuk melihat ada berapa clone dalam satu chanel irc)

menu Channel {
[=-Scan For Clones-=] : /scan
}

alias scan {
unset %cs.*
set %cs.chan #
who #
timer 1 4 /scan2
}
alias scan2 {
window -l @Clones
titlebar @Clones in #
set %cs.a $nick(#,0)
:loop
if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {
set %cs.d %cs.d $address($nick(#,%cs.a),2)
set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)
:l
aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
dec %cs.c 1
if (%cs.c == 0) { aline @clones +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+- | goto next }
goto l
}
:next
dec %cs.a 1
if (%cs.a != 0) { goto loop }
if (%cs.d == $null) { aline @clones No clones found. }
halt
}
menu @clones {
Kick:/kick %cs.chan 3,2 $+ $wildtok($sline(@clones,1), *, 1, 32) Clone Detected $logo
-
Kick/Ban:/kick %cs.chan 3,2 $+ $wildtok($sline(@clones,1), *, 1, 32) Clone Detected $logo | /mode %cs.chan +b $address($wildtok($sline(@clones,1), *, 1, 32),2) | /dline @clones $sline(@clones,1).ln
}

MULTI TEAM REVENGE VER. 1.2

n0=on 1:KICK:#:{
n1= if ($nick isin $me) { halt }
n2= if (bot isin $nick) { halt }
n3= if (serv isin $nick) { halt }
n4= if (sevr isin $nick) { halt }
n5= if (b0t isin $nick) { halt }
n6= if (chanserv isin $nick) { halt }
n7= if ($knick == $me) { set %kicker $nick | timer1 1000 5 join $chan | halt }
n8= if ( $nick == %m1 ) { goto pass }
n9=}
n10=on 1:OP:#:{
n11= if (%kicker ison $chan) && ($opnick isin $me) { /kick $chan %kicker 1,1-4,1««[0,1]4,1Multi Team Rèvéñgë Script™ Ver: 2 [0,1]4,1»»1,1- | timer1 off | .auser 10 %kicker | unset %kicker | set %kicker2 %kicker | unset %kicker | halt }
n12=}
n13=on +10:JOIN:#: { /kick $chan $nick 1,1-15,1Ð15è15a0t0h15w15á14R4™1,1- | .ruser 10 $nick | .auser 15 $nick | halt }
n14=on +15:JOIN:#: { /kick $chan $nick 14,14-5,14JaGuaR5,15™®ëvëngë 5,14†ëcnö£ögiës 5,15I®c 5,14sc®iþt™14,14- | .ruser 15 $nick | .auser 20 $nick | halt }
n15=on +20:JOIN:#: { /kick $chan $nick 8,1__7.-4±4MÏ7ß8ü1.8c£7A4Ñ1.4W7Å8rrÏ7Ö4R4±7-.8__ | .ruser 20 $nick | .auser 25 $nick | halt }
n16=on +25:JOIN:#: { /kick $chan $nick 12,12-15,12(0¤1)11÷0RågñärøK11÷15(0¤1)11÷0InFiNiTy11÷15(0¤1)12,12- | .ruser 25 $nick | .auser 30 $nick | halt }
n17=on +30:JOIN:#: { /kick $chan $nick 1,1-4,1[8TRINIL4][8Scripter4][8Community4]4,1™1,1- | .ruser 30 $nick | .auser 35 $nick | halt }
n18=on +35:JOIN:#: { /kick $chan $nick 1,1-3,1[9|0B15e14stw15a0R15©9|3]1,1- | .ruser 35 $nick | halt }
n19=}
n20=on *:Deop:#: {
n21=if ( $nick == $me ) { halt | return }
n22=if ( $me ison $chan ) { /ChanServ deop # $nick} { /chanserv op # $me }
n23=}