HL PERSO hl, Source N°38452

Information sur la source

Catégorie :AddOns Classé sous : hl Niveau : Débutant Date de création : 05/07/2006 Date de mise à jour : 09/07/2006 15:46:32 Vu / téléchargé: 2 709 / 76

Auteur : SaD_AnG3L

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (17)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

un petit gestionnaire d'hl,il est pas top,mais bon,pour l'ouvrir /hl,et c tout (enfin,ne pas oublié de charger l'addon dans le script quand mm :)

Source

on *:load: { echo -a 12[4Inf012]12 Hl personnalisable chargé! Tape /hl pour l'ouvrir :) }
alias hl { dialog -m hl hl }
dialog hl {
title "hl perso ßy Sad_[A]nG3L"
size -1 -1 202 266
text "Pseudo 1", 1, 8 8 45 12
button "Activer", 2, 6 232 60 30, ok
button "Desactiver", 3, 71 232 60 30, ok
button "Close", 4, 135 232 60 30, ok flat
text "Pseudo 2", 5, 8 32 44 12
text "Pseudo 4", 6, 8 80 45 13
text "Pseudo 3", 7, 8 56 45 13
text "Pseudo 7", 8, 8 152 45 13
text "Pseudo 8", 9, 8 176 45 13
text "Pseudo 6", 10, 7 128 45 13
text "Pseudo 5", 11, 8 104 45 13
text "Pseudo 9", 12, 7 199 44 13
edit "%hl1", 13, 72 7 105 22, autohs
edit "%hl2", 14, 72 32 105 22, autohs
edit "%hl3", 15, 72 56 105 22, autohs
edit "%hl4", 16, 72 80 105 22, autohs
edit "%hl5", 17, 72 104 105 22, autohs
edit "%hl6", 18, 72 127 105 22, autohs
edit "%hl7", 19, 72 152 105 22, autohs
edit "%hl8", 20, 72 176 105 22, autohs
edit "%hl9", 21, 72 200 105 22, autohs
}
on *:dialog:hl:init:*: {
dll hl\mdx.dll SetMircVersion $version
dll hl\mdx.dll MarkDialog $dname
dll hl\mdx.dll SetDialog $dname bgcolor $rgb(146,12,249)
dll hl\mdx.dll SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 background $rgb(146,12,249)
dll hl\mdx.dll SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 text $rgb(255,255,255)
dll hl\mdx.dll SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 textbg $rgb(146,12,249)
dll hl\mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 verdana 8 verdana
}
on 1:dialog:hl:edit:*: {
if ($did == 13) {
set %hl1 $did($dname,13)
}
if ($did == 14) {
set %hl2 $did($dname,14)
}
if ($did == 15) {
set %hl3 $did($dname,15)
}
if ($did == 16) {
set %hl4 $did($dname,16)
}
if ($did == 17) {
set %hl5 $did($dname,17)
}
if ($did == 18) {
set %hl6 $did($dname,18)
}
if ($did == 19) {
set %hl7 $did($dname,19)
}
if ($did == 20) {
set %hl8 $did($dname,20)
}
if ($did == 21) {
set %hl9 $did($dname,21)
}
}
on 1:dialog:hl:sclick:*: {
if ($did == 2) {
set %hl on | echo -a $timestamp 4 [12Inf04]13 L13es hl perso sont activés !
}
if ($did == 3) {
set %hl off | echo -a $timestamp 4 [12Inf04]13 L13es hl perso sont desactivés
}
}
on 1:TEXT:*:*:{
if ($chan != $active) { if (%hl == on) {
if (%hl1 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl2 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl3 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl4 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl5 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl6 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl7 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl8 isin $1- 1) {
.echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
if (%hl9 isin $1- 1) {
}
}
}
}

on *:load: { echo -a 12[4Inf012]12 Hl personnalisable chargé! Tape /hl pour l'ouvrir :) }
alias hl { dialog -m hl hl }
dialog hl {
  title "hl perso ßy Sad_[A]nG3L"
  size -1 -1 202 266
  text "Pseudo 1", 1, 8 8 45 12
  button "Activer", 2, 6 232 60 30, ok
  button "Desactiver", 3, 71 232 60 30, ok
  button "Close", 4, 135 232 60 30, ok flat
  text "Pseudo 2", 5, 8 32 44 12
  text "Pseudo 4", 6, 8 80 45 13
  text "Pseudo 3", 7, 8 56 45 13
  text "Pseudo 7", 8, 8 152 45 13
  text "Pseudo 8", 9, 8 176 45 13
  text "Pseudo 6", 10, 7 128 45 13
  text "Pseudo 5", 11, 8 104 45 13
  text "Pseudo 9", 12, 7 199 44 13
  edit "%hl1", 13, 72 7 105 22, autohs
  edit "%hl2", 14, 72 32 105 22, autohs
  edit "%hl3", 15, 72 56 105 22, autohs
  edit "%hl4", 16, 72 80 105 22, autohs
  edit "%hl5", 17, 72 104 105 22, autohs
  edit "%hl6", 18, 72 127 105 22, autohs
  edit "%hl7", 19, 72 152 105 22, autohs
  edit "%hl8", 20, 72 176 105 22, autohs
  edit "%hl9", 21, 72 200 105 22, autohs
}
on *:dialog:hl:init:*: {
  dll hl\mdx.dll SetMircVersion $version
  dll hl\mdx.dll MarkDialog $dname
  dll hl\mdx.dll SetDialog $dname bgcolor $rgb(146,12,249)
  dll hl\mdx.dll SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 background $rgb(146,12,249)
  dll hl\mdx.dll SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 text $rgb(255,255,255)
  dll hl\mdx.dll SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 textbg $rgb(146,12,249)
  dll hl\mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 verdana 8 verdana
}

on 1:dialog:hl:edit:*: {
  if ($did == 13) {
    set %hl1 $did($dname,13)
  }
  if ($did == 14) {
    set %hl2 $did($dname,14)
  }
  if ($did == 15) {
    set %hl3 $did($dname,15)
  }
  if ($did == 16) {
    set %hl4 $did($dname,16)
  }
  if ($did == 17) {
    set %hl5 $did($dname,17)
  }
  if ($did == 18) {
    set %hl6 $did($dname,18)
  }
  if ($did == 19) {
    set %hl7 $did($dname,19)
  }
  if ($did == 20) {
    set %hl8 $did($dname,20)
  }
  if ($did == 21) {
    set %hl9 $did($dname,21)
  }
}

on 1:dialog:hl:sclick:*: {
  if ($did == 2) {
    set %hl on | echo -a $timestamp 4 [12Inf04]13 L13es hl perso sont activés !
  }
  if ($did == 3) {
    set %hl off | echo -a $timestamp 4 [12Inf04]13 L13es hl perso sont desactivés
  }
}

on 1:TEXT:*:*:{
  if ($chan != $active) { if (%hl == on) {
      if (%hl1 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl2 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl3 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl4 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl5 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl6 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl7 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl8 isin $1- 1) {
        
      .echo -a $timestamp 4[12HL4]13 $nick sur $chan "$+ $1- $+" | halt }
      if (%hl9 isin $1- 1) {
      }
    }
  }
}

Conclusion

voila quelque temps que je m'acharne apres cette source,je me doute qu'elle est tres mal codé et qu'il y'a des beug,mais bon,je prend mon courage a deux mains et je decide de poster quand mm..

mon gestionnaire d'hl utilise MDX,je c tres bien que d'apprendre a utiliser MDX avant de savoir scripter comme il faut,c pas top mais bon..no comment

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

hl
- hl.mrc 3 443 octets
- MDX.DLL42 496 octets

Télécharger le zip

Historique

08 juillet 2006 08:24:22 :: j'ai rajouter le nom de variables dans le dialog pour que sa regle le probleme du premier edit et que les mot reste dans le dialog apres réouverture
09 juillet 2006 15:46:32 :: là correction est faite,merci pour ton aide RCA ArKanis,car j'avais oublié de rajouter les } Pour le reste..je suis encore dessus,je pense galerer un petit moment,mais je vais m'en sortir :)

Sources du même auteur

TOUT SAVOIR SUR L'ECRITURE EN COULEUR

Toutes les sources de SaD_AnG3L

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

Commentaires

Commentaire de PaDa le 05/07/2006 14:33:39

Ta source a le mérite de montrer 2-3 utilisations simples de MDX..
Après, je comprends pas vraiment pourquoi tu la postes, si tu considères toi même que c'est mal codé et déjà vu.. A quoi ca sert ?
Bonne continuation
Commentaire de SaD_AnG3L le 05/07/2006 14:37:34

a avancé,et a avoir des avis de ceux qui savent vraiment scripter,et ainsi pouvoir apprendre quelque truc au sujet du langage mIRC
Commentaire de PaDa le 05/07/2006 14:43:58

D'acc ;)
Je te donne un des trucs "moches" de ton script alors :

Cette partie :
#   if ($did == 13) {
#     set %hl1 $did($dname,13)
#   }

Tu la répètes 9 fois ! Alors que tu pourrais faire ca en une seule fois : tu veux regarder les did de 13 a 21, ce qui te fournit les %hl de 1 a 9 :
Tu peux donc en une condition regarder si le $did est entre 13 et 21 :
>> if ($did isnum 13-21) {
Puis tu calcules le numéro de la variable %hl à mettre à jour :
>> var %numero = $did - 12
Puis tu mets cette variable à jour :
>> set %hl $+ %numero $did($dname,$did)
>> }

Une amélioration intéressante serait de te débrouiller pour que le nombre de pseudos que tu peux rentrer soit illimité : utilise pour cela une liste déroulante (combo) ou une liste (list)

Bonne continuation ;)
Commentaire de PaDa le 05/07/2006 14:46:21

(désolé du double post : si le %numero n'est pas bon, il faut peut être un $calc autour de son calcul : var %numero = $calc($did - 12) .. normalement ca marche comme j'ai fait plus haut, mirc évalue les expressions simples sans $calc, mais bon, on sait jamais)
Commentaire de SaD_AnG3L le 05/07/2006 14:50:40

je vais m'entrainé d'avantage,et "essayer" ce que tu viens de m'expliqué,encore merci :)
Commentaire de RCA ArKanis le 05/07/2006 15:06:13

si c'est pour des conseils, j'pense que le forum est plus adapté ^^

en ce qui concerne l'utilité de la source ... pourquoi tu n'utilises pas le système d'highlight fourni par mIRC ?

ligne 103-104 :
      if (%hl9 isin $1- 1) {
      }
utilité ?
"isin $1- 1" ? pourquoi le 1 ?

il te manque une } à la fin

ON *:TEXT:*:*:{
  if (($chan != $active) && (%hl == on)) {
    var %t = 1
    while %t <= 9 {
      if (%hl [ $+ [ %t ] ] isin $1-) echo -at 4[12HL4]13 $nick sur $chan "$+ $1- $+"
;N.B. sur cette dernière ligne :
;echo -t va faire afficher le timestamp
;le . devant echo est inutile
;"$+ $1- $+", c'est moche :x utilise $qt si tu as mIRC 6.17 (voire 6.16 j'sais plus), ou alors $+(",$1-,")
;les [ ] s'appellent evaluation brackets, ça pourrait marcher avec $eval aussi
      inc %t
    }
  }
}
Commentaire de Panthouffle le 05/07/2006 17:50:14

