Cet add-on ne laisse mIRC se connecter a un server que si vous êtes identifié(e). Une configuration est prévue pour activer ou déactiver l'identifieur, changer de pseudo a l'identification... Grandement utile pour les chatteurs ne voulant pas que le petit frère ou la petite soeur utile leur mIRC =]. Vous pouvez créer 5 pseudo différents.
Source / Exemple :
alias dpass dialog -m dpass dpass
dialog dpass {
title "Identifiez-vous"
size -1 -1 350 265
button "Valider", 1,120 200 100 20,ok
button "Annuler", 20, 1 1 1 1, hide, cancel
text "Identifiez-vous, si vous avez besoin d'aide cliquez sur <Aide>.", 6, 10 10 250 30,
text "Sélectionez votre pseudo :",2,75 70 150 20,
combo 3, 75 90 200 100,drop
text "Tapez votre mot de passe :",4, 75 130 150 20,
edit "",5, 75 150 200 20, pass,
button "Aide", 7,270 10 70 18
text "_______________________________________________________________", 9, 10 40 330 20,
text "_______________________________________________________________", 10, 10 180 330 20
text "Créé par zad. Originalement sur DaRkScript © v1.0", 11, 10 230 330 20, right
text "Tout droits réservés © 2001-2002", 12, 10 245 330 20, right
button "Configurer", 13, 270 30 70 18
}
on *:dialog:dpass:init:0:{
did -b dpass 9 | did -b dpass 10 | did -b dpass 11 | did -b dpass 12
if (%vpass1 == mp) { did -a dpass 6 A la dernière identification, vous avez tapé un mauvais mot de passe... }
rpass
if (%vpass != ok) { did -e dpass 5 | did -e dpass 3 | did -e dpass 1 | did -f dpass 5 }
if (%vpass == ok) { did -b dpass 5 | did -b dpass 3 | did -b dpass 1 | did -a dpass 6 Inutile de vous identifier à nouveau, cela ne servirais a rien... }
if (%identification != Activé) { did -b dpass 5 | did -b dpass 3 | did -b dpass 1 | did -a dpass 6 Vous n'avez pas besoin de vous identifier, vous ne l'avez pas demandé... }
}
on 1:dialog:dpass:sclick:20:{
if (%vpass != ok) { exit }
}
on 1:active:dpass: { did -f dpass 5 }
alias rpass {
if (%pseudo1 != $null) { did -ca dpass 3 %pseudo1 }
if (%pseudo2 != $null) { did -a dpass 3 %pseudo2 }
if (%pseudo3 != $null) { did -a dpass 3 %pseudo3 }
if (%pseudo4 != $null) { did -a dpass 3 %pseudo4 }
if (%pseudo5 != $null) { did -a dpass 3 %pseudo5 }
}
alias rpass1 {
if (%pseudo1 != $null) { did -ca spass 2 %pseudo1 }
if (%pseudo2 != $null) { did -a spass 2 %pseudo2 }
if (%pseudo3 != $null) { did -a spass 2 %pseudo3 }
if (%pseudo4 != $null) { did -a spass 2 %pseudo4 }
if (%pseudo5 != $null) { did -a spass 2 %pseudo5 }
}
on 1:dialog:dpass:sclick:1:{
if ($did(3).sel == 1) { set %pass %pass1 | set %fpass %pass1 }
if ($did(3).sel == 2) { set %pass %pass2 | set %fpass %pass2 }
if ($did(3).sel == 3) { set %pass %pass3 | set %fpass %pass3 }
if ($did(3).sel == 4) { set %pass %pass4 | set %fpass %pass4 }
if ($did(3).sel == 5) { set %pass %pass5 | set %fpass %pass5 }
if ($did(5) == %pass) {
set %vpass ok
unset %vpass1
unset %pass
unset %fpass
if (%nickpass == Activé) { .nick $did(3) }
if (%idenconnect == Activé) {
if (%idenconnect.style == 1) { server }
if (%idenconnect.style == 2) { server %adconnect.pass }
}
}
else {
fpass
}
}
on 1:dialog:dpass:sclick:7:{
apass
}
on 1:dialog:dpass:sclick:13:{
confpass
}
alias cpass dialog -m cpass cpass
dialog cpass {
title "Créer un pseudo"
size -1 -1 200 160
button "Créer", 1, 50 130 100 20,ok
edit "", 2, 25 30 150 20
text "Tapez votre nouveau pseudo :", 3, 10 10 180 20,center
text "Tapez votre mot de passe :", 4, 10 60 180 20,center
edit "", 5, 25 80 150 20, pass
text "_________________________________________", 6, 10 110 180 20
}
on *:dialog:cpass:init:0:{
if (%vpass != ok) { did -b cpass 1 | did -b cpass 2 | did -b cpass 5 }
if (%pseudo1 == $null) { did -e cpass 1 | did -e cpass 2 | did -e cpass 5 }
did -b cpass 6
}
on 1:dialog:cpass:sclick:1:{
if ($did(2) != $null) && ($did(5) != $null) {
if (%pseudo1 == $null) { set %pseudo1 $did(2) | goto next }
if (%pseudo2 == $null) { set %pseudo2 $did(2) | goto next }
if (%pseudo3 == $null) { set %pseudo3 $did(2) | goto next }
if (%pseudo4 == $null) { set %pseudo4 $did(2) | goto next }
if (%pseudo5 == $null) { set %pseudo5 $did(2) | goto next }
:next
if (%pass1 == $null) { set %pass1 $did(5) | goto end }
if (%pass2 == $null) { set %pass2 $did(5) | goto end }
if (%pass3 == $null) { set %pass3 $did(5) | goto end }
if (%pass4 == $null) { set %pass4 $did(5) | goto end }
if (%pass5 == $null) { set %pass5 $did(5) | goto end }
:end
if ($dialog(dpass).title != $null) {
did -r dpass 3
rpass
}
}
}
alias spass dialog -m spass spass
dialog spass {
title "Supprimer un pseudo"
size -1 -1 200 160
button "Supprimer", 1, 50 130 100 20,ok
combo 2, 25 30 150 100,drop
text "Selectionnez le pseudo :", 3, 10 10 180 20,center
text "Tapez votre mot de passe :", 4, 10 60 180 20,center
edit "", 5, 25 80 150 20, pass
text "_________________________________________", 6, 10 110 180 20
}
on *:dialog:spass:init:0:{
did -b spass 6
rpass1
if (%vpass != ok) { did -b spass 1 | did -b spass 2 | did -b spass 5 }
}
on 1:dialog:spass:sclick:1:{
if ($did(2) != $null) && ($did(5) != $null) {
set %pseudo $did(2)
if (%pseudo1 == %pseudo) {
if (%pass1 == $did(5)) { unset %pass1 | unset %pseudo1 }
}
if (%pseudo2 == %pseudo) {
if (%pass2 == $did(5)) { unset %pass2 | unset %pseudo2 }
}
if (%pseudo3 == %pseudo) {
if (%pass3 == $did(5)) { unset %pass3 | unset %pseudo3 }
}
if (%pseudo4 == %pseudo) {
if (%pass4 == $did(5)) { unset %pass4 | unset %pseudo4 }
}
if (%pseudo5 == %pseudo) {
if (%pass5 == $did(5)) { unset %pass5 | unset %pseudo5 }
}
}
unset %pseudo
}
alias apass dialog -m apass apass
dialog apass {
title "Aide sur l'identification"
size -1 -1 400 160
button "Fermer", 1, 290 135 100 20,ok
text "", 2, 10 10 380 40
text "et nous nous ferions un plaisir de vous aider...", 7, 150 49 230 17
link "DaRkScriptMaster@aol.com", 3, 10 49 140 20,
button "Première utilisation", 4, 10 135 100 20
text "Téléchargez le script sur :", 5, 10 80 125 20,
link "http://www.darkscriptbeta.fr.st/", 10, 135 80 150 20,
text "Venez nous rendre visite sur le canal #DaRkScript du serveur IRC", 11, 10 95 315 20
link "irc.voila.fr", 12, 327 95 50 20
text "________________________________________________________________", 6, 10 115 380 20
}
on *:dialog:apass:init:0:{
did -a apass 2 Pour vous identifier vous devez avoir choisi un pseudo à votre première utilisation. Si vous ne l'avez pas fait cliquez sur le bouton <Première utilisation>. Si vous avez d'autres problèmes persistants, envoyer un courrier à cette adresse
if (%pseudo1 != $null) { did -b apass 4 }
did -b apass 6
}
on 1:dialog:apass:sclick:3:{
run mailto:DaRkScriptMaster@aol.com?subject=Problème sur l'identification
}
on 1:dialog:apass:sclick:4:{
cpass
}
on 1:dialog:apass:sclick:10:{
url http://www.darkscriptbeta.fr.st/
}
on 1:dialog:apass:sclick:12:{
server irc.voila.fr:6667
}
alias fpass dialog -m fpass fpass
dialog fpass {
title "Mauvais Passe"
size -1- 1 200 100
button "Valider", 1, 50 70 100 20, ok
text "Entrez votre mot de passe :", 2, 25 15 150 20
edit "", 3, 25 35 150 20, pass
}
on *:dialog:fpass:init:0:{
did -f fpass 3
}
on 1:dialog:fpass:sclick:1:{
if ($did(3) == %fpass) {
set %vpass ok
unset %vpass1
unset %pass
unset %fpass
}
else {
epass
set %vpass1 mp
unset %vpass
}
}
alias epass dialog -m epass epass
dialog epass {
title "Le script doit se Fermer"
size -1 -1 200 110
button "Fermer", 1, 50 80 100 20, ok
button "Annuler", 2, 1 1 1 1, cancel, hide
text "Vous avez effectué une deuxième fois un mauvais mot de passe. Le script doit se fermer...", 3, 10 10 180 50
text "__________________________________", 4, 10 60 180 20
}
on *:dialog:epass:init:0:{ did -b epass 4 }
on 1:dialog:epass:sclick:1: { exit }
on 1:dialog:epass:sclick:2: { exit }
alias confpass dialog -m confpass confpass
dialog confpass {
title "Configurer l'identification"
size -1 -1 200 215
button "Fermer", 1, 50 190 100 20, ok
check "Identification au démarrage", 10, 10 10 160 17,
button "Créer un pseudo", 11, 10 120 180 20,
button "Supprimer un pseudo", 12, 10 150 180 20,
check "Changer de pseudo", 13, 10 30 180 17,
check "Se connecter une fois identifié", 14, 10 50 180 17,
radio "Connexion au dernier serveur", 15, 25 70 160 17,
radio "Connexion à", 16, 25 90 80 17,
edit "", 17, 110 90 80 20, autohs
text "________________________________", 18, 10 170 180 20
}
on *:dialog:confpass:init:0:{
did -b confpass 18 | did -a confpass 17 %adconnect.pass
if (%identification == Activé) { did -c confpass 10 }
if (%nickpass == Activé) { did -c confpass 13 }
if (%identification == Désactivé) { did -b confpass 13 | did -b confpass 14 | did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
if (%idenconnect == Désactivé) { did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
if (%idenconnect == Activé) { did -c confpass 14 }
if (%idenconnect.style == 1) { did -c confpass 15 }
if (%idenconnect.style == 2) { did -c confpass 16 }
if (%vpass != ok) { did -b confpass 10 | did -b confpass 13 | did -b confpass 14 | did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
}
on 1:dialog:confpass:sclick:1: {
set %adconnect.pass $did(17)
}
on 1:dialog:confpass:sclick:10:{
if (%identification == Activé) { set %identification Désactivé }
else set %identification Activé
if (%identification == Activé) {
did -e confpass 13 | did -e confpass 14
if (%idenconnect == Activé) { did -e confpass 15 | did -e confpass 16 | did -e confpass 17 }
}
if (%identification == Désactivé) { did -b confpass 13 | did -b confpass 14 | did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
}
on 1:dialog:confpass:sclick:11:{
cpass
}
on 1:dialog:confpass:sclick:12:{
spass
}
on 1:dialog:confpass:sclick:13:{
if (%nickpass == Activé) { set %nickpass Désactivé }
else set %nickpass Activé
}
on 1:dialog:confpass:sclick:14:{
if (%idenconnect == Activé) { set %idenconnect Désactivé }
else set %idenconnect Activé
if (%idenconnect == Désactivé) { did -b confpass 15 | did -b confpass 16 | did -b confpass 17 }
if (%idenconnect == Activé) { did -e confpass 15 | did -e confpass 16 | did -e confpass 17 }
}
on 1:dialog:confpass:sclick:15:{
set %idenconnect.style 1
}
on 1:dialog:confpass:sclick:16:{
set %idenconnect.style 2
}
alias erpass dialog -m erpass erpass
dialog erpass {
title "Connexion impossible"
size -1 -1 200 150
button "Fermer", 1, 50 120 100 20, ok
text "Il vous est impossible de vous connecter. Vous devez vous identifier avant toutes tentatives... Si vous avez un probleme contactez nous à l'adresse e-mail signalée dans la page d'aide.", 2, 10 10 180 100
text "_________________________________________", 3, 10 100 180 20
}
on 1:dialog:erpass:init:0:{
did -b erpass 3
}
menu menubar {
-
Add-on
.S'identifier
..S'identifier:/dpass
..Créer un mot de passe:/cpass
..Supprimer un mot de passe:/spass
..Configurer l'identification:/confpass
..-
..Aide:/apass
}
on 1:START:{
unset %vpass
if (%identification == Activé) { dpass }
if (%identification != Activé) { set %vpass ok }
}
on 1:CONNECT:{
if (%vpass != ok) { disconnect | erpass }
}
on 1:LOAD:{
set %identification Activé
}
Conclusion :
Pour le moment aucune version 1.1 n'est prévue. Si vous trouvez des bugs gènants, envoyez moi un courier électronique à DaRkScriptMaster@aol.com je les corigeraient et je ferais une mise à jour. Pour vous tenir au courant des mises à jour allez faire un petit tour sur
http://www.darkscriptbeta.fr.st/. Je remercie slik pour m'avoir donné l'idée =]
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.