Unnamed

alias surligne {
  ;La var %c contient la couleur (0-16) contenue dans $3 (8 par défaut)
  ;La var %p est le pattern qui sera utilisé pour le $regsub
  ;Le pattern ne prend pas compte de la case sensitive
  ;La var %v contien une valeur qui nous intéresse pas ici
  ;$regsub remplace $1 grace au pattern %p
  ;Et met le résultat voulu dans la var %v
  var %c = $iif($3,$3,8),%p = /((?i) $+ $2 $+ )/g,%v = $regsub($1,%p,$+(,%c,\1),%r)
  ;On retourne %r résultat du $regsub
  return %r
}
on ^1:TEXT:*:#bahamutworld:{
  var %texte = $1-
  %texte = $replace($1-,â,â,é,é,û,û,ï,ï,ê,ê,è,è,î,î,ô,ô,é,é,À,à,–,à,Ã,à,àŠ,ê,à§,ç,cœ,œ,à¹,ù);
  echo -t #bahamutworld $nick >>> $surligne($surligne( %texte ,cff0070dd,12),cff1eff00,03)
  halt
  haltdef
}