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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Yetkili ekle/sil. (https://www.ircforumlari.net/mirc-scripting-sorunlari/173572-yetkili-ekle-sil.html)

Cevap: Yetkili ekle/sil.

Kod:

on *:text:*:#: { 

  if $nick == Founder-NICK {

    if $1 == !halfopekle && $2 {

      if !$read(yetkililer.txt,w,$+(*,$2,-,$3,*)) {

        write yetkililer.txt $+($2,-,$3) Eklenme tarihi : $date - $time 

        cs access $3 add $2 40

        msg $2 $3 kanal?na halfop olarak eklendiniz.

        msg $chan $2 $3 kanal?na halfop olarak eklenmi?tir.

      }

      else { msg $chan $2 ekli durumda }

    }

    if $1 == !opekle && $2 {

      if !$read(yetkililer.txt,w,$+(*,$2,-,$3,*)) {

        write yetkililer.txt $+($2,-,$3) Eklenme tarihi : $date - $time 

        cs access $3 add $2 50

        msg $2 $3 kanal?na op olarak eklendiniz.

        msg $chan $2 nicki $3 kanal?na op olarak eklenmi?tir.

      }

      else { 

        msg $chan $2 $3 ekli durumda 

        cs access $3 add $2 50

        msg $2 $3 kanal?na op olarak eklendiniz.

      }

    }

    if $1 == !Yetkililer {

      msg $chan Yetkili listesi s?ralan?yor:

      var %oo 1

      while %oo <= $lines(yetkililer.txt) {

        msg $chan $read(yetkililer.txt,%oo)

        inc %oo

      }

    }

    if $1 == !Yetkilisil && $2 { 

      if $read(yetkililer.txt,w,$+(*,$2,-,$3,*)) { 

        write $+(-,dl,$readn)) yetkililer.txt 

        cs access $3 del $2

        msg $2 $3 kanal?ndaki yetkiniz silinmi?tir.

        msg $chan $2 nickinin $3 kanal?ndaki yetkisi silinmi?tir.

      }

      else { 

        msg $chan $2 $3 yetkili listesinde yok 

      }

    }

    if $1 == !yaz { 

      play $chan yetkililer.txt 1000 

    }

  }

}

Founder-NICK yazan yere Forunder nickini yazarsan Founder'den Başkası Kod'a işlem yaptıramaz.

Cevap: Yetkili ekle/sil.

ozaman Tek ßir nick kullana ßiLecek ßen ßotun oLduqu ßütün kanalardaki founderlerin faydalanmasini istiyorum..

Cevap: Yetkili ekle/sil.

