IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
derya sohbet


mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

12Beğeni(ler)
  • 3 Post By Forbidden
  • 2 Post By DişiPars
  • 1 Post By ArDa
  • 1 Post By ZeyNa
  • 2 Post By Ardanl_
  • 2 Post By Forbidden
  • 1 Post By Brittle


 
 
Seçenekler Stil
Alt 06 Ocak 2024, 03:16   #1
Standart Büyük harf yazana önce ban sonra ceza

Başlıkta yazdıgı gibi ilk harf büyükse önce ban atar ban süresi biterse devam ederse uyarır devam ederse shun atar.

Not: Yetkililer ve karakterler muaftır.

Kod kullanmak istemeyenler spam ekleyebilir.


Kod

on *:text:*:#mirchelp: {
  if $nick($chan,$nick,.~&@%).pnick { return }
  if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
  if $isupper($karaktertemizle($strip($1-))) {
    inc -u300 $+(%,BüyükHarfUyarı.,$nick)
    if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
  }
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
    $chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
    $chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
    $chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
    $chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}
________________

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alt 08 Ocak 2024, 15:22   #2
Standart

emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] liderim
aklıma sunucudaki BÜLENT geldi. sürekli büyük harf yazan o kişi. ))
Bu kod ile o ve onun gibiler için

________________

 
Alt 08 Ocak 2024, 15:53   #3
Standart

Alıntı:
DişiPars Nickli Üyeden Alıntı Mesajı göster
emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] liderim
aklıma sunucudaki BÜLENT geldi. sürekli büyük harf yazan o kişi. ))
Bu kod ile o ve onun gibiler için
Bizim sunucuyada gelir büyük harfle yazar yazar bişey demeden gider

________________

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alt 08 Ocak 2024, 16:04   #4
Standart

Emeğinize sağlık, paylaşım için teşekkürler

 
Alt 08 Ocak 2024, 16:07   #5
Standart

Emeğine sağlık ama özel isimler ve kelime başlangıçları büyük harf ile başlamalı sürekli büyük harf kullanan için geçerli olsa daha güzel olmaz mı ?

________________

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

Konu Ardanl_ tarafından (08 Ocak 2024 Saat 16:21 ) değiştirilmiştir..
 
Alt 08 Ocak 2024, 21:07   #6
Standart

Alıntı:
Ardanl_ Nickli Üyeden Alıntı Mesajı göster
Emeğine sağlık ama özel isimler ve kelime başlangıçları büyük harf ile başlamalı sürekli büyük harf kullanan için geçerli olsa daha güzel olmaz mı ?
@Ardanl öncelikle merhaba yukarıda açıklama kısmında ilk harf büyükse önce ban atar yazmışım yanlış demişim orada dogrusu ilk kelime büyükse ban atar.

Örnek;

Kod

[20:54:27] <BoZo> Selam bu bir denemedir
[20:54:29] <BoZo> Selam bu bir denemedir
[20:54:31] <BoZo> Selam bu bir denemedir
[20:54:33] <BoZo> -
[20:54:35] <BoZo> SELAM bu bir denemedir
[20:54:36] <BoZo> SELAM bu bir denemedir
[20:54:36] <&Forbidden> BoZo Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir.
[20:54:36] * Forbidden mod değiştirdi:+b BoZo!*Unknown@55.62.34B5640F.IP
Kod-1 1. Kelimeyi baz alır ve işlem yapar.

Kod

on *:text:*:#mirchelp: {
  if $nick($chan,$nick,.~&@%).pnick { return }
  if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
  if $isupper($karaktertemizle($strip($1))) {
    inc -u300 $+(%,BüyükHarfUyarı.,$nick)
    if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
  }
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
    $chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
    $chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
    $chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
    $chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}
1. de yazıldıgında işlem yapmaz 2. yazıldıgında işlem yapar. ama diyelim ki NİCK büyük ve bu şekilde yazılacak o zaman kod degiştirilmesi gerekiyor. 1 kelime baz alma 2 kelimeyi baz al ve işlem yap. Oda şu şekilde olur.

Bu kısmı;

