Çözüldü Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

manikdepresif · 23 Aralık 2023, 20:26

merhaba,
Kanalda belirli olan bir kullanicinin konusmasini ona belli bir karakter sayisi vererek sinirlandirmak istiyorum.
Bu 24 saat gecerli olacak ve atilan ban baskasi tarafindan acilmayacak.(24 saat sonunda ban bot tarafindan acilacak)
-
ornek olarak 3 tane limit koyacam
!limit1 nick -> 500 karakter
!limit2 nick -> 1000 karakter
!limit3 nick -> 1500 karakter
-
Bu karakter sayisini astigi zaman otomatik olarak kod hostuna ban atacak. 24 saati doldurdugu zaman ban acilacak.

-
Boyle bir kodu daha once gormedim.
-

Merakli arkadaslar icin iyi bir calisma olacagini dusunuyorum.
-
Kolay gelsin.

OperServ · 23 Aralık 2023, 21:42

manikdepresif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

merhaba,
Kanalda belirli olan bir kullanicinin konusmasini ona belli bir karakter sayisi vererek sinirlandirmak istiyorum.
Bu 24 saat gecerli olacak ve atilan ban baskasi tarafindan acilmayacak.(24 saat sonunda ban bot tarafindan acilacak)
-
ornek olarak 3 tane limit koyacam
!limit1 nick -> 500 karakter
!limit2 nick -> 1000 karakter
!limit3 nick -> 1500 karakter
-
Bu karakter sayisini astigi zaman otomatik olarak kod hostuna ban atacak. 24 saati doldurdugu zaman ban acilacak.

-
Boyle bir kodu daha once gormedim.
-

Merakli arkadaslar icin iyi bir calisma olacagini dusunuyorum.
-
Kolay gelsin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

; Limit komutları
on *:TEXT:!limit*:#kanal:{
  var %limit = $replace($gettok($1-,2,32),%)
  var %nick = $gettok($1-,1,32)
  if (%limit isnum 1-5) && ($ial(%nick,0)) {
    set %limit_%nick %limit
    msg #kanal * $+(%nick, ' kullanıcısının karakter limiti, %limit karakter olarak ayarlandı.')
  }
}

; Kanalda metin gönderildiğinde kontrol etme ve ban işlemi
on *:TEXT:*:#kanal:{
  var %nick = $nick
  if ($ial(%nick,0)) && ($($+(%,limit_,$nick),2) > 0) && ($len($1-) > $+(%,limit_,$nick)) {
    ban -ku2400 #kanal $nick $+(Karakter limitini aştı: , $($+(%,limit_,$nick),2))
    ; 24 saat sonra banın otomatik olarak kaldırılması
    .timer $+($nick,removeban) 1 1s ban -r #kanal $nick
  }
}

Bu kod, belirli kullanıcıların belirli karakter sınırlamaları içinde mesaj gönderebileceği bir limit oluşturur Kullanıcılar !limit1 nick, !limit2 nick, !limit3 nick komutları ile karakter sınırlamalarını belirleyebilirler. Ardından, bu sınırları aşan kullanıcılar otomatik olarak belirli bir süreliğine yasaklanır ve belirtilen süre (burada 24 saat) sonra yasağın otomatik olarak kaldırılması sağlanır

manikdepresif · 30 Aralık 2023, 22:58

