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

Mrblar, ben gibi birden cok sunucuya giren arkadaslar icin oto sifre girme yarayan bir code, senelerdir kullaniyorum işinize yarar herhalde, Hayırlı IF'ler.

Koşullar:

mIRC 6.35 version'da denenmiştir.

Oto sifre tanitma komutu: /identify Sifre

Seklinde giris yapildiginda oto kayit eder.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Nick girdiginizdede, oto giris saglar.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Belli bir sunucuda nicke ait sifre'yi gormek icin belirtilen sunucuda

/sifre Nick

NOT:
/msg nickserv identify sifre yapilan islemler'i algilamaz.
Sunucuda gelen sifre kabul yada identify mesajlari coddakiyle uyusmadigindada islem yapmaz.

Kod:

on *:notice:*:?: { 

  if $nick == nickserv {

    if IDENTIFY sifreniz isin $strip($1-) && $readini(otosifre.63,$network,$me) { var %sifre $v1

      .msg nickserv identify %sifre

      echo -es 4**3 Oto sifreleme ile sifreniz girilmistir.(Sifreniz: %sifre  $+ ) 

      return

    }

    if $regex($strip($1-),/(sifre kabul edildi|nicki ile sisteme login)/i) && $network == $hget($network,isim) {

      writeini otosifre.63 $network $hget($network,nick) $hget($network,sifre) 

      echo -es **Oto sifreleme kayit edildi.(Sunucu: $server - Nick: $hget($network,nick) - Sifre: $hget($network,sifre) $+ )

      echo -es **3Kayit edildi. 

      .hfree -sw $network

      return

    }

  }

}

alias sifre { echo -ea $iif($readini(otosifre.63,$network,$1),Sifre: $v1,Sifre yok) }

alias identify {

  if $network {

    hadd -m $network isim $network

    hadd -m $network sifre $1-

    hadd -m $network nick $me

    identify $1-

  }

  else { echo -ea Herhangi bir yere bagli degilsiniz. }

}