CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 09 21:27:39

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

REGISTER INFORMATIONS

Information sur la source

Note :

5,00 / 10

Catégorie :AddOns Niveau :Débutant Date de création :01/12/2004 Date de mise à jour :06/12/2004 14:44:33 Vu :10 367

Auteur : World_mIRC

Ecrire un message privé

Site perso

Commentaire sur cette source (17)

Ajouter un commentaire et/ou une note

Description

Grace a ça vous pourrez enregistrer et envoyer des informations sur vous sans tout retaper tout le temps :D

.:: exemples ::.
- Votre ASV
- Vos adresses AIM / ICQ / Mail / MSN
- Des informations en plus sur vous ^_^
- Des URL de site a vous ou que vous aimez !

-=[IRC 4 ever]=-

Source

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;
; Add-on information v2.0 - © - By Folken
; Folken@pub-line.ch
;
;
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
menu channel {
-
<!-- [Informations] --!>:/dialog -m information information
-
}
dialog information {
title "<!-- information v2.0 --!> [ By Folken ]"
size -1 -1 200 250
option dbu
tab "Adresses - ASV", 100, 7 2 186 170
box "Mes Adresses", 1, 17 17 165 55, tab 100
text "AIM", 2, 22 27 15 8, tab 100
edit "", 3, 40 27 135 10, tab 100 autohs
text "MSN", 4, 22 37 15 8, tab 100
edit "", 5, 40 37 135 10, tab 100 autohs
text "ICQ", 6, 22 47 15 8, tab 100
edit "", 7, 40 47 135 10, tab 100 autohs
text "e-mail", 8, 22 57 15 8, tab 100
edit "", 9, 40 57 135 10, tab 100 autohs
box "ASV", 12, 17 77 165 45, tab 100
text "age", 13, 22 87 15 8, tab 100
edit "", 14, 40 87 135 10, tab 100 autohs
text "sexe", 15, 22 97 15 8, tab 100
edit "", 16, 40 97 135 10, tab 100 autohs
text "ville", 17, 22 107 15 8, tab 100
edit "", 18, 40 107 135 10, tab 100 autohs
button "Donner votre ASV", 29, 105 157 75 10, tab 100
button "Donner votre adresse ICQ", 26, 20 157 75 10, tab 100
button "Donner votre adresse MSN", 25, 20 142 75 10, tab 100
button "Donner toutes mes adresses", 28, 105 142 75 10, tab 100
button "Donner votre adresse e-mail", 27, 105 127 75 10, tab 100
button "Donner votre adresse AIM ", 24, 20 127 75 10, tab 100
tab "Informations", 200
box "Informations supplémentaires sur vous", 21, 12 22 175 130, tab 200
edit "", 22, 17 32 165 115, tab 200 multi autovs
button "Donner vos info en +", 30, 67 157 75 10, tab 200
tab "URL #1", 300
box "URL #1", 32, 12 20 175 35, tab 300
text "URL Site", 33, 23 30 25 8, tab 300
edit "", 34, 52 30 130 10, tab 300 autohs
text "URL Bannière", 35, 16 40 35 8, tab 300
edit "", 36, 52 40 130 10, tab 300 autohs
box "Description", 52, 12 60 175 90, tab 300
edit "", 53, 17 70 165 75, tab 300 multi autovs
button "Envoyer votre URL #1", 68, 67 155 84 10, tab 300
tab "URL #2", 400
box "URL #2", 39, 12 20 175 35, tab 400
text "URL Site", 40, 23 30 25 8, tab 400
edit "", 41, 52 30 130 10, tab 400 autohs
text "URL Bannière", 42, 16 40 35 8, tab 400
edit "", 43, 52 40 130 10, tab 400 autohs
box "Description", 54, 12 60 175 90, tab 400
edit "", 55, 17 70 165 75, tab 400 multi autovs
button "Envoyer votre URL #2", 69, 67 155 84 10, tab 400
tab "URL #3", 500
box "URL #3", 46, 12 20 175 35, tab 500
text "URL Site", 47, 23 30 25 8, tab 500
edit "", 48, 52 30 130 10, tab 500 autohs
text "URL Bannière", 49, 16 40 35 8, tab 500
edit "", 50, 52 40 130 10, tab 500 autohs
box "Description", 56, 12 60 175 90, tab 500
edit "", 57, 17 70 165 75, tab 500 multi autovs
button "Envoyer votre URL #3", 70, 67 155 84 10, tab 500
box "Copyright", 73, 40 210 115 35
text "Add-on - © - Folken", 74, 45 220 50 8
link "Folken@pub-line.ch", 75, 100 220 50 8
link "http://www.pub-line.com/world.mirc", 76, 50 231 100 8
box "", 77, 7 177 185 25
button "OK", 78, 30 185 50 12, default flat ok
button "ANNULER", 79, 115 185 50 12, flat cancel
}
dialog send.info {
title "<!-- information v2.0 --!> [ By Folken ]"
size -1 -1 185 60
option dbu
text "» A qui voulez-vous l' envoyer ???", 1, 5 6 90 8
combo 2, 95 5 85 10, sort, hsbar, edit, drop
text "» Par où voulez-vous l' envoyer ???", 3, 5 22 90 8
radio "Query (PV)", 4, 100 22 40 10, group
radio "Notice", 5, 144 22 30 10
button "OK", 6, 35 40 35 12, flat ok
button "Annuler", 7, 110 40 35 12, flat cancel
}
on *:dialog:*:*:*:{
if ($dname == info) {
if ($devent == sclick) {
if ($did == 24) {
if ($did(info,3).text) { writeini Information.ini ADRESSE aim $did(info,3).text } | var %info.AIM = $readini Information.ini ADRESSE aim
if (!%info.AIM) { if ($input(Tu n' as pas préciser ton adresse AIM... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what Mon adresse AIM ::3 %info.AIM | .dialog -m send.info send.info }
}
if ($did == 25) {
if ($did(info,5).text) { writeini Information.ini ADRESSE msn $did(info,5).text } | var %info.MSN = $readini Information.ini ADRESSE msn
if (!%info.MSN) { if ($input(Tu n' as pas préciser ton adresse MSN... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what Mon adresse MSN ::10 %info.MSN | .dialog -m send.info send.info }
}
if ($did == 26) {
if ($did(info,7).text) { writeini Information.ini ADRESSE icq $did(info,7).text } | var %info.ICQ = $readini Information.ini ADRESSE icq
if (!%info.ICQ) { if ($input(Tu n' as pas préciser ton adresse ICQ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what Mon adresse ICQ ::6 %info.ICQ | .dialog -m send.info send.info }
}
if ($did == 27) {
if ($did(info,9).text) { writeini Information.ini ADRESSE mail $did(info,9).text } | var %info.Mail = $readini Information.ini ADRESSE mail
if (!%info.Mail) { if ($input(Tu n' as pas préciser ton adresse e-mail... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what Mon adresse e-mail ::12 %info.Mail | .dialog -m send.info send.info }
}
if ($did == 28) {
if ($did(info,3).text) { writeini Information.ini ADRESSE aim $did(info,3).text }
if ($did(info,5).text) { writeini Information.ini ADRESSE msn $did(info,5).text }
if ($did(info,7).text) { writeini Information.ini ADRESSE icq $did(info,7).text }
if ($did(info,9).text) { writeini Information.ini ADRESSE mail $did(info,9).text }
.set %send.what add.all | .dialog -m send.info send.info
}
if ($did == 29) {
if ($did(info,14).text) { writeini Information.ini ASV age $did(info,14).text }
if ($did(info,16).text) { writeini Information.ini ASV sexe $did(info,16).text }
if ($did(info,18).text) { writeini Information.ini ASV ville $did(info,18).text }
var %info.A.asv = $readini Information.ini ASV age | var %info.S.asv = $readini Information.ini ASV sexe | var %info.V.asv = $readini Information.ini ASV ville
if (!%info.A.asv) { var %info.A.asv = Non Défini } | if (%info.S.asv == $null) { var %info.S.asv = Non Défini } | if (%info.V.asv == $null) { var %info.V.asv = Non Définie }
else { .set %send.what Voici mon ASV 4» 12Age :: %info.A.asv 6¤ 12Sexe :: %info.S.asv 6¤ 12Ville :: %info.V.asv | .dialog -m send.info send.info }
}
if ($did == 30) {
if ($did(info,22).text) { writeini Information.ini INFORMATION information $did(info,22).text } | var %info.supp = $readini Information.ini INFORMATION information
if (!%info.supp) { if ($input(Tu n' as pas préciser ton adresse ICQ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what Voici des informations supplémentaires sur moi 12:) ...14 %info.supp | .dialog -m send.info send.info }
}
if ($did == 68) {
if ($did(info,34).text) { writeini Information.ini URL1 site $did(info,34).text }
if ($did(info,36).text) { writeini Information.ini URL1 banniere $did(info,36).text }
if ($did(info,53).text) { writeini Information.ini URL1 description $did(info,53).text }
var %URL.1 = $readini Information.ini URL1 site | var %URL.1.Bann = $readini Information.ini URL1 banniere | var %URL.1.Note = $readini Information.ini URL1 description
if ((!%URL.1) && (!%URL.1.Bann) && (!%URL.1.Note)) { if ($input(Tu n' as pas préciser aucune URL ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what #1 | .dialog -m send.info send.info }
}
if ($did == 69) {
if ($did(info,41).text) { writeini Information.ini URL2 site $did(info,41).text }
if ($did(info,43).text) { writeini Information.ini URL2 banniere $did(info,43).text }
if ($did(info,55).text) { writeini Information.ini URL2 description $did(info,55).text }
var %URL.2 = $readini Information.ini URL2 site | var %URL.2.Bann = $readini Information.ini URL2 banniere | var %URL.2.Note = $readini Information.ini URL2 description
if ((!%URL.2) && (!%URL.2.Bann) && (!%URL.2.Note)) { if ($input(Tu n' as pas préciser aucune URL ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what #2 | .dialog -m send.info send.info }
}
if ($did == 70) {
if ($did(info,48).text) { writeini Information.ini URL3 site $did(info,48).text }
if ($did(info,50).text) { writeini Information.ini URL3 banniere $did(info,50).text }
if ($did(info,57).text) { writeini Information.ini URL3 description $did(info,57).text }
var %URL.3 = $readini Information.ini URL3 site | var %URL.3.Bann = $readini Information.ini URL3 banniere | var %URL.3.Note = $readini Information.ini URL3 description
if ((!%URL.3) && (!%URL.3.Bann) && (!%URL.3.Note)) { if ($input(Tu n' as pas préciser aucune URL ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
else { .set %send.what #3 | .dialog -m send.info send.info }
}
if ($did == 78) {
if ($did(info,3).text) { writeini Information.ini ADRESSE aim $did(info,3).text }
if ($did(info,5).text) { writeini Information.ini ADRESSE msn $did(info,5).text }
if ($did(info,7).text) { writeini Information.ini ADRESSE icq $did(info,7).text }
if ($did(info,9).text) { writeini Information.ini ADRESSE mail $did(info,9).text }
if ($did(info,14).text) { writeini Information.ini ASV age $did(info,14).text }
if ($did(info,16).text) { writeini Information.ini ASV sexe $did(info,16).text }
if ($did(info,18).text) { writeini Information.ini ASV ville $did(info,18).text }
if ($did(info,22).text) { writeini Information.ini INFORMATION information $did(info,22).text }
if ($did(info,34).text) { writeini Information.ini URL1 site $did(info,34).text }
if ($did(info,36).text) { writeini Information.ini URL1 banniere $did(info,36).text }
if ($did(info,53).text) { writeini Information.ini URL1 description $did(info,53).text }
if ($did(info,41).text) { writeini Information.ini URL2 site $did(info,41).text }
if ($did(info,43).text) { writeini Information.ini URL2 banniere $did(info,43).text }
if ($did(info,55).text) { writeini Information.ini URL2 description $did(info,55).text }
if ($did(info,48).text) { writeini Information.ini URL3 site $did(info,48).text }
if ($did(info,50).text) { writeini Information.ini URL3 banniere $did(info,50).text }
if ($did(info,57).text) { writeini Information.ini URL3 description $did(info,57).text }
}
if ($did == 75) { run mailto:Folken@pub-line.ch }
if ($did == 76) { run http://www.pub-line.com/world.mirc }
}
if ($devent == init) {
if ($did == 0) {
.did -a info 3 $readini Information.ini ADRESSE aim
.did -a info 5 $readini Information.ini ADRESSE msn
.did -a info 7 $readini Information.ini ADRESSE icq
.did -a info 9 $readini Information.ini ADRESSE mail
.did -a info 14 $readini Information.ini ASV age
.did -a info 16 $readini Information.ini ASV sexe
.did -a info 18 $readini Information.ini ASV ville
.did -a info 22 $readini Information.ini INFORMATION information
.did -a info 34 $readini Information.ini URL1 site
.did -a info 36 $readini Information.ini URL1 banniere
.did -a info 53 $readini Information.ini URL1 description
.did -a info 41 $readini Information.ini URL2 site
.did -a info 43 $readini Information.ini URL2 banniere
.did -a info 55 $readini Information.ini URL2 description
.did -a info 48 $readini Information.ini URL3 site
.did -a info 50 $readini Information.ini URL3 banniere
.did -a info 57 $readini Information.ini URL3 description
}
}
}
if ($dname == send.info) {
if ($devent == sclick) {
if ($did == 4) { .set %add.send query }
if ($did == 5) { .set %add.send notice }
if ($did == 6) { .set %add.who $did(send.info,2).text
if (!%add.who) { if ($input(tu n' as pas préciser à qui tu voulais le dire !,308,Warning)) { halt } }
if (!%add.send) { if ($input(tu n' as pas préciser comment tu voulais l' envoyer !,308,Warning)) { halt } }
if ((%add.send) && (%add.who)) {
if (%send.what == add.all) {
var %info.AIM = $readini Information.ini ADRESSE aim | var %info.MSN = $readini Information.ini ADRESSE msn
var %info.ICQ = $readini Information.ini ADRESSE icq | var %info.Mail = $readini Information.ini ADRESSE mail
if (!%info.AIM) { %add.send %add.who Mon adresse AIM :: Non définie } | else { %add.send %add.who Mon adresse AIM :: 3 %info.AIM }
if (!%info.MSN) { %add.send %add.who Mon adresse MSN :: Non définie } | else { %add.send %add.who Mon adresse MSN :: 10 %info.MSN }
if (!%info.ICQ) { %add.send %add.who Mon adresse ICQ :: Non définie } | else { %add.send %add.who Mon adresse ICQ :: 6 %info.ICQ }
if (!%info.Mail) { %add.send %add.who Mon adresse e-Mail :: Non définie } | else { %add.send %add.who Mon adresse e-mail :: 12 %info.Mail }
}
elseif (%send.what == #1) {
var %URL.1 = $readini Information.ini URL1 site | var %URL.1.Bann = $readini Information.ini URL1 banniere | var %URL.1.Note = $readini Information.ini URL1 description
if (!%URL.1) { var %URL.1 = URL Non Définie }
if (!%URL.1.Bann) { var %URL.1.Bann = URL Non Définie }
if (!%URL.1.Note) { var %URL.1.Note = URL Non Définie }
%add.send %add.who l' URL de Mon site 4#1 ::12 %URL.1
%add.send %add.who l' URL de la Bannière de Mon site 4#1 ::10 %URL.1.Bann
%add.send %add.who Description de Mon site 4#1 ::14 %URL.1.Note
}
elseif (%send.what == #2) {
var %URL.2 = $readini Information.ini URL2 site | var %URL.2.Bann = $readini Information.ini URL2 banniere | var %URL.2.Note = $readini Information.ini URL2 description
if (!%URL.2) { var %URL.2 = URL Non Définie }
if (!%URL.2.Bann) { var %URL.2.Bann = URL Non Définie }
if (!%URL.2.Note) { var %URL.2.Note = URL Non Définie }
%add.send %add.who l' URL de Mon site 4#2 ::12 %URL.2
%add.send %add.who l' URL de la Bannière de Mon site 4#2 ::10 %URL.2.Bann
%add.send %add.who Description de Mon site 4#1 ::14 %URL.2.Note
}
elseif (%send.what == #3) {
var %URL.3 = $readini Information.ini URL3 site | var %URL.3.Bann = $readini Information.ini URL3 banniere | var %URL.3.Note = $readini Information.ini URL3 description
if (!%URL.3) { var %URL.3 = URL Non Définie }
if (!%URL.3.Bann) { var %URL.3.Bann = URL Non Définie }
if (!%URL.3.Note) { var %URL.3.Note = URL Non Définie }
%add.send %add.who l' URL de Mon site 4#3 ::12 %URL.3
%add.send %add.who l' URL de la Bannière de Mon site 4#3 ::10 %URL.3.Bann
%add.send %add.who Description de Mon site 4#1 ::14 %URL.3.Note
}
else { %add.send %add.who %send.what }
}
}
}
if ($devent == init) { if ($did == 0) { .nick.load } }
}
}
raw 401:*:{ .echo -a 4» $+ $chr(160) $+ $+ $colour(kick text) $+ $chr(91) $+ $+ IMPOSSIBLE $+ $+ $chr(93) $+ $chr(160) $+ $+ $colour(normal text) $+ 6 $2 n' est présent sur aucun salon ! | halt }
ON *:NICK:if (%add.who == $nick) { set %add.who $newnick }
ON 1:LOAD:World_mIRC.PuB
ON 1:UNLOAD:World_mIRC.PuB
alias -l nick.load {
var %nicknum = 0, %load.chan = $active
:findnick
inc %nicknum 1 | var %nickload = $nick(%load.chan,%nicknum)
if (%nickload == $null) { HALT }
did -i send.info 2 1 %nickload
goto findnick
}
alias -l World_mIRC.PuB {
/echo 1 -a 12(¯`'·.¸(¯`'·.¸ _______________ ¸.·'´¯)¸.·'´¯)
/echo 1 -a 4» 3Add-on d' information pour IRC 12- © - By Folken
/echo 1 -a 4» 7Auteur 3:: Folken
/echo 1 -a 4» 10Site 3:: http://www.pub-line.com/world.mirc/
/echo 1 -a 12 (_¸.·'´(_¸.·'´ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `'·.¸_)`'·.¸_)
}

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;
;                                                          Add-on information v2.0 - © - By Folken
;                                                                           Folken@pub-line.ch
;
;
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

menu channel {
  -
  <!-- [Informations] --!>:/dialog -m information information
  -
}

dialog information {
  title "<!-- information v2.0 --!> [ By Folken ]"
  size -1 -1 200 250
  option dbu
  tab "Adresses - ASV", 100, 7 2 186 170
  box "Mes Adresses", 1, 17 17 165 55, tab 100
  text "AIM", 2, 22 27 15 8, tab 100
  edit "", 3, 40 27 135 10, tab 100 autohs
  text "MSN", 4, 22 37 15 8, tab 100
  edit "", 5, 40 37 135 10, tab 100 autohs
  text "ICQ", 6, 22 47 15 8, tab 100
  edit "", 7, 40 47 135 10, tab 100 autohs
  text "e-mail", 8, 22 57 15 8, tab 100
  edit "", 9, 40 57 135 10, tab 100 autohs
  box "ASV", 12, 17 77 165 45, tab 100
  text "age", 13, 22 87 15 8, tab 100
  edit "", 14, 40 87 135 10, tab 100 autohs
  text "sexe", 15, 22 97 15 8, tab 100
  edit "", 16, 40 97 135 10, tab 100 autohs
  text "ville", 17, 22 107 15 8, tab 100
  edit "", 18, 40 107 135 10, tab 100 autohs
  button "Donner votre ASV", 29, 105 157 75 10, tab 100
  button "Donner votre adresse ICQ", 26, 20 157 75 10, tab 100
  button "Donner votre adresse MSN", 25, 20 142 75 10, tab 100
  button "Donner toutes mes adresses", 28, 105 142 75 10, tab 100
  button "Donner votre adresse e-mail", 27, 105 127 75 10, tab 100
  button "Donner votre adresse AIM ", 24, 20 127 75 10, tab 100
  tab "Informations", 200
  box "Informations supplémentaires sur vous", 21, 12 22 175 130, tab 200
  edit "", 22, 17 32 165 115, tab 200 multi autovs
  button "Donner vos info en +", 30, 67 157 75 10, tab 200
  tab "URL #1", 300
  box "URL #1", 32, 12 20 175 35, tab 300
  text "URL Site", 33, 23 30 25 8, tab 300
  edit "", 34, 52 30 130 10, tab 300 autohs
  text "URL Bannière", 35, 16 40 35 8, tab 300
  edit "", 36, 52 40 130 10, tab 300 autohs
  box "Description", 52, 12 60 175 90, tab 300
  edit "", 53, 17 70 165 75, tab 300 multi autovs
  button "Envoyer votre URL #1", 68, 67 155 84 10, tab 300
  tab "URL #2", 400
  box "URL #2", 39, 12 20 175 35, tab 400
  text "URL Site", 40, 23 30 25 8, tab 400
  edit "", 41, 52 30 130 10, tab 400 autohs
  text "URL Bannière", 42, 16 40 35 8, tab 400
  edit "", 43, 52 40 130 10, tab 400 autohs
  box "Description", 54, 12 60 175 90, tab 400
  edit "", 55, 17 70 165 75, tab 400 multi autovs
  button "Envoyer votre URL #2", 69, 67 155 84 10, tab 400
  tab "URL #3", 500
  box "URL #3", 46, 12 20 175 35, tab 500
  text "URL Site", 47, 23 30 25 8, tab 500
  edit "", 48, 52 30 130 10, tab 500 autohs
  text "URL Bannière", 49, 16 40 35 8, tab 500
  edit "", 50, 52 40 130 10, tab 500 autohs
  box "Description", 56, 12 60 175 90, tab 500
  edit "", 57, 17 70 165 75, tab 500 multi autovs
  button "Envoyer votre URL #3", 70, 67 155 84 10, tab 500
  box "Copyright", 73, 40 210 115 35
  text "Add-on - © - Folken", 74, 45 220 50 8
  link "Folken@pub-line.ch", 75, 100 220 50 8
  link "http://www.pub-line.com/world.mirc", 76, 50 231 100 8
  box "", 77, 7 177 185 25
  button "OK", 78, 30 185 50 12, default flat ok
  button "ANNULER", 79, 115 185 50 12, flat cancel
}

dialog send.info {
  title "<!-- information v2.0 --!> [ By Folken ]"
  size -1 -1 185 60
  option dbu
  text "» A qui voulez-vous l' envoyer ???", 1, 5 6 90 8
  combo 2, 95 5 85 10, sort, hsbar, edit, drop
  text "» Par où voulez-vous l' envoyer ???", 3, 5 22 90 8
  radio "Query (PV)", 4, 100 22 40 10, group
  radio "Notice", 5, 144 22 30 10
  button "OK", 6, 35 40 35 12, flat ok
  button "Annuler", 7, 110 40 35 12, flat cancel
}

on *:dialog:*:*:*:{
  if ($dname == info) {
    if ($devent == sclick) {
      if ($did == 24) {
        if ($did(info,3).text) { writeini Information.ini ADRESSE aim $did(info,3).text } | var %info.AIM = $readini Information.ini ADRESSE aim
        if (!%info.AIM) { if ($input(Tu n' as pas préciser ton adresse AIM... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
        else { .set %send.what Mon adresse AIM ::3 %info.AIM  | .dialog -m send.info send.info } 
      }
      if ($did == 25) {
        if ($did(info,5).text) { writeini Information.ini ADRESSE msn $did(info,5).text } | var %info.MSN = $readini Information.ini ADRESSE msn
        if (!%info.MSN) { if ($input(Tu n' as pas préciser ton adresse MSN... alors pourquoi l'envoyer ?,308,Warning)) { halt } } 
        else { .set %send.what Mon adresse MSN ::10 %info.MSN  | .dialog -m send.info send.info }
      }
      if ($did == 26) { 
        if ($did(info,7).text) { writeini Information.ini ADRESSE icq $did(info,7).text } | var %info.ICQ = $readini Information.ini ADRESSE icq
        if (!%info.ICQ) { if ($input(Tu n' as pas préciser ton adresse ICQ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
        else { .set %send.what Mon adresse ICQ ::6 %info.ICQ  | .dialog -m send.info send.info }
      }
      if ($did == 27) { 
        if ($did(info,9).text) { writeini Information.ini ADRESSE mail $did(info,9).text } | var %info.Mail = $readini Information.ini ADRESSE mail
        if (!%info.Mail) { if ($input(Tu n' as pas préciser ton adresse e-mail... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
        else { .set %send.what Mon adresse e-mail ::12 %info.Mail  | .dialog -m send.info send.info }
      }
      if ($did == 28) { 
        if ($did(info,3).text) { writeini Information.ini ADRESSE aim $did(info,3).text } 
        if ($did(info,5).text) { writeini Information.ini ADRESSE msn $did(info,5).text }
        if ($did(info,7).text) { writeini Information.ini ADRESSE icq $did(info,7).text }
        if ($did(info,9).text) { writeini Information.ini ADRESSE mail $did(info,9).text }
        .set %send.what add.all | .dialog -m send.info send.info 
      }
      if ($did == 29) { 
        if ($did(info,14).text) { writeini Information.ini ASV age $did(info,14).text } 
        if ($did(info,16).text) { writeini Information.ini ASV sexe $did(info,16).text }
        if ($did(info,18).text) { writeini Information.ini ASV ville $did(info,18).text }
        var %info.A.asv = $readini Information.ini ASV age | var %info.S.asv = $readini Information.ini ASV sexe | var %info.V.asv = $readini Information.ini ASV ville
        if (!%info.A.asv) { var %info.A.asv = Non Défini } | if (%info.S.asv == $null) { var %info.S.asv = Non Défini } | if (%info.V.asv == $null) { var %info.V.asv = Non Définie }
        else { .set %send.what Voici mon ASV 4» 12Age :: %info.A.asv 6¤ 12Sexe :: %info.S.asv 6¤ 12Ville :: %info.V.asv | .dialog -m send.info send.info }
      }
      if ($did == 30) {
        if ($did(info,22).text) { writeini Information.ini INFORMATION information $did(info,22).text } | var %info.supp = $readini Information.ini INFORMATION information
        if (!%info.supp) { if ($input(Tu n' as pas préciser ton adresse ICQ... alors pourquoi l'envoyer ?,308,Warning)) { halt } }
        else { .set %send.what Voici des informations supplémentaires sur moi 12:) ...14 %info.supp  | .dialog -m send.info send.info }
      }
      if ($did == 68) { 
        if ($did(info,34).text) { writeini Information.ini URL1 site $did(info,34).text } 
        if ($did(info,36).text) { writeini Information.ini URL1 banniere $did(info,36).text }
        if ($did(info,53).text) { writeini Information.ini URL1 description $did(info,53).text }
        var %URL.1 = $readini Information.ini URL1 site | var %URL.1.Bann = $readini Information.ini URL1 banniere | var %URL.1.Note = $readini Information.ini URL1 description
        if ((!%URL.1) && (!%URL.1.Bann) && (!%URL.1.Note)) { if ($input(Tu n' as pas préciser aucune URL ... alors pourquoi l'envoyer ?,308,Warning)) { halt } } 
        else { .set %send.what #1 | .dialog -m send.info send.info } 
      }
      if ($did == 69) {
        if ($did(info,41).text) { writeini Information.ini URL2 site $did(info,41).text } 
        if ($did(info,43).text) { writeini Information.ini URL2 banniere $did(info,43).text }
        if ($did(info,55).text) { writeini Information.ini URL2 description $did(info,55).text }
        var %URL.2 = $readini Information.ini URL2 site | var %URL.2.Bann = $readini Information.ini URL2 banniere | var %URL.2.Note = $readini Information.ini URL2 description
        if ((!%URL.2) && (!%URL.2.Bann) && (!%URL.2.Note)) { if ($input(Tu n' as pas préciser aucune URL ... alors pourquoi l'envoyer ?,308,Warning)) { halt } } 
        else { .set %send.what #2 | .dialog -m send.info send.info } 
      }  
      if ($did == 70) {
        if ($did(info,48).text) { writeini Information.ini URL3 site $did(info,48).text } 
        if ($did(info,50).text) { writeini Information.ini URL3 banniere $did(info,50).text }
        if ($did(info,57).text) { writeini Information.ini URL3 description $did(info,57).text }
        var %URL.3 = $readini Information.ini URL3 site | var %URL.3.Bann = $readini Information.ini URL3 banniere | var %URL.3.Note = $readini Information.ini URL3 description
        if ((!%URL.3) && (!%URL.3.Bann) && (!%URL.3.Note)) { if ($input(Tu n' as pas préciser aucune URL ... alors pourquoi l'envoyer ?,308,Warning)) { halt } } 
        else { .set %send.what #3 | .dialog -m send.info send.info }
      }
      if ($did == 78) { 
        if ($did(info,3).text) { writeini Information.ini ADRESSE aim $did(info,3).text }
        if ($did(info,5).text) { writeini Information.ini ADRESSE msn $did(info,5).text }
        if ($did(info,7).text) { writeini Information.ini ADRESSE icq $did(info,7).text }
        if ($did(info,9).text) { writeini Information.ini ADRESSE mail $did(info,9).text }
        if ($did(info,14).text) { writeini Information.ini ASV age $did(info,14).text }
        if ($did(info,16).text) { writeini Information.ini ASV sexe $did(info,16).text }
        if ($did(info,18).text) { writeini Information.ini ASV ville $did(info,18).text } 
        if ($did(info,22).text) { writeini Information.ini INFORMATION information $did(info,22).text } 
        if ($did(info,34).text) { writeini Information.ini URL1 site $did(info,34).text } 
        if ($did(info,36).text) { writeini Information.ini URL1 banniere $did(info,36).text }
        if ($did(info,53).text) { writeini Information.ini URL1 description $did(info,53).text }
        if ($did(info,41).text) { writeini Information.ini URL2 site $did(info,41).text } 
        if ($did(info,43).text) { writeini Information.ini URL2 banniere $did(info,43).text }
        if ($did(info,55).text) { writeini Information.ini URL2 description $did(info,55).text }
        if ($did(info,48).text) { writeini Information.ini URL3 site $did(info,48).text } 
        if ($did(info,50).text) { writeini Information.ini URL3 banniere $did(info,50).text }
        if ($did(info,57).text) { writeini Information.ini URL3 description $did(info,57).text }
      }
      if ($did == 75) { run mailto:Folken@pub-line.ch }
      if ($did == 76) { run http://www.pub-line.com/world.mirc }
    }
    if ($devent == init) {
      if ($did == 0) {
        .did -a info 3 $readini Information.ini ADRESSE aim
        .did -a info 5 $readini Information.ini ADRESSE msn
        .did -a info 7 $readini Information.ini ADRESSE icq
        .did -a info 9 $readini Information.ini ADRESSE mail 
        .did -a info 14 $readini Information.ini ASV age 
        .did -a info 16 $readini Information.ini ASV sexe
        .did -a info 18 $readini Information.ini ASV ville
        .did -a info 22 $readini Information.ini INFORMATION information
        .did -a info 34 $readini Information.ini URL1 site
        .did -a info 36 $readini Information.ini URL1 banniere
        .did -a info 53 $readini Information.ini URL1 description
        .did -a info 41 $readini Information.ini URL2 site
        .did -a info 43 $readini Information.ini URL2 banniere
        .did -a info 55 $readini Information.ini URL2 description
        .did -a info 48 $readini Information.ini URL3 site
        .did -a info 50 $readini Information.ini URL3 banniere
        .did -a info 57 $readini Information.ini URL3 description
      } 
    }
  }
  if ($dname == send.info) {
    if ($devent == sclick) {
      if ($did == 4) { .set %add.send query }
      if ($did == 5) { .set %add.send notice }
      if ($did == 6) { .set %add.who $did(send.info,2).text
        if (!%add.who) { if ($input(tu n' as pas préciser à qui tu voulais le dire !,308,Warning)) { halt } }
        if (!%add.send) { if ($input(tu n' as pas préciser comment tu voulais l' envoyer !,308,Warning)) { halt } }
        if ((%add.send) && (%add.who)) {        
          if  (%send.what == add.all) { 
            var %info.AIM = $readini Information.ini ADRESSE aim | var %info.MSN = $readini Information.ini ADRESSE msn
            var %info.ICQ = $readini Information.ini ADRESSE icq | var %info.Mail = $readini Information.ini ADRESSE mail
            if (!%info.AIM) { %add.send %add.who Mon adresse AIM :: Non définie } | else { %add.send %add.who Mon adresse AIM :: 3 %info.AIM  }
            if (!%info.MSN) { %add.send %add.who Mon adresse MSN :: Non définie } | else { %add.send %add.who Mon adresse MSN :: 10 %info.MSN  }
            if (!%info.ICQ) { %add.send %add.who Mon adresse ICQ :: Non définie } | else { %add.send %add.who Mon adresse ICQ :: 6 %info.ICQ  }
            if (!%info.Mail) { %add.send %add.who Mon adresse e-Mail :: Non définie } | else { %add.send %add.who Mon adresse e-mail :: 12 %info.Mail  }
          }
          elseif (%send.what == #1) {
            var %URL.1 = $readini Information.ini URL1 site | var %URL.1.Bann = $readini Information.ini URL1 banniere | var %URL.1.Note = $readini Information.ini URL1 description
            if (!%URL.1) { var %URL.1 = URL Non Définie }
            if (!%URL.1.Bann) { var %URL.1.Bann = URL Non Définie }
            if (!%URL.1.Note) { var %URL.1.Note = URL Non Définie }
            %add.send %add.who l' URL de Mon site 4#1 ::12 %URL.1 
            %add.send %add.who l' URL de la Bannière de Mon site 4#1 ::10 %URL.1.Bann  
            %add.send %add.who Description de Mon site 4#1 ::14 %URL.1.Note  
          }
          elseif (%send.what == #2) {
            var %URL.2 = $readini Information.ini URL2 site | var %URL.2.Bann = $readini Information.ini URL2 banniere | var %URL.2.Note = $readini Information.ini URL2 description
            if (!%URL.2) { var %URL.2 = URL Non Définie }
            if (!%URL.2.Bann) { var %URL.2.Bann = URL Non Définie }
            if (!%URL.2.Note) { var %URL.2.Note = URL Non Définie }
            %add.send %add.who l' URL de Mon site 4#2 ::12 %URL.2 
            %add.send %add.who l' URL de la Bannière de Mon site 4#2 ::10 %URL.2.Bann 
            %add.send %add.who Description de Mon site 4#1 ::14 %URL.2.Note  
          }
          elseif (%send.what == #3) {
            var %URL.3 = $readini Information.ini URL3 site | var %URL.3.Bann = $readini Information.ini URL3 banniere | var %URL.3.Note = $readini Information.ini URL3 description
            if (!%URL.3) { var %URL.3  = URL Non Définie }
            if (!%URL.3.Bann) { var %URL.3.Bann = URL Non Définie }
            if (!%URL.3.Note) { var %URL.3.Note = URL Non Définie }
            %add.send %add.who l' URL de Mon site 4#3 ::12 %URL.3 
            %add.send %add.who l' URL de la Bannière de Mon site 4#3 ::10 %URL.3.Bann 
            %add.send %add.who Description de Mon site 4#1 ::14 %URL.3.Note  
          }
          else { %add.send %add.who %send.what } 
        } 
      }
    }
    if ($devent == init) { if ($did == 0) { .nick.load } } 
  }
}

raw 401:*:{ .echo -a  4» $+ $chr(160) $+  $+ $colour(kick text) $+ $chr(91) $+  $+ IMPOSSIBLE $+  $+ $chr(93) $+ $chr(160) $+  $+ $colour(normal text) $+ 6 $2 n' est présent sur aucun salon ! | halt } 
ON *:NICK:if (%add.who == $nick) { set %add.who $newnick }
ON 1:LOAD:World_mIRC.PuB
ON 1:UNLOAD:World_mIRC.PuB

alias -l nick.load { 
  var %nicknum  = 0, %load.chan = $active 
  :findnick 
  inc %nicknum 1 | var %nickload = $nick(%load.chan,%nicknum) 
  if (%nickload == $null) { HALT } 
  did -i send.info 2 1 %nickload 
  goto findnick 
}

alias -l World_mIRC.PuB {
  /echo 1 -a 12(¯`'·.¸(¯`'·.¸ _______________ ¸.·'´¯)¸.·'´¯)
  /echo 1 -a 4» 3Add-on d' information pour IRC 12- © - By Folken
  /echo 1 -a 4» 7Auteur 3:: Folken
  /echo 1 -a 4» 10Site 3:: http://www.pub-line.com/world.mirc/
  /echo 1 -a 12 (_¸.·'´(_¸.·'´ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `'·.¸_)`'·.¸_)
}

Conclusion

Screenshot trop gros !
Désolé je suis pas un pro de l'image :s

Historique

04 décembre 2004 20:20:10 :: grosse mise à jour !!! - information stockées dans un fichier .ini - 4 variables max maintenant - dialog avec 5 tab - plus de bouton "valider" - ...
06 décembre 2004 14:44:33 :: juste des fautes d'orthographe :)

Sources du même auteur

RECORD D'AUDIANCE

HOROSCOPE POUR BOT

Toutes les sources de World_mIRC

Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Toutes les sources de la catégorie AddOns

Commentaires et avis

Commentaire de Asthar le 01/12/2004 22:55:27

Honnetement, le dialog est vraiment trop énorme et trop laid, des tabs aurais été préférable avec des lists admettons, compacte un peu !
Tu utilise trop de variable, un .ini dans ce cas aurais été préférable voir meme plusieurs txt si il faut ..
2 types de styles : normal / flat on ne trouve pas d'homogènéité sur le dialog.
Lorsqu'on choisis d'envoyé un info a quelqu'un, pourquoi est ce un input avec en titre "Warning" ? Bizarre ...

5/10

Commentaire de talking le 02/12/2004 16:28:09

Mêmes remarques que Asthar
- Ton dialog est trop gros . utilise des tabs pour les différentes options
- Il y a trop de variable utilise un fichier txt ou ini ou le mieux utilise les hash table
bonne continuation et essaie d'améliorer ça
je note pas

Commentaire de KiNdErMaXi le 02/12/2004 17:56:32

- en effet le dialog est énorme et pas super beau.
- comme l'on dis les collègue au dessus, tu aurai pu
utiliser des tab, mais aussi enlever tout les boutons "validé" en utilisant l'event edit (on *:edit.....)
- event regroupé mais il y a deux sclick normal ??
- au lieu de répéter tout le temps ($input(tu n' as pas préciser à qui tu voulais le dire !,308,Warning)) fait un alias ce sera plus pratique
- note aussi que if
(%add.who == $null) deviendra if (%add.who)
et que
- if ((%add.send != $null) deviendra if (!%add.send)

voila bonne continuation

Commentaire de KiNdErMaXi le 02/12/2004 17:57:53

ah oui j'oubliais,
pourquoi limité les infos perso a 255 caractères ?? avec une fonction spéciale de l'édit tu en met autant que tu veut :)

(essaye de mettre a jour ta source :p)

Commentaire de Asthar le 02/12/2004 19:25:36

"- note aussi que if
(%add.who == $null) deviendra if (%add.who)
et que
- if ((%add.send != $null) deviendra if (!%add.send)
"

C'est pas plutot :
if (%var == $null) qui devient if (!%var)
if (%var != $null) qui devient if (%var)

J'pense que si ....

Commentaire de KiNdErMaXi le 02/12/2004 19:29:47

autant pour moi ...

Commentaire de steve6000 le 04/12/2004 08:02:48

Optimizzz if en elseif, enfin le codage c'est pas sa encore :p

Commentaire de World_mIRC le 04/12/2004 20:26:59

salut a tous,
d'abod merci pour vos commentaires ^_^

ensuite voila se que j'ai modifié ....
- j'ai tout aranger dans 5 tab [ adresse/asv - information - URL #1 - URL #2 - URL #3 ]
- toutes les informations sont maintenant enregistrées dans un fichier "Information.ini" (4 vairables max)
- j'ai changé les "(%var == $null) en (!%var)" ainsi que les "(%var != $null) en (%var)"
- j'ai enlevé tous les boutons "valider" (j'ai pas mis de "on *:edit:*..." au cas ou vous ne voudriez pas enregistrer les modifications que vous faites)
- nombre de caractères pour les info persos illimités
- j'ai enlever 2 emplacement pour site (reste 3)
- j'ai rajouté une case pour mettre des infos ou commentaire sur un site enregistré

pi heu ... je sais plus, je croix que c'est tout :)
wala

Commentaire de World_mIRC le 04/12/2004 20:28:54

steve6000 ... pourrais tu developper ton commentaire stp :)

Commentaire de KiNdErMaXi le 05/12/2004 19:24:27

c'est mieux sauf que ca ne garde pas les infos en mémoire, l'event on *:edit est ESSENTIEL ici
encore un ptit effort :p

Commentaire de World_mIRC le 05/12/2004 21:06:33

je vois pas trop ou ça coince encore ?

sa enregtistre bien tout ...

Commentaire de KiNdErMaXi le 05/12/2004 21:08:30

bin non
ferme le dialog et reouvre le !

Commentaire de World_mIRC le 05/12/2004 21:15:10

a ok je vois se que tu veux dire, mais bon ...

si tu fermes le dialog avec la croix ou le bouton "annuler" c'est que tu ne veux pas enregistrer tes modifications, non ?

Commentaire de Princesse12 le 11/12/2004 03:37:06

/me en a marre des asv ;(
!kb ceux ki demandent asv lol

Commentaire de KiNdErMaXi le 11/12/2004 12:38:06

quelle violence princesse :p

Commentaire de Princesse12 le 12/12/2004 06:34:45

Euh tu t'appelle pas Princesse sur IRC toi ça se voit mdrrrrrrr

Juste pour vous faire comprendre ce q subissent les nanas sur irc, prenez un nick de fille et vous verrez q les asv ca vous gonflera aussi lol

^^

Commentaire de Princesse12 le 12/12/2004 06:35:53

Par contre kindermaxi t'avise pas de rentrer sur mes chans j'aurais trop envie de te croquer surtout à l'heure du gouter ptdr

hihi ^^

Ajouter un commentaire

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

VISUAL STUDIO 2010 AND .NET FRAMEWORK 4 RELEASE CANDIDATE NOW AVAILABLE par Matthieu MEZIL

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5