Multiserver + identify

Commenter

Contenu du snippet

Met c'est cool j'voit que ircfr.com a changer ^^ bon heu
C'est un dialog de connection "Pour se connecter" sur le serveur que vous voulez ( avec l'option multiserver ) avec une list qui contient les serveur ( que vous pouvez ajouter ou suprimmer ) stocker dans un token , et 2 edit ou "pseudo" et "password"

Source / Exemple : 


;-------------------------------
; Multi Server + Identification 
;           By Jujuquatre 
;-------------------------------

; LOAD
on *:load:{
  /echo -a Chargement De L'addon Effectuer !
  /echo -a Pour l'ouvrir tape /multis
  /set %password02 pass
  /set %nickname02 nick
  /set %multis.server irc.jeuxvideo.com:6667
}

; ALIAS
alias multis { /dialog -m multis multis }

; DIALOG
dialog multis {
  title "Multiserver"
  size -1 -1 160 86
  option dbu
  check "MultiServer", 3, 92 75 50 10, flat
  edit "", 4, 35 24 50 10, autohs
  button "Ajouter", 5, 42 35 37 8, flat
  text "Serveur :", 6, 2 25 33 8
  button "Suprimmer", 7, 42 46 37 8, flat
  list 8, 91 24 65 50, size vsbar
  button "Se connecter", 9, 42 57 37 8, flat
  button "OK", 10, 2 76 27 8, ok cancel
  text "Pseudo :", 13, 2 4 29 8
  edit %nickname02, 14, 35 3 50 10, autohs center
  text "Password :", 15, 87 4 27 8
  edit %password02, 16, 116 3 42 10, autohs pass center
  box "", 17, -1 15 162 4
  box "", 18, -15 69 50 50
}

; EVENEMENT
on *:dialog:multis:init:0:{
  if ( $did(8).sel == $null ) { /did -b multis 7,9 }
  if ( $did(4).text == $null ) { did -b multis 5 }
  multisinit
}

on *:dialog:multis:edit:*:{
  set %nickname02 $did(14,multis)
  set %password02 $did(16,multis)
  if ( $did(4).text != $null ) { did -e multis 5 }
  if ( $did(4).text == $null ) { did -b multis 5 }
}
on *:dialog:multis:sclick:*:{
  if ($did == 5) {
    if ( $chr(44) isin $did(4) ) { var %erreurr = $input(Ne m'est pas de point virgule !,300,Avertissement) | halt }
    var %multis.ajout = $did(4)
    set %multis.server $sorttok($addtok(%multis.server,%multis.ajout,44),44)
    multisinit
  }
  elseif ($did == 7) {
    set %multis.server $remtok(%multis.server,$gettok(%multis.server,$did(8).sel,44),44)
    multisinit
  }
  elseif ($did == 8) { /did -r multis 4 | /did -a multis 4 $did(8).seltext | did -e multis 9,7 }
  elseif ($did == 9) { if ( $did(3).state == 1 ) { /server -m $did(4) | /nick %nickname02 }
    else { /server $did(4) | /nick %nickname02 }
  }
}

; LIST
alias multisinit {
  did -r multis 8,4
  if (%multis.server !== $null) {
    var %multis.loop.n = 1
    :loop
    did -a multis 8 $gettok(%multis.server,%multis.loop.n,44)
    inc %multis.loop.n
    if ($gettok(%multis.server,%multis.loop.n,44) !== $null) { goto loop }
  }
  else {
    unset %multis.server
} }

; IDENTIFY
on *:connect:{
  if ( $nick == $me ) { /msg nickserv identify %password02 }
}

Conclusion :


Voillaaa :D

PS: Si vous voulez que sa s'ourvre a chaque ouverture du script ajouter sa lol " on *:start:{ /multis } "

et si votre commande pour vous identifier n'est pas ( /msg nickserv identify <lepass> ) et ben changer le a la avant derniere ligne :)

Cool ^^ Good Scripting :p
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 (jujuquatre)