Vip Sistemi - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Dahaka · 28 Eylül 2016, 14:39

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

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

on *:text:*:#: {   if ($1 == !vip) {     if $2 == ekle {       if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }       elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }       else { vipekle $3 | cs access #vip add $3 50 }     }     if $2 == sil {       if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }       elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }       else { vipsil $3 | cs access #vip del $3 }     }     if $2 == list {       if !$read(yetkili.txt,w,$nick) { msg $chan $nick Bu Komutu Kullanmaya Yetkili Degilsiniz. }       else { viplist  }     }   } } alias vipekle { if $1 { if $read(vip.txt,w,$1) { .msg $chan  $1   zaten listede ekli. | halt } | else { write vip.txt $1 | .msg $chan  $1  vip listeye eklendi. } } } alias viplist { if !$lines(vip.txt)  { msg $chan $Nick listede ekli vip user yok | halt } | var %l2 1 | while (%l2 <= $lines(vip.txt)) { msg $chan %l2 $read(vip.txt,%l2) | inc %l2 } } alias vipsil { if $1 { if !$read(vip.txt,w,$1) { .msg $chan  $1  vip listesinde yok. | halt } | else { write $+(-dl,$readn) vip.txt | .msg $chan  $1 vip listesinden silindi. } } } on *:join:#vip:{   if $read(vip.txt,w,$nick) { os raw svsmode $nick +W | msg $nick +W flagı aldınız. vs vs vs vs.. | amsg vip user $nick online } }

cs access #vip add $3 50 - del $3 gibi yaparsın

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:54 -->-> Daha önceki mesaj 22:50 --

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

on *:text:*:#: {
  if ($1 == !vip) {
    if $2 == ekle {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipekle $3 | cs access #vip add $3 50 }
    }
    if $2 == sil {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipsil $3 | cs access #vip del $3 }
    }
    if $2 == list {
      if !$read(yetkili.txt,w,$nick) { msg $chan $nick Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      else { viplist  }
    }
  }
}
alias vipekle { if $1 { if $read(vip.txt,w,$1) { .msg $chan  $1   zaten listede ekli. | halt } | else { write vip.txt $1 | .msg $chan  $1  vip listeye eklendi. } } }
alias viplist { if !$lines(vip.txt)  { msg $chan $Nick listede ekli vip user yok | halt } | var %l2 1 | while (%l2 <= $lines(vip.txt)) { msg $chan %l2 $read(vip.txt,%l2) | inc %l2 } }
alias vipsil { if $1 { if !$read(vip.txt,w,$1) { .msg $chan  $1  vip listesinde yok. | halt } | else { write $+(-dl,$readn) vip.txt | .msg $chan  $1 vip listesinden silindi. } } }
on *:join:#vip:{
  if $read(vip.txt,w,$nick) { os raw svsmode $nick +W | msg $nick +W flagı aldınız. vs vs vs vs.. | amsg vip user $nick online }
}

vip kanalına giren operları muaf nasıl ekletebiliriz acaba tek sorun o vip kanalına giren herkeze mesaj atıyorda sadece aop a cıkanlara bu ozellikleri tanımlasa boyle bi kod yapsak

aLone · 28 Eylül 2016, 14:57

vip kanalına giren herkeze msj atmaz, if $read(vip.txt,w,$nick) vip olarak eklediklerine msj atar.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:57 -->-> Daha önceki mesaj 14:43 --

on vip:join:#vip:{ os raw svsmode $nick +W | amsg sunucu vip kullanıcısı $nick online }
kodu tamamen sil basıt yoldan sadece bunu ekle yıne istediğin olur..

/auser vip ali
/auser vip veli

yinede dediğim gibi ilk vermıs oldugumuz kodede vip.txt listesine eklediklerine msj verır.. harıcındekı kanala kım gırerse gırsın bir işlem yapmaz..

Dahaka · 28 Eylül 2016, 16:24

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

vip kanalına giren herkeze msj atmaz, if $read(vip.txt,w,$nick) vip olarak eklediklerine msj atar.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:57 -->-> Daha önceki mesaj 14:43 --

