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

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

- - Vip Sistemi (https://www.ircforumlari.net/mirc-scripting-sorunlari/758938-vip-sistemi.html)

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

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..

Cevap: Vip Sistemi

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041809358)

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

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)

Cevap: Vip Sistemi

Teşekkürler :) Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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ı ..

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

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..

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.