J'aime pas trop la couleur de fond du dialog
Commentaire de Panthouffle le 05/07/2006 17:55:42

*tu pourrais rajouter quelques options, sons, bloquage sur certains salons, ou même sur certains pseudos

ps: le code serait moin long si tu utiliserais un combo comme pada l'a déjà dit (même si c'est assez rare de voir quelqu'un avec 9 pseudos) mais ça serait déjà plus propre que 9 edit ;)

Bonne continuation
Commentaire de wims le 05/07/2006 17:57:39

Idem que les deux plus haut, essaye une list
mais sinon pour le code actuel, si on réouvre le dialog, les pseudos que l'on avait chosis le coup precedent ne sont pas afficher, pour résoudre ca il suffit de rentrer le nom des variables ds le /dialog comme ca :
edit "%hl1", 13, 72 7 105 22, autohs

pour le premier edit :)
Commentaire de tofu le 05/07/2006 19:04:01

oublie MDX, passes à DCX direct..
Commentaire de SaD_AnG3L le 06/07/2006 13:03:06

DCX? quel est la difference entre DCX et MDX? et ou le trouve t'on?
Commentaire de PaDa le 06/07/2006 13:08:36

dcx.scriptsdb.org
MDX permet de modifier l'apparence des dialogs, et d'y ajouter quelques fonctionnalités.
MDX n'est plus développé depuis des années, et est très limité.
DCX a été développé pour pallier tous ces manques, il a une approche très différente mais permet de faire énormément de choses dans les dialogues, environ 12 000 fois plus de trucs que MDX..
Cela dit, apprends déja peut être le scripting conventionnel avant de te lancer dans des DLLs complexes :) Faut maitriser les bases, que ce soit pour MDX ou DCX..
Commentaire de SaD_AnG3L le 06/07/2006 13:12:00