/*
Komutlar:
!ceza1 nick
!ceza2 nick
!ceza3 nick
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Degistirilebilir ayarlar.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kodun calisacagi kanallar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias cezakanallar return #mirchelp,#sohbet,#felsefe,#radyo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
;Ceza aktif hale geldiginde uygulayabilecegi Karakter sayisi bir deger girilmelidir.
alias -l ceza1karakter return 50
alias -l ceza2karakter return 100
alias -l ceza3karakter return 200
;Karakter Sayisini Astiginda Saniye cinsinden bir deger girilmelidir.
alias -l ceza1sure return 50
alias -l ceza2sure return 100
alias -l ceza3sure return 200
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:Text:*:$($cezakanallar):{
  if ?ceza* iswm $1  {
    if !$nick($chan,$nick,.~&@%).pnick { return }
    if ($2 !ison $chan) { notice $nick > Ceza uygulanacak nick kanalda degil ! | return  }
    if $nick($chan,$2,.~&@%).pnick { notice $nick > Kanal Operatorlerine ceza veremezsiniz ! |  return }
    if !$2 {  notice $nick > Ceza alacak nicki belirtmediniz ! | return }
    if (?ceza1 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza1karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza1sure
      msg # > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi $ceza1karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza1sure))
      return
    }
    if (?ceza2 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza2karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza2sure
      msg #  > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi $ceza2karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza2sure))
      return
    }
    if (?ceza3 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza3karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza3sure
      msg #  > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi  $ceza3karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza3sure))
      return
    }
  }
  if $eval($+(%,cezalinick-,$nick,-,$chan),2)  { 
    dec -e  $+(%,cezalinick-,$nick,-,$chan) $len($strip($1-))
    if ($v1 <= 0)  {
      ban -u $+ $eval($+(%,cezalinicksure-,$nick,-,$chan),2) $chan  $nick 2 
      msg # > $nick , Nickinize uygulanan ceza aktif hale getirildi ve konusmaniz $zcvr($duration($eval($+(%,cezalinicksure-,$nick,-,$chan),2))) sure ile  engellendi.
      unset $+(%,cezalinick-,$nick,-,$chan) $+(%,cezalinicksure-,$nick,-,$chan)
    }
  }
}
alias zcvr return $replace($1-,secs, sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)

Forbidden · 31 Aralık 2023, 00:41

Hatalar düzeltildi.

Kodun amacı belirli bir kanalda belirli kişilere ceza kodu.
ceza hafiften agıra dogru ilerliyor.

Komutlar;

!ceza1 nick
50 karakter yazarsa 50 saniye ceza alır.
!ceza2 nick
100 karakter yazarsa 100 saniye ceza alır.
!ceza3 nick
200 karakter yazarsa 200 saniye ceza alır.

Not:Ceza saniyeleri ve karakter sayısı degiştirilebilir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kodun calisacagi kanallar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias cezakanallar return #mirchelp,#sohbet,#felsefe,#radyo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
;Ceza aktif hale geldiginde uygulayabilecegi Karakter sayisi bir deger girilmelidir.
alias -l ceza1karakter return 50
alias -l ceza2karakter return 100
alias -l ceza3karakter return 200
;Karakter Sayisini Astiginda Saniye cinsinden bir deger girilmelidir.
alias -l ceza1sure return 50
alias -l ceza2sure return 100
alias -l ceza3sure return 200
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:Text:*:$($cezakanallar):{
  if ?ceza* iswm $1  {
    if ($2 !ison $chan) { notice $nick > Ceza uygulanacak nick kanalda degil ! | return  }
    if $nick($chan,$2,.~&@%).pnick { notice $nick > Kanal Operatorlerine ceza veremezsiniz ! |  return }
    if !$2 {  notice $nick > Ceza alacak nicki belirtmediniz ! | return }
    if (?ceza1 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza1karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza1sure
      msg # > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi $ceza1karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza1sure))
      return
    }
    if (?ceza2 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza2karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza2sure
      msg #  > $2 nicki icin !ceza2 [Orta Ceza] komutu uygulandi. Maksimum yazacagi $ceza2karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza2sure))
      return
    }
    if (?ceza3 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza3karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza3sure
      msg #  > $2 nicki icin !ceza3 [Agir Ceza] komutu uygulandi. Maksimum yazacagi  $ceza3karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza3sure))
      return
    }
  }
  if $eval($+(%,cezalinick-,$nick,-,$chan),2)  { 
    dec -e  $+(%,cezalinick-,$nick,-,$chan) $len($strip($1-))
    if ($v1 <= 0)  {
      ban -u $+ $eval($+(%,cezalinicksure-,$nick,-,$chan),2) $chan  $nick 2 
      mode $chan -v $nick      
      msg # > $nick , Nickinize uygulanan ceza aktif hale getirildi ve konusmaniz $zcvr($duration($eval($+(%,cezalinicksure-,$nick,-,$chan),2))) sure ile  engellendi.
      unset $+(%,cezalinick-,$nick,-,$chan) $+(%,cezalinicksure-,$nick,-,$chan)
    }
  }
}
alias zcvr return $replace($1-,secs, sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)

manikdepresif · 31 Aralık 2023, 14:56

50 karakter yazarsa agir, 200 karakter yazarsa hafif olmasi lazim

Forbidden · 03 Ocak 2024, 21:24

manikdepresif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

50 karakter yazarsa agir, 200 karakter yazarsa hafif olmasi lazim

Evet dogru diyorsun jeun usta onu da düzenledim.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kodun calisacagi kanallar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias cezakanallar return #mirchelp,#sohbet,#felsefe,#radyo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
;Ceza aktif hale geldiginde uygulayabilecegi Karakter sayisi bir deger girilmelidir.
alias -l ceza1karakter return 200
alias -l ceza2karakter return 100
alias -l ceza3karakter return 50
;Karakter Sayisini Astiginda Saniye cinsinden bir deger girilmelidir.
alias -l ceza1sure return 50
alias -l ceza2sure return 100
alias -l ceza3sure return 200
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:Text:*:$($cezakanallar):{
  if ?ceza* iswm $1  {
    if ($2 !ison $chan) { notice $nick > Ceza uygulanacak nick kanalda degil ! | return  }
    if $nick($chan,$2,.~&@%).pnick { notice $nick > Kanal Operatorlerine ceza veremezsiniz ! |  return }
    if !$2 {  notice $nick > Ceza alacak nicki belirtmediniz ! | return }
    if (?ceza1 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza1karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza1sure
      msg # > $2 nicki icin !ceza1 [Hafif Ceza] komutu uygulandi. Maksimum yazacagi $ceza1karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza1sure))
      return
    }
    if (?ceza2 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza2karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza2sure
      msg #  > $2 nicki icin !ceza2 [Orta Ceza] komutu uygulandi. Maksimum yazacagi $ceza2karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza2sure))
      return
    }
    if (?ceza3 iswm $1) {
      set $+(%,cezalinick-,$2,-,$chan)  $ceza3karakter
      set  $+(%,cezalinicksure-,$2,-,$chan)  $ceza3sure
      msg #  > $2 nicki icin !ceza3 [Agir Ceza] komutu uygulandi. Maksimum yazacagi  $ceza3karakter karakter asarsa uygulanacak ban suresi  $zcvr($duration($ceza3sure))
      return
    }
  }
  if $eval($+(%,cezalinick-,$nick,-,$chan),2)  { 
    dec -e  $+(%,cezalinick-,$nick,-,$chan) $len($strip($1-))
    if ($v1 <= 0)  {
      ban -u $+ $eval($+(%,cezalinicksure-,$nick,-,$chan),2) $chan  $nick 2 
      mode $chan -v $nick      
      msg # > $nick , Nickinize uygulanan ceza aktif hale getirildi ve konusmaniz $zcvr($duration($eval($+(%,cezalinicksure-,$nick,-,$chan),2))) sure ile  engellendi.
      unset $+(%,cezalinick-,$nick,-,$chan) $+(%,cezalinicksure-,$nick,-,$chan)
    }
  }
}
alias zcvr return $replace($1-,secs, sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çözüldü Kayitsiz nicklerin kanalda konusmasini gormek istemiyorum	manikdepresif	mIRC Scripting Sorunları	7	27 Kasım 2023 22:17
Kahraman Tazeoğlu – Git Harf Harf Tümcelerimden. . .	Sevda	Şiir, Hikaye ve Güzel Sözler	0	04 Aralık 2010 09:02
Büyük Harf , Harf Uzatma Uyarı Admin Ve opları uyarmısın Yardim Edin..	eRCi	mIRC Scripting Sorunları	3	04 Kasım 2010 14:22
Büyük Harf / Uzun Harf / Tekrar Harf -Uyarı/koruma	diyorumki	mIRC Scripting Sorunları	0	06 Ekim 2010 17:22
2 harf ident 2 harf username	paLe	mIRC Scripting Sorunları	13	16 Haziran 2008 11:31

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.