• 🔊 Sponsor - Sohbet'in yeni adı Haylaz.NET açıldı. Sen de hemen aramıza katılmak için TIKLA 📌
  • 🔊 Sponsor - Türkiye'nin resmi mobil sohbet sitesi Mobil.Gen.TR açıldı! Tüm mobil cihazlardan giriş yapmak için TIKLA 📌
  • 🔊 Sponsor - Okey Sitemiz Açıldı - Haylaz.NET 📌 Okeyodalari.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna! TIKLA 📌

  • IRCForumlari.Gen.Tr Türkiye'nin Güncel IRC Forum Sitesi
    IRCForumlari.Gen.Tr IRC Forum sitesine katılım zahmetsiz ve ücretsizdir.
    Konu içeriğini görebilmek için lütfen üye olun. Aksi taktirde içeriği göremezsiniz.
  • Değerli ziyaretçilerimiz;

    Türkiye'nin en yeni, gelişmiş, özgün ve güvenli bilgi ağına hoşgeldiniz! Şimdiye dek internet dünyasında bir çok başarı elde etmiş projeye imza attık "IRCForumlari.Gen.TR" bunlara en yakın örnek diyebiliriz. Son olarak ta IRCForumlari.Gen.Tr siz değerli kullanıcılarımız ile buluşturmanın mutluluğu içerisindeyiz. Sizde bu MEGA ve Stabil projenin bir parçası olmak isterseniz kolayca bize katılabilirsiniz. Saygılarımızla. IRCForumlari.Gen.TR

Hazır Kod Kanal ip/takip Sistemi.

[IF] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde mIRC Parça Kodlar kategorisinde Beetlejuice tarafından oluşturulan Kanal ip\/takip Sistemi. başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 124 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı mIRC Parça Kodlar
Konu Başlığı Kanal ip\/takip Sistemi.
Konbuyu başlatan Beetlejuice
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan Beetlejuice

Beetlejuice

Özel Üye
Katılım
22 Ağu 2023
Mesajlar
93
Tepkime puanı
2
Puanları
8

İtibar:

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 }

  }

}