muratt_aziz | 02 Ekim 2009 11:29 | tek tıkla nıck op alıp ban atıp eski nicke gecme tüm kanalalrda Arkadaşlar kod kanalda op nickinize gecip şifrenizi girip yetkili olduğunuz kanallarda opa cıkıp Secili nicke yetkili olduğunuz tüm kanallarda ban atıp Deop Olun ilk nickinize dönmeye yarıyor umarım işinize yarar f1 tuşuna ayarlı f1 de başka kısa yolunuz varsa değiştirin yada kaldırın öyle kullanınız
ALİASES KODU Kod:
F1 {
set %jw $me
set %bn NİCKİNİZZ
set %xs $$1
.nick %bn
.ns identify ŞİFRENİZ
.timer 1 1 tban %xs
.timer 1 1 onluk %xs
.timer 1 2 atm %xs
.timer 1 5 /yetkial %bn
.timer 1 11 /nick %jw
}
yetkial { if $1 { var %\ = 1,%/ = $comchan($1,0) | while %\ <= %/ { if $1 !isreg $comchan($1,%\) { mode $comchan($1,%\) -voqah $str($+($1,$chr(32)),5) } | inc %\ } } }
REMOTE KODU Kod:
alias ATM { if $$1 { var %ü = $comchan($$1,0) | while %ü { if ($me isop $comchan($$1,%ü)) { ban -k $v2 $$1 2 EFENDİ OL } | dec %ü } } }
alias tban {
var %a 1
while ($chan(%a) != $null) {
if (($me isop $chan) || ($me ishelp $chan)) {
if ($1 ison $chan(%a)) { ban -ku180 $1 2 Yetkili oldugum tüm kanallardan atıldın. }
}
inc %a 1
break
}
}
alias onluk { var %£n $comchan($$1,0) | var %^ 1
while %^ <= %£n { set -u3 %£chan $addtok(%£chan,$comchan($$1,%^),32) | inc %^ }
var %£Cs $numtok(%£chan ,32) | var %£^ 1
while %£^ <= %£Cs { if $me isop $gettok(%£chan,%£^,32) {
mode $gettok(%£chan,%£^,32) +b $$1 | kick $gettok(%£chan,%£^,32) $$1 Bla bla...
inc %£^ } | else { samode $gettok(%£chan,%£^,32) +b $$1 | inc %£^
}
}
} |