1. Accueil
  2. IRC
  3. Sources IRC
  4. Sources AddOns
  5. Menu de connection (login nickserv et chanserv, choix salon,pseudo, choix du serveur en mdx (listview))...version 2 !

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

0/5 (11 avis)

Vue 4 180 fois - Téléchargée 258 fois

Télécharger le projet
Commenter

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 !
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Shyraa Messages postés 1 Date d'inscription samedi 19 septembre 2009 Statut Membre Dernière intervention 19 septembre 2009
19 sept. 2009 à 17:16
Comment on utilise sa svp? >_<
Kerrigan Messages postés 708 Date d'inscription lundi 15 juillet 2002 Statut Membre Dernière intervention 17 mars 2005
26 févr. 2004 à 12:08
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 ...
cs_Mandrake83 Messages postés 20 Date d'inscription vendredi 24 octobre 2003 Statut Membre Dernière intervention 25 mai 2004
26 févr. 2004 à 10:54
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
cs_SornDrixer Messages postés 2084 Date d'inscription jeudi 12 décembre 2002 Statut Membre Dernière intervention 30 janvier 2011 8
26 févr. 2004 à 08:24
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.
darkyojimbo2 Messages postés 244 Date d'inscription mercredi 11 juin 2003 Statut Membre Dernière intervention 25 juin 2005
26 févr. 2004 à 08:15
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
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 (cs_Mandrake83)