on vip:join:#vip:{ os raw svsmode $nick +W | amsg sunucu vip kullanıcısı $nick online }
kodu tamamen sil basıt yoldan sadece bunu ekle yıne istediğin olur..

/auser vip ali
/auser vip veli

yinede dediğim gibi ilk vermıs oldugumuz kodede vip.txt listesine eklediklerine msj verır.. harıcındekı kanala kım gırerse gırsın bir işlem yapmaz..

anlamadım tam olarak.. ne yapacagımı.. aslında soyle diyim kanalı davetsel moda aldım ama admin girince kanala sıkıntı oluyor muaf nik ekleye bilcegim bi kod yapabilirmiyz acaba ircop lar için

aLone · 28 Eylül 2016, 17:47

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

on vip:join:#vip:{ os raw svsmode $nick +W |  amsg sunucu vip kullanıcısı $nick online }
on *:text:*:#: {
  if ($1 == .vip) {
    if $2 == ekle {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { auser vip $3 | msg $chan $3 eklendi }
    }
    if $2 == sil {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { ruser vip $3 | msg $chan $3 silindi }
    }
    if $2 == list {
      if !$read(yetkili.txt,w,$nick) { msg $chan $nick Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      else { 
        var %i = 1, %end = $ulist(*,vip,0)
        .msg $chan - Toplam VIP Nick Sayisi: %end
        while %i <= %end  {
          .msg $chan $+(%i,$chr(41)) $iif($ulist(*,vip,%i) == $nick,$+(,$v1,),$v1)
          inc %i 1
        }
      }
    }
  }
}

.vip ekle nick - .vip sil nick - .vip list
buda işini görür

ayrıca diğer kode de bir sorun yok aşagıda acıklamasını yaptım.

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

on *:text:*:#: {
  if ($1 == !vip) {
    if $2 == ekle {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipekle $3 }
    }
    if $2 == sil {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipsil $3 }
    }
    if $2 == list {
      if !$read(yetkili.txt,w,$nick) { msg $chan $nick Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      else { viplist  }
    }
  }
}
alias vipekle { if $1 { if $read(vip.txt,w,$1) { .msg $chan  $1   zaten listede ekli. | halt } | else { write vip.txt $1 | .msg $chan  $1  vip listeye eklendi. } } }
alias viplist { if !$lines(vip.txt)  { msg $chan $Nick listede ekli vip user yok | halt } | var %l2 1 | while (%l2 <= $lines(vip.txt)) { msg $chan %l2 $read(vip.txt,%l2) | inc %l2 } }
alias vipsil { if $1 { if !$read(vip.txt,w,$1) { .msg $chan  $1  vip listesinde yok. | halt } | else { write $+(-dl,$readn) vip.txt | .msg $chan  $1 vip listesinden silindi. } } }
on *:join:#vip:{
  if $read(vip.txt,w,$nick) { os raw svsmode $nick +W | msg $nick +W flagı aldınız. vs vs vs vs.. | amsg vip user $nick online }
}

;1- Burada vip.txt dosyasına eklediğin kişiler > #vip kanalına girdiginde! 
;(amsg mesaj atılır) (+W flagı verir)
;2- vip.txt listesinde ekli OLMAYAN oper admin user op sop vs! #vip kanalına girdiğinde
;(hicbir mesaj vermez - hicbir tepki olmaz)

Dahaka · 28 Eylül 2016, 21:17

Teşekkürler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Dahaka · 21 Ocak 2017, 16:35

acaba vip.txt deki nick leri otomatik kanala cektircek bi kod yapabilirmiyiz bu koda ? !vip ekle nick dedigimizde ki nickleri otomatik ceksin istiyorum userı ..

aLone · 21 Ocak 2017, 17:31

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

