Connection multi serveur

Commenter

Contenu du snippet

Deux possibilité pour se connecter:
Soit » A l'aide des boutons
Soit » Si les boutons ne correspondent pas aux serveurs auquel vous vous connectez a l'aide de la liste
;)

Source / Exemple : 


alias dserv dialog -m serv serv
dialog serv {
  title Connection au serveur
  size -1 -1 300 235
  list 1, 130 5 160 190, size vsbar
  button "Serveur EpiKnet" ,2, 5 5 120 23, flat
  button "Serveur NetWorld" ,3, 5 28 120 23, flat
  button "Serveur Metropolis" ,4, 5 51 120 23, flat
  button "Serveur jeux.fr" ,5, 5 74 120 23, flat
  button "Connection" ,6, 5 100 120 23, flat disable
  button "Ajouter un Serveur" ,7, 5 123 120 23, flat
  button "Supprimer un Serveur" ,8, 5 146 120 23, flat disable
  edit "LPS-User" ,9, 5 170 120 23, center
  button "&Fermer" ,10, 5 205 285 24, ok
}
on *:dialog:serv:edit:9: { set %pseudo $did(9).text }
on *:dialog:serv:init:0: {
  if (%pseudo) { did -ra $dname 9 %pseudo }
  var %a $numtok(%list.serv,44), %b 0
  while (%a > %b) {
    inc %b
    did -a $dname 1 $gettok(%list.serv,%b,44) ( $+ %network. [ $+ [ $gettok(%list.serv,%b,44) ] ] $+ )
  }
}
on *:dialog:serv:sclick:*: {
  if ($did == 2) { server irc.epiknet.org | dialog -x $dname | nick %pseudo }
  if ($did == 3) { server Networld.zapto.org | dialog -x $dname | nick %pseudo }
  if ($did == 4) { server metropolis.xtrahost.org | dialog -x $dname | nick %pseudo }
  if ($did == 5) { server irc.jeux.fr | dialog -x $dname | nick %pseudo }
  if ($did == 1) { if ($did(1).seltext) { did -e $dname 8,6 } }
  if ($did == 6) {
    nick %pseudo
    server $gettok($did(1).seltext,1,32)
    dialog -x $dname
  }
  if ($did == 7) {
    var %add.serv $?="Serveur IRC"
    if (!%add.serv) { halt }
    var %add.network $?="Nom du server %add.serv $+ "
    if (!%add.network) { var %add.network Inconnu }
    set %list.serv %list.serv $+ , $+ %add.serv
    set %network. [ $+ [ %add.serv ] ] %add.network
    did -a $dname 1 %add.serv ( $+ %add.network $+ )
  }
  if ($did == 8) {
    var %a $gettok($did(1).seltext,1,32)
    set %list.serv $remtok(%list.serv,%a,44)
    did -d $dname 1 $did(1).sel
    did -b $dname 6,8
  }
}
on *:start: { dserv }

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (guigui653)