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

Kimimben · 01 Nisan 2011, 23:29

dialog XXXmenu {
title "|X| XXX Ozel Script - Bağlantı Menüsü |X|"
size -1 -1 359 170
menu "Özellikler" ,900,
item Korumalar, 904
item Ayarlar, 905
menu "Otomatik İşlemler" ,901,
item Oto Mesaj, 906
item Oto Cevap, 907
item Oto Join, 908
menu "Listeler" ,903,
item Op Listesi, 915
item Voice Listesi, 916
item Düşman Listesi, 917
icon 1, -71 -223 500 500, XXX resimler/paneller2.gif
box "" 2, 2 54 354 213
box "" 3, 20 63 318 90
icon 800, 30 86 500 500, XXX resimler/kalp.ico
text "Nick :" 4, 75 83 80 15
edit "" 5, 135 78 100 20,autohs
text "Yedek Nick :" 500, 75 105 80 15
edit "" 501, 135 102 100 20,autohs
button "Bağlan!" 6, 245 78 80 43
button "Pencereyi Kapat" 16, 14 233 329 25, ok
edit "", 7, 135 125 100 20, autohs
text "Şifre", 8, 77 128 46 15
}

Yukarıdaki kod Baglantı menusune ait bir kod calısıyor mirc acınca direk baglantı menusu cıkıyor burda Nick - Yedek Nick - Şifre ve Baglan Var buraya Nick Şifresi Oper Nick Oper Şifresi Nasıl koyabiliriz Baglantı menusunu dolduran admin da hem nıck sifresini hemde operini girmis olmasını istiyorum Nasıl yapabiliriz.Nick Sifresi - Opernick OperSifresi Bunlarıda bu menuye nasıl koyabiliriz Simdiden tsk ederim

Not : XXX diye gecen yerler sunucu ismi oldugu ıcın XXX yaptım ve Şifre olan kısımda Mirc giris kapalı Sifreyi bilenler giris saglıyor O Kısıma sifre bilenler girmesi icin ayarlı o yuzden o Şifre yazan yer Nick sifresi deyil !!!
text "Şifre", 8, 77 128 46 15

RegSubex · 02 Nisan 2011, 02:09

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

alias XXXmenu { dialog -m XXXmenu XXXmenu }

