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

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

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)