CONNECTION À UN SERVEUR EN DIALOGUE

on *:LOAD:{ echo $active 4 vous venez de charger avec succès l'add-on serveur par SeigneurCarpe - Auteur de %version ! 10 visitez le site: http://www.onlyu.fr.st }
on *:UNLOAD:{ echo $active 4 vous venez de décharger avec succès l'add-on serveur par SeigneurCarpe - Auteur de %version ! 10 visitez le site: http://www.onlyu.fr.st }

alias serveur {
  dialog -m Dem_ServeurCS Dem_ServeurCS
}
;***************************************************
;   tableau principal
;***************************************************

dialog Dem_ServeurCS {
  title "Serveur By SeigneurCarpe Novembre 2003"
  option dbu

  size -1 -1 160 160

  text "Pseudo:"                       ,10, 25 25 40 10
  text "Pseudo alternatif:"                ,12, 10 37 46 10
  text "info:"                       ,14, 45 51 20 10
  text "user:"                       ,16, 45 63 20 10

  edit $readini mirc.ini mirc nick   ,11, 57 23 45 11
  edit $readini mirc.ini mirc anick  ,13, 57 35 45 11
  edit $readini mirc.ini mirc user   ,15, 57 49 80 11
  edit $readini mirc.ini mirc email ,17, 57 61 80 11

  box "Serveur:" , 18, 20 75 133 62
  combo  19, 30 85 120 130  , drop
  button "Ajouter" ,111, 30 105 40 11 default
  button "Enlever" ,112, 80 105 40 11 default
  button "connection" ,113, 30 120 40 11 default
  button "multi-serveur" ,114, 80 120 40 11 default
  button "ok" ,69 , 30 143 40 11, ok
  button "Annuler" ,70 , 80 143 40 11, cancel
  icon 71,10 10 20 20,icones/favicon2.ico
  link "http://www.onlyu.fr.st",72,30 10 70 100

}

on 1:dialog:Dem_ServeurCS:init:*: {

  /var %compteurLigne 1
  ;/******** condition: le compteurlignes doit etre inferieur ou egal au nb de lignes de $mircdir\serveurs.ini
  ;/******** de facon a voir ds le combo toutes les lignes de serveur.ini
  while ( %compteurLigne <= $lines($mircdir\serveurs.ini) ) {

    ;/******** initialisation de la boucle combo /nb de lignes de serveurs.ini ***********/
    /did -a Dem_ServeurCS 19 $read -l [ $+ [ %compteurLigne ] ] $mircdir\serveurs.ini

    ;/***incrementation du compteur *****************/
    /inc %compteurLigne
  }

  ;/*** si $server n est pas nul
  if ( $server != $null ) {

    ;/*** lire le nick à partir de mirc.ini
    /did -m Dem_ServeurCS 11

    ;/*** 
    /did -m Dem_ServeurCS 13
  }

  ;/*** et dans ts les cas ...
  ;/*** cocher la 1e ligne du combo  
  /did -c Dem_ServeurCS 19 1

  ;/*** activer le bouton ajouter
  /did -e Dem_ServeurCS 111

  ;/*** activer le bouton supprimer
  /did -e Dem_ServeurCS 112
  /did -e Dem_ServeurCS 72
}

on 1:dialog:Dem_ServeurCS:sclick:72:{ run http://www.onlyu.fr.St }

;/*** CAS du Bouton ajouter
on 1:dialog:Dem_ServeurCS:sclick:111: {
  ;/*** ajout d'un serveur
  /var %server $$?="adresse du serveur à ajouter"

  ;/*** ajouter a la fin du combo et l'ecrire dans le fichier
  /did -a Dem_ServeurCS 19 %server
  /write $mircdir\serveurs.ini %server

  ;/*** cocher cette ligne ajoutée dans la combo (la mettre en surbrillance)
  /did -c Dem_ServeurCS 19 $lines($mircdir\serveurs.ini)

}

;/*** CAS du bouton Enlever
on 1:dialog:Dem_ServeurCS:sclick:112: {

  ;/*** enlever la selection du fichier serveur.ini
  /write -dl $+ $did(Dem_ServeurCS,19).sel $mircdir\serveurs.ini

  ;/*** effacer cette ligne du combo
  /did -r Dem_ServeurCS 19 $did(Dem_ServeurCS,19).sel

  ;/*** remettre à jour le combo
  /var %compteurLigne 1
  while ( %compteurLigne <= $lines(serveur.ini) ) {
    /did -a Dem_ServeurCS 19 $read -l [ $+ [ %compteurLigne ] ] $mircdir\serveurs.ini
    /inc %compteurLigne
  }

  if ( $server != $null ) {
    ;/*** desactiver le nick
    /did -m Dem_ServeurCS 11
    ;/*** desactiver l'Anick (nick alternatif)
    /did -m Dem_ServeurCS 13
  }
  ;/*** par defaut on recoche la 1e ligne du combo
  /did -c Dem_ServeurCS 19 1

}

;***************************************************
;   bouton ok de fin et de connection
;***************************************************

on 1:dialog:Dem_ServeurCS:sclick:69,113: {

  ;/*** ecriture apres remplissage nick, anick, email et user
  if ( $did(Dem_ServeurCS,11).edited == $true ) { /.nick $did(Dem_ServeurCS,11).text | /writeini mirc.ini mirc nick $did(Dem_ServeurCS,11).text }
  if ( $did(Dem_ServeurCS,13).edited == $true ) { /.anick $did(Dem_ServeurCS,13).text | /writeini mirc.ini mirc anick $did(Dem_ServeurCS,13).text }
  if ( $did(Dem_ServeurCS,15).edited == $true ) { /.fullname $did(Dem_ServeurCS,15).text | /writeini mirc.ini mirc user $did(Dem_ServeurCS,15).text }
  if ( $did(Dem_ServeurCS,17).edited == $true ) { /.emailaddr $did(Dem_ServeurCS,17).text | /writeini mirc.ini mirc email $did(Dem_ServeurCS,17).text  }

  ;choix du combo
  /var %compteurLigne 1
  while ( %compteurLigne <= $readini tableau.ini server nbrserv ) {
    if ( $did(Dem_ServeurCS,19,1).sel == %compteurLigne ) { 
      /var %a 
      %a = n $+ %compteurLigne    
      /writeini tableau.ini base serveur $readini tableau.ini server %a 
    }  
    /inc %compteurLigne
  }

  if ( $did == 113 ) {
    /server $did(Dem_ServeurCS,19,$did(Dem_ServeurCS,19,1).sel).text
    /dialog -x Dem_ServeurCS
  }
}
on 1:dialog:Dem_ServeurCS:sclick:69,114: {

  ;1ere page
  if ( $did(Dem_ServeurCS,11).edited == $true ) { /.nick $did(Dem_ServeurCS,11).text }
  if ( $did(Dem_ServeurCS,13).edited == $true ) { /.anick $did(Dem_ServeurCS,13).text }
  if ( $did(Dem_ServeurCS,15).edited == $true ) { /.fullname $did(Dem_ServeurCS,15).text }
  if ( $did(Dem_ServeurCS,17).edited == $true ) { /.emailaddr $did(Dem_ServeurCS,17).text $+ @voila.fr }

  ;choix du combo
  /var %compteurLigne 1
  while ( %compteurLigne <= $readini tableau.ini server nbrserv ) {
    if ( $did(Dem_ServeurCS,19,1).sel == %compteurLigne ) { 
      /var %a 
      %a = n $+ %compteurLigne    
      /writeini tableau.ini base serveur $readini tableau.ini server %a 
    }  
    /inc %compteurLigne
  }

  if ( $did == 114 ) {
    /server -m $did(Dem_ServeurCS,19,$did(Dem_ServeurCS,19,1).sel).text
    /dialog -x Dem_ServeurCS
  }
}


;***************************************************
;   bouton ok de fin
;***************************************************

on 1:dialog:info:sclick:69: {
  ;1ere page
  if ( $did(info,1).edited == $true ) { 
    if ( $did(info,1).text != $null ) {
      /set %asv $did(info,1).text 
    }
    else {
      /set %asv ""
    }


    if ( $did(info,2).edited == $true ) { 
      if ( $did(info,2).text != $null ) {
        /set %mail $did(info,2).text 
      }
      else {
        /set %mail ""
      }
    }

    if ( $did(info,3).edited == $true ) { 
      if ( $did(info,3).text != $null ) {
        /set %url $did(info,3).text 
      }
      else {
        /set %url ""
      }
    }
  }
}


Button "ok"      , 69, 15 150 30 15, ok
}

Télécharger le zip