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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

XDie 11 Ocak 2012 15:55

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


moonman 11 Ocak 2012 16:03

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.

XDie 11 Ocak 2012 16:06

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

toXic 11 Ocak 2012 16:11

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.

XDie 11 Ocak 2012 16:21

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

toXic 11 Ocak 2012 16:24

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.

XDie 11 Ocak 2012 16:27

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

XDie 11 Ocak 2012 18:55

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

toXic 11 Ocak 2012 19:00

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.

XDie 11 Ocak 2012 19:04

Cevap: Koruma kodunda Sorun
 
tamam atmadi teşekkürler ama statüste şunu yazıyor

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

XDie 11 Ocak 2012 19:05

Cevap: Koruma kodunda Sorun
 
tamam atmadi teşekkürler ama statüste şunu yazıyor

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

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


bu sekilde yaptim

toXic 11 Ocak 2012 19:07

Cevap: Koruma kodunda Sorun
 
if death'ami geliyor nick'e mi geliyor? 8. satiri gösterirmisin tam olarak.

Alıntı:

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

}
Kod:

on @*:join:#:{

if ($me isop $chan) || ($nick !isop $chan) || ($nick !issop $chan) || ($nick !ishop $chan)  { goto end }
if $Death(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }
}


XDie 11 Ocak 2012 19:16

alias Death {
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 $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. }
}

şuan kanaldan atmıyo bile eski haline getirince attı

toXic 11 Ocak 2012 19:25

Cevap: Koruma kodunda Sorun
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

XDie 11 Ocak 2012 19:33

Cevap: Koruma kodunda Sorun
 
badnick ile ne alakası var toxic hocam benim anlatmak istedigimin

alias Death {
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 $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.! }

alias Death { dialog -m Death Death }
dialog Death {
title "BadNick & Kufur Koruma Sistemi ßy Death"
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: Death: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: Death: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: Death:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}



Ben Burda Diyorumki.. Oplara Voicesi Olanlara Ve Halfopu Olanlara Ban Atılmasın
ve bunlar dışında olupta kanalda küfür edenler atılsın ve 5 dakika sonra oto açılsın

Narsinha 11 Ocak 2012 19:59

Cevap: Koruma kodunda Sorun
 
Kod:

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

yerleri

Kod:

if $nick isop $chan || $nick isvoice $chan || $nick ishop $chan  { return }
değiştir dene birde.

XDie 11 Ocak 2012 20:07

Cevap: Koruma kodunda Sorun
 
yine olmadı..

XDie 11 Ocak 2012 20:13

Cevap: Koruma kodunda Sorun
 
a.txt diye metin belgesi açtım

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

bu kodu yerlestirdim calisiyor ama dedigim gibi ( @,+,% ) olanları atıyor yine

toXic 11 Ocak 2012 21:30

Cevap: Koruma kodunda Sorun
 
Kod:

alias {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
if $nick isop $chan || $nick isvoice $chan || $nick ishop $chan  { return }
on @*:join:#:{ if $(isimsiz,$nick,badnick.txt) { .kick $chan $nick 2Yasak nick }
}
if $nick isop $chan || $nick isvoice $chan || $nick ishop $chan  { return }
on @*:text:*:#:if $(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick 0,4 Yasak Kelime Kullandınız.! }

Bu şekilde çalişmasi lazim.

XDie 11 Ocak 2012 21:45

Cevap: Koruma kodunda Sorun
 
olmadı kanalda kim girse atar oldu.. onun icin başka bir konu açmıştım

bana oyle bir kod yapilmasi lazimki
kod.txt diye metin belgesi açacam içinde şu korumalar olacak
1) küfür edenler kick+ban atılacak kufur.txt den
2) halfop,voice ve op olanlar atılmayacak
3) atılan banlar 5 dakika sonra açılacak
4) ban atıldıktan sonra kanalda küfür ettiği icin banlandı yazacak Nomercy gibi
yalnız kufur.txt e şu şekilde küfürler ekliyorum
kufur*
*kufur*
* kufur *
* k u f u r *
*k.ü.f.ü.r*

