Worlddmt text color v 1.0

Soyez le premier à donner votre avis sur cette source.

Vue 3 752 fois - Téléchargée 131 fois

Description

Oui je sais ce n'est pas du nouveau mais le codage n'est pas pareil

Une fois l'addon est load le dialog s'ouvre pour la configuration

La couleur du texte sélectionné vous ne la trouvez pas dans la sélection du fond pour éviter de mettre la même couleur du texte et le fond

Si le chan là ou vous êtes est en mode +c le texte envoyé sera un texte standard pour ne pas a vous obliger a arrêté l'addon pour pouvoir écrire

Source / Exemple :


on *:load:conf.wclr
menu status,nicklist,menubar {
  -
  WtextColor V1.0
  .Configurer:conf.wclr
  .Désinstaller:rem.wclr
}
alias conf.wclr dialog $iif($dialog(wclr),-v wclr,-m wclr wclr)
alias rem.wclr dialog $iif($dialog(dclr),-v dclr,-m dclr dclr)
dialog wclr {
  title "WorldDMT Text Color"
  size -1 -1 205 218
  option pixels
  combo 1, 92 110 100 70, drop
  combo 2, 92 133 100 69, drop
  check "Gras", 3, 93 157 40 17
  check "Souligné", 4, 136 157 60 17
  text "Couleur texte", 6, 7 112 80 13
  text "Fond de texte", 7, 7 135 80 13
  text "WorldDMT Text Color V1.0", 8, 60 194 130 13, disable
  text "Format du texte", 9, 7 158 80 13
  box "Configuration", 10, 2 95 201 85
  box "", 11, 2 180 200 36
  icon 12, 3 3 201 92, colorpic.jpg, 0 noborder
  check "OFF", 13, 9 193 39 17, push
}
dialog dclr {
  title Désinstaller WtextColor V 1.0
  size -1 -1 150 40
  option dbu
  box ATTENTION!!, 1, 1 2 148 37
  text Cette action supprime l'addon WtextColor V 1.0 voulez-vous désinstallé WtextColor?, 2, 12 9 125 24, Center
  button Oui, 3, 45 25 30 12, ok
  button Non, 4, 75 25 30 12, cancel
}
on *:dialog:dclr:sclick:3:{
  if ($dialog(wclr)) dialog -x wclr
  echo -ae  - Désinstallation de l'Addon terminé avec succes
  echo -ae  - merci d'avoir utilisé WtextColor V 1.0
  echo -ae  - WorldDMT
  unset %wclr %t.g %t.s %t.c %t.f
  .unload -rs $qt($scriptdirwcolor.data)
}
on *:dialog:wclr:*:*:{
  if ($devent == sclick) {
    set %wclr $did(13).state
    did -ra $dname 13 $iif(%wclr,ON,OFF)
    set %t.g $did(3).state
    set %t.s $did(4).state
    if ($did == 1) {
      set %t.c $did(1).sel
      did -er $dname 2
      loadbuf -o $dname 2 $qt($scriptdircouleur.data)
      did -d $dname 2 $did(1).sel
      if (%t.f == %t.c) {
        unset %t.f
      }
      else did -c $dname 2 $calc(%t.f $iif(%t.c >= %t.f,+ 1))
    }
    if ($did == 2) {
      set %t.f $did(2).sel $iif(%t.c >= $did(2).sel,- 1)
    }
  }
  if ($devent == init) {
    loadbuf -o $dname 1 $qt($scriptdircouleur.data)
    loadbuf -o $dname 2 $qt($scriptdircouleur.data)
    if (%t.c == $null) did -b $dname 2
    did -d $dname 2 $calc(%t.c + 1)
    if (%wclr) { did -c $dname 13 | did -ra $dname 13 ON }
    if (%t.g) did -c $dname 3
    if (%t.s) did -c $dname 4
    did -c $dname 1 $iif(%t.c != $null,$calc($ifmatch + 1))
    did -c $dname 2 $iif(%t.f != $null,$calc(%t.f $iif(%t.c >= %t.f,+ 1)))
  }
}
on *:input:*:{
  if (%wclr) {
    if (($active != Status Window) && ($left($1,1) !isin !./) && (c !isincs $gettok($chan($active).mode,1,32))) {
      var %C = $chr(3) $+ $iif(%t.c != $null,%t.c $+ $iif(%t.f != $null,$+($chr(44),%t.f))) $+ $iif(%t.g,$chr(2)) $+ $iif(%t.s,$chr(31))
      msg $active %C $+ $1-
      halt
    }
  }
}

Conclusion :


Pour installer loadez le fichier wcolor.data

Si c'est compliqué mettez le dossier WormdDMT Text Color V1.0 dans le dossier
de votre mirc et vous tapez

//load -rs $qt(WorldDMT Text Color V 1.0\wcolor.data)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
Toutes mes excuses dans ce cas :o)
Messages postés
150
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
24 août 2010
2
En effet ce n'était pas un troll, j'exposai juste mon avis concernant la source en donnant une idée envisageable afin que la source se démarque un peu de toutes celles qui sont similaires mais bon ça reste simplement mon avis sur la chose..
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
Je ne répondrai pas.
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
Si tes picwins ressemble a "un code que j'ai vu??" pour écrire très gros, je vois très bien le genre ;(
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
Tu dis ça parce que tu as pas vu mes picwins ;-)
Je retire le mot "troll" !
Afficher les 24 commentaires

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.