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/)
-   -   Çözüldü Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak (https://www.ircforumlari.net/mirc-scripting-sorunlari/1024256-bir-kullanicin-konusmasini-karakter-sayisi-ile-sinirlandirmak.html)

manikdepresif 23 Aralık 2023 20:26
Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak
 
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
Cevap: Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042850899)
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:
; 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
Cevap: Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak
 
/*
Komutlar:
!ceza1 nick
!ceza2 nick
!ceza3 nick
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Degistirilebilir ayarlar.
Kod:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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
Cevap: Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak
 
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:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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
Cevap: Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak
 
50 karakter yazarsa agir, 200 karakter yazarsa hafif olmasi lazim

Forbidden 03 Ocak 2024 21:24
Cevap: Bir kullanicin konusmasini karakter sayisi ile sinirlandirmak
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042852816)
50 karakter yazarsa agir, 200 karakter yazarsa hafif olmasi lazim
Evet dogru diyorsun jeun usta onu da düzenledim.

Kod:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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)


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

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