Kod

  if $isupper($karaktertemizle($strip($1))) {
Bu şekilde değiştiriyoruz;

Kod

  if $isupper($karaktertemizle($strip($2))) {
Sonuç;

Kod

[21:01:13] <BoZo> ARDA orda mısın bu bir deneme
[21:01:14] <BoZo> ARDA orda mısın bu bir deneme
[21:01:15] <BoZo> ARDA orda mısın bu bir deneme
[21:01:16] <BoZo> -
[21:01:20] <BoZo> Arda ORDA mısın bu bir deneme
[21:01:21] <BoZo> Arda ORDA mısın bu bir deneme
[21:01:21] <&Forbidden> BoZo Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir.
[21:01:21] * Forbidden mod değiştirdi:+b BoZo!*Unknown@55.62.34B5640F.IP
Kod-2 2. Kelimeyi baz alır ve işlem yapar.

Kod

on *:text:*:#mirchelp: {
  if $nick($chan,$nick,.~&@%).pnick { return }
  if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
  if $isupper($karaktertemizle($strip($2))) {
    inc -u300 $+(%,BüyükHarfUyarı.,$nick)
    if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
  }
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
    $chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
    $chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
    $chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
    $chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}

________________

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alt 08 Ocak 2024, 22:15   #7
Standart

Alıntı:
Forbidden Nickli Üyeden Alıntı Mesajı göster
@Ardanl öncelikle merhaba yukarıda açıklama kısmında ilk harf büyükse önce ban atar yazmışım yanlış demişim orada dogrusu ilk kelime büyükse ban atar.

Örnek;

Kod

[20:54:27] <BoZo> Selam bu bir denemedir
[20:54:29] <BoZo> Selam bu bir denemedir
[20:54:31] <BoZo> Selam bu bir denemedir
[20:54:33] <BoZo> -
[20:54:35] <BoZo> SELAM bu bir denemedir
[20:54:36] <BoZo> SELAM bu bir denemedir
[20:54:36] <&Forbidden> BoZo Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir.
[20:54:36] * Forbidden mod değiştirdi:+b BoZo!*Unknown@55.62.34B5640F.IP
Kod-1 1. Kelimeyi baz alır ve işlem yapar.

Kod

on *:text:*:#mirchelp: {
  if $nick($chan,$nick,.~&@%).pnick { return }
  if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
  if $isupper($karaktertemizle($strip($1))) {
    inc -u300 $+(%,BüyükHarfUyarı.,$nick)
    if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
  }
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
    $chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
    $chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
    $chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
    $chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}
1. de yazıldıgında işlem yapmaz 2. yazıldıgında işlem yapar. ama diyelim ki NİCK büyük ve bu şekilde yazılacak o zaman kod degiştirilmesi gerekiyor. 1 kelime baz alma 2 kelimeyi baz al ve işlem yap. Oda şu şekilde olur.

Bu kısmı;

Kod

  if $isupper($karaktertemizle($strip($1))) {
Bu şekilde değiştiriyoruz;

Kod

  if $isupper($karaktertemizle($strip($2))) {
Sonuç;

Kod

[21:01:13] <BoZo> ARDA orda mısın bu bir deneme
[21:01:14] <BoZo> ARDA orda mısın bu bir deneme
[21:01:15] <BoZo> ARDA orda mısın bu bir deneme
[21:01:16] <BoZo> -
[21:01:20] <BoZo> Arda ORDA mısın bu bir deneme
[21:01:21] <BoZo> Arda ORDA mısın bu bir deneme
[21:01:21] <&Forbidden> BoZo Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir.
[21:01:21] * Forbidden mod değiştirdi:+b BoZo!*Unknown@55.62.34B5640F.IP
Kod-2 2. Kelimeyi baz alır ve işlem yapar.

Kod

on *:text:*:#mirchelp: {
  if $nick($chan,$nick,.~&@%).pnick { return }
  if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
  if $isupper($karaktertemizle($strip($2))) {
    inc -u300 $+(%,BüyükHarfUyarı.,$nick)
    if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
    elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
  }
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
    $chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
    $chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
    $chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
    $chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}

Merhabalar böylesi çok daha güzel bende bunu demek istemiştim emeğinize sağlık paylaşım için teşekkür ederim

________________

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alt 09 Ocak 2024, 09:10   #8
Editör
Brittle - ait Kullanıcı Resmi (Avatar)

Standart

Emeğinize sağlık

________________

Tecrübe çok acımasız bir öğretmendir;
Önce sınavı yapar, Dersi sonra öğretir..
 


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı





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