[RapStar]

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

 
#baglanti on
on 1:start:{ .bagLanti }
aLias bagLanti { .diaLog -m bagLanti bagLanti }
diaLog bagLanti {
  titLe " RapStar mIRC Bağlantı Menüsü© "
  size -1 -1 203 133
  option dbu
  text "Nick:", 1, 3 12 25 8
  text "YedekNick:", 2, 3 21 26 8
  text "E-mail:", 3, 3 30 25 8
  box "Bağlantı Menüsü", 4, 1 1 129 54
  edit "", 5, 37 9 90 10
  edit "", 6, 37 29 90 10
  edit "", 7, 37 19 90 10
  text "Fullname: ", 10, 3 39 25 8
  edit "", 11, 37 39 90 10, autohs
  box "Otomatik Tanımlar", 12, 131 1 68 85
  text "Otomatik Giris", 13, 134 8 38 8
  text "1.Kanal", 14, 134 18 25 8
  edit "", 15, 162 17 33 10
  text "2.Kanal", 16, 134 27 25 8
  edit "", 17, 162 27 33 10
  text "3.Kanal", 18, 134 37 25 8
  edit "", 19, 162 37 33 10
  text "Otomatik Nick Tanıtım", 20, 134 50 61 8
  text "Nick", 21, 134 60 25 8
  edit "", 22, 161 59 31 10, autohs
  text "Sifre", 23, 135 70 25 8
  edit "", 24, 161 69 31 10, pass autohs
  box "Server", 26, 2 58 127 28
  edit "MyNet", 30, 8 69 117 12, disable
  button "Sohbete Gir", 34, 50 110 107 15
  button "Kaydet ve Kapat", 35, 25 90 67 15, ok
  button "İptal", 36, 110 90 62 15, canceL
}
on 1:diaLog:bagLanti:init:*:{
  did -a bagLanti 5 $me
  did -a bagLanti 7 $anick
  did -a bagLanti 6 $emaiL
  did -a bagLanti 11 $fuLLname
}
on 1:diaLog:bagLanti:scLick:34:{ 
  .set %one $did(15)
  .set %two $did(17)
  .set %three $did(19)
  .set %nick $did(22)
  .set %sifre $did(24)
  .diaLog -x bagLanti bagLanti
  .server %server
}
on 1:diaLog:bagLanti:scLick:27:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:28:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:29:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:30:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:31:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:32:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on *:connect:{ .ns identify %sifre | echo -a 10Nick Sifreniz giriLiyor | .join %one | .join %two | .join %three }
on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three }
#baglanti end

Bu Mırcımın Bağlantı Menüsü Herşey Gayet Güzel Ama Server a Girince

Nick Sifreniz giriLiyor
[00:35] -NickServ- Kullanimi: IDENTIFY sifre
[00:35] -NickServ- Daha fazla bilgi icin /msg NickServ HELP IDENTIFY yaziniz.

Gibi Yazılar Çıkıyor. Nick Kayıtsız Olsa Bile Şifre Paneliyle Çakıştığı İçin Şifre Panelim Kayıtsız Nicke Bile Şifre İstiyor.

Şimdi İstediğim Şu. Otomatik İdent Kısmı Boşsa Hiç Bir İşlem Yapmasın Yani Nick Şifremi Falan Girmeye Çalışmasın ?

Ekleme : Şuan Dikkatimi Çekti Otomatik İdent Kısmına Nick Yazarsak Nickimiz Ne Olursa Olsun O Nicke Otomatik Geçmiyor ve O Nickte Olsak Bile İdentte Etmiyor:] Oto İdent Kısmındaki Sorunları Çözmem Zor Gİbi. Sizce ?