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

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

- - cinsel kanal koruması yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/167468-cinsel-kanal-korumasi-yardim.html)

Cevap: cinsel kanal koruması yardım

Kanal menu'sünü takip edersiniz.

Kod:

#cinselkoruma off

on @*:join:#:.enable #whoisacarmısın | set -e %channels $chan | whois $nick | .timer -h 1 1500 .disable #whoisacarmısın

#cinselkoruma end

#whoisacarmısın off

raw 319:*: {

  var %jnk 1

  while $ulist(*,badkanal,%jnk) {

    if $ifmatch isin $remove($3-,$chr(58),+,%,@,&,~) { 

      ban -k %channels $2 2 Cinsel kanalda bulunduğunuz tespit edildi.

    }

    inc %jnk 

  }

}

#whoisacarmısın end

alias cinselkanal if $dialog(BadKanal) == $null dialog -m BadKanal BadKanal

dialog BadKanal {

  title "Cinsel Kanal giriş koruma"

  size -1 -1 200 265 

  button "Tamam", 1, 110 200 70 20,ok

  list 2, 10 20 180 135, sort 

  box "Cinsel Kanal", 3, 5 5 190 145 

  edit "#", 4, 10 165 180 20, autohs

  box "Eklenecek #kanal 'ı girin", 5, 5 150 190 45

  button "Ekle", 6, 20 200 70 20

  box "Not:", 7, 5 225 190 35 

  text "Silmek için #kanala çift tıklayın", 8, 25 240 180 45 

}

on *:dialog:BadKanal:dclick:2:{ .ruser badkanal $did(2).seltext | did -d BadKanal 2 $did(2).sel }

on *:dialog:BadKanal:sclick:6:{ if ($did(4) != $null) { did -a BadKanal 2 $did(4) | .auser badkanal $did(4) | did -fr BadKanal 4 } }

on *:dialog:BadKanal:init:*:{ 

  if ($ulist(*,badkanal,0) != $null) { 

    set %cinsel 0

    while (%cinsel < $ulist(*,badkanal,0)) { 

      inc %cinsel 1 

      did -a BadKanal 2 $ulist(*,badkanal,%cinsel) 

    } 

    unset %cinsel 

  } 

} 

menu channel {

  .-

  .Cinsel Kanal Korumaları

  ..Korumayı Devreye Al !:.enable #cinselkoruma | .echo -a 0,4 Cinsel İçerikli Kanal Korumaları Devrede

  ..Korumayı Devre Dışı Bırak !:.disable #cinselkoruma | .echo -a 0,4 Cinsel İçerikli Kanal Korumaları Devre Dışı

  ..Cinsel Kanal Ekle-Çıkar !:cinselkanal

  ..Cinsel Kanal Tarama:cinseltara

  .-

}

alias cinseltara {

  if $me isop $active {

    msg $active Cinsel kanal taraması yapılıyor...

    set -e %channels $active 

    .enable #whoisacarmısın

    .disable #cinselkoruma

    .timer 1 15 .disable #whoisacarmısın $(|) unset %channels $(|) .enable #cinselkoruma

    var %cnk 1

    while %cnk <= $nick(%channels,0) {

      if $me != $nick(%channels,%cnk) { whois $nick(%channels,%cnk) }

      inc %cnk

    }

  }

}

Tarama yapacağınız kanaldaki nick sayısı aşırı fazlaysa,mirciniz sorun yaşayabilir...

Cevap: cinsel kanal koruması yardım

merhabalar yeniden umarım iyisinizdir arkadaşlar

