Hightlights gestion

Commenter

Contenu du snippet

Hightlights Gestion :

alors cette source sert a vous prevenir quand quelqu'un dit un mot que vous desirer ( le plus souvent votre pseudo ^^ )

-La vous pouver mettre autant de mot que vous vouler
-Vous pouver choisir la phrase qui va vous prevenir
-Vous pourer activer ou desactiver l'hightlight
-Vous pouver choisir un son quand on vous appel :)
- Bha voila ^^

Source / Exemple : 


;---------------------------------------
;-         Hightlights Gestion
;-            By Jujuquatre  
;---------------------------------------

; LOAD
on *:load:{
  echo -a Hightlights Gestion By Jujuquatre
  echo -a taper /hightlight pour l'ouvrir
  echo -a Pour tout probleme contacter moi par e-mail : julien.huriez@tiscali.fr , merci
  set %hightlights.activ on
}

; ON TEXT
on *:text:*:#:{
  if ( $chan != $active ) && ( %hightlights.activ != off ) { var %text = $hightlights($1-) }
}

; DIALOG
dialog hightlights {
  title "HighLight Gestion"
  size -1 -1 103 118
  option dbu
  list 1, 4 10 57 66, size
  text "Liste d'HightLight :", 2, 5 1 55 8
  text "Texte du Hightlights :", 3, 4 88 55 8
  check "", 4, 5 76 50 10, flat
  edit %hightlights.text, 14, 4 97 96 10, autohs
  button "Aide", 6, 35 109 37 8, flat
  button "Ajouter", 7, 64 11 37 8, flat
  button "Suprimmer", 8, 64 22 37 8, flat
  box "Aide :", 9, 1 119 90 32
  text "la personne qui vous appelle : $nick", 10, 4 127 85 7, nowrap
  text "le chan ou il vous appelle : $chan", 11, 4 134 79 8
  button "^", 12, 92 123 10 27, flat
  button "Ok", 13, 64 33 37 8, flat ok cancel
  text "Le texte : $1-", 15, 4 141 82 8
  box "Sons", 21, 62 42 40 37
  button "Sons", 23, 67 52 30 8, flat
  button "Ecouter", 22, 67 65 30 8, flat
}

; EVENEMENT

; INIT
on *:dialog:hightlights:init:*:{
  if ( %hightlights.activ == on ) { did -c hightlights 4 | did -a hightlights 4 Activer }
  if ( %hightlights.activ == off ) { did -a hightlights 4 Desactiver }
  hightlightsinit
}

; SCLICK
on *:dialog:hightlights:sclick:*:{
  if ( $did == 7 ) { /dialog -m ajout.hightlights ajout.hightlights }
  elseif ( $did == 8 ) {   
    if ( $did(1).sel == $null ) { var %erreurr = $input(Slectionne une ligne !,300,Avertissement) | halt }
    set %hightlights.mot $remtok(%hightlights.mot,$gettok(%hightlights.mot,$did(1).sel,44),44)
    hightlightsinit
  }
  elseif ( $did == 6 ) { /dialog -s hightlights -1 -1 206 302 }
  elseif ( $did == 12 ) { dialog -s hightlights -1 -1 206 236 }
  elseif ( $did == 4 ) {
    if ( %hightlights.activ == off ) { set %hightlights.activ on | did -a hightlights 4 Activer }  
    else { set %hightlights.activ off | did -a hightlights 4 Desactiver }  
  }
  elseif ( $did == 23 ) { set %hightlights.sound $file="Choisis le sound :)" }
  elseif ( $did == 22 ) {
    if ( %hightlights.sound == $null ) { var %erreurr = $input(Choisis un sound !,300,Avertissement) }
    else { /splay %hightlights.sound }
  }
}

; EDIT
on *:dialog:hightlights:edit:0:{
  set %hightlights.text $did(14).text
}

; DIALOG AJOUT
dialog ajout.hightlights {
  size -1 -1 180 110
  title "Ajouter un module :"
  text "Le Hightlight :",1,9 16 117 17
  edit "",4,10 40 159 22, autohs
  button "Valider",3,58 70 60 30, cancel ok flat
  button "",1000,0 0 0 0,ok hide
}

; EVENEMENT

; SCLICK
on *:dialog:ajout.hightlights:sclick:*:{
  if ($did == 3) {
    if ( $chr(44) isin $did(4) ) { var %erreurr = $input(Ne met pas de point virgule !,300,Avertissement) | halt }
    var %hightlights.ajout = $did(4)
    set %hightlights.mot $sorttok($addtok(%hightlights.mot,%hightlights.ajout,44),44)
    /dialog -x ajout.hightlights ajout.hightlights
    hightlightsinit
  }
}

; ALIAS
alias hightlightsinit {
  did -r hightlights 1
  if (%hightlights.mot !== $null) {
    var %hightlights.loop.n = 1
    :loop
    did -a hightlights 1 $gettok(%hightlights.mot,%hightlights.loop.n,44)
    inc %hightlights.loop.n
    if ($gettok(%hightlights.mot,%hightlights.loop.n,44) !== $null) { goto loop }
  }
  else {
    unset %hightlights.mot
} }

alias hightlights {
  var %text = $1-
  var %i = 1
  while %i <= $numtok(%text,32) {
    var %text.temp = $gettok(%text,%i,32)
    var %ii = 1
    while %ii <= $numtok(%hightlights.mot,44) {
      var %temp1 = $gettok(%hightlights.mot,%ii,44)
      if ( %temp1 == %text.temp ) { 
        .remove Hightlights.txt
        .write Hightlights.txt %hightlights.text
        //echo -a $read(hightlights.txt)
        /splay %hightlights.sound
      }
      inc %ii
    }
    inc %i
  }
  return %text
}

alias hightlight { dialog -m hightlights hightlights }

Conclusion :


Bon voila :D

pour l'ouvrir ( /hightlight ) :)

Mci de me le dire si vous trouver des erreur :)
et remci de vos commentaire :D

++

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 (jujuquatre)