XDie 11 Ocak 2012 22:27

Cevap: Koruma kodunda Sorun
 
yok sanırım yapacak kişiler :(

OperServ 11 Ocak 2012 22:57

Cevap: Koruma kodunda Sorun
 
Kod:

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

XDie 11 Ocak 2012 23:07

Cevap: Koruma kodunda Sorun
 
if !$istok(isimsiz ,$1,32) { return $false }

zaten var idi
bana yeni bir kod lazim dedigim gibi

kod.txt diye metin belgesi açacam içinde şu korumalar olacak
1) küfür edenler kick+ban atılacak kufur.txt den
2) halfop,voice ve op olanlar atılmayacak
3) atılan banlar 5 dakika sonra açılacak
4) ban atıldıktan sonra kanalda küfür ettiği icin banlandı yazacak Nomercy gibi
yalnız kufur.txt e şu şekilde küfürler ekliyorum
kufur*
*kufur*
* kufur *
* k u f u r *
*k.ü.f.ü.r*


uyacak şekilde

OperServ 11 Ocak 2012 23:15

Cevap: Koruma kodunda Sorun
 
basa donuyorum
Kod:

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

dene sunu lutfen

not badnick.txt listesine kufurleri sen olustur. Kolay gelsin

XDie 11 Ocak 2012 23:17

Cevap: Koruma kodunda Sorun
 
badnicke kafayı taktınız ya harbi fitil oldum arkadaş

kod.txt diye metin belgesi açacam içinde şu korumalar olacak
1) küfür edenler kick+ban atılacak kufur.txt den
2) halfop,voice ve op olanlar atılmayacak
3) atılan banlar 5 dakika sonra açılacak
4) ban atıldıktan sonra kanalda küfür ettiği icin banlandı yazacak Nomercy gibi
yalnız kufur.txt e şu şekilde küfürler ekliyorum
kufur*
*kufur*
* kufur *
* k u f u r *
*k.ü.f.ü.r*


uyacak şekilde


diosunuzki aynı seyleri yazip durma yahu ben ne öğrenmeye calisiyorum sizler bana neyi gösteriyosunuz :(((

XDie 11 Ocak 2012 23:41

Cevap: Koruma kodunda Sorun
 
yok hocam yok 2 gündür bu soruya cevap veren yok ....

KuL 11 Ocak 2012 23:43

Cevap: Koruma kodunda Sorun
 
Sunu bir denermisin

Kod:

on *:text:*:#: {
var %< = 1 | while (%< <= $lines(küfür.txt)) {
if $read(küfür.txt,%<) iswm $1- {
ban -ku900 # $nick 2 küfür ettin 5 dakika ban  }
inc %<
}
}


XDie 11 Ocak 2012 23:57

Cevap: Koruma kodunda Sorun
 
:))) hocam ya anlatamiyorum ben yaa fitttirdim iice

ban atiyor tamam verdigin kod zamanlı ban atıyor onada eyvallah

ama %,+,@ olanlarıda atıyor bunları atmıyacak opları,halfopları ve voicesi olanları..

ve kanaldan attıgı zaman kanal geneline ban sebebini msg olarak yazacak

diyelimki ali #a kanalında küfür etti ve atıldı

Şöyle Mesaj yazacak Ali Küfür Ettiği için 5 Dakika Banlandı

XDie 12 Ocak 2012 00:02

Cevap: Koruma kodunda Sorun
 
Alıntı:

XDie Nickli Üyeden Alıntı (Mesaj 1040992359)
:))) hocam ya anlatamiyorum ben yaa fitttirdim iice

ban atiyor tamam verdigin kod zamanlı ban atıyor onada eyvallah

ama %,+,@ olanlarıda atıyor bunları atmıyacak opları,halfopları ve voicesi olanları..

