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

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   Cevap: Global kanal Yardımcısı / Bot için. (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/56163-cevap-global-kanal-yardimcisi-bot-icin.html)

Mylife 03 Şubat 2021 14:57

Global kanal Yardımcısı / Bot için.
 
Kod sahibi: Mylife
Tarih: 02 Kasım 2016, 01:15


Kod:

on 1*:text:*:#OPKANALIADI: {
  if ($nick isop #) || ($nick ishop #) {
    if ($regex($1,/^[.!]ban$/Si) && $2) {
      if ($2 ison #GlobalkanalAdı) {
        mode #GlobalkanalAdı +b $2
        kick #GlobalkanalAdı $2 $3-
        msg # $2 #GlobalkanalAdı kanalından atıldı.
      }
    }
  }
  if ($regex($1,/^[.!]unban$/Si) && $2) {
    if ($nick ishop #) || ($nick ishop #) {
      mode #GlobalKanalAdı -b $2
      msg # $2 rumuzu banı kaldırıldı.
    }
  }
  else if $regex($1,/^[.!]voice$/Si) {
    mode #GlobalKanalAdı +v $2
    msg # $2 voice aldı.
  }
  else if $regex($1,/^[.!]devoice$/Si) {
    mode #GlobalKanalAdı -v $2
    msg # $2 devoice edildi.
  }
  else if $regex($1,/^[.!]uyar$/Si) {
    msg #GlobalKanalAdı $2 lütfen kullanıcıları rahatsız etmeyin.
    msg # $2 rumuzuna uyarı yapıldı.
  }
  else if $regex($1,/^[.!]otovoice$/Si) {
    if (!$2) { msg # hatalı kullanım nick belirtin | return }
    else {
      write otovoice.txt $2
      msg # $2 oto voice listesine eklendi.
    }
  }
  else if $regex($1,/^[.!]otolist$/si) {
    otokontrl $nick $chan
  }
  else if $regex($1,/^[.!]notekle$/Si) {
    if (!$2) { msg # hatalı kuallanım mesaj giriniz. | return }
    else {
      write haberleer.txt Not sahibi: $nick Mesajı: $2-
      memoserv send FOUNDERNİCKİBURAYA Notunuz var: $nick Mesajı: $2-
      msg # notunuz gönderildi.
    }
  }
  else if $regex($1,/^[.!]notlist$/Si) {
    if ($nick != FOUNDERNİCKİBURAYA) { msg # yetkili değilsiniz | return }
    else {
      notlst $nick $chan
    }
  }
  else if $regex($1,/^[.!]voicesil$/Si) {
    if (!$2) { msg # nick belirtin | return }
    if !$read(otovoice.txt,w,$2) { msg # Oto voice listesinde bulunamadı | return }
    else {
      write $+(-dl,$readn) otovoice.txt
      msg # $2 oto voice listesinden silindi.
    }
  }
  else if $regex($1,/^[.!]notsil$/Si) {
    if (!$2) { msg # hatalı kullanım numara belirtin. | return }
    if ($nick != FOUNDERNİCKİBURAYA) { msg # yetkili değilsiniz | return }
    else {
      write $+(-dl,$2) haberleer.txt
      msg # $2 numaralı haber silindi.
    }
  }
  else if $regex($1,/^[.!]kanalkapat$/Si) {
    mode #GlobalKanalAdı +m
    msg # Kanal konuşmaya kapatıldı.
  }
  else if $regex($1,/^[.!]kanalaç$/Si) {
    mode #GlobalKanalAdı -m
    msg # Kanal konuşmaya açıldı.
  }
  else if $regex($1,/^[.!]komutlar$/Si) {
    msg # #GlobalKanalAdı kanalı kullanılabilir komut listesi...
    msg # Kullanıcı ban+kick atmak için: .ban nick
    msg # Kullanıcı banı acmak için: .unban nick
    msg # Kullanıcı voice vermek için: .voice nick
    msg # Kullanıcı voice almak için: .devoice nick
    msg # Rahatsızlık veren kullanıcı uyarmak için: .uyar nick
    msg # Kullanıcı oto voice listesine eklemek için: .otovoice nick
    msg # Kullanıcı oto voice listesinden cıkarmak için: .voicesil
    msg # Oto voice listesine bakmak için: .otolist
    msg # Kanal Founder'ine Mesaj/Not göndermek için: .notekle mesaj
    msg # Gönderilen Mesaj/Not ları listelemek için: .notlist (sadece founder için)
    msg # Gönderilmiş olan Mesaj/Not ları silmek için: .notsil numara (sadece founder için)
    msg # Kanalı konuşmaya kapatmak için: .kanalkapat
    msg # Kanalı konuşmaya açmak için: .kanalaç
  }
}
alias otokontrl {
  if $lines(otovoice.txt) = 0 { msg $2 Oto voice listesinde kimse yok. }
  var %kod 1
  while %kod <= $lines(otovoice.txt) {
    msg # %kod $+ - $read(otovoice.txt,%kod)
    inc %kod
  }
}
alias notlst {
  if $lines(haberleer.txt) = 0 { msg $2 Herhangi bir haber bulunmuyor. }
  var %kod 1
  while %kod <= $lines(haberleer.txt) {
    msg # %kod $+ - $read(haberleer.txt,%kod)
    inc %kod
  }
}
on 1*:join:#GlobalKanalAdı: {
  if $read(otovoice.txt,w,$nick) {
    mode # +v $nick
  }
}

Kullanıcı isteği üzerine hazırlamış olduğum bir çalışma mutlaka işinize yarıyacaktır...
  • Kırmızı ile belirttiğim yerleri kendinize göre ayarlamanız yeterli olucaktır.
  • Global kanal yerine Global kanalın adını yazmalısınız.
  • OP kanalı yazan yere Global kanalın OP kanalı adını yazmalısınız.
  • Founder nick i yazan yere founder nick ini yazmalısınız.
  • Tamamen OP kanalından kontrol edip yonlendiriceksiniz.
  • Geliştirilebilir, çok ayrıntılı üzerinde durmadım herhangi bir talep doğrultusunda yardımcı olabilirim.
Kullanabiliceğiniz komutların listesini görmek için: .komutlar

[01:12:49] <Mircsystem> #deneme kanalı kullanılabilir komut listesi...
[01:12:49] <Mircsystem> Kullanıcı ban+kick atmak için: .ban nick
[01:12:49] <Mircsystem> Kullanıcı banı acmak için: .unban nick
[01:12:49] <Mircsystem> Kullanıcı voice vermek için: .voice nick
[01:12:49] <Mircsystem> Kullanıcı voice almak için: .devoice nick
[01:12:49] <Mircsystem> Rahatsızlık veren kullanıcı uyarmak için: .uyar nick
[01:12:49] <Mircsystem> Kullanıcı oto voice listesine eklemek için: .otovoice nick
[01:12:49] <Mircsystem> Kullanıcı oto voice listesinden cıkarmak için: .voicesil
[01:12:49] <Mircsystem> Oto voice listesine bakmak için: .otolist
[01:12:49] <Mircsystem> Kanal Founder'ine Mesaj/Not göndermek için: .notekle mesaj
[01:12:49] <Mircsystem> Gönderilen Mesaj/Not ları listelemek için: .notlist (sadece founder için)
[01:12:51] <Mircsystem> Gönderilmiş olan Mesaj/Not ları silmek için: .notsil numara (sadece founder için)
[01:12:53] <Mircsystem> Kanalı konuşmaya kapatmak için: .kanalkapat
[01:12:54] <Mircsystem> Kanalı konuşmaya açmak için: .kanalaç

WildCat 03 Şubat 2021 15:02

emiginize saglik

1903 03 Şubat 2021 15:04

Emeğine Sağlık

Sim 06 Şubat 2021 19:51

emegine sagliiiik

She 06 Şubat 2021 20:01

Emeğinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mylife 06 Şubat 2021 20:06

Alıntı:

YouLosT Nickli Üyeden Alıntı (Mesaj 340403)
emiginize saglik

Alıntı:

1903 Nickli Üyeden Alıntı (Mesaj 340407)
Emeğine Sağlık

Alıntı:

Sim Nickli Üyeden Alıntı (Mesaj 345010)
emegine sagliiiik

Alıntı:

She Nickli Üyeden Alıntı (Mesaj 345015)
Emeğinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Teşekkür ederim, işinize yarar umarım.

oMeN 09 Şubat 2021 18:07

Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mylife 11 Şubat 2021 13:59

Alıntı:

oMeN Nickli Üyeden Alıntı (Mesaj 349501)
Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Teşekkürler umarım işinize yarar.

Reyhan 07 Mart 2021 13:31

Emeğinize sağlık

Ruyanur 04 Nisan 2021 02:51

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


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Copyright ©2019 - 2023 | IRCRehberi