Connection multi serveur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 717 fois - Téléchargée 49 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
"if ($did == 2) {
if ($version >= 6.12) && ($sslready) { server $iif($server,-m) irc.epiknet.org:+6668 -i %pseudo | dialog -x $dname }
else { server $iif($server,-m) irc.epiknet.org:6667 -i %pseudo | dialog -x $dname }
}"
=
"if $did == 2 {
$iif($version >= 6.12,server $iif($server,-m) $+(irc.epiknet.org:,$iif($sslready,+6668,6667)) -i %pseudo,server $iif($server,-m) irc.epiknet.org:6667 -i %pseudo) | dialog -x $dname }"
Messages postés
2087
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
guigui653 : c'est vrai, mais si on souhaite ensuite réouvrir le menu (en ayant donc mIRC déjà ouvert) pour se connecter à un autre serveur, on va être déconnecté.
Messages postés
969
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
1 juillet 2012
1
if ($did == 2) { server irc.epiknet.org | dialog -x $dname | nick %pseudo }
<< pourrait devenir >>
if ($did == 2) {
if ($version >= 6.12) && ($sslready) { server $iif($server,-m) irc.epiknet.org:+6668 -i %pseudo | dialog -x $dname }
else { server $iif($server,-m) irc.epiknet.org:6667 -i %pseudo | dialog -x $dname }
}

Non ? ça verifie que mIRC est prêt à se connecter en SSL et se connecte au serveur. (+6668 c'est sur certain serveur seulement)

Mets à jour le screen aussi :(
Messages postés
879
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

1) manque un peu d'optimisation tout ça :

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 }

devient :

on *:dialog:serv:*:*:{
if ($devent == init) {
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) ] ] $+ )
}
}
if ($devent == edit) {
if ($did == 9) { set %pseudo $did(9).text }
}
if ($devent == sclick) {
if ($did == 2) { server irc.epiknet.org | dialog -x $dname | nick %pseudo }
if ($did == etc.....) { ... }
}
}

2) Niveau initié ? mouais...

3) Pour ton alias /dserv tu devrais mettre
alias dserv { if (!$dialog(serv)) { dialog -m serv serv }
sinon on obtient :
* /dialog: 'serv' name in use (line 1, dserv.mrc)

4) Lesboutons pour se connecter, j'aime pas trop mais bon, c'est que mon avis

6/10
Messages postés
13
Date d'inscription
samedi 24 juillet 2004
Statut
Membre
Dernière intervention
24 décembre 2004

Sorn Drixer » tu a dit :
"server irc.epiknet.org (ainsi que les autres commandes /server)
Si jamais on est déjà connecté à un serveur, c'est juste bon pour nous déconnecter ca, alors utilise plutôt /server -m leserver, ca ouvrira ainsi une nouvelle connexion sans couper une existante."
Un menu de conection est fait pour s'ouvrir lors de l'ouverture du script donc quand on n'est pas connecter.
Afficher les 6 commentaires

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.