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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Vip Sistemi (https://www.ircforumlari.net/mirc-scripting-sorunlari/758938-vip-sistemi.html)

Dahaka 27 Eylül 2016 20:02
Vip Sistemi
 
istedigim olay #vip kanalında !vip ekle nick diyince vip ekleyecek + karsılama mesajı atabilcegim + ( +W) flag ekleye bilcegim bi remote arıyorum

aLone 27 Eylül 2016 20:46
Cevap: Vip Sistemi
 
!vip ekle nick - komutuyla bir dosyaya nick ekletecek.
vip olarak eklenen kişi #vip kanalına girdiğinde +W flağını alıcak
vip ekli olan (kişi nick) global kanallara girdiğinde vip user ali-veli kanala girdi gibi bir mesajmı sizin istediğiniz?
tam olarak anlamadım biraz daha açıklayıcı olursanız daha hızlı yardım alabılırsınız

Dahaka 27 Eylül 2016 21:05
Cevap: Vip Sistemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041809234)
!vip ekle nick - komutuyla bir dosyaya nick ekletecek.
vip olarak eklenen kişi #vip kanalına girdiğinde +W flağını alıcak
vip ekli olan (kişi nick) global kanallara girdiğinde vip user ali-veli kanala girdi gibi bir mesajmı sizin istediğiniz?
tam olarak anlamadım biraz daha açıklayıcı olursanız daha hızlı yardım alabılırsınız
Aynen Öyle )

Mecnun 27 Eylül 2016 21:22
Cevap: Vip Sistemi
 
Kod:
on *:text:!vip*:#:{
  if $2 == ekle {
    write vip.txt $+ $3- $+
    msg # $3- VIP olarak eklendi. !VIP list yazarak VIP kullanıcıları listeleyebilirsiniz.
  }
  if $2 == sil {
    if $nick isop $chan {
      if !$3 {
        msg # VIP kullanıcı silmek icin numara belirtmelisiniz.
        halt
      }
      else {
        write $+(,-dl,$3,) vip.txt
        msg # $3 numarali VIP kullanıcı silindi.
      }
    }
    else {
      msg # VIP kullanıcıları sadece yoneticiler silebilir.
      halt
    }
  }
  if $2 == list {
    if $lines(vip.txt) = 0 { msg # VIP bulunamadi. | halt }
    msg # vip listeleniyor.
    var %srzd 1
    while (%srzd <= $lines(vip.txt)) {
      msg # %srzd $read(vip.txt,%srzd)
      inc %srzd
    }
  }

  on *:JOIN:#VIP:{
  if !$istok(#Muaf-Kanal #Muaf-Kanal1 #Muaf-Kanal2,$chan,32) {
    amsg Sunucumuz VIP Kullanıcılarında $nick şuanda online.
    msg $chan $Nick VIP Kullanıcı olarak giriş yapmıştır. Hostu değiştirilmiştir, +W flag'ı eklenmiştir.)
    os raw svsmode $nick +W
    chghost $nick VIP.Domain.COM
  }
}
}
!VIP ekle nick | !VIP sil nick | !VIP list
Kullanacagın komutlar bunlardır.
Denemedim her hangi bir eksik olursa belirtirsin.

Dahaka 27 Eylül 2016 21:34
Cevap: Vip Sistemi
 
Alıntı:
Serazad Nickli Üyeden Alıntı (Mesaj 1041809240)
Kod:
on *:text:!vip*:#:{
  if $2 == ekle {
    write vip.txt $+ $3- $+
    msg # $3- VIP olarak eklendi. !VIP list yazarak VIP kullanıcıları listeleyebilirsiniz.
  }
  if $2 == sil {
    if $nick isop $chan {
      if !$3 {
        msg # VIP kullanıcı silmek icin numara belirtmelisiniz.
        halt
      }
      else {
        write $+(,-dl,$3,) vip.txt
        msg # $3 numarali VIP kullanıcı silindi.
      }
    }
    else {
      msg # VIP kullanıcıları sadece yoneticiler silebilir.
      halt
    }
  }
  if $2 == list {
    if $lines(vip.txt) = 0 { msg # VIP bulunamadi. | halt }
    msg # vip listeleniyor.
    var %srzd 1
    while (%srzd <= $lines(vip.txt)) {
      msg # %srzd $read(vip.txt,%srzd)
      inc %srzd
    }
  }

  on *:JOIN:#VIP:{
  if !$istok(#Muaf-Kanal #Muaf-Kanal1 #Muaf-Kanal2,$chan,32) {
    amsg Sunucumuz VIP Kullanıcılarında $nick şuanda online.
    msg $chan $Nick VIP Kullanıcı olarak giriş yapmıştır. Hostu değiştirilmiştir, +W flag'ı eklenmiştir.)
    os raw svsmode $nick +W
    chghost $nick VIP.Domain.COM
  }
}
}
!VIP ekle nick | !VIP sil nick | !VIP list
Kullanacagın komutlar bunlardır.
Denemedim her hangi bir eksik olursa belirtirsin.


eksikleri liste ye ekliyor ama liste de cıkmıyor ekledigim niki kendimi algılıyor

aLone 27 Eylül 2016 22:14
Cevap: Vip Sistemi
 
Kod:
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 }
}
buda benden olsun. !vip ekle nick - !vip sil nick - !vip list
!vip ekle aLone - eklendi !vip ekle aLone listede zaten ekli :)

Mecnun 27 Eylül 2016 22:36
Cevap: Vip Sistemi
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] halletmiş tamamdır dostum dene sen tekrar eksik olursa yorumla hallederiz

Dahaka 27 Eylül 2016 22:45
Cevap: Vip Sistemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041809253)
Kod:
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 }
}
buda benden olsun. !vip ekle nick - !vip sil nick - !vip list
!vip ekle aLone - eklendi !vip ekle aLone listede zaten ekli :)


Teşekkürler AloNe

aLone 27 Eylül 2016 22:54
Cevap: Vip Sistemi
 
Kod:
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:
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 }
}

Dahaka 27 Eylül 2016 23:05
Cevap: Vip Sistemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041809257)
Kod:
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:
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 }
}

Teşekkürler Tekrardan ellerine sağlık..

Dahaka 28 Eylül 2016 14:39
Cevap: Vip Sistemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041809257)
Kod:
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:
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
Cevap: Vip Sistemi
 
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
Cevap: Vip Sistemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041809358)
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
Cevap: Vip Sistemi
 
Kod:
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:
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
Cevap: Vip Sistemi
 
Teşekkürler :) Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Dahaka 21 Ocak 2017 16:35
Cevap: Vip Sistemi
 
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
Cevap: Vip Sistemi
 
Kod:
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
Cevap: Vip Sistemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041837108)
Kod:
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
Cevap: Vip Sistemi
 
sunucu ana kanalına giren nick vip listesinde ise #vip kanalına sajoınler
Kod:
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:
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.


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

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