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/)
-   -   Muaf ip ekleme Yardım ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/604725-muaf-ip-ekleme-yardim.html)

c00 13 Ağustos 2014 18:40

Muaf ip ekleme Yardım ?
 
Merhaba

#opers kanalında istedigim nickler muafips.txt içine ip eklemek -silmek- list istiyorum.Nicklerden baskası ip eklemeye calısırsa yetkili degilsiniz gibi uyarı versin .

Toprak 13 Ağustos 2014 19:25

Cevap: Muaf ip ekleme Yardım ?
 
Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;

Kod:

on *:text:*:#opers:{
  if !$istok(nick nick1 nick2,$nick,32) { msg # Komutu kullanmaya yetkili degilsin. | return }
  if $1 == !muafip {
    if !$2 { msg # Komut kullanımı; !muafip ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if $read(muafip.txt,w,$3) { msg # Belirtilen IP listede ekli. | return }
      .write muafip.txt $3 | msg # $3 muaf ip olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if !$read(muafip.txt,w,$3) { msg # Belirtilen IP listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafip.txt | msg # $3 muaf ip listesinden silindi.
    }
    if $2 == list {
      if $lines(muafip.txt) == 0 { msg # Muaf Ip listesi boş. | return }
      msg # Muaf IP Listesi
      msg # 
      var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
        msg # %:ip $+ -) $read(muafip.txt,%:ip)
        inc %:ip
      }
      msg # 
      msg # Muaf IP Listesi Sonu
    }
  }
}

Kırmızı ile belirttiğim yere komutu kullanıcak kişileri yazarsın.

Kullanım;

!muafip ekle IP (Örn; !muafip ekle 55.155.162)
!muafip sil IP (Örn; !muafip sil 55.155.162)
!muafip list (Örn; !muafip list)

c00 13 Ağustos 2014 21:17

Cevap: Muaf ip ekleme Yardım ?
 
Eline saglık hocam güzel olmuş.

if !$istok(nick nick1 nick2,$nick,32) bu kısmı aşagıdaki ile degiştirsem olur mu

if !$read(admin.txt,w,$nick)

Toprak 13 Ağustos 2014 21:42

Cevap: Muaf ip ekleme Yardım ?
 
Alıntı:

c00 Nickli Üyeden Alıntı (Mesaj 1041473618)
Eline saglık hocam güzel olmuş.

if !$istok(nick nick1 nick2,$nick,32) bu kısmı aşagıdaki ile degiştirsem olur mu

if !$read(admin.txt,w,$nick)

Evet.

c00 14 Ağustos 2014 00:12

Cevap: Muaf ip ekleme Yardım ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam şöyle bir sorun çıktı.


Kod:

[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 4 Ekran temizlenmişdir. İyi sohbetler dileriz..
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:58] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:58] <03c00> Komutu kullanmaya yetkili degilsin.

Biri #opers kanalı temizlediginde böyle yazılar cıkıyor durmadan.

aLone 14 Ağustos 2014 01:19

Cevap: Muaf ip ekleme Yardım ?
 
Telden baglandim, pc ye gecince yardimci olabilirim c00

Toprak 14 Ağustos 2014 11:11

Cevap: Muaf ip ekleme Yardım ?
 
Teldeyim suan.

Soyle;

Kod:

on *:text:*:#opers:{
  if $1 == !muafip {
    if !$read(admin.txt,w,$nick) { msg # Bu komutu kullanmaya yetkili degilsin. | return }
    if !$2 { msg # Komut kullanımı; !muafip ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if $read(muafip.txt,w,$3) { msg # Belirtilen IP listede ekli. | return }
      .write muafip.txt $3 | msg # $3 muaf ip olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if !$read(muafip.txt,w,$3) { msg # Belirtilen IP listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafip.txt | msg # $3 muaf ip listesinden silindi.
    }
    if $2 == list {
      if $lines(muafip.txt) == 0 { msg # Muaf Ip listesi boş. | return }
      msg # Muaf IP Listesi
      msg #
      var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
        msg # %:ip $+ -) $read(muafip.txt,%:ip)
        inc %:ip
      }
      msg #
      msg # Muaf IP Listesi Sonu
    }
  }
}


aLone 14 Ağustos 2014 18:55

Cevap: Muaf ip ekleme Yardım ?
 
* /msg: Yetersiz veya eksik parametre (Satır 23, script16.ini)
Kod:

msg #
      var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
        msg # %:ip $+ -) $read(muafip.txt,%:ip)
        inc %:ip
      }
      msg #
      msg # Muaf IP Listesi Sonu
    }
  }
}

Renkli bölümlerin önüne - koyabılırsın, msg # -
gibi

c00 14 Ağustos 2014 19:10

Cevap: Muaf ip ekleme Yardım ?
 
Kopyalarken renkli kutucuk cıkıyor oralarda burda gözukmuyo heralde [] böle işaretler var. Bu seferde muaf list calısmıyodu onuda yukardaki koddan aldım orayı degiştirdim sorun halloldu saolasın.

c00 03 Eylül 2014 12:47

Muaf ip eklemede Sorun :?
 
Kod:

#portarama on
on ^*:snotice:*: {
  if client connecting* iswm $4- {
    if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }
    var %:ip $remove($gettok($10,2,64),$chr(41))
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}
alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 9999
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
}
on *:sockopen:kontrol*: {
  if !$sockerr {
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy Girişi Yasaktır.
$+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time $+ 3- 1[ Proxy Girisi ] : $+(,$sock($sockname).ip,1:,$sock($sockname).port,) 5- 1Nick:2 $ip2nick($sock($sockname).ip)
    hdel ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
on *:sockclose:kontrol*: {
  hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
  var %i 1
  while %i <= $hget(ckontrol,0).item {
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
    inc %i
  }
}
#portarama end

Kırmızı ile belirttim yerde mauf ip kodu ekledim oraya, o kodu ekleyince hiç atmıyor , kodu cıkarıyorum atmaya devam ediyor.

Benim istedigim su 188.213. baslarsa o ipe zline atmasın .


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net