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/)
-   -   !ip kontrol (https://www.ircforumlari.net/mirc-scripting-sorunlari/383093-ip-kontrol.html)

Voodo 16 Şubat 2011 18:12
!ip kontrol
 
Arkadaşlar darkshades arkadaşım dan aldığım bi cod var sizle paylaşacam yanlız cod çalışmadı buna bakarsanız sevinirim



on *:text:*:#opers:{
if $1 == .ip && $2 {
if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }
else {
.msg # IP: $gettok(%xline.data,1,183)
.msg # Banlayan: $gettok(%xline.data,2,183)
.msg # Sebep: $gettok(%xline.data,3,183)
.msg # Ban Zamanı: $gettok(%xline.data,4,183)
}
}
}




bide bu koda zlinenin açılmasını istiyorsanız !evet yazın demesini ve !evet yazdığımda zlinenin kaldırılmasını istiyorum fikri olan yardım edebilirse sevinirim

SiLuet 16 Şubat 2011 18:43
Cevap: !ip kontrol
 
Sadece Verdiğin Kod'u eklediysen Çalışmaz, Atılan server Banlarını Kaydeden Bi kod Daha Olması Lazım.

Voodo 16 Şubat 2011 19:05
Cevap: !ip kontrol
 
yardım edecek biri olur inşallah :(

Emrax 16 Şubat 2011 20:55
Cevap: !ip kontrol
 
Alıntı:
Voodo Nickli Üyeden Alıntı (Mesaj 1040682787)
Arkadaşlar darkshades arkadaşım dan aldığım bi cod var sizle paylaşacam yanlız cod çalışmadı buna bakarsanız sevinirim



on *:text:*:#opers:{
if $1 == .ip && $2 {
if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }
else {
.msg # IP: $gettok(%xline.data,1,183)
.msg # Banlayan: $gettok(%xline.data,2,183)
.msg # Sebep: $gettok(%xline.data,3,183)
.msg # Ban Zamanı: $gettok(%xline.data,4,183)
}
}
}




bide bu koda zlinenin açılmasını istiyorsanız !evet yazın demesini ve !evet yazdığımda zlinenin kaldırılmasını istiyorum fikri olan yardım edebilirse sevinirim

