Someone

on *:join:#: { 
  if ($nick == $me) { halt }
  else { msg # Hai2u $nick $+ ! }


  on *:TEXT:no u*:#: msg $chan Yes you $nick $+ !
  on *:TEXT:no you*:#: msg $chan Yes you $nick $+ !
  on *:TEXT:nou*:#: msg $chan Yes you $nick $+ !
  on *:TEXT:no tu*:#: msg $chan Si tu $nick $+ !

  alias rb {
    var %m = 1, %n = 1, %c1 = 04, %c2 = 07, %c3 = 08, %c4 = 09, %c5 = 11, %c6 = 02, %c7 = 06
    while ($mid($1-,%n,1) || $mid($1-,%n,1) == 0) {
      if ($v1 == $chr(32)) {
        var %t = %t $v2
      }
      else {
        var %t = %t $+ $+($chr(3),%c [ $+ [ %m ] ],$mid($1-,%n,1),$chr(3))
        $iif(%m == 7,set %m 1,inc %m)
      }
      inc %n
    }
    $iif($isid,return,msg $iif($chan,$v1,$nick)) %t
  }
  alias l { msg $chan $replace($1-,a,Å,b,ß,c,©,d,Ð,e,3,f,ƒ,i,¡,l,|,m,/\/\,n,Ñ,o,ø,p,þ,r,®,s,§,t,†,u,û,v,\/,x,×,y,¥,-,¬,?,¿,`,¤,w\/\/,) }