ve kanaldan attıgı zaman kanal geneline ban sebebini msg olarak yazacak

diyelimki ali #a kanalında küfür etti ve atıldı

Şöyle Mesaj yazacak Ali Küfür Ettiği için 5 Dakika Banlandı

on *:text:*:#: {
var %< = 1 | while (%< <= $lines(küfür.txt)) {
if $read(küfür.txt,%<) iswm $1- {
ban -ku900 # $nick 2 küfür ettin 5 dakika ban }
inc %<
}
}


bu kodun icine eklemek iyi olur dedigimi

OperServ 12 Ocak 2012 00:18

Cevap: Koruma kodunda Sorun
 
Kod:

#kufuruniq on
Dialog kufur {
  Title Küfür Koruması [ Coder ßy ZaiL]
  Size -1 -1 138 186
  Option dbu
  Edit , 1, 7 10 61 10
  List 2, 7 22 60 50, size
  Button Ekle, 3, 7 74 27 12, flat
  Button Sil, 4, 39 74 27 12, flat
  Check Opları (@), 5, 85 21 41 10, flat
  Check Voiceler (@), 6, 85 10 42 10, flat
  Combo 7, 7 102 52 51, size
  Button Ekle, 8, 7 154 24 9, flat
  Button Sil, 9, 35 154 23 9, flat
  Box Küfür listesi, 13, 3 2 71 88
  Box Ayrılan Nickler, 14, 3 92 63 76
  Box Ayrılan Kanallar, 15, 73 92 62 76
  Box Ayır, 16, 78 2 56 33
  Button Sil, 10, 106 154 23 9, flat
  Button Ekle, 11, 78 154 24 9, flat
  Combo 12, 78 102 52 51, size
  Box İşlemler, 17, 78 37 56 53
  Radio Opersem Kline, 18, 83 47 47 10, flat
  Radio Opersem Kill, 19, 83 57 47 10, flat
  Radio Opsam Kick, 20, 83 67 47 10, flat
  Check Banla, 21, 83 77 27 10, flat
  Button Kapat, 22, 97 171 37 12, flat ok
}
Alias kufur { /alias kufur /dialog -m kufur kufur }
On *:dialog:kufur:init:*: {
  If ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
  If (%knickler) .didtok $dname 7 32 $ifmatch
  If (%kufkanal) .didtok $dname 12 32 $ifmatch
  If (%klineat) { .did -c $dname 18 }
  If (%killat) { .did -c $dname 19 }
  If (%kickat) { .did -c $dname 20 }
  If (%banla) { .did -c $dname 21 }
  If (%oplar) { .did -c $dname 5 }
  If (%vlar) { .did -c $dname 6 }
}
On *:dialog:kufur:sclick:*: {
  If ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
  If ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
  If ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
  If ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
  If ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
  If ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
  If ($did == 8 ) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
  If ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
  If ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
  If ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
  If ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
  If ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
On *:text:*:#: {
  If $istok(%kufkanal,#,32) == $true { halt }
  If $istok(%knickler,$nick,32) == $true { halt }
  If ($nick isop #) && (%oplar == on) { return }
  If ($nick isvo #) && (%vlar == on) { return }
  Korukufurden $1-
}
Alias korukufurden {
  Var %HR $strip($1-) , %_: $lines(kufur.txt)
  While (%_:) {
    If $read(kufur.txt,%_:) iswm %HR iswm %HR {
      If (%banla == on) { .mode $chan +b $wildsite }
      If (%klineat == on) { .gline $nick 5h :  $nick Sunucu Sizi LAMER olarak algıladı. [ $server ]  | .echo -a  $chan Kanalından $nick atıldı..  $1- }
      If (%killat == on) { .kill $nick Lutfen kufur etmeyin }
      If (%kickat == on) { .kick $chan $nick Kanal genelinde uygunsuz hareket }
      Return
    }
    Dec %_:
  }
}
#kufuruniq end

bu tam istedigin gibi kodu denedim sorunsuz calismamaktadir. Alintidir

OperServ 12 Ocak 2012 00:23

Cevap: Koruma kodunda Sorun
 
tu yanlis yazdim sorunsuz calismakta diyecektim :)

XDie 12 Ocak 2012 00:24

Cevap: Koruma kodunda Sorun
 
:) eminmisin denediginizden ban man atmiyor

en iyi yaklasim KaYiplarda nickli arkadaş yapti

on *:text:*:#: {
var %< = 1 | while (%< <= $lines(küfür.txt)) {
if $read(küfür.txt,%<) iswm $1- {
ban -ku900 # $nick 2 küfür ettin 5 dakika ban }
inc %<
}
}


bu koda devam edip diğer

%,+,@ olanlarıda atıyor bunları atmıyacak opları,halfopları ve voicesi olanları..

ve kanaldan attıgı zaman kanal geneline ban sebebini msg olarak yazacak

diyelimki ali #a kanalında küfür etti ve atıldı

Şöyle Mesaj yazacak Ali Küfür Ettiği için 5 Dakika Banlandı

bunlarda yapilirsa tam istedigim kod olacak

LauReLL 12 Ocak 2012 00:29

Cevap: Koruma kodunda Sorun
 
bak Şu Şekilde Anlatıyım sana

eğer op ları atmasını ıstemıosan kod şu

if $nick isop $chan = Bu eğer kişi op ise demek

Yani bunu kullanırsan uyguluycan kodun ıcınde o zaman istediğin olur.. toparlamak gerekırse Şu Sekılde yazıyım anlatıyım..


on *:text:*:#: {
if $nick !isop $chan {
var %< = 1 | while (%< <= $lines(küfür.txt)) {
if $read(küfür.txt,%<) iswm $1- {
ban -ku900 # $nick 2 küfür ettin 5 dakika ban }
inc %<
}
}
}

Yukarıdaki kod şudur.. Eger op değilse komut işler bi dene istersen..

aradaki farkıda şu şekilde anlatıyım

İf $nick !isop $chan
Ünlem varken "Op değilse" demek Ünlem yokken " op ise" anlamındadır bu şekilde pratik yapabılırsın !..

on *:text:*:#: {
if $nick isop $chan {
var %< = 1 | while (%< <= $lines(küfür.txt)) {
if $read(küfür.txt,%<) iswm $1- {
.echo -a Kişi op Olduğu İçin Ban İşlemi Durdurulmuştur. }
inc %<
}
}
}