Kod:
on *:input:#Opers: {
  if *.ip* iswm $1 {
    set %ips $2
    set -u20 %Stats on
    .stats g
    .stats k
  }
}
raw *:*:{
  if %Stats == on {
    if $numeric == 223 {
      if %ips iswm $remove($3,*@) {
        msg #Opers 4 %ips 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
        if ($1 == !evet) { /kline -*@ $+ %ips | /zline -*@ $+ %ips | /timer 1 2 /gzline -*@ $+ %ips | /timer 1 2 /gline -*@ $+ %ips | timer 1 2 /shun -*@ $+ %ips | /timer 1 4 msg # 1UNBAN:4 %ips 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4. }
      }
    }
    if $numeric == 216 {
      if %ips iswm $remove($3,*@) {
        msg #Opers 4 %ips 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
      }
    }
  if ($1 == !evet) { /kline -*@ $+ %ips | /zline -*@ $+ %ips | /timer 1 2 /gzline -*@ $+ %ips | /timer 1 2 /gline -*@ $+ %ips | timer 1 2 /shun -*@ $+ %ips | /timer 1 4 msg # 1UNBAN:4 %ips 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4. }
 }
}
Çalışır mı çalışmaz mı bilmiyorum dene bakalım bir.

Voodo 16 Şubat 2011 22:24
Cevap: !ip kontrol
 
emrah çalıştı da !evet yazınca açmıyo :(

Emrax 16 Şubat 2011 22:46
Cevap: !ip kontrol
 
Hocaların bakması lazım o zaman. Benden bu kadar. Sadece bir fikirdi. :)

Voodo 17 Şubat 2011 19:49
Cevap: !ip kontrol
 
üstatlar emrax ın verdiği koda bakacak kimse yokmuya hala bekliyom

cashmare 17 Şubat 2011 23:19
Cevap: !ip kontrol
 
Kod:
on *:input:#Opers: {
  if *.ip* iswm $1 {
    set %ips $2
    set -u20 %Stats on
    .stats g
    .stats k
  }
}
raw *:*:{
  if %Stats == on {
    if $numeric == 223 {
      if %ips iswm $remove($3,*@) {
        msg #Opers 4 %ips 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
      }
    }
  }
}
if (!evet isin $1) {
  /kline -*@ $+ %ips | /zline -*@ $+ %ips | /timer 1 2 /gzline -*@ $+ %ips | /timer 1 2 /gline -*@ $+ %ips | timer 1 2 /shun -*@ $+ %ips | /timer 1 4 msg #Opers 1UNBAN:4 %ips 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4.
}
Kod:
[03:18] <cashmare> .ip 78.163.53.112
[03:18] <cashmare>  78.163.53.112 adresine Ban atan Nick :  cashmare Sebep : no reason
[03:18] <cashmare> Atılan banın açılması için !evet yazınız.
[03:18] <cashmare> !evet
[03:18] <cashmare> UNBAN: 78.163.53.112 IP'sinde olan tüm kline gline gzline zline shun açılmıştır.

Emrax 18 Şubat 2011 02:15
Cevap: !ip kontrol
 
Alıntı:
cashmare Nickli Üyeden Alıntı (Mesaj 1040684181)
Kod:
on *:input:#Opers: {
  if *.ip* iswm $1 {
    set %ips $2
    set -u20 %Stats on
    .stats g
    .stats k
  }
}
raw *:*:{
  if %Stats == on {
    if $numeric == 223 {
      if %ips iswm $remove($3,*@) {
        msg #Opers 4 %ips 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
        $1 == !evet) { /kline -*@ $+ %ips | /zline -*@ $+ %ips | /timer 1 2 /gzline -*@ $+ %ips | /timer 1 2 /gline -*@ $+ %ips | timer 1 2 /shun -*@ $+ %ips | /timer 1 4 msg #Opers 1UNBAN:4 %ips 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4. }
      }
    }
  }
}
Kod:
[02:13:54] <04Emrax> .ip 91.121.249.246
[02:13:55] <04Emrax> 4 91.121.249.246 1adresine ban atan nick : 4 mIRCTR-SALES 1Sebep : 2• 12No14Me15rcy v145 Sec12urity2™ 2Saldiri/flood girisimi tespit edilmistir.
[02:13:55] <04Emrax> 4 91.121.249.246 1adresine Ban atan Nick : 4 mIRCTR-SALES 1Sebep : 2• 12No14Me15rcy v145 Sec12urity2™ 2Saldiri/flood girisimi tespit edilmistir.
[02:13:55] <04Emrax> 1Atılan banın açılması için 4!evet 1yazınız.
[02:13:59] <04Emrax> 1UNBAN:4 91.121.249.246 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4.
sorun var yine kodda..

cashmare 18 Şubat 2011 03:22
Cevap: !ip kontrol
 
Alıntı:
Emrax Nickli Üyeden Alıntı (Mesaj 1040684468)
Kod:
[02:13:54] <04Emrax> .ip 91.121.249.246
[02:13:55] <04Emrax> 4 91.121.249.246 1adresine ban atan nick : 4 mIRCTR-SALES 1Sebep : 2• 12No14Me15rcy v145 Sec12urity2™ 2Saldiri/flood girisimi tespit edilmistir.
[02:13:55] <04Emrax> 4 91.121.249.246 1adresine Ban atan Nick : 4 mIRCTR-SALES 1Sebep : 2• 12No14Me15rcy v145 Sec12urity2™ 2Saldiri/flood girisimi tespit edilmistir.
[02:13:55] <04Emrax> 1Atılan banın açılması için 4!evet 1yazınız.
[02:13:59] <04Emrax> 1UNBAN:4 91.121.249.246 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4.
sorun var yine kodda..
Sorunu Düzelttim. ve Denedim Çalışıyor