je te remerci pour cette reponse super rapide.
je vais continué a me faire les dents sur le scripting,les dlls,on verras plus tard!
encore merci :)
Commentaire de RCA ArKanis le 09/07/2006 15:38:02

tu as fait des corrections mais tu as pas tenu compte des miennes ... fort dommage :/
il manque toujours deux } à la fin et le reste de mon message est toujours d'actualité
je te donne des conseils pour t'améliorer, et tu n'en prends même pas compte :/
Commentaire de MJ92 le 04/09/2006 23:49:30

Je trouve ton code pas mal du tout. Mais je pense que tu devrais mettre au moins de la place pour 10 pseudos, parce que si tu délire a changer de pseudo qui n'est pas dans ta source, on ne se fait pas HL. C'est dommage :/.
Je pense aussi que tu pourrais l'optimiser, puis les conseils d'Arkanis, Wims, Pada et les autres sont utiles pour l'amélioration des codes.

Lol panthouffle c'est vrai que la couleur te pete a la tete, mais bon avec mdxstudio ca pourrait s'arranger ^^

Bonne continuation...
Commentaire de XavSniper le 09/01/2007 23:57:41

Il y a aussi dans mIRC, en allant dans Options / IRC / Surbrillance

Tout simplement ;)
Commentaire de MJ92 le 26/02/2007 00:52:00

XavSniper c'est vrai. Mais tu peux tout aussi le créer en dialog ou le faire de façon On Text sans dialog.
Le scripting ne se résout pas à aller dans Options et les configurer, le scripting c'est créer tes codes...

Ajouter un commentaire

Discussions en rapport avec ce code source

à la base un HL avec des options sup. svp... par aoane

big defie pour les crack de scripting !!! par besky

Logger une @windows par BiGOuF

Timestamp par Soprano71

fenetre pour Hl général des users qui hls les opérateurs par luv