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/)
-   -   Auto oper hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/11510-auto-oper-hakkinda.html)

DarK^ 31 Ocak 2006 11:16
Auto oper hakkında
 
Merhaba , auto oper yapmaya calısıyorum ama değişkenleri olusturma ve bunları kullanma konusunda sorunum var iş oraya gelince tıkanıyor.

Ben şunu yapmıstım


Kod:

alias opers { dialog -m opers opers }
dialog opers {
  title "Oper Girisi"
  size -1 -1 130 79
  option dbu
  edit "", 1, 22 17 90 10
  text "Oper Nickiniz", 2, 41 6 48 8
  text "Oper şifreniz", 3, 44 33 47 8
  edit "", 4, 22 47 89 10
  check "Auto oper aktif", 5, 22 63 50 10
  button "Tamam", 6, 85 62 37 12
}
 
on *:dialog:opers:sclick:1: { set %a }
on *:dialog:opers:sclick:4: { set %b }
on *:dialog:opers:sclick:5: { .dialog -x opers opers }
on *:dialog:opers:sclick:6 { .enable #autos }
#autos on
on 1:connect: { oper %a %b }
#autos end
Ama tabiki olmadı. ben bu 1 ve 4 did numarasındaki girilen değeri connect eventiyle servere bağlanınca nasıl kullanabilirim ?

Mümkünse kodu yazdıktan sonra açıklamada yazarsanız sevinirim.Çünkü sadece kodu alıp mircimi koymak istemiyorum.Mantığını anlayıp bununla baska seylerde yapabilmek istiyorum.

Vatan 31 Ocak 2006 13:25
Öncelikle kodunu,

Kod:

alias opers { dialog -m opers opers }
dialog opers {
title "Oper Girisi"
size -1 -1 130 79
option dbu
edit "", 1, 22 17 90 10
text "Oper Nickiniz", 2, 41 6 48 8
text "Oper Sifreniz", 3, 44 33 47 8
edit "", 4, 22 47 89 10
check "Auto oper aktif", 5, 22 63 50 10
button "Tamam", 6, 85 62 37 12,ok
}
on *:dialog:opers:*:*:{
if $devent == init { if ($group(#autos) == On) { did -c opers 5 } | did -a opers 1 $iif(%Opernick != $null,%Opernick,-yok-) | did -a opers 4 $iif(%OperSifre != $null,%OperSifre,-yok-) }
if ($devent == sclick && $did == 5) { if ($did($dname,5).state == 1) { .enable #autos } | else { .disable #autos } }
if $devent == edit { set %Opernick $did(1) | set %OperSifre $did(4) }
}
#autos off
on 1:connect: { if ($me == %Opernick) { oper %Opernick %OperSifre } }
#autos end

şeklinde değiştir.

Kodda 5 numaralı ID'ye yani Check nesnesine tıklandığında #autos Grubu aktif hale gelir. yani iki "#autos" arasındaki kodlar çalışır duruma geçer.Check nesnesi tıksız oldugunda bu grup Off olur.Yani çalışmaz hale geçer.
Dialog açıldığı an bu grubun kontrolü yapılır.

Kod:
if $devent == init { if ($group(#autos) == On) { did -c opers 5 } | did -a opers 1 $iif(%Opernick != $null,%Opernick,-yok-) | did -a opers 4 $iif(%OperSifre != $null,%OperSifre,-yok-) }

Eğer "#autos == On" ise Check nesnesi tıklı hale getirilir.Yani "did -c opers 5".Daha sonra önceden kaydedilmiş %Opernick ve %OperSifre değerleri varsa edit nesnelerine yazdırılır.Eğer bu değerler önceden kaydedilmemişse yani "boşsa" -yok- şeklinde bir yazı 1 ve 4 nesnelerine yazdırılır.

Kod:

did -a opers 1 $iif(%Opernick != $null,%Opernick,-yok-)
did -a opers 4 $iif(%OperSifre != $null,%OperSifre,-yok-)

Dialog açıkken, 5 nesnesine tıklanırsa;

Kod:

if ($devent == sclick && $did == 5) { if ($did($dname,5).state == 1) { .enable #autos } | else { .disable #autos } }

#autos grubu aktif hale gelir.Tik işareti kaldırılırsa #autos deaktif olur.

Bir de eğer editlere bir değer girilirse o an kayıt işlemi yapılır.

Kod:

if $devent == edit { set %Opernick $did(1) | set %OperSifre $did(4) }
başka sorun varmı?


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk