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

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 02 01:58:53

ASTUCE WINDOWS : DéPLACER LES FENêTRES PERDUES D'UN éCRAN INEXISTANT VERS MON éCRAN PRINCIPAL par cyril

TEAM SYSTEM DATABASE EDITION : VERSION FINALE DISPONIBLE DE CETTE NOUVELLE MISE à JOUR DE LA VERSION 2008 par christian

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

IRC BOT POE::COMPONENT::IRC::SERVICE::P10 par Loveurs

OUVRIR DES LIENS PLOQUé par marewnup

JEUX SLOT FRUIT par PO1764

RE : LOG DE CHAN AVEC BOT IROFFER par vandragonheart

RE : LOG DE CHAN AVEC BOT IROFFER par PaDa

+ de logiciels à télécharger

1 301 144 membres
31 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 071 codes, 1 207 981 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

REGISTER INFORMATIONS

Information sur la source

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 114

Auteur : World_mIRC

Site perso

Ecrire un message privé

Note :

5,00 / 10

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

WORLDDMT - STATISTIQUE V 1.0 par WorldDMT

WORLDDMT - INFOS DES CANAUX V 1.1 par WorldDMT

RACCOURCIS PERSONNELS par donkishock

EPGUIDES : SORTIES DES SÉRIES par RCA ArKanis

AWAY BY MSK par devorZ

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 ^^