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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 30 Haziran 2009, 18:08   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
baqLantı menüsü sorun




S.a arkadasLar bağlantı menüsü kodu yükLedim ama script açıLdıqında çıkmıo menüde çıkıo bunu nasıL düzeLtirim

kullandıqım kod
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias mdx_sagopa { return $+(",dll\mdx.dll,") }
alias mdx dll $mdx_sagopa $1- }
alias bars { return dll\bars.mdx }
menu menubar,status,channel {
  
Bağlantı Menüsü :/dialog -m bağlanti bağlanti
}
dialog bağlanti {
  
title "Sagopa Script Bağlantı menüsü"
  
size --1 243 196
  option dbu
  icon 1
5 5 234 87bağlanti\bağlanti.jpg0 noborder
  box 
"Bağlantı menüsü Ayarlar"25 97 103 43
  text 
"Nick"312 109 14 8
  edit 
""443 108 61 11
  text 
"Altarnative"511 125 28 8
  edit 
""643 124 61 11
  button 
"mirchane.net"7112 105 39 14flat
  box 
"Hazır Bağlan"8107 97 134 43
  button 
"mirctr.org"9112 122 39 14flat
  button 
"Zurna.net"10197 105 35 14flat
  button 
"mirclan.net"11155 122 38 14flat
  button 
"Soyle.net"12155 105 38 14flat
  button 
"mirctr.com"13197 122 35 14flat
  box 
""1412 136 221 39
  text 
"Server"1522 156 19 8
  combo 16
44 154 83 12drop
  text 
"Port"17134 156 14 8
  combo 18
151 154 39 12drop
  button 
"Tamam/Kapat"19151 177 40 12flat ok,cancel
  button 
"İptal"20193 177 40 12flat cancel
  button 
"Bağlan"21193 142 37 30flat
}
on 1:dialog:bağlanti:init:*:{ 
  
mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetDialog bağlanti bgcolor $rgb
(192,192,192)
  
mdx SetDialog bağlanti style border 
  mdx SetColor 46 textbg $rgb
(0,0,0)
  
mdx SetColor 3,5,15,17,2,8 text $rgb(255,255,255)
  
mdx SetColor 3,5,15,17,2,8 textbg $rgb(192,192,192)
  
mdx SetColor 3,5,15,17,2,8 background $rgb(192,192,192)
  
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55 +k 12 800 Tahoma
  mdx SetBorderStyle 9
,12 staticedge
  
if ($server == $null) { 
    
did -e bağlanti 4
    did 
-e bağlanti 6 
    did 
-a bağlanti 21 Bağlan 
  

  else { 
    
did -b bağlanti 4 
    did 
-b bağlanti 6 
    did 
-a bağlanti 21 Kopart
  

  
did -ac $dname 16 %server 
  did 
-a $dname 16 irc.mİRCHane.Net
  did 
-a $dname 16 irc.mİRCTR.Org
  did 
-a $dname 16 irc.Zurna.Net
  did 
-a $dname 16 irc.mİRCLan.Net
  did 
-a $dname 16 irc.Soyle.Net
  did 
-a $dname 16 irc.mİRCTR.Com 
  did 
-ac $dname 18 6667 
  did 
-a $dname 18 6668 
  did 
-a $dname 18 6669 
  did 
-a $dname 18 7000 
  did 
-a $dname 18 6667
  did 
-a $dname 18 6665 
  did 
-a $dname 4 $readini mirc.ini mIRC nick 
  did 
-a $dname 6 $readini mirc.ini mIRC anick 
  liste

on *:DIALOG:bağlanti:sclick:7:{ .nick $did(4).text | .anick $did(6).text server irc.mirchane.net:6667 kapat 
on *:DIALOG:bağlanti:sclick:9:{ .nick $did(4).text | .anick $did(6).text server irc.mirctr.org:6667 kapat 
on *:DIALOG:bağlanti:sclick:10:{ .nick $did(4).text | .anick $did(6).text server irc.zurna.net:6667 kapat 
on *:DIALOG:bağlanti:sclick:11:{ .nick $did(4).text | .anick $did(6).text server irc.mirclan.net:6667 kapat 
on *:DIALOG:bağlanti:sclick:12:{ .nick $did(4).text | .anick $did(6).text server irc.soyle.net:6668 kapat 
on *:DIALOG:bağlanti:sclick:13:{ .nick $did(4).text | .anick $did(6).text server irc.mirctr.com:6667 kapat }
on *:DIALOG:bağlanti:sclick:21:{ 
  if (
$server != $null) { 
    
disconnect 
    kapat 
    did 
-a $dname 21 Bağlan 
  

  else { 
    .
nick $did(4).text | .anick $did(6).text 
    server $did
(bağlanti,16$did(bağlanti,18
    
set %server $did(16).text 
    
.dialog -c $dname $dname 
  


on *:DIALOG:bağlanti:edit:16set %server $did(16).text 
on 
*:DIALOG:bağlanti:edit:18set %port $did(18).text 
on 
*:DIALOG:bağlanti:sclick:16: { 
  
set %cFClineNum n $calc($did(bağlanti,16).sel 1
  
set %cFClineNum $readini servers.ini servers %cFClineNum 
  set 
%server $gettok($right(%cFClineNum$calc($len(%cFClineNum) - $pos(%cFClineNum,SERVER:,1) - 16)),1,58

alias kapat dialog -c $dname $dname 
alias bağla dialog 
-dma bağlanti bağlanti 
alias liste 

  
set %nCount 0 
  set 
%cFClineNum 
  
:loopnextserver 
  set 
%cFClineNum n $ %nCount 
  
if ($readini servers.ini servers %cFClineNum == $null) goto donenextserver 
  set 
%cFClineNum $readini servers.ini servers %cFClineNum 
  set 
%cFClineNum $mid(%cFClineNum,1,$calc($pos(%cFClineNum,SERVER:,1)-1)) 
  
did -a bağlanti 16 %cFClineNum 
  
if (%cLastServerUsed == %cFClineNumdid -c bağlanti 16 $calc(%nCount 1
  
inc %nCount 
  
goto loopnextserver 
  
:donenextserver 



 
Alıntı ile Cevapla

 

Etiketler
baqlanti, baqlantı, menusu, menüsü, mirc download, mirc indir, sorun


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
30. Gün İftar Menüsü Tanem Yemek Tarifleri 0 12 Mayıs 2019 14:44
Bağlantı Menüsü OkyAnuS mIRC Parça Kodlar 0 05 Mayıs 2019 12:14
Bağlantı Menüsü. YouMyCure mIRC Parça Kodlar 7 26 Şubat 2016 13:06
Baqlantı menüsünde nick sorunu lacremel mIRC Scripting Sorunları 5 08 Ağustos 2007 02:31