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/)
-   -   nick takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/176413-nick-takip.html)

QkLa 02 Şubat 2009 06:39

nick takip
 
elimdeki bu code'ye gore kanala join yapan nickin ip adresi hafizaya aliniyor.

sahis kanaldan ayrildiginda ve nick degistirip tekrar join oldugunda window penceresi aciliyor ve sahsin bundan once kullandigi nick sudur seklinde belirtiyor.

Kod:

on !*:join:#:{
  set %nick $nick
  set %mask $address($nick,2)
  set %nick2 $readini profil.ini %mask nick
  set %mask2 $readini profil.ini %mask mask
  if %mask == %mask2 && %nick != %nick2 {
    set %quand $readini profil.ini %mask quand | beep
    $iif(!$window(@IP-Takip),window -z @IP-Takip)
    aline -hp @IP-Takip - $- $+($time,-) $+($chr(40),#,$chr(41)) $nick nickinin,bundan önce ayn? IP'den giri? yapt??? nick: %nick2 $+($chr(40),%quand,$chr(41))
  }
  if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable {
  if !$hget(profil) { .hmake profil 5 }
  else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}


nicklerin ip adreslerini bir txt icerisine kayit etse code ve sahis kanaldan ayrilir ya da server'den cikarsa ve tekrar gelirse, bunlari window'da degilde txt icerisine kayit edecek sekilde editlense.

bot'un ozeline !kayit yazdigimda kanala farkli nicklerle gelen sahislari

ali veli vs.. seklinde siralasa,

!kayit ali dedigimde alinin kullandigi farkli nickleri,

!kayit veli dedigimde velinin kullandigi farkli nickleri siralasa.

!sil dedigimde tum kayitlari silse mumkunmudur..

tesekkur ederim..

Difuzyon 02 Şubat 2009 17:03

Cevap: nick takip
 
Kod:

on !*:join:#:{
  set %nick $nick
  set %mask $address($nick,2)
  set %nick2 $readini profil.ini %mask nick
  set %mask2 $readini profil.ini %mask mask
  if %mask == %mask2 && %nick != %nick2 {
    set %quand $readini profil.ini %mask quand | beep
    write takip.txt $nick nickinin,bundan önce aynı IP'den giriş yaptığı nick: %nick2 $+($chr(40),%quand,$chr(41)) Kanal: $chan Giriş: $time
  }
  if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable {
  if !$hget(profil) { .hmake profil 5 }
  else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}
on *:text:*:?:{
  if $1 == !kayit {
    if !$2 {
      var %kyt 1
      while %kyt <= $lines(takip.txt) {
        msg $nick $token($read(takip.txt,%kyt),1,32)
        inc %kyt
      }
    }
    else {
      if $read(takip.txt,w,$+($2,*)) { msg $nick $read(takip.txt,$readn) }
      else { msg $nick Kayıt bulunamadı }
    }
  }
  if $1 == !sil { .remove takip.txt }
}

İyi forumlar...

Leo 20 Kasım 2010 23:24

Cevap: nick takip
 
ASDASDS Unknown command
-
ASDASDS Unknown command
-
ASDASDS Unknown command
-
ASDASDS Unknown command
-
ASDASDS Unknown command
-
ASDASDS Unknown command
-
ASDASDS Unknown command


diyor hata nerde:(

Schwarz 25 Kasım 2010 20:59

Cevap: nick takip
 
Romote ye eklediğimiz zaman çalışırmı?


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

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