MDX Connect server dialog

MDX mIRC dialog that connects to a irc network. In this dialog, i have used custom variables. To use the code, change the icon path and also, the dll folder in order to work.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	BLKoldSUN	mdx	Cod testat	110	2026-02-22 17:08:22

alias blkoldsundll { return $+(",$mircdiriChat\dcx\mdx.dll,") }
alias mdx { dll $blkoldsundll $1- }
alias mdxinit {
  dll $blkoldsundll SetMircVersion $version
  dll $blkoldsundll MarkDialog $dname
}

dialog dlgnickname {
  size -1 -1 400 356
  title "Conectare la iChat.ro"
  text "Bine ai venit! Alege un nickname si apasa conectare.",1,16 16 251 13
  text "Nume utilizator:",2,38 64 75 13
  text "Parola (optional):",3,38 90 83 13
  box "Optiuni nickname",4,16 40 368 110
  edit "iChat-3456",5,144 62 220 20
  edit "",6,144 88 220 20
  button "Conectare server",7,144 114 220 24
  box "Optiuni server",8,9 161 370 184
  list 9,20 180 347 156,extsel size
}

on 1:dialog:dlgnickname:edit:*: {
  if ($did == 5) { %connnickname = $remove($did(5).text,$chr(168)) }
  if ($did == 6) { %connpassword = $remove($did(6).text,$chr(168)) }
}

on *:dialog:dlgnickname:init:*:{
  mdxinit
  mdx SetControlMDX $dname 9 ListView report rowselect single grid > $mircdiriChat\dcx\views.mdx
  did -i $dname 9 1 headerdims 100 250
  did -i $dname 9 1 headertext Server $chr(9) Round-Robin
  did -i $dname 9 1 iconsize normal small
  did -i $dname 9 1 seticon normal 0, $+ $mircdiriChat\img\connect-irc.ico
  did -i $dname 9 1 seticon normal 0, $+ $mircdiriChat\img\connect-ssl.ico
  did -a $dname 9 0 2 iChat.ro $chr(9) %connserver $+ : $+ %connserverport
  did -a $dname 9 0 1 iChat.ro (SSL) $chr(9) %conn2server $+ : $+ %conn2serverport
  did -o $dname 5 1 %connnickname
  did -o $dname 6 1 %connpassword
}
on *:dialog:dlgnickname:sclick:7:{
  ;; Cand apas butonul de conectare (7) sa se verifice daca utilizatorul a scris nickname-ul in casuta (5) iar serverul de conectare a fost selectat din lista. (lista se afla la 9) 
  var %connnickname = $did($dname,5)
  var %sel = $did($dname,9).sel

  if (%connnickname == $null) {
    $eroare
    echo -at 14[4Eroare14] 5Nu ai precizat un nickname de conectare!
    did -f $dname 5
    return
  }

  if (%sel == 0) {
    $eroare
    echo -at 14[4Eroare14] 5Nu ai selectat un server pentru conectare!
    return
  }
  var %server = $did($dname,9,%sel).subitem(2)
  ; optional separare host si port
  var %host = $gettok(%server,1,58)
  var %port = $gettok(%server,2,58)
  server %host %port -i %connnickname
}