Bağlantı Menüsü - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KiLLed · 17 Şubat 2013, 12:59

Selamun aleykum arkadaşlar
bugun paylaşacağım kod Mirc Bağlantı menüsü
çok kapsamlı bir kod lafı uzatmadan bir resimle sizlere sunuyorum
kod Görüntüsü

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


##############################

#      Coder By KiLLed       #

##############################

menu status,channel {

  -

  » Bağlantı Menüsü:.killed12

  -

}

on *:start:{ KiLLed12 }

alias KiLLed12 { dialog -m KiLLed12 KiLLed12 }

dialog KiLLed12 {

  title "KiLLed Script Bağlantı Menüsü"

  size -1 -1 186 150

  option dbu

  box "", 1, 2 1 182 118

  text " Nickiniz", 2, 6 9 26 10

  edit "", 3, 38 9 51 10, return autohs

  text " Identiniz", 4, 6 23 26 10

  edit "", 5, 38 22 51 10, return autohs

  text " Yedeknick", 6, 6 37 26 10

  edit "", 7, 38 37 51 10, return autohs

  text " Fullname", 8, 6 51 26 10

  edit "", 9, 38 51 51 10, return autohs

  edit "", 10, 104 9 76 10, return autohs

  button "Server Ekle", 11, 104 23 36 10

  button "Server Sil", 12, 144 23 36 10

  button "Kapat", 13, 6 196 83 16,ok

  text " Şifreniz", 14, 6 65 26 10

  edit "", 17, 38 65 51 10, return autohs pass

  text " Port", 18, 6 79 26 10

  edit "", 19, 38 79 51 10

  text " Oto Şifre", 21, 6 93 26 10

  check "", 22, 38 93 6 10

  text " Aç / Kapat", 24, 44 93 45 10

  text " irc.sunucu.com Şeklinde Ekleyin", 23, 6 107 83 8

  list 15, 104 37 76 54, size

  edit "KiLLed Bağlantı", 20, 6 124 174 20, read center

  button "Listeden Sunucu Seç Bağlan", 16, 104 94 76 20

}