Umarım kafan karışmaz ve anlarsın (:

XDie 12 Ocak 2012 00:37

Cevap: Koruma kodunda Sorun
 
yahu ne opların atması offffffffffffffffffffffffffffffffff offfffffffffffffffffffffffffff

LauReLL 12 Ocak 2012 00:45

Cevap: Koruma kodunda Sorun
 
Ya Kardeşim sen okumuosun ki yazdıklarımı

if $nick isop $chan bunu kullanırsan opları atmaz..
if $nick isvoice $chan bunu kullanırsan voicelerı atmaz.. yukarıdada tek tek hangısı neyı atıyo kım neyı atmıyo yazdım renklendırdım ıyıce okursan anlarsın..

Anladıgım su Opları halfopları voiceleri atmasını ıstemıyorsun..

on *:text:*:#: {
if $nick !isop $chan || $nick !isvoice $chan || $nick !ishop $chan {
var %< = 1 | while (%< <= $lines(küfür.txt)) {
if $read(küfür.txt,%<) iswm $1- {
ban -ku900 # $nick 2 küfür ettin 5 dakika ban }
inc %<
}
}
}

Yukarıdakı Kod Şudur..

Eger op değilse || Eger Voice değilse || eger halfop değilse
küfür.txt dosyasındaki kelimelerden herhangı bırını yazdıysa ban işlemi gercekleşir.. daha nesini anlamadın?

KuL 12 Ocak 2012 00:48

Cevap: Koruma kodunda Sorun
 
Bunu dene ozaman

Kod:

on @*:text:*:#:{
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if $read(küfür.txt,w,$1-) {
    if $me !isop $chan {
      halt
    }
  .ban -ku900 # $nick 2 küfür ettin 5 dakika ban | /msg #bildiri 14 » 4 $nick 14 « 12 $chan 1 odasinda 12 küfür 1 sebebinden atildi. | /msg #bildiri 5 Tespit edilen küfür mesaji: 4 $1- }
}
}

