IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Çözüldü Ayrı Sunucular İçin Tek Alias

Aşağıdaki kodlamanın sağlıklı çalışması için yapman gerekenler;
oper olduğun sunucuya(her sunucu için ayrı ayrı) girip /voper Opernick Operpass yazmalısın.
nick için de /vps add nickşifren yazmalısın.(bilerek tek tek sunuculara girip bu işlemleri yapmanı istedim ki biraz zahmetli olsun senin içinde :) )
böylece bu şifre ve sunucu(lar) kayıt altına alınmış oluyor.
daha sonra mirci açtığında tek yapman gereken /gir komutunu kullanmak.
örneğin: /gir aliasına her hangi bir değer girmezsen nickinin kayıtlı olduğu bütün sunuculara otomatik giriyorsun. Eğer ki /gir 1 yada /gir 2 şeklinde komutu kullanırsan yazdığın sıradaki sunucuya giriyorsun. /vps list komutu ile hangi sunucunun hangi sırada olduğunu görebilirsin.

Kod:

alias vps { if $regex($1,/on/i) { 

    if $read(pass.txt,w,$+($server,*)) { nickserv identify $gettok($v1,2,32)

    echo $color(notice) -a ***2 $server sunucusunda nickiniz Nick Servisine tanıtıldı. | return }

    else {  echo $color(notice) -a ***2 $server sunucusunda kayıt altına alınmış şifreniz bulunmuyor.

  echo $color(notice) -a *** Kayıtlı nickiniz varsa 4/vps add Şifre komutu ile kayıt altına alabilirsiniz. | return } }

  if $regex($1,/add/x20) { if $read(pass.txt,w,$+($server,*)) { echo $color(notice) -a ***2 $server sunucusu için zaten 4 $+([,$gettok($v1,2,32),]) şifreniz kayıtlı durumda. | return }

  write pass.txt $server $2 | echo $color(notice) -a *** Nick şifreniz2 $server sunucusu için4 $+([,$2,]) olarak kayıt altına alındı. | return }

  if $regex($1,/del/i) { if !$read(pass.txt,w,$+($server,*)) {  echo $color(notice) -a ***2 $server sunucusunda kayıt altına alınmış şifreniz bulunmuyor. | return }

  write $+(-ds,$server) pass.txt | echo $color(notice) -a ***2 $server sunusuna ait şifreniz listeden silindi | return }

  if $regex($1,/list/i) { 

    echo $color(notice) -a *** Kayıt altına aldığınız sunucular ve şifreleriniz | var %' 1 | while %' <= $lines(pass.txt) { %pass = $read(pass.txt,%')

      echo $color(notice) -a *** $+(2:,%',$chr(41),)  Sunucu4 $gettok(%pass,1,32) Şifreniz:4 $gettok(%pass,2,32)

    inc %' }

  } 

}

on *:connect: { if $read(oper.txt,w,$+($server,*)) { 

    .timeroper $+ $server 1 40 oper $gettok($v1,2-,32) 

    .timernicks $+ $server 1 42 nick Nickiniz

    .timernick $+ $server 1 43 vps on 

    .timermode $+ $server 1 45 mode $me +p 

  return }

  else {

  .timernick $+ $server 1 42  nick Nickiniz $(|) vps on $(|) mode $me +p }

}

alias gir { if $1 { !server -m $gettok($read(pass.txt,$1),1,32) | return } 

  var %` 1 | while %` <= $lines(pass.txt) { 

    .timer $+ $server 1 $calc(%` * 20)  !server -m $gettok($read(pass.txt,%`),1,32) 

  inc %` }

}

alias voper { write oper.txt $server $1-

echo $color(notice) -a *** Oper şifreniz2 $server sunucusu için4 $+([,$2,]) olarak kayıt altına alındı.  }