menu status,channel {
.-
.Cinsel Kanal Korumaları
..Korumayı Devreye Al !:.enable #whoisaclan | .echo -a 0,4 Cinsel İçerikli Kanal Korumaları Devrede
..Korumayı Devre Dışı Bırak !:.disable #whoisaclan | .echo -a 0,4 Cinsel İçerikli Kanal Korumaları Devre Dışı
.-
}
#whoisaclan off
on @*:join:#:whois $nick
raw 319:*: { if (*** isin $1- ) || (cinsellik isin $1- ) || (gay isin $1- ) || (lezbiyen isin $1- ) || (evli isin $1- ) || (bayan isin $1- ) { var %x = $comchan($2,0)
{ if ($me isop $comchan($2,%x)) { ban -u200 $comchan($2,%x) $2
.kick # $comchan($2,%x) $2 10 Cinsel İçerikli Kanallarda Bulunduğunuz İçin Bu Kanala Girişiniz Süresiz Olarak Engellenmiştir. } | dec %t } } }
#whoisaclan end

bu koda şöyle bir şey eklenebilirmi örneğin ben kanala girdiğimde kanalda op konumuna çıktığımda küçük bir panel çıkacak ve panelde şşöyle bir şey yazacak

op konumuna geçtiniz cinsel içerikli kanal koumalarınız açılsınmı

Evet Hayır

böyle bir panel çıkacak ve eveti seçersem açılacak hayırı seçersem açılmayacak olabilirmi sizce?

Cevap: cinsel kanal koruması yardım

Merhaba DenperaS ,

Kod:

on *:op:#:if $opnick == $me { .timeronay 1 1 onaylama }

alias -l onaylama { 

  $iif($input(Cinsel kanal koruması açılsınmı?,y,Onay bekleniyor...) == $true,.enable #whoisaclan,.disable #whoisaclan)

}

@ konumuna her geçtiğinde soracaktır.Şunuda ilave edersen Deop konumuna geçtiğinde koruma kapalı konuma geçecektir:

Kod:

on *:deop:#:if $opnick == $me { .disable #whoisaclan }

İyi forumlar...

Cevap: cinsel kanal koruması yardım

merhaba difuzyon emeğine sağlık çok güzel oldu lakin bi kanal için bir kere yapılabilirmi bu örneğin ben her kanala girdiğimde op olduğumda çıkıyor burası tamam deop olup tekrar op olduğumda gene çıkıyor acaba bi kanal için bir kere yapılabilirmi bu. kanala girişte op olduğumda sorsun hayır veya evet dersem başka bir şekilde çıkmasın ama ben hayır ddiğimde deop oluyorum sonra opa çıktığımda tekrar soruyor bir kereliğine ayarlayabilirmiyiz?

Cevap: cinsel kanal koruması yardım

Kod:

on me:*:join:#:set -eu3 %chan.name $chan | .timeronay 1 1 onaylama 

alias -l onaylama { 

  if $me isop %chan.name {

    $iif($input(Cinsel kanal koruması açılsınmı?,y,Onay bekleniyor...) == $true,.enable #whoisaclan,.disable #whoisaclan)

  }

}

Şöyle yapalım o zaman , önceki OP DEOP olayını iptal edelim.
Çünkü kod içerisinde zaten "on @*:join:#:whois $nick" @ durumunda çalışacak ibaresi var.Şimdiki verdiğimi eklediğinde:
Sen #kanal'a giriş yaptıktan 1 sn sonra şayet kanal @ konumundaysan senden onay isteyecektir.
Bu daha makul bence...

İyi forumlar.

Cevap: cinsel kanal koruması yardım

evet senin dediğin daha mantıklı zaten aç kapa var cinsel kanal korumasında tşk ederim difuzyon :)

Cevap: cinsel kanal koruması yardım

başka bir konu açıp konu masrafı olasını istemediğim için yeniden buraya yazıyorum buna benzer bir durum olduğundan. difuzyon peki bunu aynı şekilde giriş çıkışlara uygulayabilirmiyiz örnek olarak
kanala girildiğinde op olduğunda cinsel içerikli kanal a uyguladığımız gibi lakin bu uyarıda şöyle bir şey olabilirmi. kanala giren ve çıkanları afarklı bir pencerede görmek istermisiniz. evet dediğimizde kanal geneline girenleri göstermeyecek yeni bir pencereye atacak ve orada giren çıkanlar görünecek ve şu şekilde

#Sohbet Giriş Yapan: Denperas İp:
#Sohbet Çıkış Yapan: Denperas İp:
#sohbetci Giriş Yapan: Denperas İp:
#sohbetci Çıkış Yapan: Denperas İp:

pencereye bu şekilde aktarma yapabilirmiyiz.

birde fazla kod istediğimin farkındayım lakin sayenizde yapamayacağıma inandığım şeyleri yapmaya başladım ve sizden aldığım kodları geliştirmeye çalışıyorum bazen yapıyorum bazen yapamıyorum ama bir gerçektirki sizlerin sayesinde bir şeyler yapabiliyorum üzerimde hakkınız vardır coder abilerim hakkınızı helal edin. kolay gelsin

şiii öyle hemen mahsunluk göstergesi yapmayın daha çok kod isteyecem sizden :D