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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Oto Nick İdentine İnce Ayar (https://www.ircforumlari.net/mirc-scripting-sorunlari/178950-oto-nick-identine-ince-ayar.html)

RapStar 11 Şubat 2009 00:56

Oto Nick İdentine İnce Ayar
 
Kod:


#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 ?

uFuK 11 Şubat 2009 01:26

Cevap: Oto Nick İdentine İnce Ayar
 
Alıntı:

#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 1:dialog:baglanti:sclick:34: { set %ufuk $did(22) }
on *:connect:{ .timer 1 1 .nick %ufuk | .timer 1 2 .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
Sohbet'e gir butonuna tıkladığında bağlanınca nickini panele girdiğin nicke çevirir, identify eder, kanallara sokar vb.

İlk soruna gelince, kayıtsız nicke geçsem bile identify etmeye çalışıyor demişsin. Ben bu dialogta connect eventi dışında bir event görmedim. Notice eventiyle olabilir senin dediğin. Bu vermiş olduğun kod sadece bağlantı aşamasında aktif olacaktır. "Connect"

RapStar 11 Şubat 2009 01:43

Cevap: Oto Nick İdentine İnce Ayar
 
İkinci Sorum Tamamdır.

İlk Sorum İçin Şöyle Anlatayım Otomatik İdent Kısmı Boşsa İşlem Yapmasın Yani Şifre Falan Girmeye Çalışmasın

uFuK 11 Şubat 2009 01:51

Cevap: Oto Nick İdentine İnce Ayar
 
Dialog içinde Event kullanılamadığı için parametreleri dialog dışarsında uygulatıyoruz koda.
yani ($did(x) == $null) { halt } gibi bir parametre uygulatamayız. Ha dersenki oto identify eğer seçili değil ve boşsa kod tamamen devre dışı kalsın onu yaparım.
Ama bence gereksiz zaten sadece bağlantı anında nicki identify etmeye çalışıyor, bırak etsin nick kayıtsızda olsa; sana ne zararı varki : )

RapStar 11 Şubat 2009 02:00

Cevap: Oto Nick İdentine İnce Ayar
 
Zaten Anlatmak İstediğimde O. Size Zahmet ..

CesuryureK 11 Şubat 2009 02:45

Cevap: Oto Nick İdentine İnce Ayar
 
PHP- Kodu:

#baglanti on
on 1:start:{ .bagLanti }
aLias bagLanti { .diaLog -m bagLanti bagLanti }
diaLog bagLanti {
  
titLe " RapStar mIRC Bağlantı Menüsü© "
  
size --1 203 133
  option dbu
  text 
"Nick:"13 12 25 8
  text 
"YedekNick:"23 21 26 8
  text 
"E-mail:"33 30 25 8
  box 
"Bağlantı Menüsü"41 1 129 54
  edit 
""537 9 90 10
  edit 
""637 29 90 10
  edit 
""737 19 90 10
  text 
"Fullname: "103 39 25 8
  edit 
""1137 39 90 10autohs
  box 
"Otomatik Tanımlar"12131 1 68 85
  text 
"Otomatik Giris"13134 8 38 8
  text 
"1.Kanal"14134 18 25 8
  edit 
""15162 17 33 10
  text 
"2.Kanal"16134 27 25 8
  edit 
""17162 27 33 10
  text 
"3.Kanal"18134 37 25 8
  edit 
""19162 37 33 10
  text 
"Otomatik Nick Tanıtım"20134 50 61 8
  text 
"Nick"21134 60 25 8
  edit 
""22161 59 31 10autohs
  text 
"Sifre"23135 70 25 8
  edit 
""24161 69 31 10pass autohs
  box 
"Server"262 58 127 28
  edit 
"MyNet"308 69 117 12disable
  button 
"Sohbete Gir"3450 110 107 15
  button 
"Kaydet ve Kapat"3525 90 67 15ok
  button 
"İptal"36110 90 62 15canceL
}
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)
  .
set %AnaNick $did(5)
  .
diaLog -x bagLanti bagLanti
  
.server %server
}
on 1:diaLog:bagLanti:scLick:27:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mircalem.com }
on 1:diaLog:bagLanti:scLick:28:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mircalem.com }
on 1:diaLog:bagLanti:scLick:29:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mircalem.com }
on 1:diaLog:bagLanti:scLick:30:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mircalem.com }
on 1:diaLog:bagLanti:scLick:31:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mircalem.com }
on 1:diaLog:bagLanti:scLick:32:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mircalem.com }
on 1:dialog:baglanti:sclick:34: { set %ufuk $did(22) }
on *:connect:{ 
  .
timer 1 1 .nick %AnaNick 
  
if (%sifre == $null) { haltdef }
  else { 
    .
timer 1 2 .ns identify %sifre | echo -a 10Nick Sifreniz giriLiyor 
  
}
  if (%
one != $null) { /%one }
  if (%
two != $null) { /%two }
  if (%
three != $null) { /%three }

 
on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three 

burda eğer otomatik identifyde belirtilen şifre kısmı girilmemişse yani boş ise, sunucu girişinde şifre girmeye çalışmayacak doğal olarak hata vermicek, eğer orası dolu ise devreye girecektir.
-
ikinci kısım ise, kanal1 kanal2 kanal3 kısımlarında ince bir durum söz konusu idi, onu da hallettim son hali bu olsa gerek deneme imkanım olmadı kodu da anlaman açısından uzattım, kısa tutmadım
-

RapStar 11 Şubat 2009 03:10

Cevap: Oto Nick İdentine İnce Ayar
 
else {
.
timer 1 2 .ns identify %sifre | echo -
a 10Nick Sifreniz giriLiyor


Bu Kısımıda Düzeltsen İyi Olur Zararı Yok Ama Yoktan Yere
Alıntı:


10Nick Sifreniz giriLiyor


Böyle Görünüyor

CesuryureK 11 Şubat 2009 03:13

Cevap: Oto Nick İdentine İnce Ayar
 
10 sayısının önüne ctrl+k renk kodu ver oldu bitti :) sanırım bunu kastediyorsun renkli gözükmüyor mu diyorsun evet ise, dediğim gibi ctrl+k koyarsın değilse açıklarsın yardımcı olmaya çalışırım

RapStar 11 Şubat 2009 12:41

Cevap: Oto Nick İdentine İnce Ayar
 
ewet dediğim oydu Neyse halletmiştim zaten. şimdi diyorumki bunu biraz daha geliştirsek, otomatik nick identinin altına beni unut beni hatırla gibi bi kutu eklesek . bunu çalıştırmak için şu kısmı

Kod:

on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three }
Şöyle Yapsak

Kod:

#unut on
on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three }
#unutend

Beni Unut Kutucuğuna Okutsak Çalışrmı ?

uFuK 11 Şubat 2009 12:46

Cevap: Oto Nick İdentine İnce Ayar
 
Beni unut diye bir buton yap

Alıntı:

on *:dialog:baglanti:sclick:*: {
if ($did == ButonID'si) {
.unset %one $did(15)
.
unset %two $did(17)
.
unset %three $did(19)
.
unset %nick $did(22)
.
unset %sifre $did(24)
.
unset %AnaNick $did(5)

}
}

Eğer did -a dialogadı girilecek veri şeklindeki bir veriyide temizletmek istiyorsan unsetin altına did -r dialogadı veri şeklinde giriş yap.
Kırmızı yerleri editle..



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:06.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net