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