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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Add-on ve snippet(parça) kod istekleri buraya (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/523479-add-ve-snippetparca-kod-istekleri-buraya.html)

Bilecikli 23 Eylül 2017 20:40

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 
Merhabalar. @ Kanalda !unban yazdığımda 15 dk dan eski banları açacak ve benim !unban yazmadığım zamanlarda 30 dk da bir ban kontrolü yaparak 15 dk dan eski banları açacak bir kod rica ediyorum sizden.

zeusmk 30 Eylül 2017 04:23

yapılabilir mi
 
arkadaşlar, benim bir nick.txt listem var. bu listeden veya kayıtlı olmayan kişilerden toplam 100 kişinin özeline bir mesaj yazmak ve yollamak istiyorum. toplamda 100 kişiye. bu kişiler kayıtlı olmayan veya nick.txt listesinden olmalı. ve bu konutu elle çalıştırmak istiyorum. veya bir zaman periodu içerisinde çalışsın istiyorum. 5 dk bir yolla gibi.

AsaF 05 Ekim 2017 12:19

ac kapat duzeltme
 
on *:join:#kanal:{
if $nick isin %nick { halt }
if $nick isin $me { halt }
set %kod $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
sapart $nick #kanal
msg $nick Lütfen
msg #kanal Verilen kod => 2 %kod
msg $nick Lütfen Kanala girebilmek için 4!kode %kod 1yazınız
}

on *:text:*:?:{
if $1 == !kode {
if $2 == %kod {
set %nick $nick
sajoin $nick #kanal
}
}
}
ılırızı

kodun sahbını bılmıuorum Sadece Bu Koda Ac Kapt NasıL Ekleyebılız

Alper 05 Ekim 2017 22:38

Cevap: ac kapat duzeltme
 
Alıntı:

nesrin1 Nickli Üyeden Alıntı (Mesaj 1041870488)

on *:join:#kanal:{
if $nick isin %nick { halt }
if $nick isin $me { halt }
set %kod $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
sapart $nick #kanal
msg $nick Lütfen
msg #kanal Verilen kod => 2 %kod
msg $nick Lütfen Kanala girebilmek için 4!kode %kod 1yazınız
}

on *:text:*:?:{
if $1 == !kode {
if $2 == %kod {
set %nick $nick
sajoin $nick #kanal
}
}
}
ılırızı

kodun sahbını bılmıuorum Sadece Bu Koda Ac Kapt NasıL Ekleyebılız

Kod:


menu * {
  .Giriş Kod Koruması
  ..Açık:.enable #kgiris | .echo -a Giriş Kod Koruması Açıldı.
  ..Kapalı:.disable #kgiris | .echo -a Giriş Kod Koruması Kapatıldı.
}

#kgiris off
on *:join:#kanal:{
  if $nick isin %nick { halt }
  if $nick isin $me { halt }
  set %kod $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  sapart $nick #kanal
  msg $nick Lütfen
  msg #kanal Verilen kod => 2  %kod
  msg $nick Lütfen Kanala girebilmek için 4!kode %kod 1yazınız
}
 
on *:text:*:?:{
  if $1 ==  !kode {
    if $2 ==  %kod {
      set %nick $nick
      sajoin $nick #kanal
    }
  }
}
#kgiris End


HOROZ 06 Aralık 2017 22:33

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 
ücretli mirc oyun botu yazacak coder arkadaş pm atabilir mi.

Caitlyn 25 Aralık 2017 05:32

Kod Lazım
 
Merhaba ;

sunucuya 2 saniye icerisinde aynı identten 5 giriş olursa IP adreslerini AKILL almasını istiyorum.Yardımcı olabilecek arkadaşlar için teşekkür ederim.

iyi forumlar

AppendiX 28 Aralık 2017 01:11

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 
Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Aradığınız kod aşağıdadır :

Kod:

on *:snotice:*connecting*: {
  ;alt kısımda gelen veriyi ayristirma %ip ve %ident seklinde
  var %ip $left($token($10,2,64),-1), %ident $right($token($10,1,64),-1)
  ;Aşagi kısımda ident1 ident2 gibi yan yana muaf ident belirtebilirsiniz.
  if $istok(ident1 ident2,%ident,32)  || $istok(nick1 nick2,$9,32) { return }
  ;-mu2 yazan kısımdaki 2 saniye olarak ifade ediliyor, isteginize göre ayarlarsınız
  hinc -mu2 ident %ident 1
  ;5 yazan kısım 5 giris anlamina gelir, isteginize gore ayarlarsiniz.
  if $hget(ident,%ident) >= 5 {
    ;Aşagida uygulucak islemi belirtiyor.
    os akill add $+(*@,%ip) +0 Giris Ban.
  }
}

Hayırlı forumlar dilerim :)

AsaF 05 Ocak 2018 12:23

Cevap: İnfodaki IP adresden ip tarama
 
Kod:

on *:snotice:*:{
  if (*client*connect* iswm $1-) {
    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyip %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date)
  }
  elseif (*changed*his*her*nickname* iswm $1-) {
    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date)
  }
}
;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz
on *:text:!arsiv &:#KANAL:{
  if $regex($2,/^\d+.\d+/) {
    if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) {
      msg $chan $2 arşivi listeleniyor
      filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/
      play $chan depo.txt 750
    }
    else { msg $chan $2 arşivde bulunmuyor }
  }
  if $regex($2,/^[^\d]/) {
    if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) {
      msg $chan $2 arşivi listeleniyor
      filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i
      play $chan depo.txt 750
    }
    else { msg $chan $2 arşivde bulunmuyor }
  }
}





Kod difuzyon Hocamıza Ait Sorunsuz Calısıyor #KanaL Kendıne Gure AyarLasın

Fredyyy 19 Ocak 2018 23:06

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 
Herkese selamlar.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bu konudaki gibi whois çektiğimde ülkesini görmek istiyorum. Tabiki en az yetki IRCop lara uygun olaraktan. Bu kodu denedim çalışmadı. Teşekkür ederim.

Feragat 20 Ocak 2018 16:05

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 
Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1041898889)
Herkese selamlar.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bu konudaki gibi whois çektiğimde ülkesini görmek istiyorum. Tabiki en az yetki IRCop lara uygun olaraktan. Bu kodu denedim çalışmadı. Teşekkür ederim.

geoip.txt dosyası da elinde olmalı.

Konudaki link öldüğü için dosyaya ulaşılamıyor.

Benim arşivde bulamadım. Elinde olan varsa paylaşabilir.


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

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