IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Koruma kodunda Sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/442523-koruma-kodunda-sorun.html)

Koruma kodunda Sorun

Merhabalar 3 sorum olacak sayın coderler...

1) bir kişiyi kanaldan küfür koruması attığı zaman kanala şu yazıyı yazacak
( kötü söz kullandığınız icin banlandı. ) yazacak kanala atıldıgı zaman

2) op,voice ve halfop olanlar atılmayacak
( buna ayrı kod yazarsanız sevinirim )

3) Korumaların attığım ban 10 dakika sonra açılacak otomatik bende olan kod şu şekilde..

Kod:

alias HebeLe {

 if !$istok(isimsiz ,$1,32) { return $false }

 goto $1

 :isimsiz

 var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)

 }

 on @*:join:#:{ if $HebeLe(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }

 }

 on @*:text:*:#:if $HebeLe(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick 0,4 Yasak Kelime Kullandınız.! }
 

 alias HebeLe { dialog -m HebeLe HebeLe }

 dialog HebeLe {

 title "BadNick & Kufur Koruma Sistemi ßy HebeLe"

 size -1 -1 226 102

 option dbu

 list 2, 38 22 70 58, size

 list 5, 118 22 70 58, size

 edit "", 10, 38 12 70 10

 edit "", 11, 118 12 70 10

 box "BAD NICK", 6, 5 3 107 81

 box "KUFUR", 7, 114 3 107 81

 button "T A M A M", 1, 38 87 148 12,ok

 button "EKLE", 3, 10 14 24 28

 button "KALDIR", 4, 10 45 24 28

 button "EKLE", 8, 192 14 24 28

 button "KALDIR", 9, 192 45 24 28

 }

 on *:dialog:HebeLe:INIT:*: {

 if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } 

 if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } 

 if (%badnick) .didtok $dname 2 32 $ifmatch 

 if (%kufur) .didtok $dname 5 32 $ifmatch

 }

 on *:dialog:HebeLe:sclick:*:{

 if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }

 if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }

 if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } 

 if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
 

 }

 on *:dialog:HebeLe:sclick:1:{ 

 set %badnick $didtok($dname,2,44)

 set %kufur $didtok($dname,5,44)

 }

Cevap: Koruma kodunda Sorun

Aslında bu koda muaf nick ve muaf kelime de eklesense ve halfop larda kullanabilse güzel olur güzel olur.

Cevap: Koruma kodunda Sorun

işte bende onu istiyorum 3 soru yazdim vede koruma banladığı zaman 10 dakika sonra oto acacak seklinde istedim sorulara bakarsaniz görürsünüz

Cevap: Koruma kodunda Sorun

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

2 dakika ayirip araştirirsaniz bulabilirsiniz bunlar zaten forumda var.

1. sorunun cevabida zaten kodun içinde var.

Kod:

on @*:join:#:{ if $HebeLe(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }

 }

on @*:text:*:#:if $HebeLe(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick 0,4 Yasak Kelime Kullandınız.! }

Ayrica 2006'dan beri üyesin fakat hala kodlari kodtag altina almayi öğrenememişsiniz.

Ve eğer tam korumali bir script ariyorsaniz veya kodlari ariyorsaniz tanitimlar bölümünde v.elite nin içinde istediğiniz tüm kodlar var.

Cevap: Koruma kodunda Sorun

Toxic sagol teşekkür ederim otomatik ban açma tamam..

ama sorumun sadece birine cevap bulabildim sizden 2006 dan bu yana üyeyim ama uzun zamandir uğraşmadıgım icin bilgi unutmuşluğu diyelim..

Kalan 2 sorumada Cevap Gelirse Cok Sevinirim..

bir kanalda biri küfür ettiği zaman kanala yazacak küfür ettiği icin yasaklandı diye aynı Nomercy kanala yazdigi gibi..

Diğeri ise halfop voiceliler ve oplar kanaldan atilmiyacak

Cevap: Koruma kodunda Sorun

Kod:

if (# !ishop $me) {

bununla halfopkende kullanabilirsin.

Kod:

if ($me isop $chan) || ($nick !isop $chan) || ($nick !issop $chan) {

muaf.

Deneye deneye yapmaya calisbu sekilde sende öğrenirsin.

if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}

burayımı değiştirecem

on *:ban:#x,#y-eğitim,#msn,#z,#a,#b,#c,#d,#e: { .timer 1 900 mode $chan -b $banmask }

yukardaki kodu

on *:ban:#: { .timer 1 900 mode $chan -b $banmask }

bu şekilde değiştirdim ama sürekli Şu yazı Çıkıyor

Op Degilsin !
Op Degilsin !
Op Degilsin !
Op Degilsin !

Kanal isimlerin sildim

Cevap: Koruma kodunda Sorun

şimdi bu kısmı

on @*:join:#:{ if $Death(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }
}
on @*:text:*:#:if $Death(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick 0,4 Yasak Kelime Kullandınız.! }

bu şekildemi değiştiriyoruz

on @*:join:#:{
if $nick isop $chan || $nick isvoice $chan || { goto end }
if $Death(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }
}

on @*:join:#:{
if $nick isop $chan || $nick isvoice $chan || { goto end }
if $Death(isimsiz,$nick,kufur.txt) { .kick $chan $nick 0,4 Yasak Kelime Kullandınız. }
}

Halfoplarada ban atmıyacak deilmi bu şekilde ise

Cevap: Koruma kodunda Sorun

Hıhım

Alıntı:

if $nick isop $chan || $nick isvoice $chan || { goto end }

bu şekilde de kullanilmiş zaten.
Gösterdiğin gibi denermisin?

Veya; if !$istok(isimsiz ,$1,32) { return $false } bunun altinda.

Cevap: Koruma kodunda Sorun

tamam atmadi teşekkürler ama statüste şunu yazıyor

* /if: Geçersiz format (Satır 8, a.txt)
-