on *:text:*:#kanal: {
  if ($1 == !vip) {
    if $2 == ekle {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipekle $3 | set %:vp $3 | v.p  | enable #rv }
    }
    if $2 == sil {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipsil $3 }
    }
    if $2 == list {
      if !$read(yetkili.txt,w,$nick) { msg $chan $nick Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      else { viplist  }
    }
  }
}
alias vipekle { if $1 { if $read(vip.txt,w,$1) { .msg $chan  $1   zaten listede ekli. | halt } | else { write vip.txt $1 | .msg $chan  $1  vip listeye eklendi. } } }
alias viplist { if !$lines(vip.txt)  { msg $chan $Nick listede ekli vip user yok | halt } | var %l2 1 | while (%l2 <= $lines(vip.txt)) { msg $chan %l2 $read(vip.txt,%l2) | inc %l2 } }
alias vipsil { if $1 { if !$read(vip.txt,w,$1) { .msg $chan  $1  vip listesinde yok. | halt } | else { write $+(-dl,$readn) vip.txt | .msg $chan  $1 vip listesinden silindi. } } }
on *:join:#vip:{
  if $read(vip.txt,w,$nick) { os raw svsmode $nick +W | msg $nick +W flagı aldınız. vs vs vs vs.. | amsg vip user $nick online }
}
alias v.p { who %:vp }
#rv off
raw 315:*: { sajoin $2 #vip | unset %:vp | disable #rv }
#rv end

!vip ekle nick - uyguladıgında kişi sunucuda ise - #vip kanalına sajoinler

Dahaka · 21 Ocak 2017, 17:38

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

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

on *:text:*:#kanal: {
  if ($1 == !vip) {
    if $2 == ekle {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipekle $3 | set %:vp $3 | v.p  | enable #rv }
    }
    if $2 == sil {
      if !$read(yetkili.txt,w,$nick) { .msg $chan $nick  Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $nick Lütfen Nick Yaziniz. }
      else { vipsil $3 }
    }
    if $2 == list {
      if !$read(yetkili.txt,w,$nick) { msg $chan $nick Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      else { viplist  }
    }
  }
}
alias vipekle { if $1 { if $read(vip.txt,w,$1) { .msg $chan  $1   zaten listede ekli. | halt } | else { write vip.txt $1 | .msg $chan  $1  vip listeye eklendi. } } }
alias viplist { if !$lines(vip.txt)  { msg $chan $Nick listede ekli vip user yok | halt } | var %l2 1 | while (%l2 <= $lines(vip.txt)) { msg $chan %l2 $read(vip.txt,%l2) | inc %l2 } }
alias vipsil { if $1 { if !$read(vip.txt,w,$1) { .msg $chan  $1  vip listesinde yok. | halt } | else { write $+(-dl,$readn) vip.txt | .msg $chan  $1 vip listesinden silindi. } } }
on *:join:#vip:{
  if $read(vip.txt,w,$nick) { os raw svsmode $nick +W | msg $nick +W flagı aldınız. vs vs vs vs.. | amsg vip user $nick online }
}
alias v.p { who %:vp }
#rv off
raw 315:*: { sajoin $2 #vip | unset %:vp | disable #rv }
#rv end

!vip ekle nick - uyguladıgında kişi sunucuda ise - #vip kanalına sajoinler

Sunucuya girdiginde otomatik cekme gibi bi kodlazımdı aslında ajoin ler bazen calısmıyorda..

aLone · 21 Ocak 2017, 18:18

sunucu ana kanalına giren nick vip listesinde ise #vip kanalına sajoınler

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

on !*:join:#:{
  if $read(vip.txt,w,$nick) { sajoin $nick #vip } 
}

Sunucuya bağlanan kişinin nicki vip listesinde ise #vip kanalına sajoinler

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

on ^*:snotice:*Client connecting*:{
  if ($read(vip.txt,w,$9)) {
  sajoin $9 #vip }
}

not: #vip kanalı restricted konumunda kısıtlı giriş de ise sıkıntı cıkartır. kısıtlı durumdan cıkart
kanalı davetsel +i almanı tavsiye ederim.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Backlink Takas Sistemi Yada Link Degişim Sistemi Sizlerle	Akcafesi	Link değişimi	2	23 Temmuz 2016 14:28
Canlılarda Endokrin Sistemi - Endokrin Sistemi Özet	PySSyCaT	Biyoloji	0	17 Ekim 2014 10:48
Kalorifer Sistemi Nedir ? Kat Kalorifer Sistemi Nasıl Çalışır	Sevda	Ödev ve Tezler	0	09 Şubat 2012 10:42

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

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.