IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Tkip kodu (https://www.ircforumlari.net/mirc-scripting-sorunlari/495582-tkip-kodu.html)

s.a bi kod yazmaya çalıştım kafam karıştı yardımcı olursanız sevinirim

Yapmak istediğim şey kanala giren birinin fulnamesini nickini identd'ini ve ipadresinin son kısmını örnek vereyim (userler için bu kod)

örnek @53CDE3CF.92C96C35.B1B2C86D.IP bu ipadresının B1B2C86D bu kısmını
hashtableye kaydedtmek ve sonra kanala giren biri olursa bu kayıtı kontrol edip
benzerlikleri echo ile aktif kanala yansıtsın istedim

örnek Daha önceki giriş benzerliği $nicki identd i fulnamesi gibi

elimdeki kod ise

Kod:

on *:connect:hmake -s tk 1000

on *:join:#sohbet:{ .enable #fl | who $nick | .timer 1 5 .disable #fl

  if (!$hget(tk,$1)) {  echo -a  $1 Nicki Daha Önce $hget(tk,$1) giriş YapTı. }

}

#fl off

raw 352:*:{ $iif(!$hget(tk),hmake tk 1000)

hadd -s tk $6 3 $3 4İdentd'i ve3 $gettok(53CDE3CF.92C96C35.B1B2C86D.IP,-2,46) 4ipi'ile

}

#fl end

not: giriş verisi
Giriş: off ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
who verisi
> #Ask Sohbet 53CDE3CF.92C96C35.B1B2C86D.IP IRC.Sunucu.Net off H 0 Sohbet Web Kullanicisi

Cevap: Tkip kodu

Buyrun;

Kod:

on *:join:#Sohbet:{ .enable #tkp | who $nick }

#tkp off

raw 352:*:{

  if $hget(tkp,$gettok($4,3,46))  { echo -a  [ $6 ] Nicki Daha Önce giriş yaptı. Bilgiler'i; Nick [ $gettok($hget(tkp,$gettok($4,3,46)),1,32) ] Fullnamesi [ $gettok($hget(tkp,$gettok($4,3,46)),2,32) ]  | .disable #tkp | halt }

  hadd -m tkp $gettok($4,3,46) $6 $9-

  .disable #tkp

}

#tkp end

Deneme;

Kod:

2«13:42:13» • Çıkış : GhoSt ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) 

10«13:42:13» • Giriş : GhoSt ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) 

2«13:42:17» • Çıkış : ibr4him ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) 

10«13:42:18» • Giriş : ibr4him (SaglmShell[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) 

[ ibr4him ] Nicki Daha Önce giriş yaptı. Bilgiler'i; Nick [ GhoSt ] Fullnamesi [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] İnt. Hizmetleri ]

Cevap: Tkip kodu

tesekurler calısıyor bir sıkıntı var yanlız rast gele seciyor sanırım onceki benzernicklerden birini

kanala kiriş olunca tüm fulnamelerini identdlerini ve nicklerini yansıtamazmıyız

[ yqq2 ] Nicki Daha Önce giriş yaptı. Bilgiler'i; Nickler [ yqqlarda,user,ali ] Fullnameleri [ Sohbet,mırc630,mırc635 ] identleri [sırın,veli,ali]
identdler görunmuyor hıc ustelik nasıl yapabiliriz

Cevap: Tkip kodu

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 *:input:#: { 

  if $1 == !arsiv {

    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 }

    }

  }

}

bukodu Dfuzyon arkadas yazmıs bu kodu userler için değiştirebilirmisiniz acaba