an other way

on *:TEXT:*:*:{
  ; if my nickname is in the line
  if ($me isin $1-) {
    inc -u10 %cspam. [ $+ [ $nick ] ]
    if (%cspam. [ $+ [ $nick ] ] <= 1) {
      ; %panel is for colors you want use
      ; %target is for reply to nick (for querys) or chan
      var %panel = 2 3 4 7 9 10 11 13, %target = $iif($chan,$chan,$nick)
      ; %color isn't a color, but a token num for the gettok %panel
      if (!%color) { set %color = 1 }
      ; if %color exists, inc the token. if %color > nbr of color in %panel, restart
      else { inc %color | if (%color > $gettok(%panel,0,32)) { set %color 1 } }
      msg %target $+(,$gettok(%panel,%color,32),What,$chr(32),$nick,?) 
    }
  }
}