Forum › Internet Service & Networking › remote war irc yg power

otai_g Publish time 31-8-2009 03:49 AM

remote war irc yg power

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. }
-
}

z-b-i Publish 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 Publish time 13-9-2009 11:39 PM

server webnet jerk bro :sleepy:

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

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

otai_g Publish 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 Publish 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 http://forum.cari.com.my/images/common/back.gif

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 Publish 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 http://mforum.cari.com.my/images/common/back.gif

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.

ajie2000 Publish time 28-1-2018 06:43 PM

ajie2000 replied at 11-12-2010 05:55 PM
masih idup lagi war war ni..join server zildjan.mine.nu

dia org main script banjir laa pulak. ...

Senyap je..dah 8 tahun dah..huhh

otai_g Publish time 30-1-2018 05:31 PM

ajie2000 replied at 11-12-2010 05:55 PM
masih idup lagi war war ni..join server zildjan.mine.nu

dia org main script banjir laa pulak. ...

pergh tu semua nama2 legend tu bro.
ada lg org main mirc zaman skrng ni yer :lol:

View full version: remote war irc yg power