Bu kirmizi ile belirtdigim Kanalarda kim var kim yok hepsi Muaf tutuluyor.
Mavide hangi kanala bildiri gidecegi

LauReLL 12 Ocak 2012 00:51

Cevap: Koruma kodunda Sorun
 
Alıntı:

KaYiPLaRDa Nickli Üyeden Alıntı (Mesaj 1040992406)
Bunu dene ozaman

Kod:

on @*:text:*:#:{
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if $read(küfür.txt,w,$1-) {
    if $me !isop $chan {
      halt
    }
  .ban -ku900 # $nick 2 küfür ettin 5 dakika ban | /msg #bildiri 14 » 4 $nick 14 « 12 $chan 1 odasinda 12 küfür 1 sebebinden atildi. | /msg #bildiri 5 Tespit edilen küfür mesaji: 4 $1- }
}
}

Bu kirmizi ile belirtdigim Kanalarda kim var kim yok hepsi Muaf tutuluyor.
Mavide hangi kanala bildiri gidecegi



Zaten o kanaldakıler Oper oluyo kardeşim (: Ordakılerı banlasada bişi ifade etmez. arkadas op sop halfop vooiceler banlanmasın eger kufru edenler opsa voiceyse halfop sa banlanmasın dıyor yukarıda yazdım ama anlamadı sanırım

XDie 12 Ocak 2012 01:01

Cevap: Koruma kodunda Sorun
 
on *:text:*:#: {
if $nick isop $chan || $nick isvoice $chan || $nick ishop $chan { return }
var %< = 1 | while (%< <= $lines(kufur.txt)) {
if $read(kufur.txt,%<) iswm $1- {
ban -ku900 # $nick 2 küfür ettin 5 dakika ban }
inc %<
}
}


kod bitmek üzere halfop voice ve oplar atılmıyor şimdi tek sorun kimi attıysam kanala yazacak diyelimki ali atıldı

ali küfür ettin 5 dakika banlısın

diye kanalada msj olarak yazacak

KuL 12 Ocak 2012 01:07

Cevap: Koruma kodunda Sorun
 
Alıntı:

XDie Nickli Üyeden Alıntı (Mesaj 1040992422)
kod bitmek üzere halfop voice ve oplar atılmıyor şimdi tek sorun kimi attıysam kanala yazacak diyelimki ali atıldı

ali küfür ettin 5 dakika banlısın

diye kanalada msj olarak yazacak

Bide kod bitmek üzere diyorsunuz? Sinavami sokuyorsunuz siz bizi.


O Kadar Örnek sunduk, birlestirmek o kadarmi Zor ?

Her isi hazirdan beklemek iyi degildir bunu bil lütfen, Aslinda sana yardim etmekle hata yapiyoruz gibi bir His var icimde de neyse. Kolay gelsin

ekle ozaman

ban -ku900 # $nick 2 küfür ettin 5 dakika ban

yerine

ban -ku900 # $nick 2 küfür ettin 5 dakika ban | /msg #Kanal MESAJIN diye

XDie 12 Ocak 2012 01:08

Cevap: Koruma kodunda Sorun
 
kayiplarda zaten 2 gündür uğraşıyorum bakın siz yapmışsınız bende op voiceleri atmamayı buldum tek bir tane kaldi oda kimi attıysam kanala yazacak diyelimki ali atıldı

ali küfür ettin 5 dakika banlısın

diye kanalada msj olarak yazacak


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:42.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk