IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Oper/Admin Ceza Ekle/Sil/Listele (https://www.ircforumlari.net/mirc-parca-kodlar/983008-oper-admin-ceza-ekle-sil-listele.html)

Mylife 04 Temmuz 2022 23:04
Oper/Admin Ceza Ekle/Sil/Listele
 
Kod:
on *:text:*:#opers: {
  set -u30 %:a $calc($replace($date,/,.) + $3) $+ .2022
  if $regex($1-,/^[\.!]cezalist/Si) && ($read(cezalist.txt) == $null) {
    msg # Herhangi bir Oper/Admin ceza almamış.
  }
  elseif $regex($1-,/^[\.!]cezasil/Si) && $read(cban.txt,nt,$2) {
    write $+(-dl,$readn) cezalist.txt
    write $+(-dl,$readn) cban.txt
    msg # $2 nickine verilen ceza kaldırıldı.
  }

  elseif $regex($1-,/^[\.!]cezalist/Si) {
    msg # Oper/Admin ceza listesi sıralanıyor.
    .play # cezalist.txt 2000
  }
  if $regex($1-,/^[\.!]cezaekle/Si) {
    if (!$2) {
      msg # hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
    }
    elseif !$istok(Mylife wrath nick 3 nick 4 nick5,$nick,32) {
      msg # Oper/admin ceza eklemek için yetkili değilsiniz.
    }
    elseif ($2 !ison #Opers) {
      msg # Üzgünüm $qt($2) #opers kanalında bulunmuyor.
    }
    elseif (!$regex($3,/\d+?/i)) {
      msg # Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
    }
else {  msg #  $2 nickine $3 gün $4- sebebi ile ceza eklendi. | .kill $2 reconnect | write cban.txt $2 | write cezalist.txt $2 - $4- sebebi ile $3 gün ceza eklenmiştir. Ceza ekleyen: $nick Bitiş süresi: %:a } } }
on ^*:join:#opers: {
  if $read(cban.txt,w,$nick) {
    msg #opers Cezalı Oper/Admin girişi yapıldı. Nick: $nick
    .kill $nick reconnect
  }
}
Kullanım;

.cezaekle nick gün sebep => Belirtilen nicke #opers kanalında bulunuyorsa ceza ekler.
.cezalist => Verilen cezaları listeler.
.cezasil nick => Verilen cezayı kaldırır.

Örnek görünüm;

(22:40:12) <wrath> .cezalist
(22:40:12) <Mylife> Herhangi bir Oper/Admin ceza almamış.
(22:40:24) <wrath> .cezaekle deneme 2 rüşvet almak
(22:40:24) <Mylife> Üzgünüm "deneme" #opers kanalında bulunmuyor.
(22:40:32) <wrath> .cezaekle
(22:40:32) <Mylife> hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
(22:40:38) <wrath> .cezaekle ksjdskdjksjksg
(22:40:38) <Mylife> Üzgünüm "ksjdskdjksjksg" #opers kanalında bulunmuyor.
(22:40:52) <wrath> .cezaekle wrath dksdjskdjsg
(22:40:52) <Mylife> Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
(22:41:01) <wrath> .cezaekle wrath dksdjs rüşvet almak
(22:41:01) <Mylife> Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.
(22:41:13) <wrath> .cezaekle wrath 2 rüşvet almak
(22:41:13) <Mylife> wrath nickine 2 gün rüşvet almak sebebi ile ceza eklendi.
(22:41:14) *** wrath (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Belirlenemedi)) Quit Local kill by Mylife (reconnect))
(22:43:06) <Mylife> Cezalı Oper/Admin girişi yapıldı. Nick: wrath
(22:43:06) *** wrath (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Belirlenemedi)) has joined #Mylife
(22:43:06) * ChanServ mod değiştirdi:+oq wrath wrath
(22:43:06) *** wrath (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Belirlenemedi)) Quit Local kill by Mylife (reconnect))
(22:45:05) <wrath> .cezalist
(22:45:05) <Mylife> Oper/Admin ceza listesi sıralanıyor.
(22:45:07) <Mylife> wrath - rüşvet almak sebebi ile 2 gün ceza eklenmiştir. Ceza ekleyen: wrath Bitiş süresi: 6.07.2022
(22:45:37) <wrath> .cezasil wrath
(22:45:37) <Mylife> wrath nickine verilen ceza kaldırıldı.
(22:45:54) <wrath> .cezalist
(22:45:54) <Mylife> Herhangi bir Oper/Admin ceza almamış.

