Yetkilendirme - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Med Cezir · 29 Ocak 2013, 04:04

Koda yeterince yama yaptığımızı düşünüyordum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodu denemedim sen dener sonucu bildirirsin. Ama aşağıda belirttiğim unsurları tamamen uygulaman gerekli, bunlardan kaynaklı bir hata oluşmasın

sohbetop.txt ve oyunop.txt oluşturup içine yetkili nickleri eklersin
sohbet kanalının op kanalı #sohbetop , oyun kanalının op kanalı #oyunop olmalı
#founder kanalında !atama #sohbet veya !atama #oyun kanalı olarak kullanılabilir.

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

on *:text:!atama*:#founder: {
  if (!$istok(Nick Nick1 Nick2,$nick,32)) { halt }
  if $regex($2,/^(#sohbet|#oyun)$/i) {
    if $token($+(%,atama,.,$2),0,32) >= $nick($+($2,op),0) { unset %atama } 
    if $read($+($right($2,-1),op,.,txt),w,$nick) { goto replay }
    else { msg $chan $2 kanalı yetkilisi değilsin işlem yapamazsın | halt }
  }
  else { msg $chan $2 kanalı erişim dahlinde değildir. | halt }
  :replay
  var %n = $nick($+($2,op),$rand(1,$nick($+($2,op),0))) 
  if (%n isop $+($2,op)) || (%n ishop $+($2,op)) || (%n == $me) || ($istok($+(%,atama,.,$2),%n,32) == $true) { goto replay } 
  /msg $+($2,op) " Badnick " kontrolü yapılıp bilgi verilsin lütfen atanan yetkili: $+(%n,)) 
  .set -e %atama $addtok(%atama,%n,32)
  /msg #founder - Liste kontrolü icin operatör atandı.
}
on *:Part:#: {
  if $chan == #sohbetop && $istok(%atama.#sohbet,$nick,32) == $true { $remove(%atama.#sohbet,$nick) }
  if $chan == #oyunop && $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#oyun,$nick) }
}
on *:Quit: {
  if $istok(%atama.#sohbet,$nick,32) == $true { $remove(%atama.#sohbet,$nick) }
  if $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#oyun,$nick) }
}
on *:Nick: {
  if $istok(%atama.#sohbet,$nick,32) == $true { $replace(%atama.#sohbet,$nick,$newnick) }
  if $istok(%atama.#oyun,$nick,32) == $true { $replace(%atama.#oyun,$nick,$newnick) }
}

rX · 09 Mart 2013, 11:15

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

Koda yeterince yama yaptığımızı düşünüyordum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodu denemedim sen dener sonucu bildirirsin. Ama aşağıda belirttiğim unsurları tamamen uygulaman gerekli, bunlardan kaynaklı bir hata oluşmasın

sohbetop.txt ve oyunop.txt oluşturup içine yetkili nickleri eklersin
sohbet kanalının op kanalı #sohbetop , oyun kanalının op kanalı #oyunop olmalı
#founder kanalında !atama #sohbet veya !atama #oyun kanalı olarak kullanılabilir.

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

on *:text:!atama*:#founder: {
  if (!$istok(Nick Nick1 Nick2,$nick,32)) { halt }
  if $regex($2,/^(#sohbet|#oyun)$/i) {
    if $token($+(%,atama,.,$2),0,32) >= $nick($+($2,op),0) { unset %atama } 
    if $read($+($right($2,-1),op,.,txt),w,$nick) { goto replay }
    else { msg $chan $2 kanalı yetkilisi değilsin işlem yapamazsın | halt }
  }
  else { msg $chan $2 kanalı erişim dahlinde değildir. | halt }
  :replay
  var %n = $nick($+($2,op),$rand(1,$nick($+($2,op),0))) 
  if (%n isop $+($2,op)) || (%n ishop $+($2,op)) || (%n == $me) || ($istok($+(%,atama,.,$2),%n,32) == $true) { goto replay } 
  /msg $+($2,op) " Badnick " kontrolü yapılıp bilgi verilsin lütfen atanan yetkili: $+(%n,)) 
  .set -e %atama $addtok(%atama,%n,32)
  /msg #founder - Liste kontrolü icin operatör atandı.
}
on *:Part:#: {
  if $chan == #sohbetop && $istok(%atama.#sohbet,$nick,32) == $true { $remove(%atama.#sohbet,$nick) }
  if $chan == #oyunop && $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#oyun,$nick) }
}
on *:Quit: {
  if $istok(%atama.#sohbet,$nick,32) == $true { $remove(%atama.#sohbet,$nick) }
  if $istok(%atama.#oyun,$nick,32) == $true { $remove(%atama.#oyun,$nick) }
}
on *:Nick: {
  if $istok(%atama.#sohbet,$nick,32) == $true { $replace(%atama.#sohbet,$nick,$newnick) }
  if $istok(%atama.#oyun,$nick,32) == $true { $replace(%atama.#oyun,$nick,$newnick) }
}

Kodun çalışacağına eminim sağolasın şuan askerde oldugum için deneyemedim sunucu kapalı olduğu için, Deneyen var ise sonucunu yazarsa başkalarına da yararı olur.
İyi forumlar.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Domain Yetkilendirme Sistemi Değişti	Yunus	Domain	0	17 Ekim 2020 22:34
Spesifik bazda yetkilendirme nasıl yapabilirim?	Tinba	mIRC Scripting Sorunları	3	12 Mart 2013 01:57

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.