1. Accueil
  2. IRC
  3. Sources IRC
  4. Sources AddOns
  5. [couleur de texte] script pour la couleur de texte...

[couleur de texte] script pour la couleur de texte...

0/5 (6 avis)

Vue 6 721 fois - Téléchargée 501 fois

Télécharger le projet
Commenter

Description

Ça vous permet de paramétrer les couleurs de votre texte (Quand vous parlez...)

-Configuration à partir d'un dialog
-peut être intégrer à un script (Oui, Allez-y!)
-Sauvegarde les infos dans un fichier .ini [Sys.ini]
-Sauvegarde automatique lors de modification [pas besoin de clicker sur 'ok']

Pour activer : /chg_colors

Version 2 à prévoir bientot, j'ai sorti celle-là à la hâte pour un ami :P !

Commentez et dites moi quoi améliorer, mais pas de commentaire inutiles...

PS : Je sais que cette source est vue et revue ...

Source / Exemple : 


; * ZiP *
; Si vous ne prenez pas le contenu du zip, il peut y avoir des
; problèmes par rapport aux images...

; Vous devez remplacer :
;   *Nom du script* Par : Le nom de votre script
;
; Veuillez respecter mon travail et laisser les infos de copyright :
;   ©2004 Samuel Dionne-Riel - www.samueldr.2ya.com -

ON *:INPUT:*: {
  set %msg-input $1-
  if ($left(%msg-input,1) == /)  { goto end2 }
  if ($left(%msg-input,1) == !) || ($left(%msg-input,1) == .) || ($left(%msg-input,1) == @) { goto end2 }
  if ( $read(nocolorchans.txt,w,* $+ $active $+ *) ) { goto end }
  msg $active  $+ $readini(sys.ini, couleurs, d1) $+ $iif($readini(sys.ini, couleurs, b1),,) $+ $iif($readini(sys.ini, couleurs, u1),,) $readini(sys.ini, couleurs, Btxt) $upper($left(%msg-input,1)) $+  $+ $readini(sys.ini, couleurs, m1) $+ $iif($readini(sys.ini, couleurs, b2),,) $+ $iif($readini(sys.ini, couleurs, u2),,) $+  $+ $right(%msg-input,-1) $readini(sys.ini, couleurs, Atxt) 
  halt
  goto end2
  :end
  /msg $active $upper($left(%msg-input,1)) $+  $mid(%msg-input,2)
  halt
  :end2
}

dialog inputcolor {
  title "Couleurs de message -=[By SamuelDr]=- [ *Nom du script* ] "
  size -1 -1 405 235
  option notheme

  text "Configurez vos couleurs...", 501, 2 2 200 14,
  text "Voici une liste des différentes couleurs ", 502, 2 16 200 14,
  text "par défaut sur l'irc ", 503, 2 30 200 14,
  text "Voici une liste des différentes couleurs ", 504, 198 16 200 14,
  text "que vous avez modifiées dans votre script", 505, 198 30 200 14,
  text "©2004 SamuelDr - ", 511, 195 219 90 14,
  link "www.samueldr.2ya.com",512, 285 219 200 14,

  text "Note : ", 521, 216 106 90 14,
  text "Les changements effectués se ", 522, 222 118 190 14,
  text "sauvegardent automatiquement ", 523, 222 130 190 14,
  text "dans la configuration, pas ", 524, 222 146 190 14,
  text "besoin de vous tracasser avec ", 525, 222 160 190 14,
  text "la sauvegarde!! ", 526, 222 176 166 14,

  icon 1, 2 45 176 46 , color_index.bmp , 
  icon 3, 0 95 407 138 , color_example.bmp , 
  icon 2, 204 45 176 46 , colors_changed_final.bmp ,

  edit "-=", 11, 10 95 30 22 , right limit 2
  edit "9,0", 12, 39 95 40 22 , center
  check "Gras", 13, 10 117 70 22, style
  check "Souligné", 14, 10 137 70 22, style

  edit "9,0", 21, 130 95 40 22 , center
  edit "=-", 22, 170 95 30 22 , limit 2
  check "Gras", 23, 130 117 70 22, style
  check "Souligné", 24, 130 137 70 22, style

}

on *:dialog:inputcolor:*:*: {
  if ( $devent == init ) {
    if ( $readini(sys.ini, couleurs, u1) ) did -c $dname 14 
    else did -u $dname 14 
    if ( $readini(sys.ini, couleurs, b1) ) did -c $dname 13
    else did -u $dname 13 
    if ( $readini(sys.ini, couleurs, u2) ) did -c $dname 24 
    else did -u $dname 24 
    if ( $readini(sys.ini, couleurs, b2) ) did -c $dname 23 
    else did -u $dname 23 

    did -ra $dname 12 $readini(sys.ini, couleurs, d1)
    did -ra $dname 21 $readini(sys.ini, couleurs, m1)
    did -ra $dname 22 $readini(sys.ini, couleurs, Atxt)
    did -ra $dname 11 $readini(sys.ini, couleurs, Btxt)
  }

  if ( $devent == sclick ) {
    if ( $did == 14 ) {
      writeini sys.ini couleurs u1 $did($dname,$did).state
    }
    elseif ( $did == 13 ) {
      writeini sys.ini couleurs b1 $did($dname,$did).state
    }
    elseif ( $did == 24 ) {
      writeini sys.ini couleurs u2 $did($dname,$did).state
    }
    elseif ( $did == 23 ) {
      writeini sys.ini couleurs b2 $did($dname,$did).state
    }
  }
  elseif ( $devent == edit ) {
    if ( $did == 12 ) {
      writeini sys.ini couleurs d1 $did($dname,$did)
    }
    elseif ( $did == 21 ) {
      writeini sys.ini couleurs m1 $did($dname,$did)
    }
    if ( $did == 22 ) {
      if ( !$did($dname,$did) ) {
        remini sys.ini couleurs Atxt
      }
      else {
        writeini sys.ini couleurs Atxt $did($dname,$did)
      }
    }
    elseif ( $did == 11 ) {
      if ( !$did($dname,$did) ) {
        remini sys.ini couleurs Btxt
      }
      else {
        writeini sys.ini couleurs Btxt $did($dname,$did)
      }
    }
  }

}

