Multiserver + identify

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 707 fois - Téléchargée 26 fois

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

A voir également

Ajouter un commentaire

Commentaires

snip74
Messages postés
248
Date d'inscription
vendredi 3 novembre 2006
Statut
Membre
Dernière intervention
11 février 2013

bonjour all,
j'aime bien mes limité a 5 server dommage ^^ et se qui serrai bien c'est qu'il soi dans un fichier Txt a la place des variables aprés je suis pas arriver a mettre plus de server car niveau code je suis limité (débutent)

Cordialement Stéphane
cs_thyb
Messages postés
217
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
22 mai 2004

deja ton cennect est bisard lol if ($nick == $me) {
l'event on 1:connect: ne marche que sur toi ... donc ca sert a rien de mettre if ($nick $me ) mais tu aurai du mettre if (%nickname02 $me) { ... }
et tu aurai aussi du faire un on 1:nick: { if (%nickname02 $newnick) && ($nick $me) { .msg nickserv identify %password02 } }
voila sinon je trouve que sa aurai pu etre cool de mettre un combo pour mettre les $network :) et que tu tri les server car sinon moi je me retrouve avec 35server en vrac ... apres sa devien un peu le bazard lol
et puis au niveau design ... c pas top :)
a part c petit detaille, c pas mal :)
bonne continuation
Kerrigan
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

pas exceptionel mais ça peu servir

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.