Menu de connection (login nickserv et chanserv, choix salon,pseudo, choix du serveur en mdx (listview))...version 2 !

Soyez le premier à donner votre avis sur cette source.

Vue 4 064 fois - Téléchargée 216 fois

Description

Bah c'est un petit (gros :D) Menu de connection avec quelques option, une listview mdx...

Source / Exemple :


dialog connect {
  title "Se Connecter..."
  size -1 -1 512 292
  option pixels
  button "Go...", 15, 3 206 162 20, flat ok
  button "Fermer", 3, 3 168 162 20, flat cancel
  text "Serveur :", 4, 40 51 92 15, center
  edit "", 5, 10 26 150 22, center
  text "Entre ton pseudo:", 2, 40 8 92 15, center
  edit %connect, 6, 10 69 150 22, disable center
  text "Entre ton salon :", 7, 40 93 92 15, center
  edit %chan1, 8, 10 111 150 22, center
  tab "Choix du Serveur", 14, 173 2 329 284
  list 1, 178 27 318 165, tab 14 size extsel
  edit "Aide | C'est pas compliqué :); Pour choisir le serveur auquel se connecter faire UN clic sur l'icone souhaiter, pour modifier l'adresse du serveur perso faite UN DOUBLE CLIC sur son icone. J'espere que c'est assé clair :)", 22, 179 199 318 77, tab 14 multi vsbar
  tab "Nick,Chan Serv", 9
  text "Login...", 13, 180 40 315 16, tab 9 center
  box "NickServ", 16, 181 57 313 51, tab 9
  check "Activer", 12, 185 74 59 20, tab 9
  edit %pass1, 11, 242 75 245 22, tab 9 pass center
  check "Activer", 17, 427 122 59 20, tab 9
  box ChanServ, 10, 181 112 313 161, tab 9
  text "Salon :", 19, 203 135 105 16, tab 9
  edit %salonchan, 18, 242 153 245 22, tab 9 center
  text "Mot de pass", 21, 203 176 105 16, tab 9
  edit %passchan, 20, 242 194 245 22, tab 9 center pass 
}

alias /nickident /nickserv identify %pass1
alias /chanident /chanserv identify %salonchan %passchan

on 1:dialog:connect:init:0: {
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname 
  dll mdx.dll SetControlMDX 1 listview showsel infotip sortascending > views.mdx
  did -i connect 1 1 headerdims 290 85
  did -i connect 1 1 headertext $tab(Section 1,Section 2)
  did -i connect 1 1 seticon list 0,images\serveurperso.ico
  did -i connect 1 1 seticon list 0,images\serveur.ico
  did -i connect 1 1 seticon list 0,images\serveur.ico
  did -a connect 1 0 1 $tab(1) Serveur Perso
  did -a connect 1 0 2 $tab(2) irc.voila.fr
  did -a connect 1 0 3 $tab(3) euroserv.fr.quakenet.org
  if ($agentstat == 0) { gstop -c %agent }
  did -a connect 5 $me
  if ($me != %me) { set %me $me }
  if (%passstat == on) { did -c connect 12 )
    if (%passchanstat == on) { did -c connect 17 }
  }
}

;listview
on *:dialog:connect:dclick:1:{
  if ($did(1).sel == 4) { /servperso1 $$?="Config Serveur Perso 1 - Entrez la nouvelle adresse :" }
}

on *:dialog:connect:sclick:1:{
  if ($did(1).sel == 4) {
    set %connect %servperso1
    did6
  }
  if ($did(1).sel == 3) {     
    set %connect irc.voila.fr
    did6
  } 
  if ($did(1).sel == 2) {
    set %connect euroserv.fr.quakenet.org
    did6
  }  
}

on *:connect: {
  join %chan1
  if (%passstat == on) { /nickserv IDENTIFY  %pass1 }
  if (%passchanstat == on) { /chanserv IDENTIFY %salonchan %passchan }
}
on *:dialog:connect:sclick:15:{
  if ($me != %me) { nick %me | .anick $me $+ ` }
  .identd on %me
  server %connect
}
on *:dialog:connect:sclick:3:{ dialog -x connect connect }
on *:dialog:connect:edit:5: { set %me $did(connect,5) }
on *:dialog:connect:edit:6: { set %serv1 $did(connect,6) }
on *:dialog:connect:edit:8: { set %chan1 $did(connect,8) }
on *:dialog:connect:edit:11:{ set %pass1 $did(connect,11) }
on *:dialog:connect:edit:18:{ set %salonchan $did(connect,18) }
on *:dialog:connect:edit:20:{ set %passchan $did(connect,20) }
on *:dialog:connect:sclick:12:{
  if $did(12).state == 1 {
    set %passstat on
  }
  if $did(12).state == 0 {
    set %passstat off  
  }
}
on *:dialog:connect:sclick:17:{
  if $did(17).state == 1 {
    set %passchanstat on
  }
  if $did(17).state == 0 {
    set %passchanstat off  
  }
}
alias did6 {
  did -ar connect 6 %connect
}
alias servperso1 {
  set %servperso1 $$!
  set %connect %servperso1
  did6
}

Conclusion :


Je vous conseille de telecharger le zip car il y a les icones, et la dll...
Je suis en trin d'essayer de faire une autre version, avec possibilité d'ajouter des serveur dans la listview, mais je ne sais absolument pas comment faire :D, donc si vous pouvez m'aider c'est bien volontier !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
19 septembre 2009

Comment on utilise sa svp? >_<
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

moi j'aimerais bien voir des sources plus professionnelles avec des aides moins fantaisistes genre "c'est as compliqué :)" je trouve que ça fait un peu gamin ...
Messages postés
20
Date d'inscription
vendredi 24 octobre 2003
Statut
Membre
Dernière intervention
25 mai 2004

Merci :D

alias servperso1 {
set %servperso1 $$!
set %connect %servperso1
did6
}
remplace par ca :

alias servperso1 {
set %connect $$!
did -ra $dname 6 %connect
}
> Non surtout pas ! lol
Puisqu'il set %servperso avec le $$!
ensuite %connect est setter avec %servperso
Pour aprés faire :
did -ra $dname 6 %connect

Mais comme ca il gardera en memoire l'adresse du serveur perso, si pour une raison ou pour une autre tu changerer ;)
Pas bête hein?!? :p
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
Etant donné que les autres ont déjà dit se qu'il y avait à dire niveau code, je vais parler le l'aspect graphique :
à gauche, je trouve que tes edit et ton bouton sont mal placés, trop d'espace perdu entre eux.
Prévois la possibilité pour l'user de choisir ses propres icones pour les serveurs, sa peut être intéréssant. (moi personnellement, je n'aime pas tes icones, voila pourquoi cet possibilité est intéréssante, tout le monde n'a pas les mêmes goûts)

Voila, maintenant, essaie de suivre les conseils de tout le monde, et ta source sera nickel.

Bonne continuation.
Messages postés
244
Date d'inscription
mercredi 11 juin 2003
Statut
Membre
Dernière intervention
25 juin 2005

Ouais t'as tout compris ! :p
alias did6 {
did -ar connect 6 %connect
}
alias servperso1 {
set %servperso1 $$!
set %connect %servperso1
did6
}
remplace par ca :

alias servperso1 {
set %connect $$!
did -ra $dname 6 %connect
}

ca doit revenir au meme. je pense.

Et si tu dit avoir corrige ta source, met la à jour ici.

j'avais oublié de voté, donc je voterai quand t'auras mis à jour.
Afficher les 11 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.