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 -1 243 196
  option dbu
  icon 1, 5 5 234 87, bağlanti\bağlanti.jpg, 0 noborder
  box "Bağlantı 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 Bağlan", 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 "Bağlan", 21, 193 142 37 30, flat
}
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:16: set %server $did(16).text 
on *:DIALOG:bağlanti:edit:18: set %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 == %cFClineNum) did -c bağlanti 16 $calc(%nCount 1) 
  inc %nCount 
  goto loopnextserver 
  :donenextserver 
}