Register informations

Commenter

Contenu du snippet

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 / Exemple : 


;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;
;                                                          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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (World_mIRC)