begin process at 2010 03 20 13:01:44
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > VOIR TOUS LE MONDE ÉCRIRE EN UNE COULEUR SPÉCIFIER PAR VOUS !!!

VOIR TOUS LE MONDE ÉCRIRE EN UNE COULEUR SPÉCIFIER PAR VOUS !!!


 Information sur la source

Note :
4 / 10 - par 3 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Débutant Date de création :31/03/2005 Date de mise à jour :09/04/2005 16:13:16 Vu :1 764

Auteur : archeloga

Ecrire un message privé
Commentaire sur cette source (19)
Ajouter un commentaire et/ou une note

 Description

J'ai fait un dialog, pour voir tous le monde écrire en une seule couleurs, parce que je déteste voir des couleur qui me "nique" les yeux, j'ai décidé de faire profiter de se dialog a tous le monde :) Comme options il y a les 16 couleurs principaux (ctrl+k) et aussi le surligner et le gras, plus tard a venir je vais mettre la premiere lettres en couleurs pour les fans de couleurs ^^. Bon pour en finir avec tous se blahblah, il a 2 manieres pour ouvrir le dialog, 1. tapez /textp // 2. tapez /dialog -m textp textp
alors profitez au maximun de ce dialog :))
Tous cas de bug ou de suggestion, veuillez me le dire dans les commentaires merci

