remote war irc yg power

otai_g · Post time 31-8-2009 03:49 AM

dah lama aku buat dan simpan remote ni exp zaman bdk2 dulu.
so just want to share with all of u.
ni adalah antara remote yg paling best pernah aku hasilkan.
copyright reserve.
zaman skanh irc dah kureng n x best mcm dulu2.

#standard on
;$puttok($hget(temp,deop),$opnick,4,32)
on +!10@:join:#:{ .timer 1 0.000001 $puttok($hget(temp,kick),$nick,3,32) | halt }
on +!10:serverop:#:{ .part # | halt }
on *:kick:#:{
if ($nick == ChanServ) || ($nick == $me) || ($knick != $me) { halt }
else {
.auser 10 $nick
.guser 10 $nick 2
.signal -n setup # $nick
.signal -n join #
}
}
on *:signal:setup:{
hadd -mo temp kick kick $1 $2 $ver
hadd -mo temp deop cs deop $1 $2
hadd -mo temp op cs op $1 $me
hadd -mo temp nick $2
hadd -mo temp chan $1
}
on *:op:#:{ if ($opnick == $me) && ($hget(temp,nick) ison $hget(temp,chan)) { $hget(temp,kick) } }
on *:deop:#:{ if ($opnick == $me) { $puttok($hget(temp,op),$me,4,32) } }
on *:signal:kick:{ kick $1 $2 $ver }
on *:signal:join:{
$str(raw -q,1) $hget(temp,deop)
$str(raw -q,1) join $1
}
#standard end
#changenick off
on +!10@:join:#:{ .signal -n kick # $nick }
on +!10:serverop:#:{ cs deop # $nick | halt }
on *:SIGNAL:kick:{ kick $1 $2 $vers | nick $r(a,z) $r(A,Z) $r(a,z) $r(A,Z) $r(0,9) $r(0,9) }
on *:deop:#:{if ($opnick == $me) { cs op # $me } }
on *:op:#:{ if ($opnick == $me) && ($hget(temp,nick) ison $hget(temp,chan)) { $hget(temp,kick) | raw -q mode $hget(temp,chan) +b $address($hget(temp,nick),5) } }
on *:kick:#:{
if ($nick == ChanServ) || ($nick == $me) || ($knick != $me) { halt }
else {
nick $r(a,z) $r(A,Z) $r(a,z) $r(A,Z) $r(0,9) $r(0,9)
.guser 10 $nick 2
.signal -n setup # $nick
cs deop # $nick
signal -n join
}
}
on *:SIGNAL:setup:{
.hadd -mo temp nick $2
.hadd -mo temp chan $1
.hadd -mo temp kick kick $1 $2 6Dendam Kesumat
}
on *:signal:join:{
cs deop $hget(temp,chan) $hget(temp,nick)
$str(raw -q,1) join $hget(temp,chan)
}
on *@:unban:#:{
if ($nick == $me) { halt }
else { mode # +b $banmask }
}
#changenick end
#free off
on +!10@:join:#:{ $hget(temp,kick) | halt }
on +!10:serverop:#:{ $hget(temp,kick) | halt }
on *:kick:#:{
if ($nick == ChanServ) || ($nick == $me) || ($knick != $me) { halt }
else {
.auser 10 $nick
.guser 10 $nick 2
.signal -n setup # $nick
.signal -n join #
}
}
on *:signal:setup:{
hadd -mo temp kick kick $1 $2 $ver
hadd -mo temp op cs op $1 $me
hadd -mo temp nick $2
hadd -mo temp chan $1
}
on *:op:#:{ if ($opnick == $me) && ($hget(temp,nick) ison $hget(temp,chan)) { $hget(temp,kick) } }
on *:deop:#:{ if ($opnick == $me) { $hget(temp,op) } }
on *:signal:kick:{ kick $1 $2 $ver }
on *:signal:join:{
$str(raw -q,1) join $1
}
#free end
menu status,channel {
-
War
.Off %lembu { set %lembu * | unset %ayam %itik %kambing |.disable #standard #changenick #free }
.-
.Standard %ayam { set %ayam * | unset %lembu %itik %kambing | .enable #standard | .disable #changenick #free }
.ChangeNick %itik { set %itik * | unset %lembu %ayam %kambing | .enable #changenick | .disable #standard #free }
.Free %kambing { set %kambing * | unset %lembu %ayam %itik | .enable #free | .disable #standard #changenick }
.-
.Kill { .auser 10 $1 | .guser 10 $1 2 | .signal -n setup # $1 | .signal -n kick # $1 }
.Clear { .rlevel 10 | .echo -a * All enemy have been wiped. }
-
}

Copy the Code

z-b-i · Post time 12-9-2009 11:51 PM

just out of curiousity, dulu main irc guna server mana?

aku zaman2 efnet dulu, kot2 la pernah berkampung sama.

otai_g · Post time 13-9-2009 11:39 PM

server webnet jerk bro

z-b-i · Post time 13-9-2009 11:52 PM

i see. aku zaman effnet je circa 93-96, memang selalu berperang.

otai_g · Post time 14-9-2009 06:58 PM

Post Last Edit by otai_g at 14-9-2009 19:01

4# z-b-i

awal sgt tu bro 93-96.
rs aku tahun 96 br nmpk CC bukak kat msia ni.
bila citer psl war aku respek dgn legend2 war mcm alley`oop`makio, bungkas team.
gang2 melayu war.
eh bro tau ke apa yg aku cerita ni?
skang irc dah slow kat msia..

z-b-i · Post time 14-9-2009 07:59 PM

Post Last Edit by otai_g at 14-9-2009 19:01

4# z-b-i

awal sgt tu bro 93-96.
rs aku tahun 96 br nmpk CC bukak kat msia ni.

gang2 melayu war.
eh bro tau ke apa yg aku cerita ni?
otai_g Post at 14-9-2009 18:58

aku rasa aku tau.

war as in: tunggu server split, join, kick+ban etc kan? pakai bots sume tu kan?

from 96 onwards aku dah retired dah, macam aku cakap tadi masa kat server effnet je aku active, start dari undernet aku dah slow dah..

ajie2000 · Post time 11-12-2010 05:55 PM

z-b-i

awal sgt tu bro 93-96.
rs aku tahun 96 br nmpk CC bukak kat msia ni.
bila citer psl wa ...
otai_g Post at 14-9-2009 18:58

masih idup lagi war war ni..join server zildjan.mine.nu

dia org main script banjir laa pulak..

tapi geng macam apokalipso, aangah, war geng, aliopmakio dah tak der dah..yang lama nya pun si zildjan tu jer masih aktif.