Dialog de connexion multiserveur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 162 fois - Téléchargée 26 fois

Contenu du snippet

Bon voici le dialog faudra le modif un peu pour l'adapter à votre script rajouter une icone pis un jpg c'est surout pour ceux qui ont du mal à faire leurs dialogs voila...

Source / Exemple :


dialog connec {
  title "»Connexion ! - XerBo"
  size -1 -1 185 105
  option dbu
  icon $mircdirSysteme\Graphiques\fserver.ico, 0
  button "ø Fermer ø", 1, 152 95 32 9, flat ok
  box "", 2, 3 27 83 30
  text "Ton pseudo :", 3, 28 34 33 9
  box "Informations", 5, 89 0 95 39
  text "Le script a déja été lancé", 6, 91 9 60 10
  text "fois.", 8, 167 9 13 10
  text "Il est", 9, 118 25 13 10
  box "Bienvenue", 13, 3 0 83 27
  text "Tu utilises le XerBo Script, bon t'chat !", 14, 9 9 71 21, center
  icon 15, 4 59 82 32,  $scriptdir\graphiques\hell.jpg, 0, noborder
  box "Choix du serveur", 16, 88 39 96 53
  combo 17, 97 53 79 60, drop
  button "Ajouter", 19, 112 67 23 10
  button "Enlever", 20, 137 67 23 10
  button "Se connecter!", 18, 114 79 44 10
  check "Multi-serveur", 21, 136 45 44 7
  edit %u-pseudo, 4, 11 44 67 10
  text $time, 7, 132 25 42 8
  text %u-nbrlaunch, 10, 152 9 15 8, center
}

on 1:dialog:connec:*:*:{
  if ( $devent = sclick && $did = 18 ) {
    if ( $did(21).state = 1 ) { %u-multiserv = -m }
    if ( $did(21).state = 0 ) { unset %u-multiserv }
    if ( $did(4) != $null ) { %u-pseudotemp = $did(4) }
    if ( $did(4) = $null ) { %u-pseudotemp = %u-pseudo }
    %u-pseudotemp = [ [ %u-pseudotemp ] ]
    if ( $did(17).seltext = $null ) { if ( $input(»Il faut choisir un serveur !,4,»Erreur) = $true ) { halt } }
    var %temp2 = 0
    :boucle
    inc %temp2
    if ( %temp2 > 50 ) { halt }
    var %temp = %u-servn [ $+ [ %temp2 ] ] ( %u-serva [ $+ [ %temp2 ] ] )
    if ( %temp = $did(17).seltext ) { server %u-multiserv %u-serva [ $+ [ %temp2 ] ] | goto fin }
    goto boucle
    :fin
    dx connec
  }
  if ( $devent = sclick && $did = 19 ) { d addserv }
  if ( $devent = sclick && $did = 20 ) {
    if ( $did(17).seltext = $null ) { if ( $input(»Il faut choisir un serveur à supprimer !,4,»Erreur) = $true ) { halt } }
    var %temp2 = 0
    :boucle
    inc %temp2
    if ( %temp2 > 50 ) { halt }
    var %temp = %u-servn [ $+ [ %temp2 ] ] ( %u-serva [ $+ [ %temp2 ] ] )
    if ( %temp = $did(17).seltext ) { unset %u-servn [ $+ [ %temp2 ] ] | unset %u-serva [ $+ [ %temp2 ] ] | goto fin }
    goto boucle
    :fin 
    majserv
  }

  if ( $devent = init ) {
    mark $dname

    majserv
  }
}

ON ^1:LOGON:*:{ %u-tempconnect = $true | .timer 1 1 .RAW NICK %u-pseudotemp  | .timer 1 3 .RAW USER XerBo- [ $+ [ %u-sident ] ] XerBo- [ $+ [ %u-sident ] ] XerBo- [ $+ [ %u-sident ] ] : $+ [ %u- [ $+ [ p [ $+ [ u [ $+ [ bc ] ] ] ] ] ] ] | halt } 

dialog addserv {
  title "Ajouter serv"
  size -1 -1 133 110
  option pixels
  button "ø Ajouter ø", 1, 4 90 63 17, ok
  button "ø Annuler ø", 2, 67 90 63 17, cancel
  text "Nom du serveur :", 3, 23 8 88 16
  edit "", 4, 5 25 120 20, autohs
  text "Adresse du serveur :", 5, 16 47 105 16
  edit "", 6, 5 61 120 20, autohs
}

alias majserv {
  did -r connec 17
  var %bouh = 0
  :boucle
  inc %bouh 1
  if ( %bouh > 50 ) { halt }
  if ( %u-servn [ $+ [ %bouh ] ] != $null ) { did -a connec 17 %u-servn [ $+ [ %bouh ] ] ( %u-serva [ $+ [ %bouh ] ] ) }
  goto boucle
}
on 1:dialog:addserv:sclick:1:{
  if ( $did(4) = $null ) { if ( $input(»Il faut entrer un nom pour le serveur !,4,»Erreur) = $true ) { halt } }
  if ( $did(6) = $null ) { if ( $input(»Il faut entrer l'adresse du serveur !,4,»Erreur) = $true ) { halt } }
  var %addserv = 0
  :boucle
  inc %addserv
  if ( %addserv > 50 ) { if ( $input(»Tu ne peux pas mettre plus de 50 serveurs !,4,»Erreur) = $true ) { halt } }
  if ( %u-servn [ $+ [ %addserv ] ] = $null ) { %u-servn [ $+ [ %addserv ] ] = $did(4) | %u-serva [ $+ [ %addserv ] ] = $did(6) | goto fin }
  goto boucle
  :fin
  dx addserv
  majserv
}

A voir également

Ajouter un commentaire

Commentaires

jujuquatre
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004
-
Heu pti prob quan on ve rajouter un serveur sa met : commande D inconnu :/
cs_PsYZiK
Messages postés
58
Date d'inscription
jeudi 5 juin 2003
Statut
Membre
Dernière intervention
6 août 2004
-
pas mal mais ca reste plein de bugss :)

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.