[script]
n0=alias multiserv dialog -m multiconfig multiconfig
n1=on 1:sockopen:server:{
n2=  if ($sockerr > 0) { echo 4 -i2t @Status error | return }
n3=  set %commande nick %me | multiwrite server %commande | set %commande user %username $host %server : $+ %ircname | multiwrite server %commande
n4=}
n5=
n6=on 1:sockread:server:{
n7=  if ($sockerr > 0) { echo 4 -i2t @Status error | return
n8=  }
n9=  :nextread
n10=  sockread %temp
n11=  if (%temp == $null) %temp = -
n12=  if ($sockbr == 0) return
n13=  multiserverprocess %temp
n14=  unset %temp
n15=  goto nextread
n16=}
n17=
n18=on 1:sockclose:server:{
n19=  echo @Status 2*** Disconnected
n20=  set -u0 %strtemp @#* $+ %server
n21=  set -u0 %nbwind $window(%strtemp,0)
n22=  if (%nbwind != 0) {
n23=    set -u0 %cmpt 1
n24=
n25=    :debut
n26=    set -u0 %window $window(%strtemp,%cmpt)
n27=    echo %window 2*** Disconnected
n28=
n29=    if (%cmpt == %nbwind) goto fin
n30=    inc %cmpt
n31=    goto debut
n32=    :fin
n33=  }
n34=}
n35=
n36=on 1:close:@* $+ %server:{
n37=  if ($target == @Status) {
n38=    if ($sock(server).status == active) multiwrite server quit :Leaving
n39=    sockclose server
n40=  }
n41=  if ($left($target,2) == @#) {
n42=    multiwrite server part $multiextractchannel($target)
n43=  }
n44=}
n45=
n46=on 1:input:@ $+ * $+ %server:{
n47=  multiuserprocess $target $1-
n48=  halt
n49=}
n50=menu @#* {
n51=  dclick:{
n52=    set %tmp $lower($line($active,$1,1))
n53=    if ($pos(%tmp,@,1) == 1 || $pos(%tmp,+,1) == 1) {
n54=      set %tmp $multifin(%tmp)
n55=    }
n56=    set %window @ $+ %tmp $+ : $+ %server
n57=    if ($window(%window,0) == 0) {
n58=      window -ke %window
n59=    }
n60=    unset %tmp
n61=  }
n62=  advertise:multiuserprocess $active /say $multiselectednick($active) I'm Using $irc Get It From 2http://www.webnetsuck.cjb.net
n63=  whois:multiuserprocess $active /whois $multiselectednick($active)
n64=  query:halt
n65=  ucentral:halt
n66=  -
n67=  control
n68=  .ignore:halt
n69=  .op:multiuserprocess $active /mode $multiextractchannel($active) +o $multiselectednick($active)
n70=  .deop:multiuserprocess $active /mode $multiextractchannel($active) -o $multiselectednick($active)
n71=  .kick:halt
n72=  .kick (why):halt
n73=  .ban:halt
n74=  .ban, kick:halt
n75=  ctcp
n76=  .ping:multiuserprocess $active /ctcp $multiselectednick($active) ping
n77=  .finger:multiuserprocess $active /ctcp $multiselectednick($active) finger
n78=  .version:multiuserprocess $active /ctcp $multiselectednick($active) version
n79=  .time:multiuserprocess $active /ctcp $multiselectednick($active) time
n80=  .userinfo:multiuserprocess $active /ctcp $multiselectednick($active) userinfo
n81=  .clientinfo:multiuserprocess $active /ctcp $multiselectednick($active) clientinfo
n82=  dcc
n83=  .send:halt
n84=  .chat:halt
n85=}
n86=on 1:dialog:multiconfig:sclick:*:{
n87=  if ($did == 4) { multiconnect %server1 6667 }
n88=  if ($did == 200) { $dname | halt }
n89=}
n90=dialog multiconfig {
n91=  title "Multi Connection."
n92=  size -1 -1 300 245
n93=  box "", 50, -10 70 370 135
n94=  text "&Nick",5,10 103 50 20
n95=  text "&Identd ",6,10 133 50 20
n96=  text "&Irc &Name",7,10 163 50 20
n97=  text "&Server",12,10 13 50 20
n98=  edit "" ,1, 60 100  200 20, autohs
n99=  edit "",2,60 130   200 20, autohs
n100=  edit "",3,60 160 200 20, autohs
n101=  edit "",11,60 10 200 20, autohs
n102=  button "Connect to Sock Server", 4, 90 40 130 25
n103=  button "OK", 200, 70 212 60 25, ok
n104=  button "Cancel", 201, 170 212 60 25, cancel
n105=}
n106=
n107=dialog multidccchat {
n108=  title "mIRC DCC Chat"
n109=  size -1 -1 244 117
n110=  text "toto",1,5,1 4 55 20
n111=  button "Chat!",10,34 84 55 26,ok,default
n112=  button "Cancel",11,96 84 55 26,cancel
n113=  button "Ignore",12,158 84 55 26
n114=}
n115=on 1:dialog:multiconfig:edit:1: {
n116=  set %me $did(1)
n117=}
n118=on 1:dialog:multiconfig:edit:2: {
n119=  set %username $did(2)
n120=}
n121=on 1:dialog:multiconfig:edit:3: {
n122=  set %ircname $did(3) 
n123=}
n124=on 1:dialog:multiconfig:edit:11: {
n125=  set %server1 $did(11)
n126=}