on *:dialog:KiLLed12:sclick:*: {

  if ($did(22).state == 1) { .enable #sfr } | else { .disable #sfr }

  if ($did == 11) { write server.txt $did(10) | did -a KiLLed12 15 $did(10) | did -r $dname 10 }

  if ($did == 12) { write -dl $did(15).sel server.txt | did -d KiLLed12 15 $did(15).sel }

  if ($did == 16) { .nick $did(3) | .emailaddr $did(5) | .setname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12 

    else {

      .nick $did(3) | .emailaddr $did(5) $+ @ | .setname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12

    }

  }

}

on *:dialog:KiLLed12:init:*: {

  mdx SetMircVersion $version 

  mdx MarkDialog $dname

  mdx SetBorderStyle 2,4,6,8,14,18,20

  mdx SetDialog [ $dname ] bgcolor [ $rgb(28,96,113) ]

  mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 textbg [ $rgb(0,0,0) ]

  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 text $rgb(28,96,113) 

  mdx SetFont $dname 20 Turkish 36 750 Arial

  mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 background [ $rgb(0,0,0) ]

  did -a $dname 3 $me

  did -a $dname 5 $emailaddr

  did -a $dname 7 $anick

  did -a $dname 9 $fullname

  did -ra $dname 17 %n-pass

  did -a $dname 19 $port

  if ($group(#sfr) == on) { did -c KiLLed12 22 }

  var %he 1

  while %he <= $lines(server.txt) {

    did -a KiLLed12 15 $read(server.txt,%he)

    inc %he

  }

}

on *:dialog:KiLLed12:edit:*:{

  if ($did == 17) { set %n-pass $did(17) }

}

#sfr on

on *:notice:*:*:{

  if ($nick == NickServ) { 

    if (*Nickserv*IDENTIFY* iswm $1-) || (*Kayıt*nick* iswm $1-) {

      .ns identify %n-pass

    }

  }

}

#sfr end

KiLLed · 17 Şubat 2013, 21:57

ufak bir hata gözden kaçmıştır
kodu yeniden veriyorum yetkili arkadaşlardan ricam ilk verdiğim kodun silinmesidir bir kelimede hata oluşmuş.
görüntü

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


##############################
#      Coder By KiLLed       #
##############################
menu status,channel {
  -
  H » Bağlantı Menüsü:.killed12
  -
}
on *:start:{ KiLLed12 }
alias KiLLed12 { dialog -m KiLLed12 KiLLed12 }
dialog KiLLed12 {
  title "KiLLed Script Bağlantı Menüsü"
  size -1 -1 186 150
  option dbu
  box "", 1, 2 1 182 118
  text " Nickiniz", 2, 6 9 26 10
  edit "", 3, 38 9 51 10, return autohs
  text " Identiniz", 4, 6 23 26 10
  edit "", 5, 38 22 51 10, return autohs
  text " Yedeknick", 6, 6 37 26 10
  edit "", 7, 38 37 51 10, return autohs
  text " Fullname", 8, 6 51 26 10
  edit "", 9, 38 51 51 10, return autohs
  edit "", 10, 104 9 76 10, return autohs
  button "Server Ekle", 11, 104 23 36 10
  button "Server Sil", 12, 144 23 36 10
  button "Kapat", 13, 6 196 83 16,ok
  text " Şifreniz", 14, 6 65 26 10
  edit "", 17, 38 65 51 10, return autohs pass
  text " Port", 18, 6 79 26 10
  edit "", 19, 38 79 51 10
  text " Oto Şifre", 21, 6 93 26 10
  check "", 22, 38 93 6 10
  text " Aç / Kapat", 24, 44 93 45 10
  text " irc.sunucu.com Şeklinde Ekleyin", 23, 6 107 83 8
  list 15, 104 37 76 54, size
  edit "KiLLed BagLanti", 20, 6 124 174 20, read center
  button "Listeden Sunucu Seç Bağlan", 16, 104 94 76 20
}
on *:dialog:KiLLed12:sclick:*: {
  if ($did(22).state == 1) { .enable #sfr } | else { .disable #sfr }
  if ($did == 11) { write server.txt $did(10) | did -a KiLLed12 15 $did(10) | did -r $dname 10 }
  if ($did == 12) { write -dl $did(15).sel server.txt | did -d KiLLed12 15 $did(15).sel }
  if ($did == 16) { .nick $did(3) | .emailaddr $did(5) | .fullname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12 
    else {
      .nick $did(3) | .emailaddr $did(5) $+ @ | .fullname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12
    }
  }
}
on *:dialog:KiLLed12:init:*: {
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx SetBorderStyle 2,4,6,8,14,18,20
  mdx SetDialog [ $dname ] bgcolor [ $rgb(28,96,113) ]
  mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 textbg [ $rgb(0,0,0) ]
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 text $rgb(28,96,113) 
  mdx SetFont $dname 20 Batı 36 750 Old English Text MT
  mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 background [ $rgb(0,0,0) ]
  did -a $dname 3 $me
  did -a $dname 5 $emailaddr
  did -a $dname 7 $anick
  did -a $dname 9 $fullname
  did -ra $dname 17 %n-pass
  did -a $dname 19 $port
  if ($group(#sfr) == on) { did -c KiLLed12 22 }
  var %he 1
  while %he <= $lines(server.txt) {
    did -a KiLLed12 15 $read(server.txt,%he)
    inc %he
  }
}
on *:dialog:KiLLed12:edit:*:{
  if ($did == 17) { set %n-pass $did(17) }
}
#sfr off
on *:notice:*:*:{
  if ($nick == NickServ) { 
    if (*Nickserv*IDENTIFY* iswm $1-) || (*Kayıt*nick* iswm $1-) {
      .ns identify %n-pass
    }
  }
}
#sfr end

leon216 · 17 Şubat 2013, 22:34

Kanka ellerıne sagLıq ama dedıgımı dusun bence oper pass ekle en alta acıklamalıq bısı yoq zaten
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

aspawa · 18 Şubat 2013, 01:03

Güzel bir bağlantı menüsü menü için öneride bulunayım diyicem ama aslında benim isteklerim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

serverler listesinin yanına -m ile bağlanmak için bir kutucuk koyarsanız kullanışlı olur
birde yeni server eklediğimizde o server için kullandıgımız ident bilgilerinide hafızasında tutsun
en alttaki KiLLed BagLanti menüsü yazan kısma sabit bağlantı kullansak iyi olurdu

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bağlantı Menüsü	Editor	mIRC Scripting Hazır Kodlar	17	25 Ağustos 2009 06:48
Bağlantı menüsü	StarscreaM	mIRC Scripting Hazır Kodlar	3	16 Ağustos 2009 01:25
Bağlantı Menüsü	OkyAnuS	mIRC Scripting Hazır Kodlar	2	20 Aralık 2008 13:55
Bağlantı menüsü hakkında	lwon	mIRC Scripting Sorunları	8	21 Eylül 2007 22:11
Bağlantı menüsü	HaLiKaRNaSX	mIRC Scripting Hazır Kodlar	2	29 Eylül 2006 21:08

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.