Source

  • alias textp { dialog -m textp textp }
  • dialog textp {
  • title "Text Du PeoPle En Une Couleur"
  • size -1 -1 116 50
  • option dbu
  • text "Choix De Couleur !", 2, 2 1 49 8
  • check "Cocher pour activer", 3, 57 0 57 10
  • button "OK", 4, 65 12 49 12, flat ok
  • edit "", 1, 4 11 50 10, read
  • list 6, 4 23 50 25, size
  • button "Tester", 7, 65 24 49 12, flat
  • check "Gras", 8, 57 40 24 10
  • check "Souligner", 9, 83 40 31 10
  • }
  • on *:dialog:textp:*:*:{
  • if ($devent == init) {
  • themeecriture
  • if (%themeecriturename) { did -ra textp 1 %themeecriturename }
  • if ($group(#themeecriture)) { did -c textp 3 }
  • if (%themeecrituregras) { did -c textp 8 }
  • if (%themeecrituresoul) { did -c textp 9 }
  • }
  • elseif ($devent == sclick) {
  • if $did == 3 { $iif($did(3).state,.enable,.disable) #themeecriture }
  • if $did == 6 {
  • did -ra textp 1 $did(textp,6).seltext
  • if $calc($did(6).sel - 1) < 10 { set %themeecriture  $+ $calc($did(6).sel - 1) }
  • else { set %themeecriture  $+ $calc($did(6).sel - 1) }
  • }
  • if $did == 7 { echo -a $timestamp $+(%themeecrituresoul,%themeecriture,%themeecrituregras,$strip(08Ceci 11c'est 12pour 03vous 13montrer 06qui 07a 00qu'une 09couleur !!!)) }
  • if $did == 8 { $iif($did(8).state,set,unset) %themeecrituregras  }
  • if $did == 9 { $iif($did(9).state,set,unset) %themeecrituresoul  }
  • }
  • }
  • #themeecriture off
  • on ^1:text:*:#:{ haltdef | echo # $timestamp < $+ $nick $+ > $+(%themeecrituregras,%themeecrituresoul,%themeecriture,$strip($1-)) }
  • #themeecriture end
  • alias -l themeecriture {
  • did -a textp 6 Blanc | did -a textp 6 Noir
  • did -a textp 6 Bleue Marine | did -a textp 6 Vert
  • did -a textp 6 Rouge | did -a textp 6 Brun
  • did -a textp 6 Violet | did -a textp 6 Orange
  • did -a textp 6 Jaune | did -a textp 6 Vert Fluo
  • did -a textp 6 Cyan Foncé | did -a textp 6 Cyan
  • did -a textp 6 Bleu | did -a textp 6 Mauve
  • did -a textp 6 Gris Foncé | did -a textp 6 Gris
  • }
alias textp { dialog -m textp textp }
dialog textp {
  title "Text Du PeoPle En Une Couleur"
  size -1 -1 116 50
  option dbu
  text "Choix De Couleur !", 2, 2 1 49 8
  check "Cocher pour activer", 3, 57 0 57 10
  button "OK", 4, 65 12 49 12, flat ok
  edit "", 1, 4 11 50 10, read
  list 6, 4 23 50 25, size
  button "Tester", 7, 65 24 49 12, flat
  check "Gras", 8, 57 40 24 10
  check "Souligner", 9, 83 40 31 10
}
on *:dialog:textp:*:*:{
  if ($devent == init) {
    themeecriture
    if (%themeecriturename) { did -ra textp 1 %themeecriturename }
    if ($group(#themeecriture)) { did -c textp 3 }
    if (%themeecrituregras) { did -c textp 8 }
    if (%themeecrituresoul) { did -c textp 9 }
  }
  elseif ($devent == sclick) {
    if $did == 3 { $iif($did(3).state,.enable,.disable) #themeecriture }
    if $did == 6 { 
      did -ra textp 1 $did(textp,6).seltext
      if $calc($did(6).sel - 1) < 10 { set %themeecriture  $+ $calc($did(6).sel - 1) }
      else { set %themeecriture  $+ $calc($did(6).sel - 1) }
    }
    if $did == 7 { echo -a $timestamp $+(%themeecrituresoul,%themeecriture,%themeecrituregras,$strip(08Ceci 11c'est 12pour 03vous 13montrer 06qui 07a 00qu'une 09couleur !!!)) }
    if $did == 8 { $iif($did(8).state,set,unset) %themeecrituregras  }
    if $did == 9 { $iif($did(9).state,set,unset) %themeecrituresoul  }
  }
}
#themeecriture off
on ^1:text:*:#:{ haltdef | echo # $timestamp < $+ $nick $+ > $+(%themeecrituregras,%themeecrituresoul,%themeecriture,$strip($1-)) }
#themeecriture end
alias -l themeecriture {
  did -a textp 6 Blanc | did -a textp 6 Noir 
  did -a textp 6 Bleue Marine | did -a textp 6 Vert 
  did -a textp 6 Rouge | did -a textp 6 Brun
  did -a textp 6 Violet | did -a textp 6 Orange 
  did -a textp 6 Jaune | did -a textp 6 Vert Fluo 
  did -a textp 6 Cyan Foncé | did -a textp 6 Cyan
  did -a textp 6 Bleu | did -a textp 6 Mauve
  did -a textp 6 Gris Foncé | did -a textp 6 Gris
}

 Conclusion

a venir le combo pour les amateur de combo et le fond specialement pour wims :)


 Historique

31 mars 2005 02:00:01 :
j'ai modifier le probleme du $if
31 mars 2005 03:00:49 :

31 mars 2005 03:11:25 :
.
02 avril 2005 15:15:32 :
.
02 avril 2005 15:18:12 :
.
06 avril 2005 03:21:55 :
j'ai modifier les sclick init et les $if
09 avril 2005 16:13:16 :
modifier la couleur et remit le on text :)

 Sources du même auteur

MP3 SIMPLE EN MOINS DE 100 LIGNES MEME SI C'EST DU DEJA VUE

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501

Commentaires et avis

Commentaire de archeloga le 31/03/2005 03:14:17

je suis désoler de remarquer que mon addons soit tous coller mais je les tester et il marche ... j'espere que ircfr va régler ce probleme mineur :D

Commentaire de SornDrixer le 31/03/2005 07:08:48 administrateur CS

Tu as mis ton code dans l'espace "Explication finale" au lieu de le mettre dans l'espace réservé au code source !

Tu peux corriger ca en allant dans le menu "Mon compte" > "Modifier votre source" sur ta gauche.

Commentaire de KiNdErMaXi le 31/03/2005 15:27:12

remplace ( $+ $time $+ )  par $timestamp
et puis tu dis surligner, mais c'est souligner :o)

Commentaire de MaX_62 le 31/03/2005 16:32:16

tes évènements de dialog sont pas regroupés

on *:DIALOG:textp:*:*:{
  if ($devent == init) { ... }
  elseif ($devent == sclick) {
    if ($did == 1) { ... }
    elseif ($did == 2) { ... }
  }
}

A la place de la liste j'aurai mis un combo drop.

if $did(3).state = 1 { .enable #themeecriture } | else { .disable #themeecriture }
>>
$iif($did(3).state,.enable,.disable) #themeecriture

idem pour les autres conditions, avec /set et /unset, etc...

ton évènement "sclick 6" n'est pas optimisé, il devient :
  did -ra textp 1 $did(textp,6,$did(textp,6).sel)
  set %themeecriture $calc($did(textp,6).sel - 1)
  set %themeecriturename $did(textp,6).seltext

if %themeecrituregras != $null
>>
if (%themeecrituregras)

etc, etc...

Bref, pas beaucoup d'optimisation, revois ton code et ce sera pas trop mal :o)

Commentaire de fjxokt le 31/03/2005 19:44:12

voila comme j'avais rien a faire, je te l'ecrit comme moi je l'aurai fait:

alias textp {
  dialog -m textp textp
}

dialog textp {
  title "Text Du PeoPle En Une Couleur"
  size -1 -1 116 50
  option dbu
  text "Choix De Couleur !", 2, 2 1 49 8
  check "Cocher pour activer", 3, 57 0 57 10
  button "OK", 4, 65 12 49 12, flat ok
  edit "", 1, 4 11 50 10, read
  list 6, 4 23 50 25, size
  button "Tester", 7, 65 24 49 12, flat
  check "Gras", 8, 57 40 24 10
  check "Surligner", 9, 83 40 31 10
}

on *:dialog:textp:*:*:{
  if ($devent == init) {
    set %couleurtp Blanc.Noir.Bleu Marine.Vert.Rouge.Brun.Violet.Orange.Jaune.Vert fluo.Cyan foncé.Cyan.Bleu.Mauve.Gris foncé.Gris
    themeecriture
    if %themeecriturename { did -a textp 1 %themeecriturename }
    if $group(#themeecriture).status = on { did -c textp 3 }
    if %themeecrituregras { did -c textp 8 }
    if %themeecrituresurl { did -c textp 9 }
  }
  elseif ($devent == sclick) {
    if ($did == 6) {
      did -ra textp 1 $did(textp,6,$did(textp,6).sel)
      set %themeecriture $+(,$calc($did(textp,6).sel - 1)) | set %themeecriturename $gettok(%couleurtp,$did(textp,6).sel,46)
    }
    elseif ($did == 3) {
      $iif($did(3).state = 1, .enable, .disable) #themeecriture
    }
    elseif ($did == 7) {
      echo -a ( $+ $time $+ ) $+(%themeecrituresurl,%themeecriture,%themeecrituregras,$strip(08Ceci 11c'est 12pour 03vous 13montrer 06qui 07a 00qu'une 09couleur !!!))    
    }
    elseif ($did == 8) {
      $iif($did(8).state = 1, set, unset) %themeecrituregras 
    }
    elseif ($did == 9) {
      $iif($did(9).state = 1,set,unset) %themeecrituresurl 
    }
  }
  if ($devent == close) { unset %couleurtp }
}

alias -l themeecriture {
  var %tmp 1
  while (%tmp <= 16) {
    did -a textp 6 $gettok(%couleurtp,%tmp,46)
    inc %tmp
  }
}

#themeecriture on
on ^1:text:*:#:{ haltdef | echo # ( $+ $time $+ ) $+(<,$nick,>,$chr(32),%themeecrituresurl,%themeecrituregras,%themeecriture,$strip($1-)) }
#themeecriture end

Commentaire de fjxokt le 31/03/2005 19:49:58

sinon je trouve ça pas trop mal 6/10

Commentaire de MaX_62 le 31/03/2005 20:49:09

Il pouvait le faire tout seul fjxokt !

Commentaire de fjxokt le 31/03/2005 20:52:45

oups !
( bah deja c'est vrai que je serai aussi pour un combo a la place d'une liste, mais ça je le ferai pas :p )

Commentaire de wims le 01/04/2005 11:25:22

J'ai tester le code de fjxokt :
[11:08:53] «@Nutella» test  
(11:08:53) <Nutella>test

Ici j'ai enlever les code de couleur/gras/souligné mais personnelement je prefere le premier affichage
( le mien ) que le deuxieme ( celui que j'ai en plus grace a au code )

et si comme moi quelqu'un a deja un code qui change l'affichage, cela affiche les deux messages ( pas agreable )

Sinon le code de gere pas la couleur de fond

Commentaire de MaX_62 le 01/04/2005 14:53:14

wims -> c'est comme dans tous les codes où il y a des on INPUT, c'est pas de sa faute, faut enlever le tien où confondre les deux !

Commentaire de fjxokt le 01/04/2005 17:37:03

moi je n'ai rien changé au fonctionnement de son code, je l'ai ecrit differemment a certains endroits, c'est tout.

Commentaire de wims le 01/04/2005 20:17:08

oué mais g pas dis que ct de sa faute juste que la maniere dont il presentait ct pas terrible et que ca gerai pas la couleur de fond

Commentaire de archeloga le 02/04/2005 15:14:16

merci a tous, je vais prendre compte les modifications quand j'aurais le temps merci ;)

Commentaire de fjxokt le 07/04/2005 22:59:45

marche plus t'as enlevé l'event on text !

Commentaire de COOLMAN002 le 07/04/2005 23:22:16

archeloga, quand je t'ai dit d'utiliser /strip +burc, j'ai oublié de te dire d'utiliser:
/color Normal <NUMÉROCOULEUR>

Voilà, oublie pas ça, plus besoin de l'evenement on text avec ça :)

Commentaire de archeloga le 08/04/2005 02:18:08

merci fjxokt j'arrangerai ca cet fin de semaine :]
et coolman002 tu m'expliquerai ca cet fin de semaine svp (quand tu aurais le temps) merci

Commentaire de archeloga le 10/04/2005 03:47:18

voila je lai arranger de l'ancienne maniere et je vais mettre bientot le combo le /color normal et le /strip :)

Commentaire de Philou150456 le 11/04/2005 17:01:45

marche pas chez moi :/

Commentaire de hairai le 06/07/2005 21:58:04

Un trés bon script, trés utile pour les canaux remplis de kikoo. En tout cas merci et bravo ^^

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales