| immortaL | 04 Haziran 2016 16:03 |
Karışık Kodlar
Bu kod kanalda kullanıcılar prefix/mod (+q,v,h,o,a) aldıkları(+mod) zaman uyarı yapmanıza yarar. Kod:
on *:rawmode:#: {
if ($regex($left($1,1),\+)) {
if ($regex($remove($1,+),q)) msg # $2 kanal sahibi konumuna geçti. M-by: $qt($nick)
if ($regex($remove($1,+),a)) msg # $2 protect konumuna geçti. M-by: $qt($nick)
if ($regex($remove($1,+),o)) msg # $2 operator konumuna geçti. M-by: $qt($nick)
if ($regex($remove($1,+),h)) msg # $2 halfop konumuna geçti. M-by: $qt($nick)
if ($regex($remove($1,+),v)) msg # $2 voice konumuna geçti. M-by: $qt($nick)
}
}
Bu kod kanalda belirtilen nicklerden herhangi birisi(nick1, nick2 ve ya nick3) !at nick yaptığı zaman o kullanıcıyı bulunduğu tüm kanallardan uzaklaştırır. Kod:
on *:text:!at* &:#: {
if ($regex($nick,/^(nick1|nick2|nick3)$/i)) {
var %s = 1,%q = $comchan($2,0)
while (%s <= %q) {
ban -k $comchan($2,%s) $2 BAN SEBEBİ.
inc %s
}
}
}
Bu kod(lar) kanala gönderilen action mesajlarında küfür vb. olarak tanımladığınız kelimeleri arar ve işlem yapar. Aynı zamanda küfür listesine ekleme/silme/listeleme vs. işlemlerde yapabilirsiniz. Kod zaten yeterince açık bir şekilde yazılmıştır. Kod:
;Event (on action)
on @*:action:*:#:bdwchk # $nick $1-
;(/bdwchk): /bdwchk #kanal-ismi nick mesaj
alias bdwchk {
var %1 = 1,%2 = $iif($hget(bdw,0).item >= 1,$v1)
while (%1 <= %2) {
if ($regex($3-,$hget(bdw,%1).item)) {
ban -k $1 $2 5 BAN SEBEBİ.
break
}
inc %1
}
}
;(/bdwekle): /bdwekle kelime (Listeye kelime ekler)
alias bdwekle {
if ($1) {
if (!$hget(bdw,$1)) {
hadd -m bdw $1 1
hsave -i bdw bdw.hash
echo -at $1 kelimesi listeye eklendi.
}
else echo -at $1 kelimesi listede.
return
}
else echo -at Kelime girmediniz.
}
;(/bdwsil): /bdwsil kelime (Listeden kelime siler)
alias bdwsil {
if ($1) {
if ($hget(bdw,$1)) {
hdel bdw $1
hsave -i bdw bdw.hash
echo -at $1 kelimesi listeden silindi.
}
else echo -a $1 kelimesi listede yok.
return
}
else echo -at Kelime girmediniz.
}
;(/bdwlist): /bdwlist (Listeyi sıralar)
alias bdwlist {
if (!$hget(bdw) || $hget(bdw,0).item < 1) echo -at Liste boş.
else $iif(!$window(@Bdwlist),window -adlCk0 +L @Bdwlist 0 0 200 200)
var %s = 1
while (%s <= $hget(bdw,0).item) {
aline @Bdwlist $hget(bdw,%s).item
inc %s
}
}
;on start event(Tabloyu yükletmek için)
on *:start: {
if ($isfile(bdw.hash)) {
hmake bdw 50
hload -i bdw bdw.hash
}
}
Bu kod kanala 5 saniye içerisinde 4 veya fazlası giriş yapıldığında, giren tüm nickleri kanaldan banlar ve kanalın modlarını +RM yapar. Kod:
on !*:join:#:{
if ($regex($nick(#,$me).pnick,@|&|~|%|(\+))) {
hadd -mu5 # $+(#,½,$nick) 1
if ($hget(#,0).item >= 4) {
mode # +MR
msg # Kanal modları değişti vs.
var %1 = $v1,%2 = 1
while (%2 <= %1) {
ban -k # $removecs($hget(#,%2).item,#,½) 2 BAN SEBEBİ.
inc %2
}
}
}
}
Bu kod kanalda selam/slm/s.a vs. kelimelerini yazan kullanıcılara oto-selam vermek için kullanılır. Flood süresi 30 saniyedir değiştirebilirsiniz. Kod:
on *:text:*:#: {
if ($regex($1-,/(selam|slm|s\.a)/i)) {
inc -eu30 $+(%,slm,$nick) 1
if ($($+(%,slm,$nick),2) == 1) .msg # $qt($nick) a.s vs.
}
}
Bu kod nicklist-den seçilen nick-i kanaldan 6 maska ban atacak şekilde banlamanıza yarar. Kod:
alias F6 {
if ($snick($active,0) >= 1) {
var %1 = 1,%2 = $snick($active,0)
while (%1 <= %2) {
mode $active +b $snick($active,%1)
allban $active $snick($active,%1)
inc %1
}
}
}
allban {
var %s = 0
while (%s <= 5) {
ban $1 $2 %s
inc %s
}
kick $1 $2 KICK SEBEBİ.
}
Bu kod kanalda(opsanız bknz: @*:text:*:# belirtilen saniye içerisinde belirtilen tekrar mesajı gönderilirse kullanıcıyı kanaldan uzaklaştırır. Kod:
on @*:text:*:#: {
if (!$regex($nick(#,$nick).pnick,@|%|&|~|(\+))) {
hinc -mu4 fld $+($nick,#,$sha1($1-)) 1
if ($hget(fld,$+($nick,#,$sha1($1-))) = 3) {
ban -ku300 # $nick 2 BAN SEBEBİ.
hdel fld $+($nick,#,$sha1($1-))
}
}
}
Bu kod belirtilen kanala giren kullanıcının rumuzu içerisinde "guest" takısı varsa, uyarı yapıp belirtilen süre sonra kullanıcı nick değişmezse kanaldan uzaklaştırmanıza yarar. Kod:
on !*:join:#: {
if ($regex($nick,/guest/i)) {
!msg # $nick Uyarı mesajınız.
$+(timer,$nick) 1 30 ban -k # $nick 2 nickini değiştir vs.
}
}
on !*:nick:$iif($timer($nick),$+(.timer,$v1) off)
Bu kod sunucuya giren/çıkan kullanıcıları ayrı bir pencerede(@giriş/çıkış) gösterir ve nicklerin üzerine tıkladığında sunucudan uzaklaştırmanıza yarar. Kod:
on *:snotice:*: {
if (*client connect* iswm $1-) {
var %n = $+(",$9,"),%i = $remove($gettok($10,1,64),$chr(40)),%ip = $remove($gettok($10,2,64),$chr(41))
$iif(!$window(@giriş/çıkış),window -nCk0 @giriş/çıkış)
echo -te @giriş/çıkış => Giriş: $replacecs(%n,",$+($chr(3),0,",$chr(3))) ! %i @ %ip
}
if (*client exiting* iswm $1-) {
var %nn = $+(",$6,"),%ii = $remove($gettok($7,1,64),$chr(40)),%ipp = $remove($gettok($7,2,64),$chr(41))
$iif(!$window(@giriş/çıkış),window -nCk0 @giriş/çıkış)
echo -te @giriş/çıkış <= Çıkış: $replacecs(%nn,",$+($chr(3),0,",$chr(3))) ! %ii @ %ipp
}
}
on ^*:hotlink:"*":@giriş/çıkış:return
on *:hotlink:*:@giriş/çıkış:gline $remove($1,") :sebeb.
Bu kod belirtilen kanaldaki yetkililere /whois çeker ve idle süresi, belirtilen saniyeden düşük olan yetkilileri de-op/sop/hop vs. konumuna getirir.
Kod kullanım şekli: /idletara #kanal-ismi
Kod:
alias idletara {
if ($left($1,1) = $chr(35) && $2 && $nick($1,0,@&%.~) != 0) {
.enable #kk
set %s $2
set %k $1
set %op $nick(#,0,@%&.~)
var %1 = 1
while (%1 <= %op) {
whois $nick(#,%1,@)
inc %1
}
}
}
#kk off
raw *:*: {
haltdef
if ($numeric = 317) {
if ($3 >= %s) {
if ($2 != $me) {
mode %k -oaqh $2 $2 $2 $2
.msg $2 idle süreniz, $qt(%s) saniyeyi aştığı için de-op/sop vs. edildiniz.
}
}
}
if ($numeric = 318) {
inc %&
if (%& = %op) {
unset %op %k %&
.disable #kk
}
}
}
#kk end
|
