Gestion de connection server en dialog

Commenter

Contenu du snippet

un petit dialog de debutant qui apprend toujour et qui en est qu'au debut encore
il permet de se connecter a different server que j'utillise et une possibilité de se connecter a vore propre server

Source / Exemple : 


;gestion de double connection
;par druide77
;pour immortal`scrript

menu channel,query,menubar {
  conection plus:/dialog -m serverplus serverplus
}
dialog serverplus {
  title "connection serveur en -m"
  size -1 -1 242 107
  option dbu
  button "server voila/wanadoo", 1, 1 14 78 14
  button "connection", 2, 78 79 78 9
  button "server karmagore.zapto.org", 3, 82 14 78 14
  button "server irc.liberix.org", 4, 162 14 78 14
  edit "", 5, 94 52 50 10
  text "connectez vous aux server suivant ou utiliser vos server personnel", 6, 14 3 214 8, center
  text "quelle pseudo a utiliser ??", 7, 82 43 75 8, center
  text "utiliser votre server personnel", 8, 73 66 87 8, center
  edit "", 9, 46 92 60 10
  text "server irc:", 10, 20 92 25 8
  text "port:", 11, 114 92 15 8
  edit "", 12, 130 91 50 10
  button "", 1000, 0 0 0 0, ok
}

on *:dialog:serverplus:*:* {
  if ($did == 3) {
    If ($did($dname,5) == $null) { /set %alert  Champ vide, vous devez entrer un texte  | /dialog -m alert alert 
    }
    Else { /set %pseudo $did($dname,5) | /nick %pseudo 
    }
    if ($did == 3) { /server -m karmagore.zapto.org 6667 }
  }
  if ($did == 4) {
    If ($did($dname,5) == $null) { /set %alert  Champ vide, vous devez entrer un texte  | /dialog -m alert alert 
    }
    Else { /set %pseudo $did($dname,5) | /nick %pseudo 
    }
    if ($did == 4) { /server -m irc.liberix.org 6667 }
  }
  if ($did == 1) {
    If ($did($dname,5) == $null) { /set %alert  Champ vide, vous devez entrer un texte  | /dialog -m alert alert 
    }
    Else { /set %pseudo $did($dname,5) | /nick %pseudo 
    }
    if ($did == 1) { /server -m irc.voila.fr 6667 }
  }
  if ($did == 2) {
    If ($did($dname,9) == $null) { /set %alert  Champ vide, vous devez entrer un server  | /dialog -m alert alert 
    }
    Else { /set %text $did($dname,9) | 
    }
    If ($did($dname,12) == $null) { /set %alert  Champ vide, vous devez entrer un port | /dialog -m alert alert 
    }
    Else { /set %text2 $did($dname,12) | /server -m %text %text2
    }
    If ($did($dname,5) == $null) { /set %alert  entrez un pseudo a utiliser  | /dialog -m alert alert 
    }
    Else { /set %pseudo $did($dname,5) | /nick %pseudo 
    }
  }
}

Conclusion :


faite un nouveau fichier remote et placer le dedans ;-)

A voir également

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 (druide77)