alias chg_colors {
  window -Cdhp +b @colors 1 1 180 50
  drawpic -n @colors 0 0 color_index_to_fill.bmp
  drawfill -nrs @colors $color(0) $rgb(255,255,255) 8 8 14 11
  drawfill -nrs @colors $color(1) $rgb(50,255,136) 28 8
  drawfill -nrs @colors $color(2) $rgb(0,0,127) 50 8
  drawfill -nrs @colors $color(3) $rgb(0,147,0) 71 8
  drawfill -nrs @colors $color(4) $rgb(255,0,0) 92 8
  drawfill -nrs @colors $color(5) $rgb(127,0,0) 113 8
  drawfill -nrs @colors $color(6) $rgb(156,0,156) 134 8 140 16
  drawfill -nrs @colors $color(7) $rgb(252,127,0) 155 8
  drawfill -nrs @colors $color(8) $rgb(255,255,0) 8 28 14 31 14 35
  drawfill -nrs @colors $color(9) $rgb(0,252,0) 28 28 35 31
  drawfill -nrs @colors $color(10) $rgb(0,147,147) 50 28 60 31
  drawfill -nrs @colors $color(11) $rgb(0,255,255) 71 28
  drawfill -nrs @colors $color(12) $rgb(0,0,252) 92 28
  drawfill -nrs @colors $color(13) $rgb(255,0,255) 113 28
  drawfill -nrs @colors $color(14) $rgb(127,127,127) 134 28 143 34
  drawfill -nrs @colors $color(15) $rgb(210,210,210) 155 28
  drawsave -b32q100 @colors colors_changed_final.bmp
  window -c @colors
  dialog -m inputcolor inputcolor
}

;;
; À venir:
;   Ajout de décorations au texte : [* Mon texte *] ou [-= Mon texte =-]
;   Enregistrement de thèmes
;  À vous d'en proposer!!
;;

Conclusion :


; À venir:
; Ajout de décorations au texte : [* Mon texte *] ou [-= Mon texte =-]
; Enregistrement de thèmes
; À vous d'en proposer!!

Dites-moi quel niveau mettre!
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
samueldr
Messages postés
121
Date d'inscription
samedi 23 août 2003
Statut
Membre
Dernière intervention
3 juillet 2005
12 avril 2004 à 21:01
Ah bien, un bon commentaire...

mais le code lui, comment est-il ?????
tempusus
Messages postés
358
Date d'inscription
dimanche 8 février 2004
Statut
Membre
Dernière intervention
9 octobre 2017
 1
11 avril 2004 à 21:15
pas mal a vrai dire.

Continue dans ta lancée ^^

Tempusus
samueldr
Messages postés
121
Date d'inscription
samedi 23 août 2003
Statut
Membre
Dernière intervention
3 juillet 2005
2 avril 2004 à 01:09
wouaw, tu m'En apprends !
mais, je ne suis pas francais :S

et mon code, qu'en faites-vous!!!!
cs_SornDrixer
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Membre
Dernière intervention
30 janvier 2011
 8
1 avril 2004 à 20:34
Chaque citoyen français possède des droits intellectuels sur ses oeuvres. Si son auteur désire à se que son oeuvre reste sans modification, il en a le droit, et en cas de non respect, il peut poursuivre juridiquement la personne n'aura pas respecté son oeuvre.

Et oui, si on y réfléchit bien, le rip peut aller loin si une personne veut vraiment punir le ripeur ;)

lien intéréssant sur le droit intellectuel :
http://users.info.unicaen.fr/~vbudet/droitauteur/index.php?page=auteur.html

Et oui, sa sert les cours de droit :(
juki_webmaster
Messages postés
947
Date d'inscription
mercredi 19 novembre 2003
Statut
Membre
Dernière intervention
5 avril 2008
 3
1 avril 2004 à 18:45
Pas mal pour un petit add-on, parcontre :

; Veuillez respecter mon travail et laisser les infos de copyright :
; ©2004 Samuel Dionne-Riel - www.samueldr.2ya.com -

Je ne pense que aucun organisme ne peut te donner un espace de copyright pour un code, mais pour un brevé oui, sinon le but est de tout de meme respecter le travaille fait! mais c'est toujour un peu risqué...
Afficher les 6 commentaires
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 (samueldr)