Not; Kod kural ihlali yapan Oper/Adminlere ceza verilmesi için hazırlanmıştır. Eklenen nickler #opers kanalına giriş yaptığı zaman kill atarak sunucudan düşürür. Üzerinde değiştirme yapıp kendinize göre uyarlıyabilirsiniz.

Kırmızı ile işaretlediğim kısımda bir yetkilendirme var oraya eklenen nickler kullanabilir.İyi forumlar.

Tanem 04 Temmuz 2022 23:49
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Beyefendi faydalı bir bilgi emeğinize sağlık,bu kod İle Yetkili kişilere ceza verip askıya mı almış oluyoruz.

Mylife 04 Temmuz 2022 23:59
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Alıntı:
Tanem Nickli Üyeden Alıntı (Mesaj 1042700363)
Beyefendi faydalı bir bilgi emeğinize sağlık,bu kod İle Yetkili kişilere ceza verip askıya mı almış oluyoruz.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hanım çok teşekkürler.

Bu kodu sunucu botuna ekliyoruz, cezalı olarak eklenen kişi operini girdiği an sunucudan kill atarak düşürülüyor.

Ecem 05 Temmuz 2022 00:12
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Faydali olabilir ancak oper arkadaslarimizi itinayla seciyoruz ceza veremem ben ya kiyamam emeginize saglik

Mylife 05 Temmuz 2022 00:18
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Alıntı:
Ecem Nickli Üyeden Alıntı (Mesaj 1042700370)
Faydali olabilir ancak oper arkadaslarimizi itinayla seciyoruz ceza veremem ben ya kiyamam emeginize saglik
Teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Maalesef onlarda bazen cezayı hakedecek davranışlar yapabiliyorlar :tatli:

Tanem 05 Temmuz 2022 01:24
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Alıntı:
Mylife Nickli Üyeden Alıntı (Mesaj 1042700368)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hanım çok teşekkürler.

Bu kodu sunucu botuna ekliyoruz, cezalı olarak eklenen kişi operini girdiği an sunucudan kill atarak düşürülüyor.
Bazen evet beyefendi cezayı ceza sistemi ne diyim ya da hak edecek davranışlarda buluna biliyorlar bunun için bence faydalı ve güzel bir sistem.Eskiden de bu gibi durumlarda iki ya da üç gün kadar yetkili arkadaş aşağıya alınırdı.

JameS 05 Temmuz 2022 14:05
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Emeğine sağlık.

AutomatiC 20 Eylül 2025 13:52
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
öncelikle emegıne saglık
kodu eklıyorum ceza eklıyorum oper kıll atıyor buraya kadar her sey normal ancak sonrasında gelıp tekrar operını gırebılıyor
1- Cezalı oper gırıs yaptıgı ıcın kanala uyarı vermıyor
2- Cezalı operı kill atıp Ceza surenızın bıtmesını bekleyın deyıp cezasının ne kadar kaldıgını ıletecek bır ekleme yapılabılır mı

SNOOPY 20 Eylül 2025 23:10
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Kod:
on *:TEXT:*:#opers: {
  ; Ceza bitiş zamanı hesaplama (gün sayısını saniyeye çeviriyoruz)
  if $regex($1-,/^[\.\!]cezaekle/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezaekle nick gün sebep şeklinde deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza eklemek için yetkili değilsiniz. | halt }
    if ($2 !ison #opers) { msg # Üzgünüm $qt($2) #opers kanalında bulunmuyor. | halt }
    if (!$regex($3,/^\d+$/)) { msg # Hatalı kullanım. .cezaekle nick gün sebep şeklinde deneyin. | halt }

    var %bitis $calc($ctime + ($3 * 86400))
    var %sebep $iif($4-, $4-, Belirtilmedi)
    write cban.txt $2
    ; nick|bitis_timestamp|sebep (| ayraç olarak kullanıldı)
    write cezalist.txt $2|%bitis|%sebep (Ceza ekleyen: $nick)
    msg # $2 nickine $3 gün ceza eklendi. Sebep: %sebep | kill $2 reconnect
    halt
  }

  if $regex($1-,/^[\.\!]cezalist/Si) {
    if ($lines(cezalist.txt) == 0) { msg # Herhangi bir Oper/Admin ceza almamış. | halt }
    msg # Oper/Admin ceza listesi sıralanıyor.
    .play # cezalist.txt 2000
    halt
  }

  if $regex($1-,/^[\.\!]cezasil/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezasil nick şeklinde deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza silebilmek için yetkili değilsiniz. | halt }

    ; Nick geçen satırları silme (readn ile eşleşen satırı kaldır)
    var %found $read(cezalist.txt, w, $2*)
    if (%found) { write -dl $readn cezalist.txt }
    var %found2 $read(cban.txt, w, $2*)
    if (%found2) { write -dl $readn cban.txt }

    msg # $2 nickine verilen ceza kaldırıldı.
    halt
  }
}

on *:JOIN:#opers: {
  var %i 1
  while (%i <= $lines(cezalist.txt)) {
    var %line = $read(cezalist.txt,nt,%i)
    var %nick = $gettok(%line,1,124)
    var %bitis = $gettok(%line,2,124)
    if ($lower(%nick) == $lower($nick)) {
      var %kalan $duration($calc(%bitis - $ctime))
      if (%bitis > $ctime) {
        msg #opers Cezalı Oper/Admin girişi yapıldı! Nick: $nick — Kalan ceza süresi: %kalan
        .kill $nick Ceza süreniz devam ediyor. Lütfen %kalan bekleyin.
      }
      break
    }
    inc %i
  }
}
Bir de böyle dener misiniz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

AutomatiC 21 Eylül 2025 22:15
Cevap: Oper/Admin Ceza Ekle/Sil/Listele
 
Alıntı:
SNOOPY Nickli Üyeden Alıntı (Mesaj 1043073161)
Kod:
on *:TEXT:*:#opers: {
  ; Ceza bitiş zamanı hesaplama (gün sayısını saniyeye çeviriyoruz)
  if $regex($1-,/^[\.\!]cezaekle/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezaekle nick gün sebep şeklinde deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza eklemek için yetkili değilsiniz. | halt }
    if ($2 !ison #opers) { msg # Üzgünüm $qt($2) #opers kanalında bulunmuyor. | halt }
    if (!$regex($3,/^\d+$/)) { msg # Hatalı kullanım. .cezaekle nick gün sebep şeklinde deneyin. | halt }

    var %bitis $calc($ctime + ($3 * 86400))
    var %sebep $iif($4-, $4-, Belirtilmedi)
    write cban.txt $2
    ; nick|bitis_timestamp|sebep (| ayraç olarak kullanıldı)
    write cezalist.txt $2|%bitis|%sebep (Ceza ekleyen: $nick)
    msg # $2 nickine $3 gün ceza eklendi. Sebep: %sebep | kill $2 reconnect
    halt
  }

  if $regex($1-,/^[\.\!]cezalist/Si) {
    if ($lines(cezalist.txt) == 0) { msg # Herhangi bir Oper/Admin ceza almamış. | halt }
    msg # Oper/Admin ceza listesi sıralanıyor.
    .play # cezalist.txt 2000
    halt
  }

  if $regex($1-,/^[\.\!]cezasil/Si) {
    if (!$2) { msg # Hatalı kullanım. .cezasil nick şeklinde deneyin. | halt }
    if (!$istok(Mylife wrath nick3 nick4 nick5,$nick,32)) { msg # Oper/admin ceza silebilmek için yetkili değilsiniz. | halt }

    ; Nick geçen satırları silme (readn ile eşleşen satırı kaldır)
    var %found $read(cezalist.txt, w, $2*)
    if (%found) { write -dl $readn cezalist.txt }
    var %found2 $read(cban.txt, w, $2*)
    if (%found2) { write -dl $readn cban.txt }

    msg # $2 nickine verilen ceza kaldırıldı.
    halt
  }
}

on *:JOIN:#opers: {
  var %i 1
  while (%i <= $lines(cezalist.txt)) {
    var %line = $read(cezalist.txt,nt,%i)
    var %nick = $gettok(%line,1,124)
    var %bitis = $gettok(%line,2,124)
    if ($lower(%nick) == $lower($nick)) {
      var %kalan $duration($calc(%bitis - $ctime))
      if (%bitis > $ctime) {
        msg #opers Cezalı Oper/Admin girişi yapıldı! Nick: $nick — Kalan ceza süresi: %kalan
        .kill $nick Ceza süreniz devam ediyor. Lütfen %kalan bekleyin.
      }
      break
    }
    inc %i
  }
}
Bir de böyle dener misiniz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Öncelikle emegın ıcın tsk ederım. Ama sorun aynı yanı ceza eklıyorum sonra tekrardan gırıs yapıp nıck alabılıyor ve herhangı bır ıslem yapmıyor. tek sorun bu tekrar bı kontrol edebılırmısın rıca etsem
tskler


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:27.
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

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