dialog XXXmenu {
  title "|X| XXX Ozel Script - Bağlantı Menüsü |X|"
  size -1 -1 413 273
  option pixels
  box "", 2, 3 63 406 174
  box "", 3, 20 63 380 152
  text " Nick :", 4, 152 80 47 15
  edit "", 5, 200 80 100 20, autohs
  text " Yedek Nick :", 500, 136 104 63 15
  edit "", 501, 200 104 100 20, autohs
  button "Bağlan!", 6, 308 121 80 43
  button "Pencereyi Kapat", 16, 45 240 329 25, ok
  edit "", 7, 200 128 100 20, autohs
  text "Şifre", 8, 152 128 46 15
  edit "", 1, 200 160 100 20, autohs
  edit "", 9, 200 184 100 20, autohs
  text "oper Nick :", 10, 136 160 62 15
  text " oper pass :", 11, 136 184 64 15
  icon 12, 56 115 49 47
  icon 13, 73 1 260 63
  check "aç/kapa", 14, 314 174 68 20
  menu "Özellikler", 900
  item "Korumalar", 904, 900
  item "Ayarlar", 905, 900
  menu "Otomatik İşlemler", 901
  item "Oto Mesaj", 906, 901
  item "Oto Cevap", 907, 901
  item "Oto Join", 908, 901
  menu "Listeler", 903
  item "Op Listesi", 915, 903
  item "Voice Listesi", 916, 903
  item "Düşman Listesi", 917, 903
}
on *:dialog:XXXmenu:init:*: {
  if ($group(#opper).status == on )  did -c XXXmenu 14
}

on *:dialog:XXXmenu:sclick:14: {
  if ($group(#opper).status == on ) { .disable #opper }
  else {  /.enable #opper  }
}
#opper off
on *:dialog:XXXmenu:sclick:*:{
  set %IFf $did(1)
  set %IFff $did(9)
  echo -a oper %IFf %IFff
}
on *:CONNECT: {
  .timeroper 1 3 oper %IFf %IFff
}

#opper end

kod calısıyor demıssın oper kısmını ekledım sade sunucuya girdikten 3 sanıye sonra operın şifreyi girecek aktif olursa

Kimimben · 02 Nisan 2011, 03:35

Hocam simdi resimde gorursun biraz saga cekmis yazılar sonra ustteki resim silinmis yan taraftaki icon resmi kaybolmus ve en onemli bi seyde Nick Sifre icin yer yapılmamıs
Nick : Nickimiz
Yedek Nick : Yedek olacak nick
Şifre : Mirc den giris sifresi
Oper nick : Oper nicki
Oper pass: oper sifresi
burda Nick sifresini giren kısım yok sonra Nick yazıp oper bilgileri ve irc sifrsini yazıp baglan dedikten sonra sunu veriyor
* /nick: Yetersiz veya eksik parametre (Satır 80, sistem13.XXX)
Kodun tamamen su sekilde

alias baglanti { dialog -m Sunucumenu Sunucumenu }
dialog Sunucumenu {
title "|X| Sunucu Ozel Script - Bağlantı Menüsü |X|"
size -1 -1 413 273
option pixels
box "", 2, 3 63 406 174
box "", 3, 20 63 380 152
text " Nick :", 4, 152 80 47 15
edit "", 5, 200 80 100 20, autohs
text " Yedek Nick :", 500, 136 104 63 15
edit "", 501, 200 104 100 20, autohs
button "Bağlan!", 6, 308 121 80 43
button "Pencereyi Kapat", 16, 45 240 329 25, ok
edit "", 7, 200 128 100 20, autohs
text "Şifre", 8, 152 128 46 15
edit "", 1, 200 160 100 20, autohs
edit "", 9, 200 184 100 20, autohs
text "oper Nick :", 10, 136 160 62 15
text " oper pass :", 11, 136 184 64 15
icon 12, 56 115 49 47
icon 13, 73 1 260 63
check "aç/kapa", 14, 314 174 68 20
menu "Özellikler", 900
item "Korumalar", 904, 900
item "Ayarlar", 905, 900
menu "Otomatik İşlemler", 901
item "Oto Mesaj", 906, 901
item "Oto Cevap", 907, 901
item "Oto Join", 908, 901
menu "Listeler", 903
item "Op Listesi", 915, 903
item "Voice Listesi", 916, 903
item "Düşman Listesi", 917, 903
}
on *:dialog:Sunucumenu:init:*: {
if ($group(#opper).status == on ) did -c Sunucumenu 14
}
on *:dialog:Sunucumenu:sclick:14: {
if ($group(#opper).status == on ) { .disable #opper }
else { /.enable #opper }
}
#opper off
on *:dialog:Sunucumenu:sclick:*:{
set %IFf $did(1)
set %IFff $did(9)
echo -a oper %IFf %IFff
}
on *:CONNECT: {
.timeroper 1 3 oper %IFf %IFff
}
#opper end
on 1:dialog:Sunucumenu:menu:*:{
if ($did == 904) { korumalar }
if ($did == 905) { ayarlar }
if ($did == 906) { otomesaj }
if ($did == 907) { otocevap }
if ($did == 908) { otojoin }
if ($did == 911) { rtabir }
if ($did == 912) { sayısal_loto }
if ($did == 913) { stopu }
if ($did == 914) { yorumcu }
if ($did == 915) { autooplist }
if ($did == 916) { autovoicelist }
if ($did == 917) { shitlistz }
}
on 1:dialog:Sunucumenu:sclick:*:{
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | set %portnum $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
if ($did == 6) { .nick $did(5) | .anick $did(501) | server irc.Sunucu.Com:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
}
on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
IALOG:Sunucumenu:init:0:{
did -a $dname 7 %portnum
did -a $dname 5 $readini mirc.ini mirc nick
did -a $dname 501 $readini mirc.ini mirc anick
}

RegSubex · 02 Nisan 2011, 12:51

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

alias baglanti { dialog -m Sunucumenu Sunucumenu }
dialog Sunucumenu {
  title "|X| Sunucu Ozel Script - Bağlantı Menüsü |X|"
  size -1 -1 413 273
  option pixels
  box "", 2, 3 63 406 174
  box "", 3, 20 63 380 152
  text " Nick :", 4, 152 80 47 15
  edit "", 5, 200 80 100 20, autohs
  text " Yedek Nick :", 500, 136 104 63 15
  edit "", 501, 200 104 100 20, autohs
  button "Bağlan!", 6, 308 121 80 43
  button "Pencereyi Kapat", 16, 45 240 329 25, ok
  edit "", 7, 200 128 100 20, autohs
  text "GirişŞifre", 8, 152 128 46 15
  edit "", 1, 200 176 100 20, autohs
  edit "", 9, 200 192 100 20, autohs
  text "oper Nick :", 10, 136 176 62 15
  text " oper pass :", 11, 136 192 64 15
  icon 12, 34 90 88 88,XXX resimler/paneller2.gif
  icon 13, 42 1 317 63,XXX resimler/kalp.ico
  check "aç/kapa", 14, 314 174 68 20
  edit "", 15, 200 152 100 20, autohs
  text "NickŞifre", 17, 152 152 46 15
  menu "Özellikler", 900
  item "Korumalar", 904, 900
  item "Ayarlar", 905, 900
  menu "Otomatik İşlemler", 901
  item "Oto Mesaj", 906, 901
  item "Oto Cevap", 907, 901
  item "Oto Join", 908, 901
  menu "Listeler", 903
  item "Op Listesi", 915, 903
  item "Voice Listesi", 916, 903
  item "Düşman Listesi", 917, 903
}
on *:dialog:Sunucumenu:init:*: {
  if ($group(#opper).status == on ) did -c Sunucumenu 14
  did -a $dname 5 $readini mirc.ini mirc nick
  did -a $dname 501 $readini mirc.ini mirc anick
  did -a $dname 1   %IFf 
}
on *:dialog:Sunucumenu:sclick:14: {
  if ($group(#opper).status == on ) { .disable #opper }
  else { /.enable #opper }
}
#opper on

on *:CONNECT: {
  .timeroper 1 3 oper %IFf %IFff
  .timer 1 2 ns identify %ns
}
#opper end
on *:dialog:Sunucumenu:menu:*:{
  if ($did == 904) { korumalar }
  if ($did == 905) { ayarlar }
  if ($did == 906) { otomesaj }
  if ($did == 907) { otocevap }
  if ($did == 908) { otojoin }
  if ($did == 911) { rtabir }
  if ($did == 912) { sayısal_loto }
  if ($did == 913) { stopu }
  if ($did == 914) { yorumcu }
  if ($did == 915) { autooplist }
  if ($did == 916) { autovoicelist }
  if ($did == 917) { shitlistz }
}

on *:dialog:Sunucumenu:sclick:*:{
  if ($did == 6) { .nick $did(5) | .anick $did(501) | set %ns $did(15) | set %IFf $did(1) | set %IFff $did(9) | server irc.zurna.net:6667 $did(7) | set %portnum $did(7) | /dialog -x Sunucumenu Sunucumenu }
  if ($did == 6) { .nick $did(5) | .anick $did(501) | set %ns $did(15) | set %IFf $did(1) | set %IFff $did(9) | server irc.zurna.net:6667 $did(7) | /dialog -x Sunucumenu Sunucumenu }
}
on *:start: { baglanti }

dene bakalım bi sorun olacağını sanmıyorum ıconlarını senin koyacagını dusunmustum ilk kodda icon yeri olarak kaydırdım menuyu saga kodda ıcın ekı vardı dosya yolu yazılmalıydı

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Baglantı..	Biricik123	mIRC Scripting Sorunları	5	01 Haziran 2006 22:48
baglantı	HaLiKaRNaSX	mIRC Scripting Sorunları	1	02 Nisan 2006 10:34
baglantı	HaLiKaRNaSX	mIRC Scripting Sorunları	1	14 Mart 2006 17:51

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.