darkshades1 18 Şubat 2011 09:58
Cevap: !ip kontrol
 
Alıntı:
Voodo Nickli Üyeden Alıntı (Mesaj 1040682787)
Arkadaşlar darkshades arkadaşım dan aldığım bi cod var sizle paylaşacam yanlız cod çalışmadı buna bakarsanız sevinirim



on *:text:*:#opers:{
if $1 == .ip && $2 {
if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }
else {
.msg # IP: $gettok(%xline.data,1,183)
.msg # Banlayan: $gettok(%xline.data,2,183)
.msg # Sebep: $gettok(%xline.data,3,183)
.msg # Ban Zamanı: $gettok(%xline.data,4,183)
}
}
}




bide bu koda zlinenin açılmasını istiyorsanız !evet yazın demesini ve !evet yazdığımda zlinenin kaldırılmasını istiyorum fikri olan yardım edebilirse sevinirim

Kod:
alias xline.data return $shortfn($+($mircdir,xline.data))
on *:snotice:*:{
  if (*Z:line added* iswm $1-) {
    if ($2 == Global) { write xline.data $6 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }
    else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  }
  if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }
  if (*Permanent Z:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent G:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent K:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) {  write $+(-dl,$readn) $xline.data  } }
  if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
}
on *:input:#Opers:{
  if $1 == .ip && $2 {
    if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
    if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }
    else {
      .msg # IP: $gettok(%xline.data,1,183)
      .msg # Banlayan: $gettok(%xline.data,2,183)
      .msg # Sebep: $gettok(%xline.data,3,183)
      .msg # Ban Zamanı: $gettok(%xline.data,4,183)
    }
  }
}
#opers kanalında .ip *IP* adresi yazdıgında o ip neden ban yediğini görebilirsin..

Emrax 18 Şubat 2011 15:39
Cevap: !ip kontrol
 
Alıntı:
cashmare Nickli Üyeden Alıntı (Mesaj 1040684181)
Kod:
on *:input:#Opers: {
  if *.ip* iswm $1 {
    set %ips $2
    set -u20 %Stats on
    .stats g
    .stats k
  }
}
raw *:*:{
  if %Stats == on {
    if $numeric == 223 {
      if %ips iswm $remove($3,*@) {
        msg #Opers 4 %ips 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
      }
    }
  }
}
if (!evet isin $1) {
  /kline -*@ $+ %ips | /zline -*@ $+ %ips | /timer 1 2 /gzline -*@ $+ %ips | /timer 1 2 /gline -*@ $+ %ips | timer 1 2 /shun -*@ $+ %ips | /timer 1 4 msg #Opers 1UNBAN:4 %ips 1IP'sinde olan tüm 4kline gline gzline zline shun 1açılmıştır4.
}
Kod:
[03:18] <cashmare> .ip 78.163.53.112
[03:18] <cashmare>  78.163.53.112 adresine Ban atan Nick :  cashmare Sebep : no reason
[03:18] <cashmare> Atılan banın açılması için /evet yazınız.
[03:18] <cashmare> !evet
[03:18] <cashmare> UNBAN: 78.163.53.112 IP'sinde olan tüm kline gline gzline zline shun açılmıştır.
Peki bundan aranılan listede o IP yoksa bu IP yi bulamadım diyebilir mi acaba?

Emrax 19 Şubat 2011 04:19
Cevap: !ip kontrol
 
Saat: 04:16 ve CesuryureK hocam bu saatte herkes uyurken beni kırmayıp sunucularda admin/oper olan arkadaşlarımızın çok işine yarayacak bu kodu yazdı. Teşekkür ederim hocam.

Kod:
on *:input:*: {
  if ($1 == .ip) && !$2 { msg #Opers 4IP 1adresi girmeyi unuttunuz efendim4. | halt }
  elseif ($1 == .ip) && $2 && $regex($2,\d) {
    set -u200 %banip $2
    set -u15 %rawkontrol on
    .timer 1 2 stats k
    .timer 1 2 stats g
    .timer 1 6 kontrol
  }
  if ($1 == !evet) && (%banip) && ($active == #Opers) {
    zline $+(-*@,%banip)
    gline $+(-*@,%banip)
    kline $+(-*@,%banip)
    gzline $+(-*@,%banip)
    shun $+(-*@,%banip)
    msg #Opers 4 %banip 1IP adresindeki tüm banlar kaldırıldı4.
    unset %banip
  }
  elseif ($1 == !evet) && (!%banip)  && ($active == #Opers) { msg #Opers 1Ortada bir 4IP 1yok ki neye 4!evet 1dediniz efendim4. }
}

raw *:*: {
  if (%rawkontrol == on) {
    if ($numeric == 223)  {
      if (%banip isin $remove($3,*@)) {
        msg #Opers 4 %banip 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
        set -u15 %kyazma on
      }
      elseif (%banip !isin $remove($3,*@)) { set  -u15  %kipbulundu off  }
    }
    if ($numeric == 216)  {
      if (%banip isin $remove($3,*@)) {
        msg #Opers 4 %banip 1adresine Ban atan Nick : 4 $gettok($6,1,33) 1Sebep : $7-
        msg #Opers 1Atılan banın açılması için 4!evet 1yazınız.
        set -u15 %gyazma on
      }
      elseif (%banip !isin $remove($3,*@)) { set  -u15 %gipbulundu off  } 
    }
  }
}

alias kontrol {
  if (%kipbulundu == off) && (%gipbulundu == off) && (!%gyazma) && (!%kyazma)  { msg #Opers 4 %banip  1IP adresini bulamadım efendim4. | halt }
}

mirckur 22 Şubat 2011 19:47
Cevap: !ip kontrol
 
arkadaşlar Peki Bunu Her oper İçin ayarlayamazmıyız Ben Bunu remote Ye eklicem Hangi oper Yazarsa yazsın .ip İp numarası Cıkmasını istiyorum Onu nasıl Yapcaz.

cashmare 22 Şubat 2011 19:54
Cevap: !ip kontrol
 
Alıntı:
mirckur Nickli Üyeden Alıntı (Mesaj 1040689788)
arkadaşlar Peki Bunu Her oper İçin ayarlayamazmıyız Ben Bunu remote Ye eklicem Hangi oper Yazarsa yazsın .ip İp numarası Cıkmasını istiyorum Onu nasıl Yapcaz.
Kod:
on *:input:*: {
olan yeri
Kod:
on *:text:#Opers: {
olarak Değiştirirseniz dediginiz şekilde olur

mirckur 22 Şubat 2011 23:39
Cevap: !ip kontrol
 
Alıntı:
cashmare Nickli Üyeden Alıntı (Mesaj 1040689799)
Kod:
on *:input:*: {
olan yeri
Kod:
on *:text:#Opers: {
olarak Değiştirirseniz dediginiz şekilde olur

Dediğiniz Şekilde Yaptım ama Gene Olmadı sadece Ben yazarsam Cıkartıyor Başka oper Yazdığında Cevap vermiyor

Chelt 23 Şubat 2011 00:25
Cevap: !ip kontrol
 
Aynı konuyu tekrar tekrar açmayın mirckur. buradan devam edin

mirckur 23 Şubat 2011 00:26
Cevap: !ip kontrol
 
Alıntı:
Chelt Nickli Üyeden Alıntı (Mesaj 1040690226)
Aynı konuyu tekrar tekrar açmayın mirckur. buradan devam edin

Peki


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

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