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ü :/baglann
}
alias baglann { dialog -m baglant baglant }
dialog baglant {
  title "Sagopa Script baglantı menüsü"
  size -1 -1 243 196
  option dbu
  icon 1, 5 5 234 87, bağlantibağlanti.jpg, 0 noborder
  box "baglantı menüsü Ayarlar", 2, 5 97 103 43
  text "Nick", 3, 12 109 14 8
  edit "", 4, 43 108 61 11
  text "Altarnative", 5, 11 125 28 8
  edit "", 6, 43 124 61 11
  button "mirchane.net", 7, 112 105 39 14, flat
  box "Hazır baglan", 8, 107 97 134 43
  button "mirctr.org", 9, 112 122 39 14, flat
  button "Zurna.net", 10, 197 105 35 14, flat
  button "mirclan.net", 11, 155 122 38 14, flat
  button "Soyle.net", 12, 155 105 38 14, flat
  button "mirctr.com", 13, 197 122 35 14, flat
  box "", 14, 12 136 221 39
  text "Server", 15, 22 156 19 8
  combo 16, 44 154 83 12, drop
  text "Port", 17, 134 156 14 8
  combo 18, 151 154 39 12, drop
  button "Tamam/Kapat", 19, 151 177 40 12, flat ok,cancel
  button "İptal", 20, 193 177 40 12, flat cancel
  button "baglan", 21, 193 142 37 30, flat
}
on 1:dialog:baglant:init:*:{ 
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetDialog baglant bgcolor $rgb(192,192,192)
  mdx SetDialog baglant 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 baglant 4
    did -e baglant 6 
    did -a baglant 21 baglan 
  } 
  else { 
    did -b baglant 4 
    did -b baglant 6 
    did -a baglant 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:baglant:sclick:7:{ .nick $did(4).text | .anick $did(6).text | server irc.mirchane.net:6667 | kapat } 
on *:DIALOG:baglant:sclick:9:{ .nick $did(4).text | .anick $did(6).text | server irc.mirctr.org:6667 | kapat } 
on *:DIALOG:baglant:sclick:10:{ .nick $did(4).text | .anick $did(6).text | server irc.zurna.net:6667 | kapat } 
on *:DIALOG:baglant:sclick:11:{ .nick $did(4).text | .anick $did(6).text | server irc.mirclan.net:6667 | kapat } 
on *:DIALOG:baglant:sclick:12:{ .nick $did(4).text | .anick $did(6).text | server irc.soyle.net:6668 | kapat } 
on *:DIALOG:baglant:sclick:13:{ .nick $did(4).text | .anick $did(6).text | server irc.mirctr.com:6667 | kapat }
on *:DIALOG:baglant:sclick:21:{ 
  if ($server != $null) { 
    disconnect 
    kapat 
    did -a $dname 21 baglan 
  } 
  else { 
    .nick $did(4).text | .anick $did(6).text 
    server $did(baglant,16) $did(baglant,18) 
    set %server $did(16).text 
    .dialog -c $dname $dname 
  } 
} 
on *:DIALOG:baglant:edit:16: set %server $did(16).text 
on *:DIALOG:baglant:edit:18: set %port $did(18).text 
on *:DIALOG:baglant:sclick:16: { 
  set %cFClineNum n $ $calc($did(baglant,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 baglant baglant 
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 baglant 16 %cFClineNum 
  if (%cLastServerUsed == %cFClineNum) did -c baglant 16 $calc(%nCount 1) 
  inc %nCount 
  goto loopnextserver 
  :donenextserver 
}  
on *:start: { 
  baglann
}