Connection multi serveur
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 913 fois - Téléchargée 51 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
;)
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 }
21 déc. 2004 à 19:55
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 }"
21 déc. 2004 à 14:20
21 déc. 2004 à 11:39
<< 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 :(
21 déc. 2004 à 11:34
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
21 déc. 2004 à 10:36
"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.
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.