if $nick == Founder-NICK {

yerine aşağıdaki gibi kullanabilirsin,komutu yazan kişinin prefixi ~ ise uygulamaya yetkilidir.

if $count($nick($chan,$nick).pnick,~) {

Cevap: Yetkili ekle/sil.

bu code'ye gore yetkili ekliyorum.yetkili listesi bos oldugu icin sahsi yetkili olrak ekliyor.ama eklemek istedigim sahis kanala daha onceden baskasi tarafindan yetkili olrak eklenmis.listem bos oldugu icin yetkili eklendi diyor.ama sahis zaten yetkili olrak ekli.

lll ChanServ c nick'inin #code kanalindaki erisim seviyesi zaten 50.

chanserv'den gelen mesaji alip ona gore islem yapabilir mi code.chanserv'den yetkili olduguna dair mesaj gelirse yetkililer listesine eklenmesin ve zaten eklidir diye msg gondersin .

on *:text:*:#: {
if ($nick == al) || ($nick == ar) {
if $1 == !halfopekle && $2 {
if !$read(yetkililer.txt,w,$+(*,$2,-,$3,*)) {
write yetkililer.txt $+($2,-,$3) Eklenme tarihi : $date - $time
cs access $3 add $2 40
msg $2 $3 kanal?na halfop olarak eklendiniz.
msg $chan $2 $3 kanal?na halfop olarak eklenmi?tir.
}
else { msg $chan $2 ekli durumda }
}
if $1 == !ek && $2 {
if !$read(yetkililer.txt,w,$+(*,$2,-,$3,*)) {
write yetkililer.txt $+($2,-,$3) Eklenme tarihi : $date - $time
cs access $3 add $2 50
msg $2 $3 kanal?na op olarak eklendiniz.
msg $chan $2 nicki $3 kanal?na op olarak eklenmi?tir.
}
else {
msg $chan $2 $3 ekli durumda
cs access $3 add $2 50
msg $2 $3 kanal?na op olarak eklendiniz.
}
}
if $1 == !Yet {
msg $chan Yetkili listesi s?ralan?yor:
var %oo 1
while %oo <= $lines(yetkililer.txt) {
msg $chan $read(yetkililer.txt,%oo)
inc %oo
}
}
if $1 == !Y && $2 {
if $read(yetkililer.txt,w,$+(*,$2,-,$3,*)) {
write $+(-,dl,$readn)) yetkililer.txt
cs access $3 del $2
msg $2 $3 kanal?ndaki yetkiniz silinmi?tir.
msg $chan $2 nickinin $3 kanal?ndaki yetkisi silinmi?tir.
}
else {
msg $chan $2 $3 yetkili listesinde yok
}
}
if $1 == !yaz {
play $chan yetkililer.txt 1000
}
}
}

Cevap: Yetkili ekle/sil.

lll ChanServ c nick'inin #code kanalindaki erisim seviyesi zaten 50.
ne yapti isem bu mesaja gore codeyi yonlendiremedim.

Cevap: Yetkili ekle/sil.

Sende ozaman c nickini alıp listeye ekliyeceksin birdahaki soruşunda c nicki zaten listede ekli diye bir cevap verecekdir.Sonuçta listeye göre hareket ediyor.

Yapmakta olduğum bir Kod üzerinden bir örnek vereyim.Ona göre yaparsın.

Kod:

on @*:text:*:#:{

  var %.* = $2

  var %Text $right($strip($4-),-1)

  var %::chan = $chan

  var %::nick = $2

  var %:nick $nick

  var %::sebeb $3-

  if *!Aopekle* iswm $1- {

    if $2 == $null {

      msg %::chan Eklenecek Aop Nickini Belirtmediniz.

      halt

    }

    if $read(Aoplar.txt,w,$2-) { 

      msg %::chan Eklemeye Çalıştığınız ( %.* ) listenin ( $+($readn,.) ) satırında mevcuttur.

    } 

    else {

      write Aoplar.txt $2-

      cs access %::chan add %::nick 50

      msg %::chan Listeye Eklenen Nick ( %.* ) dir.

      msg %::chan %::nick : %::chan Kanalında  $time $date  İtibariyle Operator Konumunda  50  seviyesinden eklenmiştir.

      msg %::nick : %::chan Kanalında Aop Konumuna getirildiniz.Görevinizi Layıkıyla yapmanız dileğiyle.

    }  

  } 

  if *!Aopsil* iswm $1- {

    if $2 == $null {

      msg %::chan Silinecek Aop Nickini Belirtmediniz.

      halt

    }

    if !$read(Aoplar.txt,w,$2-) { 

      msg %::chan Silmeye çalıştığınız ( %.* ) Listede bulunmamaktadır. 

    }

    else { 

      write $+(-,dw,$2-) Aoplar.txt

      cs access %::chan del %::nick

      msg %::chan Listeden Silinen nick ( %.* ) dir. 

      msg %::chan %::chan Kanalından silinen ( %.* ) nickine memo olarak iletilmiştir.

      ms send $2 1Sayın, $2 $+ . %::chan Kanalından %:nick tarafından, $date tarihinde yetkiniz silinmiştir.

    }

  }

  if *!Aoplist* iswm $1- { 

    msg %::chan 4 *Aop Listesi*

    Play %::chan aoplar.txt 300

  }

}