[immortaL]

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

Koşullar:

mIRC 6.35 version'da denenmiştir.

Oto sifre tanitma komutu: /identify Sifre

Seklinde giris yapildiginda oto kayit eder.

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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. }
}